From 1fb478ae8194a59d7464a978ba26b073fbc8b1b3 Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Thu, 16 Jul 2026 11:30:39 +0300 Subject: [PATCH] Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) Co-Authored-By: Claude Fable 5 --- .gitattributes | 4 + .gitignore | 93 + CLAUDE.md | 70 + Clase/citeste.txt | 1 + Clase/ferestrebaza.vc2 | 320 + Clase/odevize.vc2 | 8215 ++++++ Clase/ofundal_dev.vc2 | 791 + Clase/onom_devize.vc2 | 7444 ++++++ Clase/oviz_devize.vc2 | 20650 ++++++++++++++++ Ferestre/frm_autopass.sc2 | 1380 ++ Ferestre/frm_date_comenzi.sc2 | 1339 + Ferestre/fundal.sc2 | 477 + Formulare/AUTOHAUS/20070911/sigla.jpg | Bin 0 -> 6067 bytes .../AUTOHAUS/20070911/usr_fact_cuchit.fr2 | 1763 ++ .../AUTOHAUS/20070911/usr_fact_farachit.fr2 | 1619 ++ .../AUTOHAUS/20070911/usr_factav_cuchit.fr2 | 1523 ++ .../AUTOHAUS/20070911/usr_factav_farachit.fr2 | 1379 ++ Formulare/AUTOHAUS/20070911/usr_rap_deviz.fr2 | 1288 + Formulare/AUTOHAUS/A4usr_fact_farachit.fr2 | 1612 ++ Formulare/AUTOHAUS/A4usr_factav_farachit.fr2 | 1372 + Formulare/FRUVIMED/fruvimed 20070830.tif | Bin 0 -> 71006 bytes Formulare/GGMOTORS/usr__preco.fr2 | 277 + Formulare/SIGMA/usr_fact_cuchit_l.fr2 | 2116 ++ Formulare/SIGMA/usr_fact_farachit_l.fr2 | 1924 ++ Formulare/test_listare_factura/actactan.db2 | 1742 ++ .../oproceduri_comune.prg | 2374 ++ .../proceduri_rapoarte.prg | 179 + Formulare/test_listare_factura/sel.txt | 1 + .../test_listare_factura/suma_in_vorbe.prg | 205 + .../test_listare_factura.prg | 245 + .../test_listare_factura/usr_fact_cuchit.fr2 | 911 + .../usr_fact_farachit.fr2 | 796 + .../usr_factav_cuchit.fr2 | 628 + .../usr_factav_farachit.fr2 | 508 + Grafice/clie1.bmp | Bin 0 -> 8694 bytes Grafice/clie2.bmp | Bin 0 -> 8694 bytes Grafice/fact1.bmp | Bin 0 -> 11574 bytes Grafice/fact2.bmp | Bin 0 -> 11574 bytes Grafice/gene1.bmp | Bin 0 -> 11574 bytes Grafice/gene2.bmp | Bin 0 -> 11574 bytes Grafice/logo_template.jpg | Bin 0 -> 1051 bytes Grafice/norm1.bmp | Bin 0 -> 11574 bytes Grafice/norm2.bmp | Bin 0 -> 11574 bytes Grafice/roaauto.bmp | Bin 0 -> 367014 bytes Grafice/valid1.bmp | Bin 0 -> 11574 bytes Grafice/valid2.bmp | Bin 0 -> 11574 bytes Help/manual_ROAAUTO.pdf | Bin 0 -> 126328 bytes Initializari/euro500t.txt.template | 5 + Initializari/euro500t_erori.xml.template | 134 + Initializari/roaauto_bon.xml.template | 11 + Meniuri/analize_prod_neterm.mn2 | 38 + Meniuri/editscurt.mn2 | 61 + Meniuri/listari_facturi.mn2 | 68 + Meniuri/listari_manopera.mn2 | 104 + Meniuri/roaauto.mn2 | 142 + Meniuri/serii.mn2 | 43 + Meniuri/verificari.mn2 | 29 + Meniuri/verificari_com.mn2 | 121 + Programe/onom_devize.prg | 437 + Programe/oproceduri_analize.prg | 1156 + Programe/oproceduri_autopass.prg | 1484 ++ Programe/oproceduri_devize.prg | 1795 ++ Programe/oproceduri_listari.prg | 2051 ++ Programe/oproceduri_vizualizare.prg | 940 + Programe/ovariabile_globale.prg | 79 + Programe/proceduri.prg | 301 + Programe/roaauto.prg | 1000 + Programe/test_autopass_driver.prg | 196 + Programe/update_devize.prg | 504 + Programe/update_nomenclator.prg | 40 + .../AUTOHAUS/Originale/usr_fact_farachit.fr2 | 1852 ++ Proiect/AUTOHAUS/TVA 0/sigla.jpg | Bin 0 -> 6067 bytes Proiect/AUTOHAUS/TVA 0/usr_fact_farachit.fr2 | 1852 ++ Proiect/ROAAUTO.mwb | Bin 0 -> 27091 bytes Proiect/ROAAUTO_vechi1506.mwb | Bin 0 -> 28513 bytes Rapoarte/Deviz20110919/rap_deviz_orig.fr2 | 1361 + Rapoarte/Deviz20110919/rap_deviz_v8.fr2 | 1403 ++ Rapoarte/Linii/fact_cuchit.fr2 | 1935 ++ Rapoarte/Linii/fact_farachit.fr2 | 1768 ++ Rapoarte/Linii/factav_cuchit.fr2 | 1540 ++ Rapoarte/Linii/factav_farachit.fr2 | 1384 ++ Rapoarte/Vechi/comfact.fr2 | 446 + Rapoarte/Vechi/comvalid.fr2 | 446 + Rapoarte/Vechi/comvalidnef.fr2 | 506 + Rapoarte/Vechi/factura.fr2 | 476 + Rapoarte/Vechi/factura1.fr2 | 476 + Rapoarte/Vechi/listfactsold.fr2 | 698 + Rapoarte/_deviz.fr2 | 854 + Rapoarte/_preco.fr2 | 290 + Rapoarte/centralizator_devize.fr2 | 530 + Rapoarte/certificatg_a4.fr2 | 182 + Rapoarte/certificatg_a5.fr2 | 182 + Rapoarte/clie.fr2 | 458 + Rapoarte/clieadresa.fr2 | 314 + Rapoarte/facturi.fr2 | 734 + Rapoarte/facturia.fr2 | 769 + Rapoarte/facturisectie.fr2 | 518 + Rapoarte/matbon.fr2 | 651 + Rapoarte/matbon_sec.fr2 | 771 + Rapoarte/matnefact.fr2 | 471 + Rapoarte/opersal.fr2 | 710 + Rapoarte/opersalcom.fr2 | 662 + Rapoarte/preco.fr2 | 1084 + Rapoarte/preco_nou.fr2 | 1367 + Rapoarte/precog.fr2 | 1096 + Rapoarte/rap_articole_comenzi.fr2 | 805 + Rapoarte/rap_comanda.fr2 | 1150 + Rapoarte/rap_deviz.fr2 | 1729 ++ Rapoarte/rap_devize_marci.fr2 | 769 + Rapoarte/rap_devizest.fr2 | 1144 + Rapoarte/rap_facturi_asig.fr2 | 841 + Rapoarte/rap_facturi_clienti.fr2 | 759 + Rapoarte/rap_facturi_sectii.fr2 | 1082 + Rapoarte/rap_manasig.fr2 | 506 + Rapoarte/rap_manopera_anfabricatie.fr2 | 793 + Rapoarte/rap_manopera_anfabricatie_c.fr2 | 517 + Rapoarte/rap_manopera_sectii.fr2 | 470 + Rapoarte/rap_oper.fr2 | 662 + Rapoarte/rap_verifvenit.fr2 | 1022 + Rapoarte/salarii.fr2 | 746 + Rapoarte/tprod.fr2 | 499 + Rapoarte/verordl.fr2 | 434 + Scripturi_instalare/20090413/script_mv.txt | 265 + Scripturi_instalare/ROAAUTO_instalare.sql | 25 + Scripturi_instalare/curatare_schema.sql | 296 + Scripturi_instalare/initializari.sql | 217 + Scripturi_instalare/packages.sql | 477 + Scripturi_instalare/procfunc.sql | 187 + Scripturi_instalare/secvente.sql | 207 + Scripturi_instalare/tabele.sql | 797 + Scripturi_instalare/tabele_nefolosite.sql | 84 + Scripturi_instalare/triggere.sql | 1697 ++ Scripturi_instalare/viewuri.sql | 917 + Scripturi_instalare/viewuri_materializate.sql | 298 + changelog_roaauto.txt | 1993 ++ citeste.txt | 23 + comun_plugins/plugin_sms_playsms.prg | 93 + comun_plugins/utils/wconnect.h | 263 + comun_plugins/utils/wwHttp.PRG | 1505 ++ comun_plugins/utils/wwapi.PRG | 929 + comun_plugins/utils/wwipstuff.dll | Bin 0 -> 83968 bytes comun_plugins/utils/wwutils.PRG | 1731 ++ config.fpw | 45 + docs/README.md | 30 + .../prd-roaauto-1.0-transmitere-autopass.md | 572 + program1.prg | 10 + roa_sync.bat | 1 + roaauto.arm | 46 + roaauto.pj2 | 516 + roaauto_instructiuni.txt | 181 + sqlnet.log | 114 + versiune_db.txt | 1 + 152 files changed, 129219 insertions(+) create mode 100644 .gitattributes create mode 100644 .gitignore create mode 100644 CLAUDE.md create mode 100644 Clase/citeste.txt create mode 100644 Clase/ferestrebaza.vc2 create mode 100644 Clase/odevize.vc2 create mode 100644 Clase/ofundal_dev.vc2 create mode 100644 Clase/onom_devize.vc2 create mode 100644 Clase/oviz_devize.vc2 create mode 100644 Ferestre/frm_autopass.sc2 create mode 100644 Ferestre/frm_date_comenzi.sc2 create mode 100644 Ferestre/fundal.sc2 create mode 100644 Formulare/AUTOHAUS/20070911/sigla.jpg create mode 100644 Formulare/AUTOHAUS/20070911/usr_fact_cuchit.fr2 create mode 100644 Formulare/AUTOHAUS/20070911/usr_fact_farachit.fr2 create mode 100644 Formulare/AUTOHAUS/20070911/usr_factav_cuchit.fr2 create mode 100644 Formulare/AUTOHAUS/20070911/usr_factav_farachit.fr2 create mode 100644 Formulare/AUTOHAUS/20070911/usr_rap_deviz.fr2 create mode 100644 Formulare/AUTOHAUS/A4usr_fact_farachit.fr2 create mode 100644 Formulare/AUTOHAUS/A4usr_factav_farachit.fr2 create mode 100644 Formulare/FRUVIMED/fruvimed 20070830.tif create mode 100644 Formulare/GGMOTORS/usr__preco.fr2 create mode 100644 Formulare/SIGMA/usr_fact_cuchit_l.fr2 create mode 100644 Formulare/SIGMA/usr_fact_farachit_l.fr2 create mode 100644 Formulare/test_listare_factura/actactan.db2 create mode 100644 Formulare/test_listare_factura/oproceduri_comune.prg create mode 100644 Formulare/test_listare_factura/proceduri_rapoarte.prg create mode 100644 Formulare/test_listare_factura/sel.txt create mode 100644 Formulare/test_listare_factura/suma_in_vorbe.prg create mode 100644 Formulare/test_listare_factura/test_listare_factura.prg create mode 100644 Formulare/test_listare_factura/usr_fact_cuchit.fr2 create mode 100644 Formulare/test_listare_factura/usr_fact_farachit.fr2 create mode 100644 Formulare/test_listare_factura/usr_factav_cuchit.fr2 create mode 100644 Formulare/test_listare_factura/usr_factav_farachit.fr2 create mode 100644 Grafice/clie1.bmp create mode 100644 Grafice/clie2.bmp create mode 100644 Grafice/fact1.bmp create mode 100644 Grafice/fact2.bmp create mode 100644 Grafice/gene1.bmp create mode 100644 Grafice/gene2.bmp create mode 100644 Grafice/logo_template.jpg create mode 100644 Grafice/norm1.bmp create mode 100644 Grafice/norm2.bmp create mode 100644 Grafice/roaauto.bmp create mode 100644 Grafice/valid1.bmp create mode 100644 Grafice/valid2.bmp create mode 100644 Help/manual_ROAAUTO.pdf create mode 100644 Initializari/euro500t.txt.template create mode 100644 Initializari/euro500t_erori.xml.template create mode 100644 Initializari/roaauto_bon.xml.template create mode 100644 Meniuri/analize_prod_neterm.mn2 create mode 100644 Meniuri/editscurt.mn2 create mode 100644 Meniuri/listari_facturi.mn2 create mode 100644 Meniuri/listari_manopera.mn2 create mode 100644 Meniuri/roaauto.mn2 create mode 100644 Meniuri/serii.mn2 create mode 100644 Meniuri/verificari.mn2 create mode 100644 Meniuri/verificari_com.mn2 create mode 100644 Programe/onom_devize.prg create mode 100644 Programe/oproceduri_analize.prg create mode 100644 Programe/oproceduri_autopass.prg create mode 100644 Programe/oproceduri_devize.prg create mode 100644 Programe/oproceduri_listari.prg create mode 100644 Programe/oproceduri_vizualizare.prg create mode 100644 Programe/ovariabile_globale.prg create mode 100644 Programe/proceduri.prg create mode 100644 Programe/roaauto.prg create mode 100644 Programe/test_autopass_driver.prg create mode 100644 Programe/update_devize.prg create mode 100644 Programe/update_nomenclator.prg create mode 100644 Proiect/AUTOHAUS/Originale/usr_fact_farachit.fr2 create mode 100644 Proiect/AUTOHAUS/TVA 0/sigla.jpg create mode 100644 Proiect/AUTOHAUS/TVA 0/usr_fact_farachit.fr2 create mode 100644 Proiect/ROAAUTO.mwb create mode 100644 Proiect/ROAAUTO_vechi1506.mwb create mode 100644 Rapoarte/Deviz20110919/rap_deviz_orig.fr2 create mode 100644 Rapoarte/Deviz20110919/rap_deviz_v8.fr2 create mode 100644 Rapoarte/Linii/fact_cuchit.fr2 create mode 100644 Rapoarte/Linii/fact_farachit.fr2 create mode 100644 Rapoarte/Linii/factav_cuchit.fr2 create mode 100644 Rapoarte/Linii/factav_farachit.fr2 create mode 100644 Rapoarte/Vechi/comfact.fr2 create mode 100644 Rapoarte/Vechi/comvalid.fr2 create mode 100644 Rapoarte/Vechi/comvalidnef.fr2 create mode 100644 Rapoarte/Vechi/factura.fr2 create mode 100644 Rapoarte/Vechi/factura1.fr2 create mode 100644 Rapoarte/Vechi/listfactsold.fr2 create mode 100644 Rapoarte/_deviz.fr2 create mode 100644 Rapoarte/_preco.fr2 create mode 100644 Rapoarte/centralizator_devize.fr2 create mode 100644 Rapoarte/certificatg_a4.fr2 create mode 100644 Rapoarte/certificatg_a5.fr2 create mode 100644 Rapoarte/clie.fr2 create mode 100644 Rapoarte/clieadresa.fr2 create mode 100644 Rapoarte/facturi.fr2 create mode 100644 Rapoarte/facturia.fr2 create mode 100644 Rapoarte/facturisectie.fr2 create mode 100644 Rapoarte/matbon.fr2 create mode 100644 Rapoarte/matbon_sec.fr2 create mode 100644 Rapoarte/matnefact.fr2 create mode 100644 Rapoarte/opersal.fr2 create mode 100644 Rapoarte/opersalcom.fr2 create mode 100644 Rapoarte/preco.fr2 create mode 100644 Rapoarte/preco_nou.fr2 create mode 100644 Rapoarte/precog.fr2 create mode 100644 Rapoarte/rap_articole_comenzi.fr2 create mode 100644 Rapoarte/rap_comanda.fr2 create mode 100644 Rapoarte/rap_deviz.fr2 create mode 100644 Rapoarte/rap_devize_marci.fr2 create mode 100644 Rapoarte/rap_devizest.fr2 create mode 100644 Rapoarte/rap_facturi_asig.fr2 create mode 100644 Rapoarte/rap_facturi_clienti.fr2 create mode 100644 Rapoarte/rap_facturi_sectii.fr2 create mode 100644 Rapoarte/rap_manasig.fr2 create mode 100644 Rapoarte/rap_manopera_anfabricatie.fr2 create mode 100644 Rapoarte/rap_manopera_anfabricatie_c.fr2 create mode 100644 Rapoarte/rap_manopera_sectii.fr2 create mode 100644 Rapoarte/rap_oper.fr2 create mode 100644 Rapoarte/rap_verifvenit.fr2 create mode 100644 Rapoarte/salarii.fr2 create mode 100644 Rapoarte/tprod.fr2 create mode 100644 Rapoarte/verordl.fr2 create mode 100644 Scripturi_instalare/20090413/script_mv.txt create mode 100644 Scripturi_instalare/ROAAUTO_instalare.sql create mode 100644 Scripturi_instalare/curatare_schema.sql create mode 100644 Scripturi_instalare/initializari.sql create mode 100644 Scripturi_instalare/packages.sql create mode 100644 Scripturi_instalare/procfunc.sql create mode 100644 Scripturi_instalare/secvente.sql create mode 100644 Scripturi_instalare/tabele.sql create mode 100644 Scripturi_instalare/tabele_nefolosite.sql create mode 100644 Scripturi_instalare/triggere.sql create mode 100644 Scripturi_instalare/viewuri.sql create mode 100644 Scripturi_instalare/viewuri_materializate.sql create mode 100644 changelog_roaauto.txt create mode 100644 citeste.txt create mode 100644 comun_plugins/plugin_sms_playsms.prg create mode 100644 comun_plugins/utils/wconnect.h create mode 100644 comun_plugins/utils/wwHttp.PRG create mode 100644 comun_plugins/utils/wwapi.PRG create mode 100644 comun_plugins/utils/wwipstuff.dll create mode 100644 comun_plugins/utils/wwutils.PRG create mode 100644 config.fpw create mode 100644 docs/README.md create mode 100644 docs/prd/prd-roaauto-1.0-transmitere-autopass.md create mode 100644 program1.prg create mode 100644 roa_sync.bat create mode 100644 roaauto.arm create mode 100644 roaauto.pj2 create mode 100644 roaauto_instructiuni.txt create mode 100644 sqlnet.log create mode 100644 versiune_db.txt 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..e657314 --- /dev/null +++ b/.gitignore @@ -0,0 +1,93 @@ +# ============================================================================= +# 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) --- +Formulare/test_listare_factura/ACTACTAN.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 +*.TBK +*.tmp +*.TMP +*.err +*.ERR +*.Stats +*.stackdump + +# --- Executabile compilate --- +*.exe +*.EXE + +# --- Backup-uri vechi de clase, nu mai sunt necesare --- +Clase/Backup/ +Clase/2707oviz_devize.* + +# --- Stare locala / resurse runtime VFP (specifice masinii) --- +FOXUSER.DBF +FOXUSER.FPT +FoxyPreviewer_Emails.CDX +FoxyPreviewer_Emails.DBF +FoxyPreviewer_Emails.FPT +log.txt +LOG.txt +*.lnk +Thumbs.db +Desktop.ini +bash.exe.stackdump + +# --- Subversion (working copy paralela) --- +.svn/ + +# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) --- +COMUN/ diff --git a/CLAUDE.md b/CLAUDE.md new file mode 100644 index 0000000..2b8baae --- /dev/null +++ b/CLAUDE.md @@ -0,0 +1,70 @@ +# CLAUDE.md + +This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository. + +## What this is + +ROAAUTO is a **Visual FoxPro 9** desktop application (Romanian-language) for auto-service / +car-dealer operations: devize (quotes/estimates), comenzi (work orders), facturare (invoicing). +It is one member of the larger "ROA" suite and shares the `COMUN\` framework with the other +ROA applications (ROAACNPRO, ROAGEST, etc.). + +## Build, run, version control + +- **Build/run requires the Visual FoxPro 9 IDE on Windows.** There is no command-line build. + Open `roaauto.pjx` in the VFP IDE and use *Build > Build Executable* to produce `roaauto.exe`. +- **`.prg` files are source; `.fxp` are compiled, `.bak` are backups.** Edit the `.prg`. The + `.scx/.sct` (forms), `.vcx/.vct` (class libraries), `.frx/.frt` (reports), and `.mnx/.mpr` + (menus) are VFP binary/generated artifacts — **edit them in the VFP IDE, not by hand.** +- **Version control: git runs in parallel with the legacy SVN.** SVN (`.svn/`) remains the "live" + source of truth for this project and especially for `COMUN/`, which stays a working copy + synced manually to git — git does not replace it, just mirrors it for tooling (search, diffing, + agent workflows). Don't run `svn` commands from here unless explicitly asked; `.gitignore` + simply excludes `.svn/`. + - **Repo principal** (rădăcina acestui folder): `git@gitea.romfast.ro:romfast/roaauto.git`. + - **`COMUN/`** are propriul `.git`, separat de repo-ul principal (de aceea `COMUN/` e în + `.gitignore`-ul de la rădăcină — nu e tracked de repo-ul principal). Origin-ul lui e + **același pentru toate aplicațiile ROA**: `git@gitea.romfast.ro:romfast/comun.git` — repo + partajat, populat inițial din ROAACNPRO. Nu face force-push peste el fără să verifici întâi + diferențele față de `origin/main` (ar afecta toate proiectele ROA care îl folosesc). +- **`config.fpw`** sets the runtime environment. Don't enable SAFETY — the code relies on silent + overwrite (see `EXCLUSIVE=OFF`/`SAFETY=OFF` conventions shared across ROA apps). +- The compiler error log is `roaauto.ERR`; the runtime log is `LOG.txt`. + +## Searching code inside `.vcx`/`.scx` (binary) libraries + +Most class/form code lives **inside binaries** (`.vcx`+`.vct`, `.scx`+`.sct`, …), not in `.prg`, +so plain grep can't read it cleanly. Convert to TEXT form first and grep the text: + +```powershell +powershell -ExecutionPolicy Bypass -File D:\ROA\UTIL\foxbin2prg\vcx2txt.ps1 ` + -Project D:\ROA\ROAAUTO\roaauto.pjx -ProjectRoot D:\ROA\ROAAUTO ` + -CacheRoot D:\ROA\UTIL\foxbin2prg\_textcache_roaauto +``` + +This is project-driven (reads `roaauto.pjx`, converts only the `.vcx`/`.scx` the project +actually uses) and writes to a **cache dedicated to this project** +(`D:\ROA\UTIL\foxbin2prg\_textcache_roaauto\`) — don't mix it with other ROA projects' caches +(e.g. `_textcache_roaacnpro`). Then `Grep` in that cache. Full guide: `docs/cautare_vcx_vct.md`. + +## The COMUN shared framework + +`COMUN/` is shared, framework-level code used by every ROA app — not specific to ROAAUTO. Treat +it as a vendored library: prefer app-specific changes in this repo's top-level `Programe/`, +`Clase/`, `Ferestre/`, `Rapoarte/`, `Meniuri/` directories, and only touch `COMUN/` when the fix +genuinely belongs to the shared framework (and remember it's versioned separately, shared with +every other ROA app). + +## Mod de lucru: delegare către subagenți + review înainte de commit + +Preferințele lui Marius pentru sesiunile pe acest proiect: + +- **Delegare**: modificările de cod de volum/rutină (aplicarea unei propuneri din `docs/propuneri_*.md`, editări pe cache-ul text + write-back, actualizări de documentație, rulări de teste) se deleagă către **subagenți Sonnet care lucrează în background** (team agents — Agent tool cu `model: sonnet`, lane-uri paralele unde e posibil), iar sesiunea principală doar orchestrează și monitorizează: împarte planul pe lane-uri, transmite constatările între agenți, verifică rezultatele (diff, teste, fidelity) și intervine direct doar la deblocări (procese agățate), decizii și verificări. +- **Fără commit fără review**: nu da commit din proprie inițiativă pe modificări de cod — Marius vrea întâi să **vadă diff-ul**. Pentru binarele VFP (`.vcx`/`.scx`), diff-ul lizibil se face pe forma text: regenerează textul din binarul vechi (HEAD din git) cu `vcx2txt.ps1 -Source` și compară-l cu textul editat din cache (`git diff --no-index`). Commit doar după ce Marius confirmă pe diff. +- **Arată diff-ul complet după orice modificare**: după ce agenții (proprii sau subagenți) termină o rundă de editări — inclusiv la asamblarea rezultatelor din lane-uri paralele — afișează-i lui Marius diff-ul complet (`git diff`, nu doar rezumat/`--stat`) înainte de a continua la pasul următor sau de a cere aprobare, nu doar un sumar descriptiv al schimbărilor. + +## Project insights (docs/) + +Vezi indexul din [`docs/README.md`](docs/README.md). Oferă-mi proactiv actualizarea `docs/` +ori de câte ori descoperi un insight nou și ne-evident despre acest proiect (flux ascuns, +capcană, convenție, procedură/pachet cheie, tabel relevant) — nu aștepta să fii întrebat. diff --git a/Clase/citeste.txt b/Clase/citeste.txt new file mode 100644 index 0000000..63eab3b --- /dev/null +++ b/Clase/citeste.txt @@ -0,0 +1 @@ +2707oviz_devize.vcx : am pus diacritice pe toate labelurile, doar ca la salvarea nu mi le retine, iar in loc de t imi pune _ in unele \ No newline at end of file diff --git a/Clase/ferestrebaza.vc2 b/Clase/ferestrebaza.vc2 new file mode 100644 index 0000000..76f3354 --- /dev/null +++ b/Clase/ferestrebaza.vc2 @@ -0,0 +1,320 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (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 cmdrenunt AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Caption = "\ + + PROCEDURE Click + THISFORM.RELEASE + ENDPROC + +ENDDEFINE + +DEFINE CLASS cmdtermin AS commandbutton + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Caption = "\ + + PROCEDURE Click + IF TYPE("THISFORM.Parent") = "O" + THISFORMSET.Release + ELSE + THISFORM.Release + ENDIF + + + 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="" /> + + * + AlwaysOnTop = .T. + AutoCenter = .T. + BorderStyle = 3 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Height = 500 + Icon = ..\..\..\vfp\ + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "ffergen" + 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 labelmic AS label + *< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + AutoSize = .T. + BackStyle = 0 + Caption = "Labelmic" + ForeColor = 0,0,128 + Height = 17 + Name = "labelmic" + Width = 53 + ZOrderSet = 8 + * + +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 text AS atentie OF "ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + DoCreate = .T. + Height = 102 + Name = "text" + Width = 401 + Shape1.Height = 92 + Shape1.Left = 4 + Shape1.Name = "Shape1" + Shape1.Top = 4 + Shape1.Width = 392 + Shape1.ZOrderSet = 1 + IMAGE1.Height = 32 + IMAGE1.Left = 24 + IMAGE1.Name = "IMAGE1" + IMAGE1.Picture = ..\grafice\net13.ico + IMAGE1.Top = 29 + 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.FontSize = 10 + Label2.Height = 18 + Label2.Left = 60 + Label2.Name = "Label2" + Label2.Top = 18 + Label2.Width = 324 + Label2.ZOrderSet = 3 + Cmdtermin1.Left = 158 + Cmdtermin1.Name = "Cmdtermin1" + Cmdtermin1.Top = 61 + Cmdtermin1.ZOrderSet = 4 + Label3.FontSize = 10 + Label3.Height = 19 + Label3.Left = 62 + Label3.Name = "Label3" + Label3.Top = 36 + Label3.Visible = .T. + Label3.Width = 321 + Label3.ZOrderSet = 5 + * + +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/odevize.vc2 b/Clase/odevize.vc2 new file mode 100644 index 0000000..5af4339 --- /dev/null +++ b/Clase/odevize.vc2 @@ -0,0 +1,8215 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="odevize.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_adaug_man 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="_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_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LB_SIMPLU1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic._cbbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cMarca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cMarca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cAnsamblu.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cAnsamblu.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cDenop.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cDenop.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cTimpn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cTimpn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cSelectat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cSelectat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cCodop.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cCodop.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_marca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_ansamblu" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_denop" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_selectat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_adauga1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Autoresize1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_modifica1" UniqueID="" Timestamp="" /> + + * + *m: do_adaugarep + *m: do_adauga_norme + *p: nid_sectie + *p: nordine + *p: npret + *p: n_idpret + * + + * + cgridsortlist = grdnorme + DoCreate = .T. + Height = 444 + lactiv4 = .T. + Name = "frm_adaug_man" + nid_sectie = 0 + nordine = 0 + npret = 0 + n_idpret = 0 + Width = 695 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = -1 + _shape1.Name = "_shape1" + _shape1.Tag = "W" + _shape1.Top = 0 + _shape1.Width = 696 + _shape1.ZOrderSet = 0 + _shape2.Height = 29 + _shape2.Left = 631 + _shape2.Name = "_shape2" + _shape2.Tag = "L" + _shape2.Top = 0 + _shape2.Width = 64 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "MODIFICARE COMAND NR:" + 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 = 2 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.AutoSize = .F. + BUT_TERMIN1.Left = 664 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 12 + BUT_TERMIN1.Tag = "L" + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 3 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + BackStyle = 0, ; + Height = 214, ; + Left = 317, ; + Name = "_shape3", ; + SpecialEffect = 0, ; + Top = 36, ; + Width = 306, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + Height = 214, ; + Left = 13, ; + Name = "_shape4", ; + SpecialEffect = 0, ; + Top = 36, ; + Width = 306, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'Autoresize1' AS autoresize WITH ; + Left = 633, ; + Name = "Autoresize1", ; + TabIndex = 26, ; + Top = 208 + *< END OBJECT: ClassLib="..\comun\clase\autoresize.vcx" BaseClass="container" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + BackColor = 212,208,200, ; + Left = 589, ; + Name = "But_nou1", ; + TabIndex = 15, ; + Top = 125, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Left = 634, ; + Name = "But_renunt1", ; + TabIndex = 13, ; + Tag = "L", ; + Top = 0, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + BackColor = 212,208,200, ; + Left = 589, ; + Name = "But_sterge1", ; + TabIndex = 16, ; + Top = 154, ; + Visible = .T., ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Left = 324, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 1, ; + Top = 61, ; + ZOrderSet = 16, ; + _CBBASE1.ControlSource = "ooper.sectie", ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_sectie.sectie", ; + _CBBASE1.RowSourceType = 2, ; + _LBBASE1.Caption = "Atelier:", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ; + Left = 324, ; + Name = "Cb_tx_simplu2", ; + TabIndex = 2, ; + Top = 89, ; + ZOrderSet = 17, ; + _CBBASE1.ColumnCount = 2, ; + _CBBASE1.ControlSource = "ooper.pret", ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_preturi.pret,asigurator", ; + _CBBASE1.RowSourceType = 2, ; + _LBBASE1.Caption = "Pre / Or", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_ansamblu' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = ansamblu, ; + Caption = "Ansamblu", ; + Left = 17, ; + Name = "Ck_ansamblu", ; + TabIndex = 5, ; + Top = 290, ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_denop' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = denop, ; + Caption = "Denumire", ; + Left = 376, ; + Name = "Ck_denop", ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 290, ; + Visible = .F., ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_marca' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = marca, ; + Caption = "Marca mainii", ; + Left = 107, ; + Name = "Ck_marca", ; + TabIndex = 6, ; + Top = 290, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_selectat' AS ck_simplu WITH ; + Alignment = 0, ; + Caption = "nregistrrile selectate", ; + Left = 218, ; + Name = "Ck_selectat", ; + TabIndex = 7, ; + Top = 290, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 19, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 61, ; + ZOrderSet = 8, ; + TEXT_SIMPLU1.ControlSource = "ocomanda.nume", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Client:", ; + 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 = 19, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 89, ; + ZOrderSet = 9, ; + TEXT_SIMPLU1.ControlSource = "ocomanda.asigurator", ; + TEXT_SIMPLU1.Left = 101, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + TEXT_SIMPLU1.Top = 2, ; + LB_SIMPLU1.Caption = "Asigurator:", ; + 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 = 19, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 117, ; + ZOrderSet = 10, ; + TEXT_SIMPLU1.ControlSource = "ocomanda.NRORD", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Nr. comand", ; + 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 = 19, ; + Name = "Clb_tx_simplu4", ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 145, ; + ZOrderSet = 11, ; + TEXT_SIMPLU1.ControlSource = "ocomanda.Nrinmat", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Nr. nmatriculare", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ; + Left = 19, ; + Name = "Clb_tx_simplu5", ; + TabIndex = 22, ; + TabStop = .F., ; + Top = 173, ; + ZOrderSet = 12, ; + TEXT_SIMPLU1.ControlSource = "ocomanda.marca", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Marc main", ; + 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 = 19, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 23, ; + TabStop = .F., ; + Top = 201, ; + ZOrderSet = 13, ; + TEXT_SIMPLU1.ControlSource = "ocomanda.masina", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + LB_SIMPLU1.Caption = "Model", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 22, ; + Name = "Clb_tx_simplu7", ; + TabIndex = 4, ; + Top = 259, ; + Width = 314, ; + TEXT_SIMPLU1.Left = 123, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + LB_SIMPLU1.Caption = "Adugare/ Cutare", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_adauga1' AS cmd_adauga WITH ; + Anchor = 0, ; + caction = do_adauga_norme, ; + Left = 515, ; + Name = "Cmd_adauga1", ; + TabIndex = 10, ; + Top = 259, ; + ZOrderSet = 28 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 0, ; + Left = 343, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Top = 259, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_modifica1' AS cmd_modifica WITH ; + Anchor = 0, ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 0, ; + Left = 429, ; + Name = "Cmd_reset1", ; + TabIndex = 9, ; + Top = 259, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdmecanici' AS _grdrow WITH ; + ColumnCount = 1, ; + DeleteMark = .F., ; + Height = 118, ; + Left = 323, ; + Name = "grdmecanici", ; + Panel = 1, ; + RecordSource = "crsmecanici", ; + RowHeight = 27, ; + TabIndex = 3, ; + Top = 126, ; + Width = 264, ; + ZOrderSet = 18, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cMecanic", ; + Column1.Sparse = .F., ; + Column1.Width = 231 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdmecanici.cMecanic._cbbase1' AS _cbbase WITH ; + FontName = "Arial", ; + FontSize = 10, ; + Left = 35, ; + Name = "_cbbase1", ; + RowSource = "v_mecanici.nume,id_mecanic", ; + RowSourceType = 6, ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\_cb_base.vcx" BaseClass="combobox" /> + + ADD OBJECT 'grdmecanici.cMecanic.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mecanic", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 127, ; + Left = 12, ; + Name = "grdnorme", ; + Panel = 1, ; + RecordSource = "v_norme", ; + RowHeight = 19, ; + TabIndex = 11, ; + Tag = "WH", ; + Top = 312, ; + Width = 672, ; + ZOrderSet = 21, ; + Column1.ControlSource = "marca", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cMarca", ; + Column1.ReadOnly = .T., ; + Column1.Width = 85, ; + Column2.ControlSource = "ansamblu", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cAnsamblu", ; + Column2.ReadOnly = .T., ; + Column2.Width = 112, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "denop", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cDenop", ; + Column3.ReadOnly = .T., ; + Column3.Tag = "W", ; + Column3.Width = 320, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "timpn", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.InputMask = "999.999", ; + Column4.Name = "cTimpn", ; + Column4.ReadOnly = .T., ; + Column4.Width = 76, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "ales", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cSelectat", ; + Column5.ReadOnly = .F., ; + Column5.Sparse = .F., ; + Column5.Width = 54, ; + Column6.ColumnOrder = 3, ; + Column6.ControlSource = "codop", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cCodop", ; + Column6.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdnorme.cAnsamblu.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ansamblu", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme.cAnsamblu.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 'grdnorme.cCodop.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme.cCodop.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 'grdnorme.cDenop.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme.cDenop.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 'grdnorme.cMarca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca masinii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme.cMarca.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 'grdnorme.cSelectat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 21, ; + Name = "Check1", ; + ReadOnly = .F., ; + Top = 43, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grdnorme.cSelectat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Selectat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme.cTimpn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Timp normat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme.cTimpn.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 'LB_SIMPLU1' AS lb_simplu WITH ; + Caption = "Date client:", ; + Left = 18, ; + Name = "LB_SIMPLU1", ; + TabIndex = 24, ; + Top = 41, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + Caption = "Date Service:", ; + Left = 324, ; + Name = "Lb_simplu2", ; + TabIndex = 25, ; + Top = 41, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid2 + Lparameters tcFiltru,tcFiltru2 + Local lcFiltru,lcFiltru2 + + lcFiltru=tcFiltru + If Empty(lcFiltru) + lcFiltru='' + Endif + lcFiltru2=tcFiltru2 + If Empty(lcFiltru2) + lcFiltru2='' + Endif + + With Thisform + Select v_norme + Go Top + Select * From v_norme Where ales!=0 Into Cursor crsalese + save_grid_tag(.grdnorme) + If !Empty(lcFiltru2) + Select * From crsalese Into Cursor crstoate + Else + =update_norme(lcFiltru) + Select * From crsalese ; + Union ; + Select * From v_norme Where id_norme Not In (Select id_norme From crsalese) Into Cursor crstoate + Endif + If Used('v_norme') + Use In v_norme + Endif + Select * From crstoate Order By ales Desc,ordine,denop Asc,masina Asc Into Cursor v_norme Readwrite + Use In crstoate + Go Top + restore_grid_tag(.grdnorme) + .grdnorme.ctimpn.SetFocus() + Endwith + + + *!* LPARAMETERS pcFiltru + *!* LOCAL lcFiltru + *!* lcFiltru=pcFiltru + *!* IF EMPTY(lcFiltru) + *!* lcFiltru=ponorme.ca_baza1.cfiltru + *!* ENDIF + *!* save_grid_tag(thisform.gnorme) + *!* ponorme.ca_baza1.cfiltru=lcFiltru + *!* ponorme.ca_baza1.afisare() + *!* restore_grid_tag(thisform.gnorme) + *!* *!* IF RECCOUNT('v_delegati')>0 + *!* thisform.gnorme.SetFocus() + *!* *!* ELSE + *!* *!* thisform.lb_delegati.SetFocus() + *!* *!* ENDIF + ENDPROC + + PROCEDURE do_adauga + *!* If Thisform._pageframe1.ActivePage=1 + *!* WAIT WINDOW 'aaaa' + Private pnIesire,pcselect,pcfiltru,pcorder,pnid_mecanic,pcnume + Store "" To oCautare + pnIesire=0 + pnid_mecanic=0 + + pcselect=['select id_mecanic,nume||CHR(32)||prenume as nume,sectie from ] + gcS + [.auto_vmecanici where inactiv=0'] + pcfiltru = [inactiv=0] + pcordine = [nume] + oCautare=cauta_alfa(pcselect,pcfiltru,[''],pcordine,'nume,sectie','Alegeti mecanicul','Mecanic,Sectie') + pnid_mecanic=oCautare.id_mecanic + pcnume=oCautare.nume + If pnIesire != 1 Or Empty(pnid_mecanic) + Return + Endif + + save_grid_tag(Thisform.grdmecanici) + Insert Into crsmecanici(id_crs,id_mecanic,nume) Values(Reccount('crsmecanici')+1,pnid_mecanic,pcnume) + restore_grid_tag(Thisform.grdmecanici) + Select crsmecanici + Go Top + Thisform.grdmecanici.Refresh + Release oCautare + *!* Endif + + ENDPROC + + PROCEDURE do_adaugarep + Local lcFiltru, lcExecuteString, lcDenop, lcAlias, lnNealese, lnNrIreg + Store '' To lcFiltru,lcExecuteString,lcDenop + lcFiltru=[2=2] + lcExecuteString = "thisform.clb_tx_simplu7.tEXT_SIMPLU1" + With &lcExecuteString + lcDenop=Strtran(Alltrim(Upper(.Value)),['],['']) + If !Empty(lcDenop) + lcFiltru = lcFiltru + [ and denop like '%] + lcDenop + [%'] + Else + Return + Endif + Endwith + Thisform.actualizeaza_grid2(lcFiltru) + + Store 0 To lnNrIreg + Select v_norme + Count For Like('*'+lcDenop+'*',denop) To lnNrIreg + If lnNrIreg = 0 + If AMessagebox('Valoarea introdusa nu exista! O adaugam?',4+32,"Adaugare norma") # 6 + Return + Endif + *!* modificare v 2.0.9 + *!* lcSql = [INSERT INTO ] + gcS + [.dev_nom_norme (id_masina,id_ansamblu,denop,codop,timpn,inactiv) VALUES (]+; + *!* [0,0,'] + Alltrim(Thisform.clb_tx_simplu7.tEXT_SIMPLU1.Value) + [',0,0,0)] + lcSql = [begin pack_auto.adauga_norma(null,null,'] + lcDenop + [',null,0,0,?gnIdUtil); end;] + *!* modificare v 2.0.9 ^ + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + *!* Sqlrollback(gnHandle) + *!* SQLSETPROP(gnHandle,"Transactions",1) + AMessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Thisform.actualizeaza_grid2(lcFiltru) + Endif + + lcAlias = Thisform.grdnorme.RecordSource + Select (lcAlias) + Calculate Cnt() For ales=0 To lnNealese + Go Top + If lnNealese=1 + *!* modificare v 2.0.13 + *!* Replace All ales With 1 + Thisform.nordine = Thisform.nordine+1 + Replace ales With 1,ordine With Thisform.nordine FOR ales = 0 + *!* modificare v 2.0.13 ^ + Endif + Thisform.grdnorme.ctimpn.SetFocus() + + ENDPROC + + PROCEDURE do_adauga_norme + Private pniesire + pniesire=0 + Do update_ansamble In update_devize.prg + Do update_masini In update_devize.prg + + Select v_norme + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "norme",loRec,,"INSERT",,"addnorm" + If pniesire=1 + *!* This.actualizeaza_grid2() + *!* thisform.actualizeaza_grid2() + thisform.do_cauta() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcVal1 + Store '' To lcVal1 + *!* *!* If Thisform._pageframe1.ActivePage=2 + Local lcFiltru,lcFiltru2 + lcFiltru = [2=2] + lcFiltru2 = [] + *!* *!* With Thisform._pageframe1.page2 + With Thisform + If .ck_ansamblu.Value=1 + lcFiltru = lcFiltru + .ck_ansamblu.filtru + Endif + + *!* If .ck_denop.Value=1 + *!* lcFiltru = lcFiltru + .ck_denop.filtru + *!* Endif + + lcVal1=Strtran(Alltrim(Upper(Thisform.clb_tx_simplu7.text_simplu1.Value)),['],['']) + If !Empty(lcVal1) + lcFiltru = lcFiltru + [ and denop like '%] + lcVal1 + [%'] + Endif + + If .ck_marca.Value=1 + lcFiltru = lcFiltru + .ck_marca.filtru + Endif + + If .ck_selectat.Value=1 + lcFiltru2 = lcFiltru2 + [ and ales=1 ] + Endif + Endwith + + *!* lcExecuteString = " thisform._pageframe1.page2.cb_tx_cautare1" + *!* With &lcExecuteString + *!* lcval1=Strtran(Alltrim(Upper(.Text.Value)),['],['']) + *!* If !Empty(.Text.Value) Or (Empty(.Text.Value) And .criteriu.Value = "6") + *!* Do Case + *!* Case .criteriu.Value = "1" + *!* lcfiltru = lcfiltru + [ and LIKE('] + lcval1 + [*',denop)] + *!* Case .criteriu.Value = "2" + *!* lcfiltru = lcfiltru + [ and denop ='] + lcval1 + ['] + *!* Case .criteriu.Value = "3" + *!* lcfiltru = lcfiltru + [ and denop !='] + lcval1 + ['] + *!* Case .criteriu.Value = "4" + *!* lcfiltru = lcfiltru + [ and LIKE('*] + lcval1 + [*',denop)] + *!* Case .criteriu.Value = "5" + *!* lcfiltru = lcfiltru + [ and !LIKE('*] + lcval1 + [*',denop)] + *!* Case .criteriu.Value = "6" + *!* lcFiltru = lcFiltru + [ and 2=2 ] + *!* Endcase + *!* Endif + + Thisform.actualizeaza_grid2(lcFiltru,lcFiltru2) + If Reccount('v_norme')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clb_tx_simplu7.SetFocus() + Else + Thisform.grdnorme.SetFocus() + Endif + *!* Endwith + *!* Endif + + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_norme')>0 + Private pniesire + pniesire=0 + Do update_ansamble In update_devize.prg + Do update_masini In update_devize.prg + Select v_norme + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "norme",loRec,loRec.id_norme,"UPDATE" + If pniesire=1 + Gather Name loRec + *!* thisform.do_cauta() + Endif + Endif + ENDPROC + + PROCEDURE do_reset + *!* If Thisform._pageframe1.ActivePage=2 + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + .Objects(i).enabled=.T. + Endif + Endfor + .ck_ansamblu.SetFocus() + Endwith + *!* Endif + ENDPROC + + PROCEDURE do_sterge + *!* If Thisform._pageframe1.ActivePage=1 + If Used('crsmecanici') And Reccount('crsmecanici')>0 + Private pnid_opermecanic,pcnume + Select crsmecanici + pnid_crs=id_crs + pcnume=nume + If !Deleted() And !Empty(pcnume) + If amessagebox('Doriti sa stergeti mecanicul '+Alltrim(pcnume)+' ?',4+32+256,'Stergere')==6 + save_grid_tag(Thisform.grdmecanici) + Delete From crsmecanici Where id_crs=pnid_crs + restore_grid_tag(Thisform.grdmecanici) + Thisform.grdmecanici.Refresh + Endif + Endif + Endif + *!* Endif + ENDPROC + + PROCEDURE inainte_de_do_renunt + Use In crsmecanici + Return .T. + ENDPROC + + PROCEDURE inainte_de_do_termin + *!* 21.09.2016 + *!* marius.mutu + *!* dev_adauga_operatie + parametri gnAn, gnLuna + *!* pentru adaugarea operatiilor intr-o luna anterioara + + Local lcSirIdMecanic,lnNrAlese,lnNrMecanici + Store 0 To lnNrAlese,lnNrMecanici + + Select v_norme + Go Top + Calculate Cnt() For ales=1 To lnNrAlese + Go Top + + If lnNrAlese=0 + Use In crsmecanici + Return .T. + Endif + + If Empty(Thisform.nid_sectie) + AMessagebox("Nu ati ales sectia!",0+48,"Atentie") + With Thisform + *!* .ActivePage=1 + *!* .page1.SetFocus() + .cb_tx_simplu1.SetFocus() + Endwith + Return .F. + Endif + + If Thisform.cb_tx_simplu2._CBBASE1.Value=0 + amessagebox("Nu ati ales pretul!",0+48,"Atentie") + With Thisform + *!* .page1.SetFocus() + .cb_tx_simplu2.SetFocus() + Endwith + Return .F. + Endif + + lcSirIdMecanic=[] + Select crsmecanici + Go Top + Calculate Cnt() For !Deleted() To lnNrMecanici + Go Top + + If lnNrMecanici>0 + Scan For !Deleted() + lcSirIdMecanic=lcSirIdMecanic+Alltrim(Str(id_mecanic))+[;] + Endscan + Else + amessagebox("Nu ati adaugat mecanicii!",0+48,"Atentie") + With Thisform + *!* .page1.SetFocus() + .grdmecanici.SetFocus() + Endwith + Return .F. + Endif + Use In crsmecanici + + If Used('crsnorme_ord') + Use In crsnorme_ord + Endif + Select * From v_norme Where ales=1 Order By ordine Into Cursor crsnorme_ord + Select crsnorme_ord + Scan + *!* Select v_norme + *!* Scan For ales=1 + Scatter Name onorme + lcSql = [begin pack_auto.dev_adauga_operatie('] + gcS + [',] + Alltrim(Str(Thisform.nid_sectie)) + [,] + ; + Alltrim(Str(ocomanda.id_ordl)) + [,] + Alltrim(Str(Thisform.npret,17,4)) + [,] + ; + Alltrim(Str(gnidutil)) + [,] + Alltrim(Str(onorme.timpn,5,3)) + [,]+ Alltrim(Str(onorme.id_norme)) + [,'] + ; + lcSirIdMecanic + [',] + ALLTRIM(STR(m.gnAn)) + [,] + ALLTRIM(STR(m.gnLuna)) + [); end;] + *!* lcSql = [select PACK_INAINTE_DE.] + lcProc + [('] + gcS +[',] + ALLTRIM(STR(gnAn)) + [,] + ALLTRIM(STR(gnLuna)) + lcCont + [) AS VALOARE FROM DUAL]&&[select * from ] + gcS + [.calendar] + + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + *!* Return .F. + Endif + Endscan + If Used('crsnorme_ord') + Use In crsnorme_ord + Endif + + pnid_sectie=Thisform.nid_sectie + Select v_preturi + pnid_pret=v_preturi.id_pret + Return .T. + + ENDPROC + + PROCEDURE Init + DoDefault() + If Used('crsmecanici') + Use In crsmecanici + Endif + + If pnid_sectie!=0 + Select v_sectie + Locate For id_sectie=pnid_sectie + If Found() + Thisform.cb_tx_simplu1._cbbase1.Value=Alltrim(sectie) + Thisform.nid_sectie=pnid_sectie + ooper.sectie=Alltrim(sectie) + Endif + Endif + If pnid_pret!=0 + Select v_preturi + Locate For id_pret=pnid_pret + If Found() + ooper.Pret=Pret + Thisform.cb_tx_simplu2._cbbase1.Value = RECNO() + Thisform.npret=Pret + Thisform.cb_tx_simplu2._cbbase1.refresh + Endif + ELSE + Select v_preturi + Locate For id_asigurator=pnid_asigurator_com AND id_marca=pnid_marca + If Found() + ooper.Pret=Pret + Thisform.cb_tx_simplu2._cbbase1.Value = RECNO() + Thisform.npret=Pret + Thisform.cb_tx_simplu2._cbbase1.refresh + Endif + ENDIF + SELECT 0 + Create Cursor crsmecanici(id_crs N(2),id_mecanic N(5),nume c(100)) + This.WindowState = 2 + Thisform.Resize + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + lcControl = Upper(Alltrim(This.ActiveControl.Name)) + + DO Case + Case nKeyCode = 13 And lcControl = 'TEXT_SIMPLU1' + Nodefault + Thisform.do_adaugarep() + Case (nKeyCode=32 And lcControl = 'GRDNORME' And Thisform.grdnorme.ActiveColumn!=6) Or ; + ((nKeyCode >=33 And nKeyCode <=122) And (lcControl = 'GRDNORME')) + Nodefault + Thisform.clb_tx_simplu7.text_simplu1.SetFocus + Thisform.clb_tx_simplu7.text_simplu1.Value = Alltrim(Thisform.clb_tx_simplu7.text_simplu1.Value) + Chr(nKeyCode) + Keyboard '{END}' + Case (nKeyCode = 127) And (lcControl = 'GRDNORME') && backspace + Nodefault + Thisform.clb_tx_simplu7.text_simplu1.Value = Left(Alltrim(Thisform.clb_tx_simplu7.text_simplu1.Value),Len(Alltrim(Thisform.clb_tx_simplu7.text_simplu1.Value))-1) + Thisform.clb_tx_simplu7.text_simplu1.SetFocus + Keyboard '{END}' + 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=14 And nShiftAltCtrl=2 + Nodefault + If PEMSTATUS(This,"do_adauga",5) + This.do_adauga() + Endif + Case nKeyCode=13 And nShiftAltCtrl=2 + Nodefault + If PEMSTATUS(This,"do_modifica",5) + This.do_modifica() + Endif + Case nKeyCode=4 And nShiftAltCtrl=2 + 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 + Nodefault + If PEMSTATUS(This,"do_listare",5) + This.do_listare() + Endif + Endcase + + ENDPROC + + PROCEDURE Resize + thisform.Refresh + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + DODEFAULT(nStyle) + * Centrez fereastra si o fac 70% din ecran + lnHeight = _screen.Height + lnWidth = _screen.Width + This.Height = INT(0.7 * m.lnHeight) + this.Width = INT(0.7 * m.lnWidth) + this.AutoCenter = .T. + + ENDPROC + + PROCEDURE Cb_tx_simplu1._CBBASE1.InteractiveChange + thisform.nid_sectie = v_sectie.id_sectie + ENDPROC + + PROCEDURE Cb_tx_simplu2._CBBASE1.InteractiveChange + thisform.npret = v_preturi.pret + ENDPROC + + PROCEDURE Ck_selectat.Click + If This.Value=1 + Thisform.ck_ansamblu.Enabled=.F. + Thisform.ck_denop.Enabled=.F. + Thisform.ck_marca.Enabled=.F. + Thisform.ck_ansamblu.Value=0 + Thisform.ck_denop.Value=0 + Thisform.ck_marca.Value=0 + Else + Thisform.ck_ansamblu.Enabled=.T. + Thisform.ck_denop.Enabled=.T. + Thisform.ck_marca.Enabled=.T. + Endif + ENDPROC + + PROCEDURE grdmecanici.cMecanic._cbbase1.GotFocus + This.Tag=Alltrim(Str(v_mecanici.id_mecanic)) + + ENDPROC + + PROCEDURE grdmecanici.cMecanic._cbbase1.Valid + pnid_crs=crsmecanici.id_crs + pnid_mecanic=v_mecanici.id_mecanic + pcnume=v_mecanici.nume + If Int(Val(This.Tag))!=pnid_mecanic + Update crsmecanici Set id_mecanic=pnid_mecanic,nume=pcnume Where id_crs=pnid_crs + Endif + + ENDPROC + + PROCEDURE grdnorme.cSelectat.Check1.Click + Select v_norme + Thisform.nordine=Thisform.nordine+This.Value + Replace ales With This.Value,ordine With Thisform.nordine + This.Parent.Parent.Refresh + ENDPROC + + PROCEDURE Lb_titlu_alb_b121.Init + This.Caption=This.Caption+Alltrim(ocomanda.nrord) + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_alegtipcom 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="Labelmic2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ogTipcom" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 192 + Name = "frm_alegtipcom" + Width = 266 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 205 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 65 + Lb_titlu_alb_b121.Caption = "Generare comand nou" + Lb_titlu_alb_b121.Left = 24 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.Top = 36 + BUT_TERMIN1.Left = 237 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 208, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Labelmic2' AS lb_simplu WITH ; + Caption = "Tip comand:", ; + Left = 12, ; + Name = "Labelmic2", ; + TabIndex = 33, ; + Top = 41, ; + ZOrderSet = 37 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'ogTipcom' AS _optiongrup WITH ; + AutoSize = .T., ; + ButtonCount = 6, ; + Height = 122, ; + Left = 29, ; + Name = "ogTipcom", ; + Top = 59, ; + Width = 200, ; + Option1.AutoSize = .T., ; + Option1.Caption = "comand post-garanie", ; + Option1.FontCharSet = 238, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Tag = "1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "comand n termen de \ + + PROCEDURE Destroy + pnTipCom = Val(Thisform.ogtipcom.Buttons(Thisform.ogtipcom.Value).Tag) + ENDPROC + + PROCEDURE Init + Parameters pnTipcom + DoDefault() + If Empty(pnTipcom) + Store 1 To pnTipcom + Thisform.ogTipcom.Value = 1 + Else + For i = 1 To Thisform.ogTipcom.ButtonCount + If Val(Thisform.ogTipcom.Buttons(i).Tag) = pnTipcom + Thisform.ogTipcom.Value = i + Exit + Endif + Endfor + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_com_list 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="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbtip_deviz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + *m: do_export + * + + * + BorderStyle = 1 + cgridsortlist = grdcomenzi + DoCreate = .T. + Height = 520 + lactiv1 = .T. + Name = "frm_com_list" + Width = 644 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = -3 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 646 + _shape1.ZOrderSet = 0 + _shape2.Height = 29 + _shape2.Left = 577 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 72 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "Selectai comanda pe care dorii s o listai" + Lb_titlu_alb_b121.Left = 7 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + Lb_titlu_alb_b121.Top = 7 + Lb_titlu_alb_b121.ZOrderSet = 8 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 612 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 9 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 582, ; + Name = "But_excel1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbtip_deviz' AS ctip_deviz WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 527, ; + Name = "cbtip_deviz", ; + TabIndex = 6, ; + Top = 137, ; + Width = 110, ; + _combobox1.FontCharSet = 1, ; + _combobox1.FontName = "Arial", ; + _combobox1.Height = 24, ; + _combobox1.Left = 1, ; + _combobox1.Name = "_combobox1", ; + _combobox1.Top = 2, ; + _combobox1.Width = 107 + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + Left = 530, ; + Name = "Ck_datai", ; + TabIndex = 3, ; + tip = D, ; + Top = 75, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + Left = 530, ; + Name = "Ck_nrinmat", ; + TabIndex = 4, ; + Top = 94, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comand", ; + Left = 530, ; + Name = "Ck_nrord", ; + TabIndex = 1, ; + Top = 38, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + Left = 530, ; + Name = "Ck_nume", ; + TabIndex = 2, ; + Top = 56, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Height = 29, ; + Left = 523, ; + Name = "Cmd_cauta1", ; + TabIndex = 7, ; + Top = 176, ; + Width = 116, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Anchor = 12, ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'Cmd_executa2' AS cmd_executa WITH ; + Anchor = 12, ; + AutoSize = .F., ; + caction = do_listare, ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Height = 29, ; + Left = 523, ; + Name = "Cmd_reset1", ; + TabIndex = 13, ; + Top = 212, ; + Width = 116, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 472, ; + Left = 11, ; + Name = "grdcomenzi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crscomenzi", ; + TabIndex = 8, ; + Top = 38, ; + Width = 505, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial", ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Width = 90, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial", ; + Column2.Name = "cDatai", ; + Column2.ReadOnly = .T., ; + Column2.Width = 85, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial", ; + Column3.Name = "cNume", ; + Column3.ReadOnly = .T., ; + Column3.Width = 179, ; + Column4.ControlSource = "tip_comanda", ; + Column4.FontName = "Arial", ; + Column4.Name = "cTip_comanda", ; + Column4.ReadOnly = .T., ; + Column4.Width = 76, ; + Column5.Alignment = 2, ; + Column5.ControlSource = "IIF(validat=0,'NU','DA')", ; + Column5.FontName = "Arial", ; + Column5.Name = "cValidat", ; + Column5.ReadOnly = .T., ; + Column5.Width = 39 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cTip_comanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip comanda", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cTip_comanda.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValidat.Text1' AS textbox WITH ; + Alignment = 2, ; + 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 'Lb_simplu1' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Tip comand", ; + Left = 523, ; + Name = "Lb_simplu1", ; + TabIndex = 5, ; + Top = 119, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pocomenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + save_grid_tag(Thisform.grdcomenzi) + pocomenzi.ca_baza1.cfiltru = lcFiltru + pocomenzi.ca_baza1.afisare() + restore_grid_tag(Thisform.grdcomenzi) + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + If Reccount('crscomenzi')>0 + Select crscomenzi + Go Top + Thisform.grdcomenzi.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + *!* lcFiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn)) + lcFiltru = gcCondLuna + + If Thisform.ck_datai.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + If Thisform.cbtip_deviz._combobox1.Value # '' + lcFiltru = lcFiltru + [ and a.id_tip = ] + Alltrim(Str(lista_tipuri.id_tip)) + Endif + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crscomenzi')=0 + AMessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_excel + If Reccount('crscomenzi')>0 + Private porul,pooper,pcschema1,pcselect1 + Store '' To porul,pooper + + Select crscomenzi + Scatter Name ocomanda + If ocomanda.Validat = 1 + *!* modificare v 2.0.35 : am pus ocomanda.proc_tvav in loc de pack_contafin.getCotaTVAStandard + *!* modificare v 2.0.41 : am inlocuit pack_sesiune.calculeaza_pret_tva cu pack_sesiune.calculeaza_pret_cu_tva + lcSql = [select 'A' as semn,codmat,denumire,cante,pretv as pret,dataact as data,id_rul as id,] + ; + [pack_sesiune.calculeaza_pret_cu_tva(pretv,1,pack_def.GetIdMonedaNationala(),] + ; + ALLTRIM(STR(ocomanda.proc_tvav,10,4)) + [,0,2) as pretctva ] + ; + [ from ] + gcS + [.vrul ] + ; + [where id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ ] + ; + [union all ] + ; + [select 'B' as semn,codop as codmat,denop as denumire,timpn as cante,pret,datai as data,id_oper as id,] + ; + [0 as pretctva from ] + gcS + [.auto_voper ] + ; + [where id_ordl = ] + Alltrim(Str(ocomanda.id_ordl)) + [ and ] + ; + [extract(month from datai)+extract(year from datai)*12 <= ?gnLuna + ?gnAn*12 ] + ; + [order by semn,data,id] + lnSucces = goExecutor.oExecute(lcSql,[crslistare]) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + If Reccount('crslistare') > 0 + Private pdDataora,pcdataora,pntotaltn,pntotalval + If Used('crsdate') + Use In crsdate + Endif + *!* modificare v 2.0.37 : am pus a.kmint in loc de b.kmint + lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,] + ; + [a.banca,a.cont_banca,a.adresa,a.nr_dosar,] + ; + [b.nrinmat,b.series,b.seriem,b.culoare,a.kmint,b.marca,b.masina ] + ; + [from ] + gcS + [.auto_vordl a ] + ; + [left join ] + gcS + [.auto_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + [where a.id_ordl=] + Alltrim(Str(ocomanda.id_ordl)) + lnSucces=goExecutor.oExecute(lcSql,[crsdate]) + If lnSucces<0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Select crsdate + Scatter Name olistare Memo + Use In crsdate + + pcdataora=get_ora(2) + pdDataora=Ttod(Ctot(pcdataora)) + + Select crslistare + *!* modificare v 2.0.22 : am adaugat tva + *!* modificare v 2.0.41 : am inlocuit tva cu pretctva + Calculate Sum(Round(cante*Pret,gnPc)),SUM(ROUND(cante*pretctva,gnPc)) To pnTotalMatDeviz,pnTotalCTVAMatDeviz For semn = 'A' + Calculate Sum(Round(cante*Pret,gnPc)) To pnTotalManDeviz For semn = 'B' + *!* modificare v 2.0.35 : am inlocuit m.ctvam cu ocomanda.proc_tvav + *!* modificare v 2.0.41 : am inlocuit pnTotalTvaMatDeviz cu pnTotalCTVAMatDeviz-pnTotalMatDeviz + pnTotalTvaDeviz=IIF(glAutoBonDet,pnTotalCTVAMatDeviz-pnTotalMatDeviz,Round(pnTotalMatDeviz*(ocomanda.proc_tvav-1),gnPc))+Round(pnTotalManDeviz*(ocomanda.proc_tvav-1),gnPc) + + If Used('crsFirma') + Use In crsfirma + Endif + lcSql = [select localitate,strada,numar,cod_fiscal,reg_comert from syn_nom_firme where id_firma = ]+Alltrim(Str(gnIdFirma)) && modificare v 2.0.29 : am inlocuit gnId_Firma + lnSucces=goExecutor.oExecute(lcSql,[crsfirma]) + If lnSucces<0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Select crsfirma + Scatter Name firma + Use In crsfirma + + *!* modificare MIX 07.09.2007 + *!* Select crslistare + *!* Locate For Like('MIX*',denumire) And semn=='A' + *!* If Found() + *!* Calculate Sum(Round(cante*Pret,gnPc)),Max(Recno()) To lnSumaMix,lnNrCrt For Like('MIX*',denumire) And semn='A' + *!* If Used('crslistare2') + *!* Use In crslistare2 + *!* Endif + *!* Select Recno() As nrcrtord,* From crslistare Where !(Like('MIX*',denumire) And semn='A') Into Cursor crslistare2 Readwrite + *!* Select crslistare2 + *!* Append Blank + *!* Replace codmat With '',denumire With 'MIX',semn With 'A',Pret With lnSumaMix,cante With 1,nrcrtord With lnNrCrt,nrord With olistare.nrord + *!* Use In crslistare + *!* Select * From crslistare2 Into Cursor crslistare Order By nrcrtord + *!* Use In crslistare2 + *!* Endif + *!* modificare MIX 07.09.2007 ^ + *!* export in EXCEL + Try + poExcel = Createobject("Excel.Application") + Catch + export_xls('crslistare') + Return + Endtry + + Thisform.MousePointer = 11 + Thisform.LockScreen = .T. + + Local llIntrerupt + llIntrerupt = .F. + loTherm = Newobject("_thermometer","_therm","","Export date in Excel...") + loTherm.AlwaysOnTop=.T. + loTherm.Show() + + lnPercent = 0 + lcTask = [DEVIZ COMANDA ] + Alltrim(olistare.nrord) + loTherm.Update(lnPercent, lcTask) + + poExcel.WorkBooks.Add + poExcel.Sheets(1).Select + poExcel.Sheets(1).Name = [DEVIZ] + poExcel.Cells(2,1) = [Firma] + poExcel.Cells(2,2) = ALLTrim(gcFirma) + poExcel.Cells(3,1) = [C.I.F./C.N.P.] + poExcel.Cells(3,2) = ALLTRIM(firma.cod_fiscal) + poExcel.Cells(4,1) = [Adresa] + poExcel.Cells(4,2) = [Strada ]+Alltrim(firma.strada) + Iif(!Empty(Nvl(firma.numar,[])),[, nr.]+Alltrim(firma.numar),[]) + ; + Iif(!Empty(Nvl(firma.localitate,[])),[,] + Alltrim(firma.localitate),[]) + + poExcel.Cells(2,7) = [Client] + poExcel.Cells(2,8) = ALLTrim(olistare.nume) + poExcel.Cells(3,7) = [C.I.F./C.N.P.] + poExcel.Cells(3,8) = ALLTRIM(olistare.cod_fiscal) + poExcel.Cells(4,7) = [Adresa] + poExcel.Cells(4,8) = ALLTRIM(olistare.adresa) + + poExcel.Cells(5,4).Font.Bold=.T. + poExcel.Cells(5,4).Font.Size = 16 + poExcel.Cells(5,4) = [DEVIZ COMANDA ] + Alltrim(olistare.nrord) + poExcel.Cells(6,4).Font.Bold=.T. + poExcel.Cells(6,4).Font.Size = 16 + poExcel.Cells(6,4) = [ASIGURATOR ] + Alltrim(olistare.asigurator) + ; + IIF(!EMPTY(NVL(olistare.inspector,[])),[ * INSPECTOR ] + ALLTRIM(olistare.inspector),[]) + poExcel.Cells(7,4).Font.Bold=.T. + poExcel.Cells(7,4).Font.Size = 16 + poExcel.Cells(7,4) = [NR. DOSAR ] + Alltrim(olistare.nr_dosar) + + poExcel.Cells(9,3) = [Marca masinii] + poExcel.Cells(9,4) = ALLTrim(olistare.marca) + [ ] + ALLTrim(olistare.masina) + poExcel.Cells(10,3) = [Nr. inmatriculare] + poExcel.Cells(10,4) = ALLTRIM(olistare.nrinmat) + poExcel.Cells(11,3) = [Culoare] + poExcel.Cells(11,4) = ALLTRIM(olistare.culoare) + poExcel.Cells(12,3) = [Km. la bord] + poExcel.Cells(12,4) = olistare.kmint + poExcel.Cells(9,6) = [Serie sasiu] + poExcel.Cells(9,7) = ALLTRIM(olistare.series) + poExcel.Cells(10,6) = [Serie motor] + poExcel.Cells(10,7) = ALLTRIM(olistare.seriem) + poExcel.Cells(11,6) = [Data intrarii] + poExcel.Cells(11,7).NumberFormat = [dd/mm/yyyy;@] + poExcel.Cells(11,7) = olistare.datai + + lnRandStart=14 + lnColoanaI=2 + + lnRow=lnRandStart + Set Cursor Off + lcCursor=[crslistare] + lnNrRanduri = Reccount(lcCursor) + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + lcTask = [Completare cap de tabel...] + loTherm.Update(lnPercent, lcTask) + + poExcel.Cells(lnRow,lnColoanaI+1) = [TIP] + poExcel.Columns(lnColoanaI+1).NumberFormat=[@] + poExcel.Cells(lnRow,lnColoanaI+2) = [COD] + poExcel.Columns(lnColoanaI+2).NumberFormat=[@] + poExcel.Cells(lnRow,lnColoanaI+3) = [DENUMIRE] + poExcel.Columns(lnColoanaI+3).NumberFormat=[@] + poExcel.Cells(lnRow,lnColoanaI+4) = [CANTITATE/ORE] + poExcel.Cells(lnRow,lnColoanaI+5) = [PRET] + poExcel.Cells(lnRow,lnColoanaI+6) = [VALOARE] + + For i = 1 To 6 + poExcel.Cells(lnRow,lnColoanaI+i).Font.Bold = .T. + poExcel.Cells(lnRow,lnColoanaI+i).Interior.ColorIndex = 16 + Endfor + + lcTask = [Completare randuri...] + Select (lcCursor) + Scan + lnRow = lnRow + 1 + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + loTherm.Update(lnPercent, lcTask) + If Inkey()=27 + amessagebox("Exportul a fost intrerupt!",0+48,"Atentie") + llIntrerupt = .T. + Exit + Endif + poExcel.Cells(lnRow,lnColoanaI+1) = Iif(semn='A',[MATERIALE],[MANOPERA]) + poExcel.Cells(lnRow,lnColoanaI+2) = codmat + poExcel.Cells(lnRow,lnColoanaI+3) = denumire + poExcel.Cells(lnRow,lnColoanaI+4) = cante + poExcel.Cells(lnRow,lnColoanaI+5) = Pret + poExcel.Cells(lnRow,lnColoanaI+6) = Round(cante*Pret,gnPc) + Endscan + + poExcel.Cells(lnRow + 3, lnColoanaI + 3) = [TOTAL FARA TVA] + poExcel.Cells(lnRow + 3, lnColoanaI + 6) = pnTotalMatDeviz+pnTotalManDeviz + poExcel.Cells(lnRow + 4, lnColoanaI + 3) = [TOTAL TVA] + poExcel.Cells(lnRow + 4, lnColoanaI + 6) = pnTotalTvaDeviz + poExcel.Cells(lnRow + 5, lnColoanaI + 3) = [TOTAL GENERAL] + poExcel.Cells(lnRow + 5, lnColoanaI + 6) = pnTotalMatDeviz+pnTotalManDeviz+pnTotalTvaDeviz + + loTherm.Complete() + loTherm.AlwaysOnTop=.F. + Release loTherm + Set Cursor On + If llIntrerupt + poExcel.DisplayAlerts = .F. + poExcel.Quit + Else + poExcel.Visible=.T. + Endif + Release poExcel + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + *!* export in EXCEL ^ + Use In crslistare + Else + amessagebox("Nu exista manopera si materiale pe aceasta comanda!",0+48,"Atentie") + Thisform.ck_nrord.SetFocus() + Endif + Else + amessagebox("Aceasta comanda nu a fost validata!",0+48,"Atentie") + Thisform.ck_nrord.SetFocus() + Endif + Else + amessagebox("Nu inregistrari pentru export in Excel!",0+48,"Atentie") + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_export + ENDPROC + + PROCEDURE do_listare + If Reccount('crscomenzi')>0 + *!* modificare v 2.0.35 + Select crscomenzi + Scatter Name ocomanda + listare_comanda_deviz(Thisform,ocomanda,IIF(INLIST(ocomanda.id_tip,3,6),2,1)) + *!* Private porul,pooper,pcschema1,pcselect1 + *!* Store '' To porul,pooper + *!* Select crscomenzi + *!* Scatter Name ocomanda + *!* lcSql = [select row_number() over (order by datai,id_oper) as nrcrt,id_ordl,codop,timpn,pret,denop,] + ; + *!* [datai from ] + gcS + [.dev_voper where id_ordl = ?ocomanda.id_ordl and ] + ; + *!* [extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12 ] + ; + *!* [order by 1] + *!* lnSucces = goExecutor.oExecute(lcSql,'oper') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,16,'Eroare') + *!* Return + *!* Endif + *!* *!* modificare v 2.0.22 : am adaugat tva + *!* lcSql = [select row_number() over (order by a.dataact,a.id_rul) as nrcrt,a.*,b.denumire,b.codmat from (] + ; + *!* [select id_articol,pretv,SUM(cante) as cante,MIN(dataact) as dataact,MIN(id_rul) as id_rul, ] + ; + *!* [pack_sesiune.calculeaza_pret_tva(pretv,1,pack_def.GetIdMonedaNationala(),pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0) as tva ] + ; + *!* [from ] + gcS + [.rul where sters = 0 and id_lucrare = ?ocomanda.id_lucrare ] + ; + *!* [group by id_articol,pretv) a ] + ; + *!* [left join nom_articole b on a.id_articol = b.id_articol where a.cante <> 0] + *!* lnSucces = goExecutor.oExecute(lcSql,'rul') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,16,'Eroare') + *!* Return + *!* Endif + *!* If Reccount('oper')>0 Or Reccount('rul')>0 + *!* Private pdDataora,pcdataora,pntotaltn,pntotalval + *!* If Used('crslistare') + *!* Use In crslistare + *!* Endif + *!* lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,] + ; + *!* [a.banca,a.cont_banca,a.adresa,a.nr_dosar,a.reg_comert,a.tip_persoana,] + ; + *!* [b.nrinmat,b.series,b.seriem,b.culoare,b.kmint,b.marca,b.masina ] + ; + *!* [from ] + gcS + [.dev_vordl a ] + ; + *!* [left join ] + gcS + [.dev_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + *!* [where a.id_ordl = ?ocomanda.id_ordl] + *!* lnSucces=goExecutor.oExecute(lcSql,[crslistare]) + *!* If lnSucces<0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Select crslistare + *!* Scatter Name olistare Memo + *!* Use In crslistare + *!* pcdataora=get_ora(2) + *!* pdDataora=Ttod(Ctot(pcdataora)) + *!* Select rul + *!* *!* modificare v 2.0.22 : am adaugat tva + *!* Calculate Sum(Round(cante*pretv,gnPc)),SUM(ROUND(cante*tva,gnPc)) To pnTotalMatDeviz,pnTotalTVAMatDeviz + *!* Select oper + *!* Calculate Sum(Round(timpn*Pret,gnPc)) To pnTotalManDeviz + *!* pnTotalTvaDeviz=IIF(glAutoBonDet,pnTotalTVAMatDeviz,Round(pnTotalMatDeviz*(m.ctvam-1),gnPa))+Round(pnTotalManDeviz*(m.ctvam-1),gnPa) + *!* Select nrcrt,olistare.nrord As nrord,'A' As semn,codmat,denumire,cante,pretv As Pret From rul ; + *!* UNION All ; + *!* SELECT nrcrt,olistare.nrord As nrord,'B' As semn,codop As codmat,denop As denumire,timpn As cante,Pret From oper ; + *!* ORDER By 3,1 Into Cursor crslistare + *!* Thisform.AlwaysOnTop=.F. + *!* If ocomanda.Validat=0 + *!* Select crslistare + *!* *!* modificare v 2.0.5 + *!* *!* Do LISTAREUSERREPORT With "crsListare", [FRX], "RAP_COMANDA" In PROCEDURI_RAPOARTE.PRG + *!* goExport.export2frx([crslistare],[rap_comanda]) + *!* *!* modificare v 2.0.5 ^ + *!* Else + *!* Private pofirma + *!* Store '' To pofirma + *!* If Used('crsFirma') + *!* Use In crsfirma + *!* Endif + *!* lcSql = [select localitate,strada,numar,cod_fiscal,reg_comert from syn_nom_firme where ] + ; + *!* [id_firma = ?gnIdFirma] && modificare v 2.0.29 : am inlocuit gnId_Firma + *!* lnSucces=goExecutor.oExecute(lcSql,[crsfirma]) + *!* If lnSucces<0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Sele crsfirma + *!* Scatter Name firma + *!* Use In crsfirma + *!* *!* modificare MIX 07.09.2007 + *!* *!* Select crslistare + *!* *!* Locate For Like('MIX*',denumire) And semn=='A' + *!* *!* If Found() + *!* *!* Calculate Sum(Round(cante*Pret,gnPc)),Max(Recno()) To lnSumaMix,lnNrCrt For Like('MIX*',denumire) And semn='A' + *!* *!* If Used('crslistare2') + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* Select Recno() As nrcrtord,* From crslistare Where !(Like('MIX*',denumire) And semn='A') Into Cursor crslistare2 Readwrite + *!* *!* Select crslistare2 + *!* *!* Append Blank + *!* *!* Replace codmat With '',denumire With 'MIX',semn With 'A',Pret With lnSumaMix,cante With 1,nrcrtord With lnNrCrt,nrord With olistare.nrord + *!* *!* Use In crslistare + *!* *!* Select * From crslistare2 Into Cursor crslistare Order By nrcrtord + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* modificare MIX 07.09.2007 ^ + *!* Select crslistare + *!* Go Top + *!* *!* modificare v 2.0.5 + *!* *!* Do LISTAREUSERREPORT With "crsListare", [FRX], "RAP_DEVIZ" In PROCEDURI_RAPOARTE.PRG + *!* goExport.export2frx([crslistare],[rap_deviz]) + *!* *!* modificare v 2.0.5 ^ + *!* Endif + *!* Thisform.AlwaysOnTop=.T. + *!* Use In crslistare + *!* Else + *!* amessagebox("Nu exista manopera si materiale pe aceasta comanda!",0+48,"Atentie") + *!* Thisform.ck_nrord.SetFocus() + *!* Endif + *!* *!* modificare v 2.0.5 + *!* If Used('oper') + *!* Use In oper + *!* Endif + *!* If Used('rul') + *!* Use In rul + *!* Endif + *!* *!* modificare v 2.0.5 ^ + *!* modificare v 2.0.35 ^ + Else + amessagebox("Nu inregistrari pentru listare!",0+48,"Atentie") + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.cbtip_deviz.do_reset() + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + DODEFAULT(nStyle) + * Centrez fereastra si o fac 70% din ecran + lnHeight = _screen.Height + lnWidth = _screen.Width + This.Height = INT(0.7 * m.lnHeight) + this.Width = INT(0.7 * m.lnWidth) + this.AutoCenter = .T. + + ENDPROC + + PROCEDURE Cmd_executa1.Click + If Reccount('crscomenzi')>0 + Thisform.AlwaysOnTop = .F. + lnIdOrdl = crsComenzi.id_ordl + DO listare_precomanda WITH m.lnIdOrdl + Thisform.AlwaysOnTop = .T. + ENDIF + + RETURN + ****************************************************************** + If Reccount('crscomenzi')>0 + Private pofirma,pooper,pcschema,pcselect,pcorder,pddataora + Local lnRecno + Store '' To pofirma,pooper + + If Used('crsfirma') + Use In crsfirma + Endif + pcschema=[''] + pcselect=['select adresa,localitate,strada,numar,cod_fiscal from syn_nom_firme where 1=2'] + pcorder=[] + pcfiltru=[id_firma = ]+Alltrim(Str(gnIdFirma)) && modificare v 2.0.29 : am inlocuit gnId_Firma + llAfiseaza=.F. + gencursor('pofirma','crsFirma',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + pofirma.ca_baza1.afisare() + Select crsfirma + + Scatter Name firma + Use In crsfirma + + Select crsComenzi + + Scatter Name ocom + lnRecno=Recno() + + pddataora = get_ora() + + If Used('crsmasina') + Use In crsmasina + Endif + lcSql=[select * from ] + gcS + [.auto_date_suplimentare_rap where id_ordl=]+; + Alltrim(Str(ocom.id_ordl)) + lnSucces=goExecutor.oExecute(lcSql,'crsmasina') + If lnSucces<0 + AMessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Thisform.AlwaysOnTop=.T. + Return + Endif + + Select crsmasina + + ADDPROPERTY(ocom,'solicitari_client','') + ocom.solicitari_client = ALLTRIM(NVL(solicitari_client, '')) + ADDPROPERTY(ocom,'observatii','') + ocom.observatii = ALLTRIM(NVL(observatii,'')) + ADDPROPERTY(ocom,'defectiuni','') + ocom.defectiuni = ALLTRIM(NVL(defectiuni,'')) + + AddProperty(ocom,'adresa','') + ocom.adresa = adresa + AddProperty(ocom,'seriem',seriem) + AddProperty(ocom,'nrinmat',nrinmat) + AddProperty(ocom,'marca',marca) + AddProperty(ocom,'masina',masina) + AddProperty(ocom,'series',series) + AddProperty(ocom,'kmint',kmint) + AddProperty(ocom,'ore_functionare',ore_functionare) + AddProperty(ocom,'furnizor',furnizor) + AddProperty(ocom,'nrachi',nrachi) + *!* AddProperty(ocom,'dataachi',Ttod(dataachi)) + AddProperty(ocom,'anfabricatie',anfabricatie) + AddProperty(ocom,'telefon',telefon) + AddProperty(ocom,'cod_fiscal',cod_fiscal) + AddProperty(ocom,'asigurator',asigurator) + AddProperty(ocom,'inspector',inspector) + AddProperty(ocom,'termen',termen) + Use In crsmasina + + Thisform.AlwaysOnTop=.F. + Select crsComenzi + listare_raport_comanda([CRSCOMENZI],ocom.id_tip) + + Thisform.AlwaysOnTop=.T. + Select crsComenzi + Go lnRecno + Else + AMessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie") + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_devizestimativ 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="gnorme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cMasina.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cMasina.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cAnsamblu.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cAnsamblu.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cDenop.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cDenop.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cTimpn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cTimpn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cCodop.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cCodop.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cMarca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.cMarca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_manop" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.cCodmat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.cCodmat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.Um.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.Um.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.cCont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="garticole.cCont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_articol" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_devest" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_addm" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_addart" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cCod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cCod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cUm.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cUm.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cCantitate.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cCantitate.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cPretctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cPretctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cPretftva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cPretftva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cCotatva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cCotatva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cCotatva.cbtva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cPretcutva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cPretcutva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdevest.cPretcutva.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Autoresize1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_but + *m: actualizeaza_gdevest + *m: adauga_articole + *m: adauga_manopera + *m: do_calcul + *m: do_cautaart + *m: do_cautadevest + *m: do_cautam + *p: lsalvat + *p: lvalidat + *p: ncanti + *p: ncantm + *p: npret + *p: npretctvai + *p: npretctvam + *p: npretftvai + *p: npretftvam + *p: nproctvai + *p: nproctvam + *p: ntvai + *p: ntvam + *p: totctva + *p: totftva + *p: tottva + *p: tva + *p: valoare + * + + * + cgridsortlist = gnorme + DoCreate = .T. + FontSize = 9 + Height = 600 + lactiv2 = .T. + lactiv4 = .T. + lsalvat = .T. + lvalidat = .T. + Name = "frm_devizestimativ" + ncanti = 0.000 + ncantm = 0.000 + npret = + npretctvai = 0.00 + npretctvam = 0.00 + npretftvai = 0.00 + npretftvam = 0.00 + nproctvai = 0 + nproctvam = 0 + ntvai = 0 + ntvam = 0 + totctva = 0 + totftva = 0 + tottva = 0 + tva = 0 + valoare = 0 + Width = 800 + _memberdata = + + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "W" + _shape1.Top = 0 + _shape1.Width = 801 + _shape2.Height = 29 + _shape2.Left = 715 + _shape2.Name = "_shape2" + _shape2.Tag = "L" + _shape2.Top = 0 + _shape2.Width = 84 + Lb_titlu_alb_b121.Caption = "Deviz estimativ" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 19 + BUT_TERMIN1.Left = 767 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 14 + BUT_TERMIN1.Tag = "L" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = -12 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 120 + * + + ADD OBJECT 'Autoresize1' AS autoresize WITH ; + Left = 402, ; + Name = "Autoresize1", ; + TabIndex = 26, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\autoresize.vcx" BaseClass="container" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 737, ; + Name = "But_listare1", ; + TabIndex = 15, ; + Tag = "L", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 762, ; + Name = "But_sterge1", ; + Top = 60 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_articol' AS cb_tx_cautare WITH ; + Anchor = 0, ; + Left = 8, ; + Name = "Cb_articol", ; + TabIndex = 4, ; + Tag = "", ; + Top = 359, ; + Text.Name = "Text", ; + criteriu.Name = "criteriu", ; + criteriu.Value = + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_devest' AS cb_tx_cautare WITH ; + Anchor = 0, ; + Height = 27, ; + Left = 431, ; + Name = "Cb_devest", ; + TabIndex = 6, ; + Tag = "", ; + Top = 60, ; + Width = 270, ; + Text.Name = "Text", ; + Text.Width = 160, ; + criteriu.Name = "criteriu", ; + criteriu.Value = + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_manop' AS cb_tx_cautare WITH ; + Left = 6, ; + Name = "Cb_manop", ; + TabIndex = 2, ; + Top = 94, ; + Text.Name = "Text", ; + criteriu.Name = "criteriu", ; + criteriu.Value = + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 9, ; + Name = "Cb_tx_simplu2", ; + TabIndex = 1, ; + Top = 60, ; + Width = 286, ; + ZOrderSet = 17, ; + _CBBASE1.ColumnCount = 2, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_preturi.pret,asigurator", ; + _CBBASE1.RowSourceType = 2, ; + _lbbase1.Caption = "Pre / Or", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cmd_addart' AS commandbutton WITH ; + Anchor = 4, ; + Caption = ">", ; + Enabled = .T., ; + FontBold = .T., ; + Height = 21, ; + Left = 392, ; + Name = "cmd_addart", ; + TabIndex = 18, ; + Tag = "", ; + Top = 447, ; + Width = 28 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_addm' AS commandbutton WITH ; + Anchor = 0, ; + Caption = ">", ; + FontBold = .T., ; + Height = 21, ; + Left = 393, ; + Name = "cmd_addm", ; + TabIndex = 17, ; + Tag = "", ; + Top = 186, ; + Width = 28 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + caction = do_cautam, ; + Height = 27, ; + Left = 324, ; + Name = "Cmd_cauta1", ; + TabIndex = 11, ; + Tag = "", ; + Top = 93, ; + Width = 61 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta2' AS cmd_cauta WITH ; + Anchor = 0, ; + caction = do_cautaart, ; + Left = 323, ; + Name = "Cmd_cauta2", ; + TabIndex = 12, ; + Tag = "", ; + Top = 359, ; + Width = 61 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta3' AS cmd_cauta WITH ; + Anchor = 0, ; + caction = do_cautadevest, ; + Height = 27, ; + Left = 699, ; + Name = "Cmd_cauta3", ; + TabIndex = 13, ; + Tag = "", ; + Top = 60, ; + Width = 61 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'garticole' AS _grdrow WITH ; + Anchor = 5, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 206, ; + Left = 8, ; + Name = "garticole", ; + Panel = 1, ; + RecordSource = "v_articole", ; + RowHeight = 19, ; + TabIndex = 5, ; + Tag = "", ; + Top = 389, ; + Width = 376, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cDenumire", ; + Column1.Width = 239, ; + Column2.ControlSource = "codmat", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cCodmat", ; + Column2.Width = 75, ; + Column3.ControlSource = "um", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "Um", ; + Column3.Width = 44, ; + Column4.ControlSource = "cont", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cCont", ; + Column4.Width = 53 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'garticole.cCodmat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod material", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'garticole.cCodmat.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 'garticole.cCont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'garticole.cCont.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 'garticole.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'garticole.cDenumire.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 'garticole.Um.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "UM", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'garticole.Um.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 'gdevest' AS grid WITH ; + ColumnCount = 9, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 423, ; + HighlightBackColor = 0,64,128, ; + HighlightStyle = 2, ; + Left = 432, ; + Name = "gdevest", ; + Panel = 1, ; + RecordSource = "v_devest", ; + RowHeight = 19, ; + TabIndex = 7, ; + Tag = "WH", ; + Top = 93, ; + Width = 360, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cDenumire", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 197, ; + Column2.ControlSource = "cod", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cCod", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 73, ; + Column3.ControlSource = "um", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cUm", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 41, ; + Column4.BackColor = 253,252,223, ; + Column4.ControlSource = "cantitate", ; + Column4.DynamicBackColor = "rgb(253,252,223)", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Format = "R", ; + Column4.InputMask = (get_mask(12,gnPCANT)), ; + Column4.Name = "cCantitate", ; + Column4.Visible = .T., ; + Column4.Width = 55, ; + Column5.BackColor = 253,252,223, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "pretctva", ; + Column5.DynamicBackColor = "rgb(253,252,223)", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "R", ; + Column5.InputMask = (get_mask(12,gnPPretV)), ; + Column5.Name = "cPretctva", ; + Column5.ReadOnly = .F., ; + Column5.Visible = .T., ; + Column5.Width = 66, ; + Column6.BackColor = 253,252,223, ; + Column6.ColumnOrder = 5, ; + Column6.ControlSource = "pretftva", ; + Column6.DynamicBackColor = "rgb(253,252,223)", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPPretV)), ; + Column6.Name = "cPretftva", ; + Column6.Visible = .T., ; + Column6.Width = 73, ; + Column7.BackColor = 253,252,223, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "cota_tva", ; + Column7.CurrentControl = "cbtva", ; + Column7.DynamicBackColor = "rgb(253,252,223)", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "cCotatva", ; + Column7.ReadOnly = .T., ; + Column7.Sparse = .F., ; + Column7.Visible = .T., ; + Column7.Width = 63, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "valoare", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "R", ; + Column8.InputMask = (get_mask(12,gnPc)), ; + Column8.Name = "cValoare", ; + Column8.ReadOnly = .T., ; + Column8.Visible = .T., ; + Column8.Width = 75, ; + Column9.Alignment = 2, ; + Column9.ColumnOrder = 7, ; + Column9.ControlSource = "pret_cu_tva", ; + Column9.CurrentControl = "Check1", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cPretcutva", ; + Column9.ReadOnly = .T., ; + Column9.Sparse = .F., ; + Column9.Visible = .T., ; + Column9.Width = 47 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'gdevest.cCantitate.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cCantitate.Text1' AS textbox WITH ; + BackColor = 253,252,223, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cCod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cCod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cCotatva.cbtva' AS combobox WITH ; + BackColor = 253,252,223, ; + BorderStyle = 0, ; + BoundTo = .T., ; + ColumnCount = 1, ; + ControlSource = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 24, ; + Left = 25, ; + Margin = 0, ; + Name = "cbtva", ; + ReadOnly = .F., ; + RowSourceType = 2, ; + Style = 2, ; + Top = 23, ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'gdevest.cCotatva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Proc TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cCotatva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.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., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cPretctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret cu tva", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cPretctva.Text1' AS textbox WITH ; + BackColor = 253,252,223, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cPretcutva.Check1' AS checkbox WITH ; + Alignment = 2, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 26, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 30, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gdevest.cPretcutva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cu TVA ", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cPretcutva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cPretftva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret fara tva", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cPretftva.Text1' AS textbox WITH ; + BackColor = 253,252,223, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cUm.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Um", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cUm.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdevest.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdevest.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gnorme' AS _grdrow WITH ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 208, ; + Left = 7, ; + Name = "gnorme", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_norme", ; + RowHeight = 19, ; + TabIndex = 3, ; + Tag = "", ; + Top = 124, ; + Width = 377, ; + Column1.ColumnOrder = 6, ; + Column1.ControlSource = "masina", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cMasina", ; + Column1.ReadOnly = .T., ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "ansamblu", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cAnsamblu", ; + Column2.ReadOnly = .T., ; + Column2.Width = 75, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "denop", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cDenop", ; + Column3.ReadOnly = .T., ; + Column3.Width = 158, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "timpn", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cTimpn", ; + Column4.ReadOnly = .T., ; + Column4.Sparse = .F., ; + Column4.Width = 56, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "codop", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cCodop", ; + Column5.ReadOnly = .T., ; + Column5.Width = 54, ; + Column6.ColumnOrder = 1, ; + Column6.ControlSource = "marca", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cMarca", ; + Column6.ReadOnly = .T., ; + Column6.Width = 53 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gnorme.cAnsamblu.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ansamblu", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.cAnsamblu.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 'gnorme.cCodop.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.cCodop.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 'gnorme.cDenop.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.cDenop.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 'gnorme.cMarca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.cMarca.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 'gnorme.cMasina.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Model masina", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.cMasina.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 'gnorme.cTimpn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Timp normat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.cTimpn.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 'Label1' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "TVA", ; + FontSize = 10, ; + Height = 18, ; + Left = 555, ; + Name = "Label1", ; + TabIndex = 9, ; + Tag = "", ; + Top = 553, ; + Width = 27, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total cu TVA", ; + FontSize = 10, ; + Height = 18, ; + Left = 555, ; + Name = "Label11", ; + TabIndex = 10, ; + Tag = "", ; + Top = 576, ; + Width = 77, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 0, ; + BackStyle = 0, ; + Caption = "Materiale", ; + FontBold = .T., ; + FontSize = 11, ; + Height = 17, ; + Left = 10, ; + Name = "Label2", ; + TabIndex = 23, ; + Tag = "", ; + Top = 340, ; + Width = 96 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + BackStyle = 0, ; + Caption = "Manoper", ; + FontBold = .T., ; + FontSize = 11, ; + Height = 17, ; + Left = 10, ; + Name = "Label3", ; + TabIndex = 24, ; + Top = 33, ; + Width = 96 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + BackStyle = 0, ; + Caption = "Deviz estimativ", ; + FontBold = .T., ; + FontSize = 11, ; + Height = 17, ; + Left = 432, ; + Name = "Label4", ; + TabIndex = 25, ; + Top = 33, ; + Width = 120 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total fr TVA", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 555, ; + Name = "Label9", ; + TabIndex = 8, ; + Tag = "", ; + Top = 531, ; + Width = 84, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTTVA", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 658, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 20, ; + TabStop = .F., ; + Tag = "", ; + Top = 550, ; + Width = 132, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text7' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTFTVA", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 658, ; + Name = "Text7", ; + ReadOnly = .T., ; + TabIndex = 21, ; + TabStop = .F., ; + Tag = "", ; + Top = 528, ; + Width = 132, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text9' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTCTVA", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 658, ; + Name = "Text9", ; + ReadOnly = .T., ; + TabIndex = 22, ; + TabStop = .F., ; + Tag = "", ; + Top = 572, ; + Width = 132, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_but + With This + Select v_norme + If Reccount('v_norme')=0 + .cmd_addm.Enabled = .F. + Else + .cmd_addm.Enabled = .T. + Endif + Select v_articole + If Reccount('v_articole')=0 + .cmd_addart.Enabled = .F. + Else + .cmd_addart.Enabled = .T. + Endif + Endwith + + ENDPROC + + PROCEDURE actualizeaza_gdevest + Thisform.LockScreen=.T. + save_grid_tag(This.gdevest) + *!* podest.ca_baza1.cFiltru = 'id_lucrare='+Alltrim(Str(ocomanda.id_lucrare)) + podest.ca_baza1.afisare() + restore_grid_tag(This.gdevest) + Thisform.LockScreen=.F. + ENDPROC + + PROCEDURE adauga_articole + Local lcIdArticol,lcSql,lnSucces,lcFiltru,lcSelect + + Select v_articole + lcIdArticol = Alltrim(Str(v_articole.id_articol)) + + lcSelect = [select COUNT(*) as nr from ] + gcS + [.auto_vestimari_rep where id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare))+; + [ and id_articol = ] + lcIdArticol + lnSucces = goExecutor.oExecute(lcSelect,[cExistaart]) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,[Eroare]) + Return + Else + If cExistaart.nr >= 1 + aMESSAGEBOX("Material deja existent!",0+48,"Atentie") + *!* Select v_devest + *!* Locate For id_articol = v_articole.id_articol + *!* This.gdevest.cCantitate.SetFocus() + Else + lcSql = [begin pack_auto.adauga_material_de(]+Alltrim(Str(ocomanda.id_lucrare))+[,]+lcIdArticol+[,1,]+; + [0,0,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn)*100-100,]+ Alltrim(Str(gnIdUtil))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,[Eroare]) + Return + Endif + Endif + This.actualizeaza_gdevest() + This.do_calcul + Endif + This.actualizeaza_but + Select v_devest + Locate For id_articol = v_articole.id_articol + Thisform.gdevest.cCantitate.SetFocus() + + + ENDPROC + + PROCEDURE adauga_manopera + Local lcSelect,lcSql,lnSucces,lcId_norme + Select v_norme + lcId_norme = Alltrim(Str(v_norme.id_norme)) + lcTimpn = Alltrim(Str(v_norme.timpn,7,3)) + lcSelect = [select COUNT(*) as nr from ] + gcS + [.auto_vestimari_rep where id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare))+; + [ and id_norme = ] + lcId_norme + lnSucces = goExecutor.oExecute(lcSelect,[cExistam]) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,[Eroare]) + Return + Else + If cExistam.nr >= 1 + aMESSAGEBOX("Manopera deja existenta!",0+48,"Atentie") + Else + lcSql = [begin pack_auto.adauga_manopera_de(] + Alltrim(Str(ocomanda.id_lucrare))+[,]+lcId_norme+[,]+lcTimpn+[,]+; + ALLTRIM(Str(Thisform.npret,14,gnPPretV))+[,0,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn)*100-100,]+ Alltrim(Str(gnIdUtil))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,[Eroare]) + Return + Endif + Endif + This.actualizeaza_gdevest + This.do_calcul + Endif + + This.actualizeaza_but + Select v_devest + Locate For id_norme = v_norme.id_norme + Thisform.gdevest.cCantitate.SetFocus() + + ENDPROC + + PROCEDURE do_calcul + STORE 0 TO thisform.totctva,thisform.totftva,thisform.tottva + + If Reccount('v_devest')>0 + SELECT v_devest + SUM(valftva) to thisform.totftva + SUM(valtva) to thisform.tottva + SUM(valoare) to thisform.totctva + Endif + + Thisform.text7.Refresh + THISFORM.text1.Refresh + Thisform.text9.Refresh + ENDPROC + + PROCEDURE do_cautaart + Local lcFiltru + Local lcArticol, lnCriteriu + + lcFiltru=[2=2] + lcArticol = UPPER(ALLTRIM(Strtran(Thisform.cb_articol.Text.Value,['],['']))) + lnCriteriu = Val(Alltrim(Thisform.cb_articol.criteriu.Value)) + *lnCriteriu = Thisform.cb_articol.criteriu.Value + Do Case + Case lnCriteriu=1 + lcFiltru = [(denumire LIKE '] + lcArticol + [%'] + [ or codmat LIKE '] + m.lcArticol + [%')] + Case lnCriteriu=2 + lcFiltru = [(denumire ='] + lcArticol + ['] + [ or codmat ='] + m.lcArticol + [')] + Case lnCriteriu=3 + lcFiltru = [(denumire !='] + lcArticol + ['] + [or codmat !='] + m.lcArticol + [')] + Case lnCriteriu=4 + lcFiltru = [(denumire LIKE '%] + lcArticol + [%'] + [or codmat LIKE '%] + m.lcArticol + [%')] + Case lnCriteriu=5 + lcFiltru = [(denumire NOT LIKE '%] + lcArticol + [%'] + [or codmat NOT LIKE '%] + m.lcArticol + [%')] + Case lnCriteriu=6 + lcFiltru = [2=2] + Endcase + This.MousePointer= 11 + This.LockScreen=.T. + save_grid_tag(This.garticole) + Do ccarticole In update_devize.prg With lcFiltru + restore_grid_tag(This.garticole) + If Reccount('v_articole')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.cb_articol.SetFocus() + Endif + This.actualizeaza_but + This.LockScreen=.F. + This.MousePointer= 0 + + ENDPROC + + PROCEDURE do_cautadevest + Local lcFiltru + Local lcDevEst, lnCriteriu + + lcFiltru=[2=2] + lcDevEst = UPPER(ALLTRIM(Strtran(Thisform.cb_devest.Text.Value,['],['']))) + lnCriteriu = Val(Alltrim(Thisform.cb_devest.criteriu.Value)) + *lnCriteriu = Thisform.cb_devest.criteriu.Value + Do Case + Case lnCriteriu=1 + lcFiltru = [(denumire LIKE '] + m.lcDevEst + [%'] + [ or cod LIKE '] + m.lcDevEst + [%')] + Case lnCriteriu=2 + lcFiltru = [(denumire ='] + m.lcDevEst + ['] + [ or cod ='] + m.lcDevEst + [')] + Case lnCriteriu=3 + lcFiltru = [(denumire !='] + m.lcDevEst + ['] + [or cod !='] + m.lcDevEst + [')] + Case lnCriteriu=4 + lcFiltru = [(denumire LIKE '%] + m.lcDevEst + [%'] + [or cod LIKE '%] + m.lcDevEst + [%')] + Case lnCriteriu=5 + lcFiltru = [(denumire NOT LIKE '%] + m.lcDevEst + [%'] + [or cod NOT LIKE '%] + m.lcDevEst + [%')] + Case lnCriteriu=6 + lcFiltru = [2=2] + Endcase + + This.MousePointer= 11 + This.LockScreen=.T. + *this.actualizeaza_gdevest() + save_grid_tag(This.gdevest) + podest.ca_baza1.cFiltru = lcFiltru + ' and id_lucrare = ' + Alltrim(Str(ocomanda.id_lucrare)) + podest.ca_baza1.afisare() + restore_grid_tag(This.gdevest) + If Reccount('v_devest')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.cb_devest.SetFocus() + Endif + This.do_calcul + This.actualizeaza_but + + This.LockScreen=.F. + This.MousePointer= 0 + + ENDPROC + + PROCEDURE do_cautam + Local lcFiltru + lcFiltru=[2=2] + lcDenop = Strtran(Upper(Alltrim(Thisform.cb_manop.Text.Value)),['],['']) + lnCriteriu = VAL(ALLTRIM(Thisform.cb_manop.criteriu.Value)) + *lnCriteriu = Thisform.cb_manop.criteriu.Value + Do Case + Case lnCriteriu=1 + lcFiltru = [denop LIKE '] + Upper(Alltrim(lcDenop)) + [%'] + Case lnCriteriu=2 + lcFiltru = [denop ='] + Upper(Alltrim(lcDenop)) + ['] + Case lnCriteriu=3 + lcFiltru = [denop !='] + Upper(Alltrim(lcDenop)) + ['] + Case lnCriteriu=4 + lcFiltru = [denop LIKE '%] + Upper(Alltrim(lcDenop)) + [%'] + Case lnCriteriu=5 + lcFiltru = [denop NOT LIKE '%] + Upper(Alltrim(lcDenop)) + [%'] + Case lnCriteriu=6 + lcFiltru = [2=2] + *!* Case lnCriteriu=7 + *!* lcFiltru = [denop is not null] + Endcase + This.MousePointer= 11 + This.LockScreen=.T. + save_grid_tag(this.gnorme) + Do ccnorme_devest In update_devize.prg WITH lcFiltru + restore_grid_tag(this.gnorme) + *Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_norme')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.cb_manop.SetFocus() + ENDIF + this.actualizeaza_but + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_listare + If Reccount('v_devest')>0 + + + Private pdDataora,pcdataora,pntotaltn,pntotalval,pofirma,pcschema,pcselect,pcorder,pcfiltru,pnTotalTva,pnTotalGen + Store '' To pofirma,pcschema,pcselect,pcorder,pcfiltru + + If Used('crsFirma') + Use In crsfirma + Endif + lcSql = [select localitate,strada,numar,cod_fiscal,reg_comert from syn_nom_firme ] + ; + [where id_firma = ?gnIdFirma] && modificare v 2.0.29 : am inlocuit gnId_Firma + lnSucces=goExecutor.oExecute(lcSql,[crsfirma]) + If lnSucces<0 + AMessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + Sele crsfirma + Scatter Name firma + Use In crsfirma + + If Used('crslistare') + Use In crslistare + Endif + *!* modificare v 2.0.37 : am pus a.kmint in loc de b.kmint + lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,] + ; + [a.banca,a.cont_banca,a.adresa,a.nr_dosar,a.reg_comert,a.tip_persoana,] + ; + [b.nrinmat,b.series,b.seriem,b.culoare,a.kmint,b.marca,b.masina ] + ; + [from ] + gcS + [.auto_vordl a ] + ; + [left join ] + gcS + [.auto_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + [where a.id_ordl = ?ocomanda.id_ordl] + lnSucces=goExecutor.oExecute(lcSql,'crslistare') + If lnSucces<0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Select crslistare + Scatter Name olistare Memo + Use In crslistare + + pcdataora=get_ora(2) + pdDataora=Ttod(Ctot(pcdataora)) + + + SELECT olistare.nrord As nrord,IIF(!ISNULL(id_norme),'B','A') as semn,cod,um,denumire,cantitate,pretftva,valftva,id_dev_estimare_rep From v_devest; + Order By 2,8 Into Cursor crslistare + + pnTotalTva = this.tottva + pnTotalGen = this.totctva + + If Used('crslistare') + Thisform.AlwaysOnTop=.F. + Select crslistare + + goExport.export2frx([crslistare],[rap_devizest],.F., , , , , .T.) && modificare v 2.1.9 + Thisform.AlwaysOnTop=.T. + Use In crslistare + Endif + + Else + amessagebox("Nu exista manopera si materiale pe aceasta comanda!",0+48,"Atentie") + Endif + + + ENDPROC + + PROCEDURE do_modifica + Lparameters tnColoana + Local lcValoareNoua,lnRecNo + If Empty(tnColoana) + Return + Endif + Thisform.lsalvat=.T. + Select v_devest + pnid_dev_estimare_rep=id_dev_estimare_rep + Do Case + Case tnColoana=1 && pret cu TVA + lcValoareNoua=Alltrim(Str(Thisform.npretctvam,20,gnPPretV)) + If Thisform.npretctvam<0 + amessagebox("Pretul nu poate fi negativ!",0+48,"Atentie") + thisform.lvalidat=.f. + return + ELSE && pret fara TVA + lcSql=[begin pack_auto.modifica_pret_de(]+ALLTRIM(STR(pnid_dev_estimare_rep))+[,]+lcValoareNoua+; + [,1,]+ALLTRIM(STR(gnIdUtil))+[); end;] + loColoana=thisform.gdevest.cPretctva + Thisform.lvalidat=.t. + ENDIF + + Case tnColoana=2 + lcValoareNoua=Alltrim(Str(Thisform.npretftvam,20,gnPPretV)) + If Thisform.npretftvam<0 + amessagebox("Pretul nu poate fi negativ!",0+48,"Atentie") + thisform.lvalidat=.f. + return + else + lcSql=[begin pack_auto.modifica_pret_de(]+ALLTRIM(STR(pnid_dev_estimare_rep))+[,]+lcValoareNoua+; + [,0,]+ALLTRIM(STR(gnIdUtil))+[); end;] + loColoana=thisform.gdevest.cPretftva + Thisform.lvalidat=.t. + ENDIF + + Case tnColoana=3 + lcValoareNoua=Alltrim(Str(Thisform.ntvam)) + lcSql=[begin pack_auto.modifica_cota_tva_de(]+ALLTRIM(STR(pnid_dev_estimare_rep))+[,]+lcValoareNoua+[,]+ALLTRIM(STR(gnIdUtil))+[); end;] + loColoana=thisform.gdevest.cCotatva + Thisform.lvalidat=.t. + + Case tnColoana=4 + lcValoareNoua=Alltrim(Str(Thisform.ncantm,20,gnPCANT)) + If Thisform.ncantm<0 + amessagebox("Cantitatea nu poate fi negativa!",0+48,"Atentie") + thisform.lvalidat = .f. + return + else + lcSql=[begin pack_auto.modifica_cantitate_de(]+ALLTRIM(STR(pnid_dev_estimare_rep))+[,]+lcValoareNoua+[,]+ALLTRIM(STR(gnIdUtil))+[); end;] + loColoana=thisform.gdevest.cCantitate + Thisform.lvalidat=.t. + ENDIF + Endcase + + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + Thisform.lvalidat=.F. + amessagebox(goExecutor.cEroare,0+16,'Eroare') + ELSE + Thisform.lvalidat=.T. + + Endif + loColoana.text1.Refresh() + + SELECT v_devest + lnRecNo=Recno() + *SET STEP ON + this.cmd_cauta3.SetFocus + this.actualizeaza_gdevest() + thisform.do_calcul() + If Reccount('v_devest')0 + Select v_devest + Go lnRecNo + + Endif + this.gdevest.SetFocus + ENDPROC + + PROCEDURE do_sterge + LOCAL lcSql,lnSucces + PRIVATE pnIdDevEstRep + Select v_devest + pnIdDevEstRep = id_dev_estimare_rep + If !Empty(Nvl(pnIdDevEstRep,0)) + lcSql = [begin pack_auto.sterge_articol_de(]+Alltrim(Str(pnIdDevEstRep ))+[,]+Alltrim(Str(gnIdUtil))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,[Eroare]) + Return + Endif + ENDIF + this.actualizeaza_gdevest + this.do_calcul + thisform.gdevest.SetFocus + + ENDPROC + + PROCEDURE Init + DoDefault() + Local lcSql,lcCursor,lnSucces + lcSql = [select distinct cota_tva from ] + gcS + [.jtva_coloane where sters = 0 and afisat = 1 ]+; + [and jv = 1 order by cota_tva desc] + lcCursor = [cCotatva] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,[Eroare]) + Return + Else + SELECT cCotatva + GO top + This.gdevest.cCotatva.cbtva.RowSource = [cCotatva.cota_tva] + Endif + If Reccount('v_devest')>0 + This.do_calcul() + Endif + This.cmd_addm.Enabled= .F. + This.cmd_addart.Enabled= .F. + + This.WindowState = 2 + Thisform.Resize + + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + lcControlp = Upper(Alltrim(This.ActiveControl.Parent.Name)) + lcControl = Upper(Alltrim(This.ActiveControl.Name)) + + Do Case + Case nKeyCode = 13 And lcControlp = 'CB_MANOP' + Nodefault + This.do_cautam() + Case nKeyCode = 13 And lcControlp = 'CB_ARTICOL' + Nodefault + This.do_cautaart() + Case nKeyCode = 13 And lcControlp = 'CB_DEVEST' + Nodefault + This.do_cautadevest() + Case nKeyCode = 13 And lcControl = 'GNORME' And This.cmd_addm.Enabled = .T. && enter + Nodefault + This.adauga_manopera() + Case nKeyCode = 13 And lcControl = 'GARTICOLE' And This.cmd_addart.Enabled = .T. + Nodefault + This.adauga_articole() + CASE nKeyCode = 9 AND lcControl = 'GNORME' && tab + Nodefault + thisform.cb_articol.text.SetFocus + + CASE nKeyCode = 9 AND lcControl = 'GARTICOLE' + Nodefault + thisform.cb_devest.text.SetFocus + CASE nKeyCode = 9 AND lcControl = 'GDEVEST' AND thisform.lsalvat = .t. + Nodefault + THISFORM.Cb_tx_simplu2.SetFocus + Case (nKeyCode=32 And lcControl = 'GNORME') Or ; + ((nKeyCode >=33 And nKeyCode <=122) And (lcControl = 'GNORME')) + Nodefault + Thisform.cb_manop.Text.SetFocus + Thisform.cb_manop.Text.Value = Alltrim(Thisform.cb_manop.Text.Value) + Chr(nKeyCode) + Keyboard '{END}' + Case (nKeyCode=32 And lcControl = 'GARTICOLE') Or ; + ((nKeyCode >=33 And nKeyCode <=122) And (lcControl = 'GARTICOLE')) + Nodefault + Thisform.cb_articol.Text.SetFocus + Thisform.cb_articol.Text.Value = Alltrim(Thisform.cb_articol.Text.Value) + Chr(nKeyCode) + Keyboard '{END}' + Case (nKeyCode = 127) And (lcControl = 'GNORME') && backspace + Nodefault + Thisform.cb_manop.Text.Value = Left(Alltrim(Thisform.cb_manop.Text.Value),Len(Alltrim(Thisform.cb_manop.Text.Value))-1) + Thisform.cb_manop.Text.SetFocus + Keyboard '{END}' + Case (nKeyCode = 127) And (lcControl = 'GARTICOLE') && backspace + Nodefault + Thisform.cb_articol.Text.Value = Left(Alltrim(Thisform.cb_articol.Text.Value),Len(Alltrim(Thisform.cb_articol.Text.Value))-1) + Thisform.cb_articol.Text.SetFocus + Keyboard '{END}' + Case (nKeyCode = 127) And (lcControl = 'GDEVEST') && backspace + Nodefault + Thisform.CB_devest.Text.Value = Left(Alltrim(Thisform.CB_devest.Text.Value),Len(Alltrim(Thisform.CB_devest.Text.Value))-1) + Thisform.CB_devest.Text.SetFocus + Keyboard '{END}' + Case nKeyCode = 7 And lcControl = 'GDEVEST' && DEL + Nodefault + If Pemstatus(This,"do_sterge",5) + This.do_sterge() + Endif + Case nKeyCode=6 And nShiftAltCtrl=2 && CTRL + F + Nodefault + This.do_termin() + Case nKeyCode=16 And nShiftAltCtrl=2 && CTRL + P + Nodefault + If Pemstatus(This,"do_listare",5) + This.do_listare() + Endif + + Endcase + + + ENDPROC + + PROCEDURE Resize + thisform.Refresh + ENDPROC + + PROCEDURE Cb_articol.Init + this.criteriu.Value = [1] + ENDPROC + + PROCEDURE Cb_devest.Init + this.criteriu.Value = [1] + ENDPROC + + PROCEDURE Cb_manop.Init + this.criteriu.Value = [1] + ENDPROC + + PROCEDURE Cb_tx_simplu2._CBBASE1.Init + thisform.npret = v_preturi.pret + ENDPROC + + PROCEDURE Cb_tx_simplu2._CBBASE1.InteractiveChange + thisform.npret = v_preturi.pret + ENDPROC + + PROCEDURE cmd_addart.Click + thisform.adauga_articole + ENDPROC + + PROCEDURE cmd_addm.Click + thisform.adauga_manopera + ENDPROC + + PROCEDURE garticole.AfterRowColChange + LPARAMETERS nColIndex + thisform.actualizeaza_but + ENDPROC + + PROCEDURE gdevest.cCantitate.Text1.GotFocus + Thisform.ncanti=This.Value + Thisform.ncantm=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE gdevest.cCantitate.Text1.InteractiveChange + Thisform.ncantm=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE gdevest.cCantitate.Text1.LostFocus + If Thisform.ncanti!=Thisform.ncantm And Thisform.lsalvat=.F. + Thisform.do_modifica(4) + ENDIF + + ENDPROC + + PROCEDURE gdevest.cCantitate.Text1.Valid + + + ENDPROC + + PROCEDURE gdevest.cCotatva.cbtva.GotFocus + Thisform.ntvai=This.Value + Thisform.ntvam=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE gdevest.cCotatva.cbtva.InteractiveChange + thisform.ntvam = this.Value + thisform.lsalvat=.f. + + ENDPROC + + PROCEDURE gdevest.cCotatva.cbtva.LostFocus + If Thisform.ntvai!=Thisform.ntvam And Thisform.lsalvat=.F. + Thisform.do_modifica(3) + Endif + ENDPROC + + PROCEDURE gdevest.cCotatva.Text1.GotFocus + Thisform.nProcTVAi=This.Value + Thisform.nProcTVAm=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE gdevest.cCotatva.Text1.InteractiveChange + Thisform.nProcTVAm=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE gdevest.cCotatva.Text1.LostFocus + If Thisform.npretctvai!=Thisform.npretctvam And Thisform.lsalvat=.F. + Thisform.do_modifica(1) + Endif + ENDPROC + + PROCEDURE gdevest.cPretctva.Text1.GotFocus + Thisform.npretctvai=This.Value + Thisform.npretctvam=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE gdevest.cPretctva.Text1.InteractiveChange + Thisform.npretctvam=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE gdevest.cPretctva.Text1.LostFocus + If Thisform.npretctvai!=Thisform.npretctvam And Thisform.lsalvat=.F. + Thisform.do_modifica(1) + Endif + ENDPROC + + PROCEDURE gdevest.cPretftva.Text1.GotFocus + Thisform.npretftvai=This.Value + Thisform.npretftvam=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE gdevest.cPretftva.Text1.InteractiveChange + Thisform.npretftvam=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE gdevest.cPretftva.Text1.LostFocus + If Thisform.npretftvai!=Thisform.npretftvam And Thisform.lsalvat=.F. + Thisform.do_modifica(2) + Endif + ENDPROC + + PROCEDURE gnorme.AfterRowColChange + LPARAMETERS nColIndex + + DODEFAULT() + + thisform.actualizeaza_but + ENDPROC + + PROCEDURE Lb_titlu_alb_b121.Init + This.Caption=This.Caption+Space(2)+Alltrim(Nvl(ocomanda.nrord,'')) + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_gencom 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="Ed_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_operatii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_asigurator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_inspector" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_marca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_model" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_series" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_kmint" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_termen" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrdosar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_referinta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cDenop.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cDenop.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cSelectat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnorme.cSelectat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_titlu_operatii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_manopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_manopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_cilindree" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_putere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_putere.Text_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_putere._lbbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *m: aleg_client + *m: aleg_referinta + *m: do_modifica_operatii + *p: casig + *p: cclient + *p: cdefectiuni + *p: cfurnizor + *p: cinspector + *p: cmarca + *p: cnrcom + *p: cnrcomanda + *p: cnrdosar + *p: cnrinmat + *p: cobservatii + *p: coperatii + *p: cpartref && Nume partener care a referit comanda + *p: cseriem + *p: cseries + *p: csiridoperatii + *p: ctipm + *p: ddataachi + *p: dtermen + *p: llistare + *p: lmodificare + *p: lverificari && .T. Daca se fac verificari pentru km la bord si termen. + *p: nanfabricatie + *p: ncilindree + *p: nidasig + *p: nidclie + *p: nidinsp + *p: nidmc + *p: nidpartref && Id partener care a referit comanda + *p: nid_masina + *p: nkmint + *p: nnrachi + *p: nordine + *p: norefct + *p: nputerecp + *p: nputerekw + * + + * + BorderStyle = 1 + Caption = "Form" + casig = + cclient = + cdefectiuni = + cfurnizor = + cinspector = + cmarca = + cnrcom = + cnrcomanda = + cnrdosar = + cnrinmat = + cobservatii = + coperatii = + cpartref = + cseriem = + cseries = + csiridoperatii = + ctipm = + ddataachi = {} + DoCreate = .T. + dtermen = {} + Height = 482 + lverificari = .T. + Name = "frm_gencom" + nanfabricatie = + ncilindree = 0 + nidasig = 0 + nidclie = 0 + nidinsp = 0 + nidmc = 0 + nidpartref = 0 + nid_masina = 0 + nkmint = 0 + nnrachi = 0 + nordine = 0 + norefct = 0 + nputerecp = 0 + nputerekw = 0 + Width = 755 + _memberdata = + + + + + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 756 + _shape1.ZOrderSet = 1 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 693 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 63 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Generare comanda noua" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 23 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 725 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 20 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 696, ; + Name = "But_renunt1", ; + TabIndex = 21, ; + Top = 1, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_asigurator' AS cb_tx_simplu WITH ; + Left = 12, ; + Name = "Cb_asigurator", ; + TabIndex = 2, ; + Top = 88, ; + ZOrderSet = 7, ; + _cbbase1.ControlSource = "thisform.casig", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_asiguratori.asigurator", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Asigurator:", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_inspector' AS cb_tx_simplu WITH ; + Left = 12, ; + Name = "Cb_inspector", ; + TabIndex = 3, ; + Top = 116, ; + ZOrderSet = 8, ; + _cbbase1.ControlSource = "thisform.cinspector", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_inspectori.inspector", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Inspector:", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_manopera' AS cb_tx_cautare WITH ; + cpornire = 1, ; + Left = 420, ; + Name = "Cb_manopera", ; + TabIndex = 16, ; + Top = 56, ; + ZOrderSet = 21, ; + Text.Name = "Text", ; + criteriu.Name = "criteriu" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_cilindree' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 12, ; + Name = "clb_cilindree", ; + TabIndex = 11, ; + TabStop = .T., ; + Top = 352, ; + Width = 105, ; + ZOrderSet = 13, ; + Text_simplu1.ControlSource = "thisform.nCilindree", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 56, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 45, ; + Lb_simplu1.Caption = "Cilindree", ; + Lb_simplu1.Left = 3, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_kmint' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_kmint", ; + TabIndex = 13, ; + TabStop = .T., ; + Top = 380, ; + ZOrderSet = 14, ; + Text_simplu1.ControlSource = "thisform.nkmint", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Km. la bord", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_marca' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_marca", ; + TabIndex = 8, ; + TabStop = .T., ; + Top = 268, ; + ZOrderSet = 10, ; + Text_simplu1.ControlSource = "thisform.cmarca", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Marca mainii", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_model' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_model", ; + TabIndex = 9, ; + TabStop = .T., ; + Top = 296, ; + ZOrderSet = 11, ; + Text_simplu1.ControlSource = "thisform.ctipm", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Modelul mainii", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nrdosar' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_nrdosar", ; + TabIndex = 4, ; + TabStop = .T., ; + Top = 144, ; + ZOrderSet = 16, ; + Text_simplu1.ControlSource = "thisform.cnrdosar", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Numar dosar", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nrinmat' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_nrinmat", ; + TabIndex = 7, ; + TabStop = .T., ; + Top = 240, ; + ZOrderSet = 9, ; + Text_simplu1.ControlSource = "thisform.cnrinmat", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Nr. nmatriculare", ; + Lb_simplu1.Left = 7, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nrord' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_nrord", ; + TabIndex = 1, ; + Top = 44, ; + ZOrderSet = 6, ; + Text_simplu1.ControlSource = "thisform.cnrcom", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Numar comanda", ; + Lb_simplu1.Left = 5, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_putere' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 116, ; + Name = "clb_putere", ; + TabIndex = 12, ; + TabStop = .T., ; + Top = 352, ; + Width = 186, ; + ZOrderSet = 13, ; + Text_simplu1.ControlSource = "thisform.nPutereCP", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 89, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 42, ; + Lb_simplu1.Caption = "Putere CP/KW", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_putere._lbbase1' AS _lbbase WITH ; + Caption = "/", ; + Left = 133, ; + Name = "_lbbase1", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> + + ADD OBJECT 'clb_putere.Text_simplu2' AS _txbase WITH ; + ControlSource = "thisform.nPutereKW", ; + Height = 23, ; + Left = 140, ; + Name = "Text_simplu2", ; + ReadOnly = .T., ; + Top = 3, ; + Width = 42 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Clb_series' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_series", ; + TabIndex = 10, ; + TabStop = .T., ; + Top = 324, ; + ZOrderSet = 13, ; + Text_simplu1.ControlSource = "thisform.cseries", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Serie asiu", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_termen' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_termen", ; + TabIndex = 15, ; + TabStop = .T., ; + Top = 436, ; + ZOrderSet = 15, ; + Text_simplu1.ControlSource = "thisform.dtermen", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Termen", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 14, ; + TabStop = .T., ; + Top = 408, ; + ZOrderSet = 14, ; + Text_simplu1.ControlSource = "thisform.nOreFct", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Ore functionare", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_client' AS ct_clb_cautare WITH ; + cconditie = EMPTY(thisform.nidclie), ; + cprocedura = thisform.aleg_client, ; + cvar_afisata = thisform.cclient, ; + Height = 31, ; + Left = 11, ; + Name = "Ct_clb_client", ; + TabIndex = 5, ; + Top = 171, ; + Width = 325, ; + ZOrderSet = 17, ; + img_cautare.Left = 300, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Client", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 99, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_referinta' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + cprocedura = thisform.aleg_referinta, ; + cvar_afisata = thisform.cPartRef, ; + Height = 31, ; + Left = 11, ; + Name = "Ct_clb_referinta", ; + TabIndex = 6, ; + Top = 199, ; + Width = 325, ; + ZOrderSet = 17, ; + img_cautare.Left = 300, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Referinta", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 99, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.ToolTipText = "Partenerul care a referit comanda (ex: brocker). Pentru modificare apasati DEL sau butonul din dreapta ", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_operatii' AS ed_tx_simplu WITH ; + Height = 220, ; + Left = 340, ; + Name = "Ed_operatii", ; + TabIndex = 22, ; + Top = 44, ; + Width = 396, ; + ZOrderSet = 0, ; + _edbase1.ControlSource = "Thisform.coperatii", ; + _edbase1.Height = 301, ; + _edbase1.Left = 13, ; + _edbase1.Name = "_edbase1", ; + _edbase1.ReadOnly = .T., ; + _edbase1.Top = 27, ; + _edbase1.Width = 374, ; + _lbbase1.Caption = "Operatii cerute de client", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ; + Height = 106, ; + Left = 340, ; + Name = "Ed_tx_simplu1", ; + TabIndex = 18, ; + Top = 264, ; + Width = 396, ; + ZOrderSet = 0, ; + _edbase1.ControlSource = "Thisform.cObservatii", ; + _edbase1.Height = 70, ; + _edbase1.Left = 13, ; + _edbase1.Name = "_edbase1", ; + _edbase1.ReadOnly = .F., ; + _edbase1.Top = 27, ; + _edbase1.Width = 374, ; + _lbbase1.Caption = "Observatii", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ed_tx_simplu2' AS ed_tx_simplu WITH ; + Height = 106, ; + Left = 340, ; + Name = "Ed_tx_simplu2", ; + TabIndex = 19, ; + Top = 369, ; + Width = 396, ; + ZOrderSet = 0, ; + _edbase1.ControlSource = "Thisform.cDefectiuni", ; + _edbase1.Height = 70, ; + _edbase1.Left = 13, ; + _edbase1.Name = "_edbase1", ; + _edbase1.ReadOnly = .F., ; + _edbase1.Top = 27, ; + _edbase1.Width = 374, ; + _lbbase1.Caption = "Defectiuni constatate", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'grdnorme' AS _grdrow WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 176, ; + Left = 340, ; + Name = "grdnorme", ; + Panel = 1, ; + RecordSource = "v_norme", ; + TabIndex = 17, ; + Top = 88, ; + Width = 396, ; + ZOrderSet = 18, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "denop", ; + Column1.FontName = "Arial", ; + Column1.Name = "cDenop", ; + Column1.ReadOnly = .T., ; + Column1.Tag = "W", ; + Column1.Width = 304, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "ales", ; + Column2.FontName = "Arial", ; + Column2.Name = "cSelectat", ; + Column2.ReadOnly = .F., ; + Column2.Sparse = .F., ; + Column2.Width = 51 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdnorme.cDenop.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire operatie", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnorme.cDenop.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdnorme.cSelectat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + Height = 17, ; + Left = 21, ; + Name = "Check1", ; + ReadOnly = .F., ; + Top = 43, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grdnorme.cSelectat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Selectat", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Lb_manopera' AS lb_simplu WITH ; + Caption = "Manopera", ; + Left = 350, ; + Name = "Lb_manopera", ; + TabIndex = 25, ; + Top = 61, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_titlu_operatii' AS lb_titlu_negru_b12 WITH ; + Caption = "Operatii cerute de client", ; + Left = 343, ; + Name = "lb_titlu_operatii", ; + TabIndex = 24, ; + Top = 33, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + Lparameters tcFiltru,tcFiltru2 + Local lcFiltru,lcFiltru2 + + lcFiltru=tcFiltru + If Empty(lcFiltru) + lcFiltru='' + Endif + lcFiltru2=tcFiltru2 + If Empty(lcFiltru2) + lcFiltru2='' + Endif + + With Thisform + Select v_norme + Go Top + Select * From v_norme Where ales!=0 Into Cursor crsalese + save_grid_tag(.grdnorme) + If !Empty(lcFiltru2) + Select * From crsalese Into Cursor crstoate + Else + =update_norme(lcFiltru) + Select * From crsalese ; + Union ; + Select * From v_norme Where id_norme Not In (Select id_norme From crsalese) Into Cursor crstoate + Endif + If Used('v_norme') + Use In v_norme + Endif + Select * From crstoate Order By ales Desc,ordine,denop Asc,masina Asc Into Cursor v_norme Readwrite + Use In crstoate + Go Top + restore_grid_tag(.grdnorme) + .grdnorme.cdenop.SetFocus() + Endwith + ENDPROC + + PROCEDURE aleg_client + Local omasclie + If Thisform.lmodificare=.F. And !Thisform.llistare + *!* DO viz_clienti IN onom_devize.prg + omasclie = viz_clienti(.T.) && modificare v 2.1.1 : .T. > doar masinile active + If !Empty(omasclie.id_partener) + lcComanda=Iif(Empty(Thisform.cnrcom),Alltrim(pcNr),Alltrim(Thisform.cnrcom)) + lcNrComanda=IIF(AT([/],lcComanda)>0,SUBSTR(lcComanda,1,AT([/],lcComanda)-1),lcComanda) + Thisform.cmarca = omasclie.marca + Thisform.ctipm = omasclie.masina + Thisform.cnrinmat = omasclie.nrinmat + Thisform.cclient = omasclie.partener + Thisform.cnrcom = lcNrComanda + "/" + Alltrim(omasclie.nrinmat) + Thisform.nidclie = omasclie.id_partener + Thisform.nidmc = omasclie.id_masiniclient + Thisform.nid_masina = omasclie.id_masina + Thisform.cseries = omasclie.series + Thisform.cseriem = omasclie.seriem + Thisform.cfurnizor = omasclie.furnizor + Thisform.nnrachi = omasclie.nrachi + *!* Thisform.ddataachi = Iif(Type("omasclie.dataachi")='D',omasclie.dataachi,Ttod(omasclie.dataachi)) + thisform.nanfabricatie = omasclie.anfabricatie + Thisform.nkmint = omasclie.kmint + Thisform.nCilindree = omasclie.cilindree + Thisform.nPutereCP = omasclie.puterecp + Thisform.nPutereKW = omasclie.puterekw + thisform.nOreFct = omasclie.ore_functionare + + Thisform.Refresh + Thisform.ct_clb_referinta.clb_tx_cautare.text_simplu1.SetFocus() + Endif + Endif + + ENDPROC + + PROCEDURE aleg_referinta + Local loCauta + If Thisform.lmodificare=.F. And !Thisform.llistare + + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Cauta referinta in clienti])) + If m.gnButon = 1 + Thisform.nIdPartRef = loCauta.id_part + Thisform.cPartRef = loCauta.denumire + thisform.ct_clb_referinta.Refresh() + Thisform.clb_kmint.SetFocus() + ENDIF + Endif + + ENDPROC + + PROCEDURE Destroy + *!* 31.08.2015 + *!* marius.mutu + *!* salvare id partener care a referit comanda + + pcNr = Thisform.cnrcom + *!* WAIT WINDOW this.cinspector + *!* RETURN thisform.cnrcom + pnIdInsp = Thisform.nidinsp + pnIdAsig = Thisform.nidasig + pnIdMC = Thisform.nidmc + pnIdClie = Thisform.nidclie + pnId_masina = Thisform.nid_masina + pnKmInt = Thisform.nkmint + pdTermen = Thisform.dtermen + pcNrDosar = Alltrim(Thisform.cnrdosar) + pcSirIDOperatiiClient = ALLTRIM(SUBSTR(STRTRAN(Thisform.csiridoperatii,[><],[,]),2,LEN(STRTRAN(Thisform.csiridoperatii,[><],[,]))-2)) + pnIdPartRef = thisform.nIdPartRef + + pcObservatii = ALLTRIM(thisform.cObservatii) + pcDefectiuni = ALLTRIM(thisform.cDefectiuni) + pnOreFct = thisform.nOreFct + + If Type('ocomlistare')<>'U' + AddProperty(ocomlistare,'marca',Alltrim(Thisform.cmarca)) + AddProperty(ocomlistare,'nrinmat',Alltrim(Thisform.cnrinmat)) + AddProperty(ocomlistare,'masina',Alltrim(Thisform.ctipm)) + AddProperty(ocomlistare,'nrord',Alltrim(Thisform.cnrcom)) + AddProperty(ocomlistare,'nume',Alltrim(Thisform.cclient)) + AddProperty(ocomlistare,'series',Alltrim(Thisform.cseries)) + AddProperty(ocomlistare,'seriem',Alltrim(Thisform.cseriem)) + AddProperty(ocomlistare,'asigurator',Alltrim(Thisform.casig)) + AddProperty(ocomlistare,'inspector',Alltrim(Thisform.cinspector)) + AddProperty(ocomlistare,'kmint',Thisform.nkmint) + AddProperty(ocomlistare,'OreFct',Thisform.nOreFct) + AddProperty(ocomlistare,'furnizor',Alltrim(Thisform.cfurnizor)) + AddProperty(ocomlistare,'nrachi',Thisform.nnrachi) + AddProperty(ocomlistare,'cilindree',Alltrim(TRANSFORM(Thisform.nCilindree))) + AddProperty(ocomlistare,'puterecp',Alltrim(TRANSFORM(Thisform.nPutereCP))) + AddProperty(ocomlistare,'puterekw',Alltrim(TRANSFORM(Thisform.nPutereKW))) + AddProperty(ocomlistare,'anfabricatie',Thisform.nanfabricatie) + AddProperty(ocomlistare,'nr_dosar',Alltrim(Thisform.cnrdosar)) + *!* AddProperty(ocomlistare,'dataachi',Thisform.ddataachi) + AddProperty(ocomlistare,'termen',Thisform.dtermen) + AddProperty(ocomlistare,'nidclie',Thisform.nidclie) + ADDPROPERTY(ocomlistare,'solicitari_client',SUBSTR(STRTRAN(Thisform.coperatii,[><],[,]),2,LEN(STRTRAN(Thisform.coperatii,[><],[,]))-2)) + ADDPROPERTY(ocomlistare,'observatii',Thisform.cObservatii) + ADDPROPERTY(ocomlistare,'defectiuni',Thisform.cDefectiuni) + + AddProperty(ocomlistare,'nIdPartRef',Thisform.nIdPartRef) + AddProperty(ocomlistare,'PartRef',Alltrim(Thisform.cPartRef)) + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru, lcAlias, lnNealese, lnNrIreg, lnCriteriu, lcDenop, lcFiltruVFP && lcExecuteString + Store '' To lcFiltru, lcDenop, lcFiltruVFP && lcExecuteString + lcFiltru=[2=2] + *!* modificare v 2.0.18 + *!* lcExecuteString = "thisform.Clb_operatii.tEXT_SIMPLU1" + *!* With &lcExecuteString + *!* lcDenop=Alltrim(Strtran(Alltrim(Upper(.Value)),['],[''])) + *!* If !Empty(lcDenop) + *!* lcFiltru = lcFiltru + [ and denop like '%] + lcDenop + [%'] + *!* Else + *!* Return + *!* Endif + *!* Endwith + lcDenop = Strtran(Upper(Alltrim(Thisform.cb_manopera.Text.Value)),['],['']) + lnCriteriu = Val(Alltrim(Thisform.cb_manopera.criteriu.Value)) + Do Case + Case lnCriteriu=1 + lcFiltru = [denop LIKE '] + Upper(Alltrim(lcDenop)) + [%'] + lcFiltruVFP = [LIKE('] + Upper(Alltrim(lcDenop)) + [*',denop)] + Case lnCriteriu=2 + lcFiltru = [denop ='] + Upper(Alltrim(lcDenop)) + ['] + lcFiltruVFP = [denop = '] + Upper(Alltrim(lcDenop)) + ['] + Case lnCriteriu=3 + lcFiltru = [denop !='] + Upper(Alltrim(lcDenop)) + ['] + lcFiltruVFP = [denop <> '] + Upper(Alltrim(lcDenop)) + ['] + Case lnCriteriu=4 + lcFiltru = [denop LIKE '%] + Upper(Alltrim(lcDenop)) + [%'] + lcFiltruVFP = [LIKE('*] + Upper(Alltrim(lcDenop)) + [*',denop)] + Case lnCriteriu=5 + lcFiltru = [denop NOT LIKE '%] + Upper(Alltrim(lcDenop)) + [%'] + lcFiltruVFP = [!LIKE('*] + Upper(Alltrim(lcDenop)) + [*',denop)] + Case lnCriteriu=6 + lcFiltru = [2=2] + lcFiltruVFP = [] + Endcase + *!* modificare v 2.0.18 ^ + Thisform.actualizeaza_grid1(lcFiltru) + + *!* modificare v 2.0.18 + IF !EMPTY(lcFiltruVFP) + *!* modificare v 2.0.18 ^ + Store 0 To lnNrIreg + Select v_norme + Count For Like('*'+lcDenop+'*',denop) To lnNrIreg + If lnNrIreg = 0 + If AMessagebox('Operatia introdusa nu exista! Doriti sa o adaugati?',4+32,"Adaugare norma") # 6 + Return + Endif + lcSql = [begin pack_auto.adauga_norma(null,null,'] + lcDenop + [',null,0,0,?gnIdUtil); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Thisform.actualizeaza_grid1(lcFiltru) + Endif + *!* modificare v 2.0.18 + ENDIF + *!* modificare v 2.0.18 ^ + + lcAlias = Thisform.grdnorme.RecordSource + Select (lcAlias) + Calculate Cnt() For ales=0 To lnNealese + Go Top + Do Case + Case lnNealese=1 + *!* daca am cautat ceva si imi apare un singur rezultat, atunci il bifez automat + Locate For ales = 0 + *!* modificare v 2.0.11 + *!* replace all ales with 1 + If Found() + Replace ales With 1 + Thisform.do_modifica_operatii(denop,id_norme,ales) + Endif + *!* modificare v 2.0.11 ^ + Case lnNealese > 1 + *!* ma pozitioneaza pe primul neales + Select (lcAlias) + Locate For ales = 0 + Otherwise + *!* nimic + Endcase + Thisform.grdnorme.cselectat.SetFocus() + + ENDPROC + + PROCEDURE do_executa + *!* *!* codul trebuie apelat doar prin click pe butonul de listare + *!* *!* procedura do_listare se poate apela si prin combinatie de taste + *!* If Empty(Thisform.nkmint) AND thisform.lverificari + *!* AMessagebox("Nu ati completat km!",0+48,"Atentie") + *!* Thisform.clb_kmint.SetFocus() + *!* Return .F. + *!* Endif + + *!* Private pofirma,pocomanda,pcschema1,pcselect1,pddataora + *!* Store '' To pofirma,pocomanda + + *!* pcschema=[''] + *!* pcselect=['select localitate,strada,numar,cod_fiscal from nom_firme where 1=2'] + *!* pcorder=[] + *!* pcfiltru=[id_firma = ]+Alltrim(Str(gnId_Firma)) + *!* llAfiseaza=.F. + *!* gencursor('pofirma','crsFirma',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + *!* pofirma.ca_baza1.afisare() + *!* Sele crsfirma + *!* Scatter Name firma + + *!* pddataora = get_Ora() + + *!* pcschema=[''] + *!* pcselect=['select cod_fiscal,adresa,telefon from ] + gcS + [.nom_parteneri where '] + *!* pcorder=[] + *!* pcfiltru=[id_part=]+Alltrim(Str(Thisform.nidclie)) + *!* llAfiseaza=.F. + *!* gencursor('pocomanda','crsComanda',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + *!* pocomanda.ca_baza1.afisare() + *!* Select crsComanda + *!* Scatter Name ocom + *!* AddProperty(ocom,'marca',Thisform.cmarca) + *!* AddProperty(ocom,'nrinmat',Thisform.cnrinmat) + *!* AddProperty(ocom,'masina',Thisform.ctipm) + *!* AddProperty(ocom,'nrord',Thisform.cnrcom) + *!* AddProperty(ocom,'nume',Thisform.cclient) + *!* AddProperty(ocom,'series',Thisform.cseries) + *!* AddProperty(ocom,'seriem',Thisform.cseriem) + *!* AddProperty(ocom,'asigurator',Thisform.casig) + *!* AddProperty(ocom,'kmint',Thisform.nkmint) + *!* AddProperty(ocom,'furnizor',Thisform.cfurnizor) + *!* AddProperty(ocom,'nrachi',Thisform.nnrachi) + *!* AddProperty(ocom,'dataachi',Thisform.ddataachi) + *!* AddProperty(ocom,'termen',Thisform.dtermen) + *!* AddProperty(ocom,'datai',pddataora) + *!* nrord=ocom.nrord + *!* Thisform.AlwaysOnTop=.F. + *!* *!* modificare + *!* Report Form PRECO To Printer Prompt Preview + *!* *!* If gnTip_LPrecomanda = 1 && cu tipizate + *!* *!* Report Form _PRECO To Printer Prompt Preview + *!* *!* Else + *!* *!* If pntipcom=2 + *!* *!* Report Form PRECOG To Printer Prompt Preview + *!* *!* Else + *!* *!* Report Form PRECO To Printer Prompt Preview + *!* *!* Endif + *!* *!* Endif + *!* Thisform.AlwaysOnTop=.T. + *!* If !Thisform.llistare + *!* Thisform._shape2.Width=Thisform._shape2.Width-Thisform.but_renunt1.Width + *!* Thisform._shape2.Left=Thisform._shape2.Left+Thisform.but_renunt1.Width + *!* Thisform.RemoveObject("but_renunt1") + *!* Thisform.llistare=.T. + *!* Endif + *!* Use In crsComanda + *!* Use In crsfirma + + ENDPROC + + PROCEDURE do_modifica_operatii + Lparameters tcDenop,tnIdNorme,tnAles + Local lcOperatie,lcIdNorme + lcOperatie = [<] + Alltrim(tcDenop) + [>] + lcIdNorme = [<] + Alltrim(Str(tnIdNorme)) + [>] + If tnAles = 0 + Thisform.coperatii = Strtran(Thisform.coperatii,lcOperatie,[]) + Thisform.csiridoperatii = Strtran(Thisform.csiridoperatii,lcIdNorme,[]) + Else + Thisform.coperatii = Thisform.coperatii + lcOperatie + Thisform.csiridoperatii = Thisform.csiridoperatii + lcIdNorme + Endif + ENDPROC + + PROCEDURE inainte_de_do_renunt + If Thisform.llistare + AMessagebox("Apasati terminat pentru inregistrarea comenzii!",0+48,"Atentie") + Return .F. + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn + Store .F. To llReturn + If Type('thisform.activecontrol.baseclass')<>'U' + lccontrol = Upper(Thisform.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=Thisform.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + Endif + + Do Case + Case Empty(Thisform.cclient) + AMessagebox("Alegeti clientul!",0+48,'Atentie') + Thisform.ct_clb_client.SetFocus() + Case Empty(Thisform.cnrinmat) + AMessagebox("Completati numarul de inmatriculare al masinii!",0+16,'Atentie') + Thisform.ct_clb_client.SetFocus() + Case Empty(Thisform.cseries) + AMessagebox("Completati seria sasiului masinii!",0+16,'Atentie') + Thisform.ct_clb_client.SetFocus() + Case Empty(Thisform.nkmint) And Thisform.lverificari + AMessagebox("Nu ati completat km!",0+48,"Atentie") + Thisform.clb_kmint.SetFocus() + Case !Thisform.lModificare AND !Empty(Thisform.dtermen) And Thisform.dtermen0 + *!* Thisform.cmdlist1.Visible=.F. + *!* Endif + Endif + If Empty(pcNR) + Store "" To pcNR + Endif + Thisform.cnrcom = pcNR + Store 0 To pnIdInsp,pnIdAsig,pnIdMC,pnIdClie,pnId_Masina,pnKmInt, pnOreFct, pcObservatii + this.dtermen = m.pdTermen + DoDefault() + + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + lcControl = Upper(Alltrim(This.ActiveControl.Name)) + + Do Case + *!* modificare v 2.0.18 + *!* Case nKeyCode = 13 And lcControl = 'TEXT_SIMPLU1' + *!* If Upper(Alltrim(This.ActiveControl.Parent.Name)) = 'CLB_OPERATII' + Case nKeyCode = 13 And lcControl = 'TEXT' + If Upper(Alltrim(This.ActiveControl.Parent.Name)) = 'CB_MANOPERA' + *!* modificare v 2.0.18 ^ + Nodefault + Thisform.do_cauta() + Else + DoDefault(nKeyCode, nShiftAltCtrl) + Endif + Case (nKeyCode=32 And lcControl = 'GRDNORME' And Thisform.grdnorme.ActiveColumn!=1) Or ; + ((nKeyCode >=33 And nKeyCode <=122) And (lcControl = 'GRDNORME')) + Nodefault + *!* modificare v 2.0.18 + *!* Thisform.Clb_operatii.text_simplu1.SetFocus() + *!* Thisform.Clb_operatii.text_simplu1.Value = Alltrim(Thisform.Clb_operatii.text_simplu1.Value) + Chr(nKeyCode) + Thisform.cb_manopera.text.Value = ALLTRIM(thisform.cb_manopera.text.Value) + CHR(nKeyCode) + Thisform.cb_manopera.text.SetFocus() + *!* modificare v 2.0.18 ^ + Keyboard '{END}' + Case (nKeyCode = 127) And (lcControl = 'GRDNORME') && backspace + Nodefault + *!* modificare v 2.0.18 + *!* Thisform.Clb_operatii.text_simplu1.Value = Left(Alltrim(Thisform.Clb_operatii.text_simplu1.Value),Len(Alltrim(Thisform.Clb_operatii.text_simplu1.Value))-1) + *!* Thisform.Clb_operatii.text_simplu1.SetFocus + Thisform.cb_manopera.text.Value = LEFT(ALLTRIM(Thisform.cb_manopera.text.Value),LEN(ALLTRIM(Thisform.cb_manopera.text.Value))-1) + Thisform.cb_manopera.text.SetFocus() + *!* modificare v 2.0.18 ^ + Keyboard '{END}' + Otherwise + DoDefault(nKeyCode, nShiftAltCtrl) + Endcase + + ENDPROC + + PROCEDURE Cb_asigurator._cbbase1.InteractiveChange + *!* porec.id_marca = v_marci.id_marca + *!* DO update_masini IN update_devize.prg + Thisform.casig=This.Value + *!* If !Empty(Thisform.casig) + Thisform.nidasig = v_asiguratori.id_asigurator + *!* Endif + + Select v_inspectori + Set Filter To id_asigurator = v_asiguratori.id_asigurator + Go Top + Thisform.cinspector=inspector + Thisform.nidinsp=id_inspector + Thisform.cb_inspector._cbbase1.Requery + Thisform.cb_inspector._cbbase1.Refresh + ENDPROC + + PROCEDURE Cb_inspector._cbbase1.InteractiveChange + Lparameters cItem + *!* thisform.nidasig = v_asiguratori.id_asigurator + Thisform.cinspector=This.Value + Thisform.nidinsp = v_inspectori.id_inspector + ENDPROC + + PROCEDURE Cb_inspector._cbbase1.ProgrammaticChange + Thisform.cinspector=This.Value + Thisform.nidinsp = v_inspectori.id_inspector + ENDPROC + + PROCEDURE grdnorme.cSelectat.Check1.Click + Select v_norme + Thisform.nordine=Thisform.nordine+This.Value + Replace ales With This.Value,ordine With Thisform.nordine + Thisform.do_modifica_operatii(denop,id_norme,ales) + This.Parent.Parent.Refresh + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_interval_luni 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="" /> + + * + *p: ctip + * + + * + BindControls = .T. + ctip = + DoCreate = .T. + Height = 100 + Name = "frm_interval_luni" + Width = 338 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 338 + _SHAPE2.Height = 29 + _SHAPE2.Left = 274 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 71 + LB_TITLU_ALB_B121.Caption = "ALEGEI PERIOADA" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 4 + BUT_TERMIN1.Left = 306 + 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 = 277, ; + Name = "But_renunt1", ; + TabIndex = 3, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + 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 = "Perioada", ; + Lb_simplu1.Name = "Lb_simplu1", ; + tx_n2.ControlSource = "pcAnLuna2", ; + tx_n2.Name = "tx_n2" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + Local llReturn + pcAnLuna1=Padl(Alltrim(pcAnLuna1),6,'0') + pcAnLuna2=Padl(Alltrim(pcAnLuna2),6,'0') + Do Case + Case Empty(pcAnLuna1) Or Empty(Substr(pcAnLuna1,1,2)) + AMessagebox("Nu ati completat luna de inceput!",0+48,"Atentie") + Thisform.clb_data.tx_n1.SetFocus() + llReturn=.F. + Case Empty(pcAnLuna2) Or Empty(Substr(pcAnLuna2,1,2)) + AMessagebox("Nu ati completat luna de sfarsit!",0+48,"Atentie") + Thisform.clb_data.tx_n2.SetFocus() + llReturn=.F. + Otherwise + llReturn=.T. + Endcase + Return llReturn + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_interval_zile 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_perioada" UniqueID="" Timestamp="" /> + + * + *p: ctip + * + + * + BindControls = .T. + ctip = + DoCreate = .T. + Height = 100 + Name = "frm_interval_zile" + Width = 338 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = -1 + _SHAPE1.Width = 338 + _SHAPE2.Height = 29 + _SHAPE2.Left = 278 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = -1 + _SHAPE2.Width = 71 + LB_TITLU_ALB_B121.Caption = "ALEGEI PERIOADA" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 4 + BUT_TERMIN1.Left = 309 + 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 = 279, ; + Name = "But_renunt1", ; + TabIndex = 3, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_perioada' AS clb_n1n2_simplu WITH ; + Left = 24, ; + Name = "Clb_perioada", ; + TabIndex = 1, ; + Top = 48, ; + tx_n1.Alignment = 3, ; + tx_n1.ControlSource = "pdData1", ; + tx_n1.Name = "tx_n1", ; + tx_n1.Value = {}, ; + Lb_simplu1.Caption = "Perioada", ; + Lb_simplu1.Name = "Lb_simplu1", ; + tx_n2.Alignment = 3, ; + tx_n2.ControlSource = "pdData2", ; + tx_n2.Name = "tx_n2", ; + tx_n2.Value = {} + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + Local llReturn + Do Case + Case Empty(pdData1) + AMessagebox("Nu ati completat data de inceput!",0+48,"Atentie") + Thisform.clb_perioada.tx_n1.SetFocus() + llReturn=.F. + Case Empty(pdData2) + AMessagebox("Nu ati completat data de sfarsit!",0+48,"Atentie") + Thisform.clb_perioada.tx_n2.SetFocus() + llReturn=.F. + Otherwise + llReturn=.T. + Endcase + Return llReturn + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_nom_com 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="ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_validat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cTip_comanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cTip_comanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cSeries.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cSeries.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cOreFunctionare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gcliord.cOreFunctionare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbtip_deviz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_series" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + cbuton3 = cmd_modifica1 + cbuton4 = cmd_sterge1 + cbuton7 = cmd_executa1 + cgridsortlist = gcliord + DoCreate = .T. + Height = 469 + Name = "frm_nom_com" + Width = 775 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 780 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 741 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 34 + Lb_titlu_alb_b121.Caption = "SELECTATI COMANDA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 13 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 743 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 12 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'cbtip_deviz' AS ctip_deviz WITH ; + Anchor = 9, ; + Height = 27, ; + Left = 616, ; + Name = "cbtip_deviz", ; + TabIndex = 8, ; + Top = 164, ; + Width = 147, ; + _combobox1.FontCharSet = 1, ; + _combobox1.FontName = "Arial", ; + _combobox1.Height = 24, ; + _combobox1.Left = 1, ; + _combobox1.Name = "_combobox1", ; + _combobox1.Top = 2, ; + _combobox1.Width = 141 + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'ck_client' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 9, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + Left = 616, ; + Name = "ck_client", ; + TabIndex = 3, ; + Top = 60 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 9, ; + camp_nume = a.datai, ; + Caption = "Data comanda", ; + Left = 616, ; + Name = "ck_datai", ; + TabIndex = 4, ; + tip = D, ; + Top = 78 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 9, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. inmatriculare", ; + Left = 616, ; + Name = "ck_nrinmat", ; + TabIndex = 5, ; + Top = 95 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 9, ; + camp_nume = a.nrord, ; + Caption = "Nr. comanda", ; + Left = 616, ; + Name = "ck_nrord", ; + TabIndex = 2, ; + Top = 43 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_series' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 9, ; + camp_nume = a.series, ; + Caption = "Serie sasiu", ; + Left = 616, ; + Name = "ck_series", ; + TabIndex = 6, ; + Top = 112 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Height = 27, ; + Left = 617, ; + Name = "Cmd_cauta1", ; + TabIndex = 10, ; + Top = 269, ; + Width = 145 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Anchor = 12, ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'Cmd_modifica1' AS cmd_modifica WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 9, ; + AutoSize = .F., ; + Height = 27, ; + Left = 617, ; + Name = "Cmd_reset1", ; + TabIndex = 14, ; + Top = 298, ; + Width = 145 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_sterge1' AS cmd_sterge WITH ; + Anchor = 12, ; + AutoSize = .F., ; + Height = 27, ; + Left = 617, ; + Name = "Cmd_sterge1", ; + TabIndex = 15, ; + Top = 393, ; + Visible = .F., ; + Width = 145 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gcliord' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 7, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 420, ; + Left = 14, ; + Name = "gcliord", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "cliord", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 36, ; + Width = 586, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 80, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "nume", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cNume", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 169, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "IIF(TYPE('datai')=='D',datai,TTOD(datai))", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cDatai", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 87, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "tip_comanda", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cTip_comanda", ; + Column4.ReadOnly = .T., ; + Column4.Width = 78, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "kmint", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "RK", ; + Column5.InputMask = "999 999 999", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 71, ; + Column6.ColumnOrder = 5, ; + Column6.ControlSource = "series", ; + Column6.FontSize = 10, ; + Column6.Name = "cSeries", ; + Column6.ReadOnly = .T., ; + Column6.Width = 171, ; + Column7.ControlSource = "ore_functionare", ; + Column7.FontSize = 10, ; + Column7.Name = "cOreFunctionare", ; + Column7.ReadOnly = .T., ; + Column7.Width = 70 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gcliord.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gcliord.cDatai.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 'gcliord.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gcliord.cNrord.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 'gcliord.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gcliord.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., ; + SelectedBackColor = 100,185,255, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gcliord.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Km. la bord", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gcliord.Column5.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 'gcliord.cOreFunctionare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ore motor", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gcliord.cOreFunctionare.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 'gcliord.cSeries.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie sasiu", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gcliord.cSeries.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 'gcliord.cTip_comanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gcliord.cTip_comanda.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 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.gcliord, ; + Left = 588, ; + Name = "Gridextra1", ; + Top = 420 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Anchor = 9, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Tip comanda", ; + Left = 614, ; + Name = "Lb_simplu1", ; + TabIndex = 7, ; + Top = 146, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'opt_validat' AS _optiongrup WITH ; + Anchor = 9, ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 65, ; + Left = 621, ; + Name = "opt_validat", ; + TabIndex = 9, ; + Top = 199, ; + Value = 3, ; + Width = 99, ; + OPTION1.AutoSize = .F., ; + OPTION1.Caption = "Toate", ; + OPTION1.FontSize = 10, ; + OPTION1.Left = 7, ; + OPTION1.Name = "OPTION1", ; + OPTION1.Top = 5, ; + OPTION1.Value = 0, ; + OPTION2.AutoSize = .F., ; + OPTION2.Caption = "Validate", ; + OPTION2.FontSize = 10, ; + OPTION2.Left = 5, ; + OPTION2.Name = "OPTION2", ; + OPTION2.Top = 24, ; + Option3.AutoSize = .F., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Nevalidate", ; + Option3.FontSize = 10, ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Value = 1, ; + Option3.Width = 78 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE actualizeaza_grid1 + Lparameters tcFiltru + Local lcFiltru,lnRecNo + If Empty(tcFiltru) + lcFiltru = poordl.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Select cliord + lnRecNo=Recno() + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + save_grid_tag(Thisform.gcliord) + poordl.ca_baza1.cfiltru=lcFiltru + poordl.ca_baza1.afisare() + restore_grid_tag(Thisform.gcliord) + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + Thisform.gcliord.SetAll('DynamicFontItalic','IIF(validat=1,.T.,.F.)','Column') + Thisform.gcliord.SetAll('DynamicForeColor','IIF(validat=1,RGB(128,128,128),RGB(0,0,0))','Column') + Select cliord + *!* CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ; + *!* pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai + If Reccount('cliord')0 + Select cliord + Go lnRecNo + Endif + Thisform.Refresh + ENDPROC + + PROCEDURE do_cauta + *!* 24.08.2015 + *!* marius.mutu + *!* se afiseaza doar comenzile active (nearhivate) + + Local lcFiltru + Store .F. To llFMasini + Store '' To lcFiltru + *!* lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn)) + *!* lcFiltru = [extract(month from a.datafact) = ] + Alltrim(Str(gnLuna)) + [ and extract(year from a.datafact) = ]+Alltrim(Str(gnAn)) + lcFiltru = gcCondLuna + lcFiltru = lcFiltru + [ and a.inchis_fortat = 0 ] + If Thisform.ck_nrord.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_client.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_client.filtru + Endif + + If Thisform.ck_datai.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_series.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_series.filtru + Endif + + If Thisform.cbtip_deviz._combobox1.Value!='' + lcFiltru = lcFiltru + [ and a.id_tip = ] + Alltrim(Str(lista_tipuri.id_tip)) + Endif + + Do Case + Case Thisform.opt_validat.Value=2 + lcFiltru = lcFiltru + [ and a.validat=1 ] + Case Thisform.opt_validat.Value=3 + lcFiltru = lcFiltru + [ and a.validat=0 ] + Endcase + + Thisform.actualizeaza_grid1(lcFiltru) + + Select cliord + Go Top + If Reccount('cliord')=0 + AMessagebox("Cautarea nu a intors rezultate!",64,"Info cautare") + Thisform.ck_nrord.SetFocus() + Else + Thisform.gcliord.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_executa + Select cliord + Scatter Name ocomanda + + If ocomanda.Validat=0 + If Used('crs_comanda') + Use In crs_comanda + Endif + lcSel = [select * from ] + gcS + [.auto_date_suplimentare WHERE id_ordl=?ocomanda.id_ordl] + lcCursor = 'crs_comanda' + lnSucces = goExecutor.oExecute(lcSel,lcCursor) + If lnSucces < 0 + AMessagebox(goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Select crs_comanda + AddProperty(ocomanda,'id_partener',id_partener) + AddProperty(ocomanda,'marca',marca) + AddProperty(ocomanda,'id_marca',id_marca) + AddProperty(ocomanda,'masina',masina) + AddProperty(ocomanda,'inspector',inspector) + AddProperty(ocomanda,'asigurator',asigurator) + AddProperty(ocomanda,'kmint',kmint) + AddProperty(ocomanda,'ore_functionare',ore_functionare) + AddProperty(ocomanda,'observatii', '') + ocomanda.observatii = ALLTRIM(NVL(observatii,'')) + AddProperty(ocomanda,'defectiuni', '') + ocomanda.defectiuni = ALLTRIM(NVL(defectiuni,'')) + AddProperty(ocomanda,'solicitari_client', '') + ocomanda.solicitari_client = ALLTRIM(NVL(solicitari_client,'')) + + AddProperty(ocomanda,'termen',termen) + AddProperty(ocomanda,'series',series) + Use In crs_comanda + *!* modificare v 2.0.35 + If vizualizeaza_detalii_comanda(Thisform,ocomanda) + Select cliord + lnInreg = Recno() + Thisform.actualizeaza_grid1() + Go MAX(lnInreg,MIN(lnInreg,RECCOUNT('cliord'))) + Endif + *!* Do ccsectii in update_devize.prg + *!* Private pooper,pcschema1,pcselect1,plcomandam && .T. daca au fost facute modificari asupra comenzii + *!* Store '' To pooper + *!* plcomandam=.F. + *!* llAfiseaza=.F. + *!* pcschema1=[''] + *!* *!* modificare 27.01 + *!* pcselect1=['select * from ] + gcS + [.dev_voper where 1=2'] + *!* *!* modificare 09.06 + *!* *!* pcorder1=[validat desc,dataora,datai,denop,sectie] + *!* pcorder1=[datai,id_oper] + *!* *!* ^ + *!* pcfiltru1 = [id_ordl = ]+Alltrim(Str(ocomanda.id_ordl))+[ and ]+; + *!* [extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12] + *!* *!* pcselect1=['select * from ] + gcS + [.dev_voper where 1=2'] + *!* *!* pcorder1=[dataora,denop,sectie] + *!* *!* pcfiltru1 = [id_ordl = ]+Alltrim(Str(ocomanda.id_ordl))+[ and ]+; + *!* *!* [extract(month from dataora)+extract(year from dataora)*12<=?gnLuna+?gnAn*12] + *!* gencursor('pooper','oper',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) + *!* pooper.ca_baza1.afisare() + *!* &&,.f.,'','id_oper','demo.dev_oper','pret,timpn','id_oper dev_oper.id_oper,pret dev_oper.pret,timpn dev_oper.timpn','') + *!* *!* .UPDATENAMELIST = [KEYID Presidents.KeyID, LoginID Presidents.LoginID, ] ; + *!* *!* + [FIRSTNAME Presidents.FirstName, LASTNAME Presidents.LastName] + *!* *!* .CONVERSIONFUNC = [LoginID RTRIM, FirstName RTRIM, Lastname RTRIM] + *!* *!* pooper.ca_baza1.afisare() + *!* PRIVATE podevest,pcschema3,pcselect3 + *!* STORE '' TO podevest + *!* pcschema3=[''] + *!* pcselect3=['select * from ] + gcS + [.dev_vestimari_rep where 1=2'] + *!* pcorder3=[id_dev_estimare_rep] + *!* pcfiltru3 = [id_lucrare = ]+Alltrim(Str(ocomanda.id_lucrare)) + *!* gencursor('podevest','v_devizest',pcselect3,pcfiltru3,pcschema3,pcorder3,llAfiseaza) + *!* podevest.ca_baza1.afisare() + *!* + *!* Private porul,pcschema2,pcselect2 + *!* Store '' To porul + *!* *!* modificare v 2.0.22 + *!* *!* pcschema2=[''] + *!* *!* pcselect2=['select * from ] + gcS + [.vrul where 1=2'] + *!* pcschema2=['CODMAT c(50),DENUMIRE c(100),PRETV n(20,4),CANTE n(18,3),DATAACT D,ID_RUL n(20),COTA_DIFERITA n(1),TVA n(20,4)'] + *!* pcselect2=[select codmat,denumire,pretv,cante,dataact,id_rul,decode(proc_tvav,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0,1) as cota_diferita,] + ; + *!* [pack_sesiune.calculeaza_pret_tva(pretv,1,pack_def.GetIdMonedaNationala(),pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0) as tva ] + ; + *!* [from ] + gcS + [.vrul where 1=2'] + *!* *!* modificare v 2.0.22 ^ + *!* pcorder2=[dataact,id_rul] + *!* pcfiltru2 = [id_lucrare = ]+Alltrim(Str(ocomanda.id_lucrare))+[ and ]+; + *!* [luna+an*12<=?gnLuna+?gnAn*12] + *!* gencursor('porul','rul',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza) + *!* porul.ca_baza1.afisare() + *!* *!* Select rul + *!* *!* amessagebox("cante = " + Alltrim(Str(cante))+" pretv = "+ Alltrim(Str(pretv))) + *!* *!* amessagebox(Alltrim(Str(cante*pretv))) + *!* Thisform.AlwaysOnTop=.F. + *!* ooo = Createobject('frm_vizcomanda') + *!* ooo.Show(1) + *!* Thisform.AlwaysOnTop=.T. + *!* *!* modificare v 2.0.5 + *!* If Used('oper') + *!* Use In oper + *!* Endif + *!* If Used('rul') + *!* Use In rul + *!* Endif + *!* *!* modificare v 2.0.5 ^ + *!* If plcomandam + *!* Select cliord + *!* pnrec=Recno() + *!* Thisform.actualizeaza_grid1() + *!* Go pnrec + *!* Endif + *!* *!* Else + *!* *!* amessagebox("Comanda "+Alltrim(ocomanda.nrord)+" este validata.Nu este permisa modificarea ei!",0+16,"Operatiune nepermisa") + *!* Release ooo + *!* modificare v 2.0.35 ^ + Endif + Release ocomanda + ENDPROC + + PROCEDURE do_modifica + *!* If gnNivelUtilizator>1 + *!* Return + *!* Endif + Local ofrmtipcomanda As 'frm_tip_comanda' + Local lcSql, lcTextEroare, lnRecNo, lnSucces + PRIVATE ocomanda_mod, pnIdOrdl, pnIdTip, pnKmInt + + If Reccount('cliord') > 0 + Private pnbuton + pnbuton = 2 + Select cliord + lnRecNo = Recno() + Scatter Name ocomanda_mod + = cctipuri_deviz() + ofrmtipcomanda = Createobject('frm_tip_comanda') + ofrmtipcomanda.Show(1) + Use In (SELECT('crstipuri_deviz')) + + If pnbuton = 1 + *!* lcSql=[begin pack_auto.modifica_tip_comanda(']+ALLTRIM(gcS)+[',]+ALLTRIM(STR(ocomanda_mod.id_tip))+[,]+; + *!* ALLTRIM(STR(ocomanda_mod.id_ordl))+[,]+ALLTRIM(STR(gnIdUtil))+[); end;] + pnIdOrdl = ocomanda_mod.id_ordl + pnIdTip = ocomanda_mod.id_tip + pnKmInt = ocomanda_mod.kmint + pnOreFct = ocomanda_mod.ore_functionare + lcSql = [begin pack_auto.modifica_date_comanda(?pnIdOrdl, ?pnIdTip, ?pnKmInt, ?pnOreFct, ?gnIdUtil); end;] + + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + lcTextEroare = goExecutor.cEroare + AMessagebox(lcTextEroare, 0 + 16, "Modificare date comanda") + Else + Thisform.actualizeaza_grid1() + Select cliord + lnRecNo = Max(lnRecNo - 1, 1) + Go lnRecNo + Thisform.gcliord.SetFocus() + Endif + Endif + Release ofrmtipcomanda, ocomanda_mod + Endif + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.opt_validat.Value=3 + thisform.cbtip_deviz.do_reset() + + Thisform.ck_nrord.SetFocus() + ENDPROC + + PROCEDURE do_sterge + *!* If gnNivelUtilizator>1 + *!* Return + *!* Endif + If Reccount('cliord')>0 + If AMessagebox('Doriti sa stergeti comanda selectata?',4+32,"Stergere") # 6 + Return + Endif + Select cliord + lnRecNo=Recno() + Scatter Name ogcliord + lcSql = [begin pack_auto.dev_sterge_comanda('] + gcS + [',] + Alltrim(Str(gnIdUtil))+[,]+; + ALLTRIM(Str(ogcliord.id_ordl))+[,]+Alltrim(Str(ogcliord.id_lucrare))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMessagebox(goExecutor.oPrelucrareEroare(),0+16,"Stergere") + Else + AMessagebox("Comanda a fost stearsa!",0+64,"Info stergere") + Thisform.actualizeaza_grid1() + Select cliord + If Reccount('cliord')>0 + lnRecNo=Min(Reccount('cliord'),Max(lnRecNo-1,1)) && modificare v 2.0.15 + Go lnRecNo + Thisform.gcliord.SetFocus() + Else + Thisform.ck_nrord.SetFocus() + Endif + Endif + Release ogcliord + Else + AMessagebox("Nu sunt comenzi de sters in selectie!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + DODEFAULT(nStyle) + * Centrez fereastra si o fac 70% din ecran + lnHeight = _screen.Height + lnWidth = _screen.Width + This.Height = INT(0.7 * m.lnHeight) + this.Width = INT(0.7 * m.lnWidth) + this.AutoCenter = .T. + + this.gridextra1.setup() + + ENDPROC + + PROCEDURE gcliord.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + DoDefault() + Do Case + Case Validat=0 + Thisform.cmd_executa1.Enabled=.T. + Case Validat=1 + Thisform.cmd_executa1.Enabled=.F. + Endcase + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_tip_comanda 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="Cb_tip_comanda" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cb_kmint" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cb_orefct" UniqueID="" Timestamp="" /> + + * + *p: nid_tip + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 221 + Name = "frm_tip_comanda" + nid_tip = 0 + Width = 375 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape2.Height = 29 + _shape2.Left = 313 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 69 + Lb_titlu_alb_b121.Caption = "MODIFICARE DATE COMAND" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 345 + 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 = 315, ; + Name = "But_renunt1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cb_kmint' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "cb_kmint", ; + TabIndex = 2, ; + Top = 160, ; + Text_simplu1.ControlSource = "", ; + Text_simplu1.Format = "!RK", ; + Text_simplu1.InputMask = "999 999 999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .F., ; + Lb_simplu1.Caption = "Km. la bord", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cb_orefct' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "cb_orefct", ; + TabIndex = 3, ; + Top = 188, ; + Text_simplu1.ControlSource = "", ; + Text_simplu1.Format = "!RK", ; + Text_simplu1.InputMask = "999 999 999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .F., ; + Lb_simplu1.Caption = "Ore functionare", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tip_comanda' AS cb_tx_simplu WITH ; + Left = 42, ; + Name = "Cb_tip_comanda", ; + TabIndex = 1, ; + Top = 132, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "crstipuri_deviz.denumire,id_tip", ; + _cbbase1.RowSourceType = 6, ; + _lbbase1.Caption = "Tip comand", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_datai' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_datai", ; + TabIndex = 9, ; + Top = 104, ; + Text_simplu1.ControlSource = "ocomanda_mod.datai", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Dat comand", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nrord' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_nrord", ; + TabIndex = 8, ; + Top = 48, ; + Text_simplu1.ControlSource = "ocomanda_mod.nrord", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Comand", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nume' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_nume", ; + TabIndex = 7, ; + Top = 76, ; + Text_simplu1.ControlSource = "ocomanda_mod.nume", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Client", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + Private plReturn + Store .F. To plReturn + + SET STEP ON + If (ocomanda_mod.tip_comanda <> Thisform.cB_TIP_COMANDA._cbbase1.Value OR ocomanda_mod.kmint <> thisform.cb_kmint.text_simplu1.Value OR ocomanda_mod.ore_functionare <> thisform.cb_orefct.text_simplu1.Value) + If AMessagebox("Doriti sa salvati modificarea?",4+32,"Confirmare modificare date") = 6 + ocomanda_mod.id_tip = crstipuri_deviz.id_tip + ocomanda_mod.kmint = thisform.cb_kmint.text_simplu1.Value + ocomanda_mod.ore_functionare = thisform.cb_orefct.text_simplu1.Value + plReturn=.T. + Endif + Else + AMessagebox("Nu ati facut nici o modificare!",0+64,"Info modificare") + Endif + Return plReturn + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.nid_tip=ocomanda_mod.id_tip + Select crstipuri_deviz + Locate For id_tip=ocomanda_mod.id_tip + Thisform.cb_TIP_COMANDA._cbbase1.Value=Alltrim(denumire) + thisform.cb_kmint.text_simplu1.Value = ocomanda_mod.kmint + thisform.cb_orefct.text_simplu1.Value = ocomanda_mod.ore_functionare + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_vizcomanda 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="Seip4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cDenop.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cDenop.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cTimpn.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cTimpn.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cPret.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cPret.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cSectie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cSectie._CBBASE1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Grid1.cValidat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Cmd_adauga1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Cmd_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page1.Cmd_executa1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cCant.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cCant.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cPret.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cPret.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page2.Grid2.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Cmd_adauga1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cCodmat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cCodmat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cUm.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cUm.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cCantitate.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cCantitate.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cPretctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cPretctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cPretftva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cPretftva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cCotatva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cCotatva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Grid3.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Text10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Text11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Text12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="p.Page3.Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_modifica" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_data" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra3" UniqueID="" Timestamp="" /> + + * + *m: activeaza_validare + *m: actualizeaza_grid3 + *m: do_adauga_devizest + *m: do_calcul + *m: do_calculdevizest + *m: do_modificacom + *m: do_validare + *p: lcomandavalidata + *p: lsalvat + *p: lvalidat + *p: nid_pret + *p: nid_sectie + *p: npretinitial + *p: npretmodificat + *p: ntimpninitial + *p: ntimpnmodificat + *p: tart + *p: tman + *p: totalman + *p: totalmat + *p: totalore + *p: totctva + *p: totftva + *p: tva + *p: tvalftva + *p: tvaloare + *p: tvaltva + * + + * + DoCreate = .T. + Height = 474 + lactiv2 = .T. + lactiv4 = .T. + lsalvat = .T. + lvalidat = .T. + Name = "frm_vizcomanda" + nid_pret = 0 + nid_sectie = 0 + npretinitial = 0.00 + npretmodificat = 0.00 + ntimpninitial = 0.000 + ntimpnmodificat = 0.000 + tart = 0.00 + tman = 0.00 + totalman = 0 + totalmat = 0 + totalore = 0 + totctva = 0 + totftva = 0 + tva = 0 + tvalftva = 0.00 + tvaloare = 0.00 + tvaltva = 0.00 + Width = 788 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 725 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 70 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "COMANDA NR." + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.FontName = "Arial" + Lb_titlu_alb_b121.Height = 22 + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.Top = 5 + Lb_titlu_alb_b121.Width = 117 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 758 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 728, ; + Name = "But_listare1", ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_modifica' AS cmd_modifica WITH ; + Anchor = 12, ; + caction = do_modificacom, ; + Caption = "\ + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = thisform.p.page1.grid1, ; + Left = 336, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridextra2' AS gridextra WITH ; + allowgridfilter = .T., ; + gridexpression = thisform.p.page2.grid2, ; + Left = 372, ; + Name = "Gridextra2", ; + productname = ROA, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridextra3' AS gridextra WITH ; + allowgridfilter = .T., ; + gridexpression = thisform.p.page3.grid3, ; + Left = 408, ; + Name = "Gridextra3", ; + productname = ROA, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Label10' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 424, ; + Name = "Label10", ; + Top = 422, ; + Width = 27, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 424, ; + Name = "Label11", ; + Top = 445, ; + Width = 77, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total materiale", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 149, ; + Name = "Label3", ; + Top = 445, ; + Width = 87, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total manoper", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 149, ; + Name = "Label5", ; + Top = 400, ; + Width = 91, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total ore", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 149, ; + Name = "Label6", ; + Top = 422, ; + Width = 52, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackColor = 255,255,255, ; + Caption = "TOTAL COMAND:", ; + FontBold = .T., ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 24, ; + Name = "Label8", ; + Top = 385, ; + Width = 119, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total fr TVA", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 424, ; + Name = "Label9", ; + Top = 400, ; + Width = 84, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_client' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "CLIENT:", ; + FontBold = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Height = 18, ; + Left = 12, ; + Name = "lb_client", ; + Top = 36, ; + Width = 52, ; + ZOrderSet = 22 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_data' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "DATA :", ; + FontBold = .T., ; + FontName = "Arial", ; + ForeColor = 255,255,255, ; + Height = 17, ; + Left = 605, ; + Name = "lb_data", ; + Top = 7, ; + Width = 39, ; + ZOrderSet = 23 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'p' AS pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 326, ; + Left = 10, ; + Name = "p", ; + PageCount = 3, ; + TabStyle = 0, ; + Top = 60, ; + Width = 768, ; + ZOrderSet = 6, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "Manoper", ; + Page1.FontBold = .T., ; + Page1.FontCharSet = 238, ; + Page1.FontSize = 10, ; + Page1.Name = "Page1", ; + Page2.BackColor = 255,255,255, ; + Page2.Caption = "Materiale", ; + Page2.FontCharSet = 238, ; + Page2.FontItalic = .T., ; + Page2.FontSize = 10, ; + Page2.Name = "Page2", ; + Page3.BackColor = 255,255,255, ; + Page3.Caption = "Deviz estimativ", ; + Page3.FontCharSet = 238, ; + Page3.FontItalic = .T., ; + Page3.FontSize = 10, ; + Page3.Name = "Page3" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'p.Page1.Cmd_adauga1' AS cmd_adauga WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 668, ; + Name = "Cmd_adauga1", ; + Top = 41, ; + Width = 84 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'p.Page1.Cmd_executa1' AS cmd_executa WITH ; + Anchor = 8, ; + caction = do_validare, ; + Caption = "\ + + ADD OBJECT 'p.Page1.Cmd_sterge1' AS cmd_sterge WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 668, ; + Name = "Cmd_sterge1", ; + Top = 79, ; + Width = 84 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'p.Page1.Grid1' AS grid WITH ; + Anchor = 15, ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontSize = 10, ; + HeaderHeight = 19, ; + Height = 264, ; + Left = 10, ; + Name = "Grid1", ; + Panel = 1, ; + RecordSource = "oper", ; + RowHeight = 19, ; + TabIndex = 1, ; + Top = 20, ; + Width = 649, ; + ZOrderSet = 12, ; + Column1.ControlSource = "denop", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cDenop", ; + Column1.ReadOnly = .T., ; + Column1.Width = 188, ; + Column2.ControlSource = "timpn", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.InputMask = "999.99", ; + Column2.Name = "cTimpn", ; + Column2.ReadOnly = .F., ; + Column2.Width = 76, ; + Column3.ControlSource = "oper.pret", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Format = "R", ; + Column3.InputMask = (get_mask(12,gnPPretV)), ; + Column3.Name = "cPret", ; + Column3.ReadOnly = .F., ; + Column4.ControlSource = "oper.timpn*oper.pret", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Format = "R", ; + Column4.InputMask = (get_mask(12,gnPc)), ; + Column4.Name = "cValoare", ; + Column4.ReadOnly = .T., ; + Column4.Width = 87, ; + Column5.ControlSource = "sectie", ; + Column5.CurrentControl = "_CBBASE1", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cSectie", ; + Column5.Sparse = .F., ; + Column5.Width = 141, ; + Column6.BackColor = 253,252,223, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "oper.validat", ; + Column6.CurrentControl = "Check1", ; + Column6.DynamicBackColor = "rgb(253,252,223)", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cValidat", ; + Column6.Sparse = .F., ; + Column6.Width = 45 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'p.Page1.Grid1.cDenop.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire operatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page1.Grid1.cDenop.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 'p.Page1.Grid1.cPret.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page1.Grid1.cPret.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 'p.Page1.Grid1.cSectie._CBBASE1' AS _cbbase WITH ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + Left = 60, ; + Name = "_CBBASE1", ; + ReadOnly = .F., ; + RowSource = "v_nom_sectii.sectie,id_sectie", ; + RowSourceType = 6, ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\_cb_base.vcx" BaseClass="combobox" /> + + ADD OBJECT 'p.Page1.Grid1.cSectie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectia", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page1.Grid1.cTimpn.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Timp normat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page1.Grid1.cTimpn.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 'p.Page1.Grid1.cValidat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Enabled = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 10, ; + Name = "Check1", ; + ReadOnly = .F., ; + SpecialEffect = 1, ; + Top = 35, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'p.Page1.Grid1.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page1.Grid1.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page1.Grid1.cValoare.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 'p.Page2.Grid2' AS grid WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 264, ; + Left = 10, ; + Name = "Grid2", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "rul", ; + RowHeight = 19, ; + Top = 20, ; + Width = 725, ; + ZOrderSet = 15, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cDenumire", ; + Column1.ReadOnly = .T., ; + Column1.Width = 416, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "cante", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.InputMask = (get_mask(12,gnPCant)), ; + Column2.Name = "cCant", ; + Column2.ReadOnly = .T., ; + Column2.Width = 79, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "pretv", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Format = "R", ; + Column3.InputMask = (get_mask(12,gnPPretV)), ; + Column3.Name = "cPret", ; + Column3.ReadOnly = .T., ; + Column3.Width = 99, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "ROUND(rul.pretv*rul.cante,gnPc)", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Format = "R", ; + Column4.InputMask = (get_mask(12,gnPc)), ; + Column4.Name = "cValoare", ; + Column4.ReadOnly = .T., ; + Column4.Width = 93, ; + Column5.ColumnOrder = 2, ; + Column5.ControlSource = "codmat", ; + Column5.FontSize = 10, ; + Column5.Name = "Column1", ; + Column5.ReadOnly = .T. + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'p.Page2.Grid2.cCant.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cant.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page2.Grid2.cCant.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 'p.Page2.Grid2.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page2.Grid2.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. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'p.Page2.Grid2.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod mat.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page2.Grid2.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 'p.Page2.Grid2.cPret.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page2.Grid2.cPret.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 'p.Page2.Grid2.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page2.Grid2.cValoare.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 'p.Page3.Cmd_adauga1' AS cmd_adauga WITH ; + Anchor = 8, ; + caction = do_adauga_devizest, ; + Height = 27, ; + Left = 670, ; + Name = "Cmd_adauga1", ; + Top = 41, ; + Width = 84 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'p.Page3.Grid3' AS grid WITH ; + Anchor = 15, ; + ColumnCount = 8, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 192, ; + Left = 10, ; + Name = "Grid3", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_devizest", ; + RowHeight = 19, ; + Top = 20, ; + Width = 651, ; + ZOrderSet = 15, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cDenumire", ; + Column1.ReadOnly = .T., ; + Column1.Width = 216, ; + Column2.ControlSource = "cod", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cCodmat", ; + Column2.ReadOnly = .T., ; + Column2.Width = 53, ; + Column3.ControlSource = "um", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cUm", ; + Column3.ReadOnly = .T., ; + Column3.Width = 40, ; + Column4.ControlSource = "cantitate", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.InputMask = (get_mask(12,gnPCant)), ; + Column4.Name = "cCantitate", ; + Column4.ReadOnly = .T., ; + Column4.Width = 52, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "pretctva", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "R", ; + Column5.InputMask = (get_mask(12,gnPPretV)), ; + Column5.Name = "cPretctva", ; + Column5.ReadOnly = .T., ; + Column5.Width = 56, ; + Column6.ColumnOrder = 5, ; + Column6.ControlSource = "pretftva", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPPretV)), ; + Column6.Name = "cPretftva", ; + Column6.ReadOnly = .T., ; + Column6.Width = 71, ; + Column7.ControlSource = "cota_tva", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "cCotatva", ; + Column7.ReadOnly = .T., ; + Column7.Width = 58, ; + Column8.ControlSource = "valoare", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "R", ; + Column8.InputMask = (get_mask(12,gnPc)), ; + Column8.Name = "cValoare", ; + Column8.ReadOnly = .T., ; + Column8.Width = 55 + *< END OBJECT: BaseClass="grid" /> + + ADD OBJECT 'p.Page3.Grid3.cCantitate.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cCantitate.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 'p.Page3.Grid3.cCodmat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cCodmat.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 'p.Page3.Grid3.cCotatva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Proc TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cCotatva.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 'p.Page3.Grid3.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cDenumire.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 'p.Page3.Grid3.cPretctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret cu tva", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cPretctva.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 'p.Page3.Grid3.cPretftva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret fara tva", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cPretftva.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 'p.Page3.Grid3.cUm.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Um", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cUm.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 'p.Page3.Grid3.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'p.Page3.Grid3.cValoare.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 'p.Page3.Label10' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "TVA", ; + FontSize = 10, ; + Height = 18, ; + Left = 442, ; + Name = "Label10", ; + Top = 241, ; + Width = 27, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'p.Page3.Label11' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total cu TVA", ; + FontSize = 10, ; + Height = 18, ; + Left = 442, ; + Name = "Label11", ; + Top = 266, ; + Width = 77, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'p.Page3.Label3' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total materiale", ; + FontSize = 10, ; + Height = 18, ; + Left = 185, ; + Name = "Label3", ; + Top = 266, ; + Width = 87, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'p.Page3.Label5' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total manoper", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 185, ; + Name = "Label5", ; + Top = 241, ; + Width = 91, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'p.Page3.Label9' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total fr TVA", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 442, ; + Name = "Label9", ; + Top = 216, ; + Width = 84, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'p.Page3.Text10' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "thisform.tvaloare", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 529, ; + Name = "Text10", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 264, ; + Width = 132, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'p.Page3.Text11' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "thisform.tman", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 285, ; + Name = "Text11", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 239, ; + Width = 132, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'p.Page3.Text12' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "thisform.tart", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 285, ; + Name = "Text12", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 264, ; + Width = 132, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'p.Page3.Text3' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "thisform.tvalftva", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 529, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 214, ; + Width = 132, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'p.Page3.Text5' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "thisform.tvaltva", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 529, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 239, ; + Width = 132, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Seip4' AS _shape WITH ; + Anchor = 14, ; + BackStyle = 0, ; + Height = 74, ; + Left = 15, ; + Name = "Seip4", ; + Top = 393, ; + Width = 765, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTALMAN", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 246, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 396, ; + Width = 132, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTALORE", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,2)), ; + Left = 246, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 418, ; + Width = 132, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTALMAt", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 246, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 441, ; + Width = 132, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text7' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTFTVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 508, ; + Name = "Text7", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 396, ; + Width = 132, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text8' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 508, ; + Name = "Text8", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 418, ; + Width = 132, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text9' AS textbox WITH ; + Anchor = 12, ; + BackStyle = 1, ; + ControlSource = "THISFORM.TOTCTVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "R", ; + Height = 22, ; + InputMask = (get_mask(12,gnPc)), ; + Left = 508, ; + Name = "Text9", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 441, ; + Width = 132, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE activeaza_validare + If Thisform.nselectate!=Reccount('oper') + Thisform.p.page1.cmd_executa1.Enabled=.T. + Else + Thisform.p.page1.cmd_executa1.Enabled=.F. + Endif + ENDPROC + + PROCEDURE actualizeaza_grid1 + With Thisform.p.page1 + Thisform.LockScreen=.T. + Thisform.MousePointer=11 + save_grid_tag(.grid1) + pooper.ca_baza1.afisare() + restore_grid_tag(.grid1) + Thisform.MousePointer= 0 + Thisform.LockScreen=.F. + + Thisform.do_calcul + + If Reccount('oper')>0 AND thisform.p.page1.cmd_adauga1.visible + If Used('crsvalidate') + Use In crsvalidate + Endif + Select Sum(Validat) As nrvalidate From oper Into Cursor crsvalidate + Select crsvalidate + lnValidate=nrvalidate + Use In crsvalidate + + Thisform.nselectate=lnValidate + .cmd_sterge1.Enabled=.T. + If lnValidate0 + Select rul + Scan + Thisform.totalmat=Thisform.totalmat+Round(Pretv*cante,gnPc) + lnTVAMateriale = lnTVAMateriale + ROUND(tva*cante,gnPc) && modificare v 2.0.22 + Endscan + Go Top + Endif + *!* SET STEP ON + If Reccount('oper')>0 + Select oper + lnRecNo=Recno() + Scan + Thisform.totalman=Thisform.totalman+Round(timpn*Pret,gnPc) + Thisform.totalore=Thisform.totalore+timpn + Endscan + Go lnRecNo + Endif + + Thisform.totftva=Thisform.totalman+Thisform.totalmat + *!* modificare v 2.0.22 + *!* Thisform.tva=Round(Thisform.totalmat*(lnCtvaM-1),gnPc)+Round(Thisform.totalman*(lnCtvaM-1),gnPc) + *!* modificare v 2.0.35 am inlocuit lnCtvaM cu ocomanda.proc_tvav + Thisform.tva=IIF(glAutoBonDet,lnTVAMateriale,Round(Thisform.totalmat*(ocomanda.proc_tvav-1),gnPc))+Round(Thisform.totalman*(ocomanda.proc_tvav-1),gnPc) + *!* modificare v 2.0.22 ^ + Thisform.totctva=Thisform.totftva+Thisform.tva + + + *!* *!* LOCAL SECT + *!* *!* SECT='.T.' + *!* *!* IF !(THISFORM.P.PAGE1.CMDLIST1.CAPTION='MODIFICARE' OR M.SECTIE='SUPERVIZOR') + *!* *!* SECT='ALLT(M.SECTIE)=ALLT(SECTIE)' + *!* *!* ENDIF + *!* *!* SELE oper + *!* *!* M=RECCOUNT()+2 + *!* OP=Crea('PROGRESBAR') + *!* OP.titlu.Caption='Se calculeaza datele...' + *!* OP.Show() + + *!* *!* j=0 + *!* *!* DO PR WITH j + + *!* *!* SELE oper + *!* *!* SET FILTER TO nrord=m.nrord AND &SECT + *!* *!* DO PR WITH j + + *!* *!* SELE oper + *!* *!* SCAN FOR nrord=m.nrord AND &SECT + *!* *!* THISFORM.totalman=THISFORM.totalman+timpn*pret + *!* *!* THISFORM.totalore=THISFORM.totalore+timpn + *!* *!* DO PR WITH j + + *!* *!* ENDSCAN + *!* *!* *sum timpn*pret,timpn to thisform.totalman,thisform.totalore for nrord=m.nrord AND &SECT + *!* *!* SELE oper + *!* *!* GO TOP + *!* *!* OP.RELEASE + + Thisform.text4.Refresh + Thisform.text5.Refresh + Thisform.text6.Refresh + Thisform.text7.Refresh + Thisform.text8.Refresh + Thisform.text9.Refresh + ENDPROC + + PROCEDURE do_calculdevizest + Local lnRecNo + Store 0 To Thisform.tvalftva ,Thisform.tvaltva,Thisform.tvaloare,thisform.tman,thisform.tart + + + If Reccount('v_devizest')>0 + Select v_devizest + lnRecNo=Recno() + SUM(valftva) to thisform.tvalftva + SUM(valtva) to thisform.tvaltva + SUM(valoare) to thisform.tvaloare + SUM(valftva) to thisform.tman for !ISNULL(id_norme) + thisform.tart = thisform.tvalftva - thisform.tman + Go lnRecNo + ENDIF + + thisform.p.pAGE3.text3.Refresh + thisform.p.paGE3.text5.Refresh + thisform.p.paGE3.text10.Refresh + thisform.p.paGE3.text11.Refresh + thisform.p.paGE3.text12.Refresh + + + + + + ENDPROC + + PROCEDURE do_listare + *!* 19.08.2014 + *!* marius.mutu + *!* adaugat campul UM pe listare deviz estimativ + + If Thisform.p.ActivePage<>3 + *!* modificare v 2.0.35 + listare_comanda_deviz(Thisform,ocomanda,IIF(INLIST(ocomanda.id_tip,3,6),2,1)) + *!* If Reccount('oper')>0 Or Reccount('rul')>0 + *!* If Thisform.lcomandavalidata + *!* *!* pcschema=['ID_ORDL n(10),CODOP c(10),TIMPN n(9,3),PRET n(20,4),VALIDAT n(1),DENOP c(100),SECTIE c(30)'] + *!* *!* pcselect=['select id_ordl,codop,timpn,pret,validat,denop,sectie from ] + gcS + [.dev_voper where 1=2'] + *!* *!* pcorder=[sectie,denop] + *!* *!* pcfiltru=[id_ordl = ]+Alltrim(Str(ocomanda.id_ordl)) + *!* *!* llAfiseaza=.F. + *!* *!* gencursor('pooper','oper',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + *!* *!* pooper.ca_baza1.afisare() + *!* *!* pcschema=['CODMAT c(50),DENUMIRE c(100),PRETV n(20,4),CANTE n(18,3)'] + *!* *!* pcselect=['select codmat,denumire,pretv,cante from ] + gcS + [.vrul where 1=2'] + *!* *!* pcorder=[denumire] + *!* *!* pcfiltru=[id_lucrare = ]+Alltrim(Str(ocomanda.id_lucrare)) + *!* *!* llAfiseaza=.F. + *!* *!* gencursor('porul','rul',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + *!* *!* porul.ca_baza1.afisare() + *!* *!* If Reccount('oper')>0 Or Reccount('rul')>0 + *!* Private pdDataora,pcdataora,pntotaltn,pntotalval,pofirma,pcschema,pcselect,pcorder,pcfiltru + *!* Store '' To pofirma,pcschema,pcselect,pcorder,pcfiltru + *!* If Used('crsFirma') + *!* Use In crsfirma + *!* Endif + *!* lcSql = [select localitate,strada,numar,cod_fiscal,reg_comert from syn_nom_firme ] + ; + *!* [where id_firma = ?gnIdFirma] && modificare v 2.0.29 : am inlocuit gnId_Firma + *!* lnSucces=goExecutor.oExecute(lcSql,[crsfirma]) + *!* If lnSucces<0 + *!* AMessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Sele crsfirma + *!* Scatter Name firma + *!* Use In crsfirma + *!* If Used('crslistare') + *!* Use In crslistare + *!* Endif + *!* lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,] + ; + *!* [a.banca,a.cont_banca,a.adresa,a.nr_dosar,a.reg_comert,a.tip_persoana,] + ; + *!* [b.nrinmat,b.series,b.seriem,b.culoare,b.kmint,b.marca,b.masina ] + ; + *!* [from ] + gcS + [.dev_vordl a ] + ; + *!* [left join ] + gcS + [.dev_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + *!* [where a.id_ordl = ?ocomanda.id_ordl] + *!* lnSucces=goExecutor.oExecute(lcSql,'crslistare') + *!* If lnSucces<0 + *!* AMessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Select crslistare + *!* Scatter Name olistare Memo + *!* Use In crslistare + *!* pcdataora=get_ora(2) + *!* pdDataora=Ttod(Ctot(pcdataora)) + *!* *!* modificare 27.07 + *!* Select rul + *!* *!* modificare v 2.0.22 : am adaugat tva + *!* Calculate Sum(Round(cante*pretv,gnPc)),Sum(Round(cante*tva,gnPc)) To pnTotalMatDeviz,pnTotalTVAMatDeviz + *!* Select oper + *!* Calculate Sum(Round(timpn*Pret,gnPc)) To pnTotalManDeviz + *!* pnTotalTvaDeviz=Iif(glAutoBonDet,pnTotalTVAMatDeviz,Round(pnTotalMatDeviz*(m.ctvam-1),gnPa))+Round(pnTotalManDeviz*(m.ctvam-1),gnPa) + *!* *!* + *!* Use In (Select('crsRulCumulat')) + *!* Select codmat,denumire,Sum(cante) As cante,pretv As Pret,Min(dataact) As dataact,Min(id_rul) As id_rul ; + *!* From rul Group By codmat,denumire,pretv ; + *!* INTO Cursor crsRulCumulat + *!* Select olistare.nrord As nrord,'A' As semn,codmat,denumire,cante,Pret,dataact As Data,id_rul As Id From crsRulCumulat ; + *!* WHERE cante <> 0 ; + *!* UNION All; + *!* SELECT olistare.nrord As nrord,'B' As semn,codop As codmat,denop As denumire,timpn As cante,Pret,datai As Data,id_oper As Id ; + *!* From oper Order By 2,7,8 Into Cursor crslistare + *!* Use In (Select('crsRulCumulat')) + *!* If Used('crslistare') + *!* Thisform.AlwaysOnTop=.F. + *!* Select crslistare + *!* *!* modificare MIX 07.09.2007 + *!* *!* *!* modificare 09.08.2006 + *!* *!* Locate For Like('MIX*',denumire) And semn=='A' + *!* *!* If Found() + *!* *!* Calculate Sum(Round(cante*Pret,gnPc)),Max(Recno()) To lnSumaMix,lnNrCrt For Like('MIX*',denumire) And semn='A' + *!* *!* If Used('crslistare2') + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* Select Recno() As nrcrtord,* From crslistare Where !(Like('MIX*',denumire) And semn='A') Into Cursor crslistare2 Readwrite + *!* *!* Select crslistare2 + *!* *!* Append Blank + *!* *!* Replace codmat With '',denumire With 'MIX',semn With 'A',Pret With lnSumaMix,cante With 1,nrcrtord With lnNrCrt,nrord With olistare.nrord + *!* *!* Use In crslistare + *!* *!* Select * From crslistare2 Into Cursor crslistare Order By nrcrtord + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* Select crslistare + *!* *!* Go Top + *!* *!* *!* modificare 09.08.2006 + *!* *!* modificare MIX 07.09.2007 ^ + *!* *!* If gnTip_LPrecomanda = 1 && cu tipizate + *!* *!* Report Form _deviz To Printer Prompt Preview + *!* *!* Else + *!* *!* 26.07.2006 + *!* *!* MARIUS MUTU + *!* *!* Report Form rap_deviz To Printer Prompt Preview + *!* *!* modificare v 2.0.5 + *!* *!* Do LISTAREUSERREPORT With "crsListare", "FRX", "RAP_DEVIZ" In PROCEDURI_RAPOARTE.PRG + *!* goExport.export2frx([crslistare],[rap_deviz]) + *!* *!* modificare v 2.0.5 ^ + *!* *!* 26.06.2006 + *!* *!* Endif + *!* Thisform.AlwaysOnTop=.T. + *!* Use In crslistare + *!* *!* Endif + *!* Endif + *!* Else + *!* Private pcdataora,pdDataora,pntotaltn,pntotalval + *!* If Used('crslistare') + *!* Use In crslistare + *!* Endif + + *!* lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,a.nr_dosar,] + ; + *!* [b.nrinmat,b.series,b.seriem,b.culoare,b.kmint,b.marca,b.masina ] + ; + *!* [from ] + gcS + [.dev_vordl a ] + ; + *!* [left join ] + gcS + [.dev_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + *!* [where a.id_ordl=] + Alltrim(Str(ocomanda.id_ordl)) + *!* lnSucces=goExecutor.oExecute(lcSql,'crslistare') + *!* If lnSucces<0 + *!* AMessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Select crslistare + *!* Scatter Name olistare + *!* Use In crslistare + + + *!* *!* modificare 27.07 + *!* Select rul + *!* *!* modificare v 2.0.22 : am adaugat tva + *!* Calculate Sum(Round(cante*pretv,gnPc)),Sum(Round(cante*tva,gnPc)) To pnTotalMatDeviz,pnTotalTVAMatDeviz + + *!* Select oper + *!* Calculate Sum(Round(timpn*Pret,gnPc)) To pnTotalManDeviz + *!* pnTotalTvaDeviz=Iif(glAutoBonDet,pnTotalTVAMatDeviz,Round(pnTotalMatDeviz*(m.ctvam-1),gnPa))+Round(pnTotalManDeviz*(m.ctvam-1),gnPa) + *!* *!* + + *!* pcdataora=get_ora(2) + *!* pdDataora=Ttod(Ctot(pcdataora)) + *!* Select olistare.nrord As nrord,'A' As semn,codmat,denumire,cante,pretv As Pret,dataact As Data,id_rul As Id From rul ; + *!* UNION All; + *!* SELECT olistare.nrord As nrord,'B' As semn,codop As codmat,denop As denumire,timpn As cante,Pret,datai As Data,id_oper As Id ; + *!* From oper Order By 2,7,8 Into Cursor crslistare + + *!* If Used('crslistare') + *!* Thisform.AlwaysOnTop=.F. + *!* Select crslistare + *!* *!* modificare v 2.0.5 + *!* *!* Do LISTAREUSERREPORT With "crsListare", [FRX], "RAP_COMANDA" In PROCEDURI_RAPOARTE.PRG + *!* goExport.export2frx([crslistare],[rap_comanda]) + *!* *!* modificare v 2.0.5 ^ + *!* *!* REPORT FORM rap_comanda TO PRINTER PROMPT PREVIEW + *!* Thisform.AlwaysOnTop=.T. + *!* Use In crslistare + *!* Endif + *!* Endif + *!* Else + *!* AMessagebox("Nu exista manopera si materiale pe aceasta comanda!",0+48,"Atentie") + *!* Endif + *!* modificare v 2.0.35 ^ + *!* sec n(1) + *!* semn=a >> din rul;b >> din oper + *!* codmat,denumire,cante,pretv,semn,sectie din rul + *!* codop,denop,timpn,pret,semn,sectie din oper + + + Else + If Reccount('v_devizest')>0 + + Private pdDataora,pcdataora,pntotaltn,pntotalval,pofirma,pcschema,pcselect,pcorder,pcfiltru,pnTotalTva,pnTotalGen + Store '' To pofirma,pcschema,pcselect,pcorder,pcfiltru + + If Used('crsFirma') + Use In crsfirma + Endif + lcSql = [select localitate,strada,numar,cod_fiscal,reg_comert from syn_nom_firme ] + ; + [where id_firma = ?gnIdFirma] && modificare v 2.0.29 : am inlocuit gnId_Firma + if !goExecutor.oExecuta(lcSql,[crsfirma]) + Return + Endif + + Sele crsfirma + Scatter Name firma + Use In crsfirma + + If Used('crslistare') + Use In crslistare + Endif + *!* modificare v 2.0.37 : am pus a.kmint in loc de b.kmint + lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,] + ; + [a.banca,a.cont_banca,a.adresa,a.nr_dosar,a.reg_comert,a.tip_persoana,] + ; + [b.nrinmat,b.series,b.seriem,b.culoare,a.kmint,b.marca,b.masina ] + ; + [from ] + gcS + [.auto_vordl a ] + ; + [left join ] + gcS + [.auto_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + [where a.id_ordl = ?ocomanda.id_ordl] + if !goExecutor.oExecuta(lcSql,'crslistare') + Return + Endif + Select crslistare + Scatter Name olistare Memo + Use In crslistare + + pcdataora=get_ora(2) + pdDataora=Ttod(Ctot(pcdataora)) + + + Select olistare.nrord As nrord,Iif(!Isnull(id_norme),'B','A') As semn,cod,denumire,um,cantitate,pretftva,valftva,id_dev_estimare_rep From v_devizest; + Order By 2,8 Into Cursor crslistare + + pnTotalTva = This.tvaltva + pnTotalGen = This.tvaloare + + If Used('crslistare') + Thisform.AlwaysOnTop=.F. + Select crslistare + + goExport.export2frx([crslistare],[rap_devizest],.F., , , , , .T.) && modificare v 2.1.9 + Thisform.AlwaysOnTop=.T. + Use In crslistare + Endif + + Else + AMessagebox("Nu exista manopera si materiale pe aceasta comanda!",0+48,"Atentie") + Endif + Endif + + ENDPROC + + PROCEDURE do_modifica + Lparameters tnColoana + Local lcNumeCamp,lcValoareNoua + If Empty(tnColoana) + Return + Endif + Thisform.lsalvat=.T. + Select oper + pnid_oper=id_oper + Do Case + Case tnColoana=1 + lcNumeCamp=[TIMPN] + lcValoareInitiala=Alltrim(Str(Thisform.ntimpninitial,9,3)) + lcValoareNoua=Alltrim(Str(Thisform.ntimpnmodificat,9,3)) + *!* If Thisform.ntimpnmodificat<0 + *!* amessagebox("Timpul normat nu poate fi negativ!",0+48,"Atentie") + *!* lcSql2=[UPDATE OPER SET ]+lcNumeCamp+[=]+lcValoareInitiala+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + *!* &lcSql2 + *!* lcColoana=[thisform.p.page1.grid1.c]+lcNumeCamp + *!* loColoana=&lcColoana + *!* loColoana.text1.Refresh() + *!* Thisform.lvalidat=.F. + *!* Return + *!* Endif + Case tnColoana=2 + lcNumeCamp=[PRET] + lcValoareInitiala=Alltrim(Str(Thisform.npretinitial,20,4)) + lcValoareNoua=Alltrim(Str(Thisform.npretmodificat,20,4)) + If Thisform.npretmodificat<0 + amessagebox("Pretul nu poate fi negativ!",0+48,"Atentie") + IF gnLunaRon+GnAnROn*12<= gnLuna+gnAn*12 + lcSql2=[UPDATE OPER SET ]+lcNumeCamp+[=]+lcValoareInitiala+[,NOU = 1 WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + ELSE + lcSql2=[UPDATE OPER SET ]+lcNumeCamp+[=]+lcValoareInitiala+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + ENDIF + + &lcSql2 + lcColoana=[thisform.p.page1.grid1.c]+lcNumeCamp + loColoana=&lcColoana + loColoana.text1.Refresh() + Thisform.lvalidat=.F. + Return + Endif + Endcase + *!* modificare 27.01 + lcSql=[begin pack_auto.dev_actualizeaza_operatie(']+gcS+[',']+lcNumeCamp+[',]+lcValoareNoua+; + [,]+Alltrim(Str(pnid_oper))+[,]+Alltrim(Str(gnLuna))+[,]+Alltrim(Str(gnAn))+[); end;] + *!* IF (lcNumeCamp =[PRET]) AND (gnLunaRon+GnAnROn*12<= gnLuna+gnAn*12) + *!* lcSql=[UPDATE ] + gcS + [.DEV_OPER SET ]+lcNumeCamp+[=]+lcValoareNoua+[, nou = 1 WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + *!* ELSE + *!* lcSql=[UPDATE ] + gcS + [.DEV_OPER SET ]+lcNumeCamp+[=]+lcValoareNoua+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + *!* ENDIF + *!* se comenteaza ^ + If !goExecutor.oExecuta(lcSql) + IF (lcNumeCamp =[PRET]) AND (gnLunaRon+GnAnROn*12<= gnLuna+gnAn*12) + lcSql2=[UPDATE OPER SET ]+lcNumeCamp+[=]+lcValoareInitiala+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + ELSE + lcSql2=[UPDATE OPER SET ]+lcNumeCamp+[=]+lcValoareInitiala+[,nou = 1 WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + ENDIF + Thisform.lvalidat=.F. + ELSE + IF (lcNumeCamp =[PRET]) AND (gnLunaRon+GnAnROn*12<= gnLuna+gnAn*12) + lcSql2=[UPDATE OPER SET ]+lcNumeCamp+[=]+lcValoareNoua+[,nou=1 WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + ELSE + lcSql2=[UPDATE OPER SET ]+lcNumeCamp+[=]+lcValoareNoua+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + ENDIF + Thisform.lvalidat=.T. + Endif + &lcSql2 + lcColoana=[thisform.p.page1.grid1.c]+lcNumeCamp + loColoana=&lcColoana + loColoana.text1.Refresh() + thisform.do_calcul() + ENDPROC + + PROCEDURE do_modificacom + Private pcnrord,pnidInsp,pnidAsig,pcInspector,pcAsigurator,pnIdMc,pnIdCl,pniesire,pnid_masina,pnKmInt,pdTermen,pcNrDosar, pnOreFct, pcObservatii, pcDefectiuni + Local lcListaValori + pniesire=0 + pcnrord=ocomanda.nrord + pnidInsp=ocomanda.id_inspector + pnidAsig=ocomanda.id_asigurator + pnid_masina=0 + pnIdMc=0 + pnIdCl=0 + pcInspector="" + pcAsigurator="" + pcNrDosar=ocomanda.nr_dosar + pnKmInt=ocomanda.kmint + pnOreFct = ocomanda.ore_functionare + pcObservatii = NVL(ocomanda.observatii, '') + pcDefectiuni = NVL(ocomanda.defectiuni, '') + pdTermen=Iif(Type('ocomanda.termen')='T',Ttod(ocomanda.termen),ocomanda.termen) + + Do update_asigurator In update_devize.prg + Do update_inspector In update_devize.prg + Select v_inspectori + Set Filter To id_asigurator = ocomanda.id_asigurator + + ofrmmodifica=Createobject("frm_gencom",3,@pcnrord,@pnidInsp,@pnidAsig,@pnIdMc,@pnIdCl,@pnid_masina,@pnKmInt,@pdTermen,@pcNrDosar,.T.,@pcInspector,@pcAsigurator) + With ofrmmodifica + .ct_clb_client.do_dezactiveaza() + .cnrdosar = ocomanda.nr_dosar + .cnrcom=ocomanda.nrord + .casig=ocomanda.asigurator + .cinspector=ocomanda.inspector + .cclient=ocomanda.nume + .cnrinmat=ocomanda.nrinmat + .cmarca=ocomanda.marca + .ctipm=ocomanda.masina + .cseries=ocomanda.series + .nCilindree=ocomanda.cilindree + .nPutereCP=ocomanda.puterecp + .nPutereKW=ocomanda.puterekw + .nkmint=ocomanda.kmint + .nOreFct = ocomanda.ore_functionare + .cObservatii = NVL(ocomanda.observatii, '') + .cDefectiuni = NVL(ocomanda.defectiuni, '') + + .dtermen=Iif(Type('ocomanda.termen')='T',Ttod(ocomanda.termen),ocomanda.termen) + *!* modificare v 2.0.39 + .nidinsp = ocomanda.id_inspector + .nidasig = ocomanda.id_asigurator + *!* modificare v 2.0.39 ^ + Endwith + ofrmmodifica.Show(1) + If pniesire=1 + lcListaValori=[] + If pnidInsp!=ocomanda.id_inspector && And pnidInsp>0 : modificare 2.0.37 - se poate si 0, ca sa pot sterge inspectorul in + && caz ca nu mai este folosit + ocomanda.id_inspector=pnidInsp + ocomanda.inspector=pcInspector + lcListaValori=[ID_INSPECTOR=?pnidInsp] + Endif + If pnidAsig!=ocomanda.id_asigurator && And pnidAsig>0 : modificare 2.0.37 - idem inspector + ocomanda.id_asigurator=pnidAsig + ocomanda.asigurator=pcAsigurator + lcListaValori=Iif(!Empty(lcListaValori),lcListaValori+[,],lcListaValori)+[ID_ASIGURATOR=?pnidAsig] + Endif + IF pcNrDosar!=NVL(ocomanda.nr_dosar,[]) && AND !EMPTY(pcNrDosar) : modificare 2.0.37 - idem inspector + ocomanda.nr_dosar = pcNrDosar + lcListaValori=IIF(!EMPTY(lcListaValori),lcListaValori+[,],lcListaValori)+[NR_DOSAR=?pcNrDosar] + ENDIF + *!* modificare v 2.0.43 + IF pnKmInt!=NVL(ocomanda.kmint,[]) + ocomanda.kmint = pnKmInt + lcListaValori=IIF(!EMPTY(lcListaValori),lcListaValori+[,],lcListaValori)+[KMINT=?pnKmInt] + ENDIF + *!* modificare v 2.0.43 ^ + IF pnOreFct!=NVL(ocomanda.ore_functionare,[]) + ocomanda.ore_functionare = pnOreFct + lcListaValori=IIF(!EMPTY(lcListaValori),lcListaValori+[,],lcListaValori)+[ORE_FUNCTIONARE=?pnOreFct] + ENDIF + IF m.pdTermen!=NVL(ocomanda.termen,{}) + ocomanda.termen = m.pdTermen + lcListaValori=IIF(!EMPTY(lcListaValori),lcListaValori+[,],lcListaValori)+[termen=?pdTermen] + ENDIF + IF m.pcObservatii!=NVL(ocomanda.observatii,{}) + ocomanda.observatii = m.pcObservatii + lcListaValori=IIF(!EMPTY(lcListaValori),lcListaValori+[,],lcListaValori)+[observatii=?pcObservatii] + ENDIF + IF m.pcDefectiuni!=NVL(ocomanda.defectiuni,{}) + ocomanda.defectiuni = m.pcDefectiuni + lcListaValori=IIF(!EMPTY(lcListaValori),lcListaValori+[,],lcListaValori)+[defectiuni=?pcDefectiuni] + ENDIF + If !Empty(lcListaValori) + plcomandam=.T. + lcSql=[UPDATE ] + gcS + [.DEV_ORDL SET ] + lcListaValori + [ WHERE ID_ORDL=] + Alltrim(Str(ocomanda.id_ordl)) + if !goExecutor.oExecuta(lcSql) + plcomandam=.F. + Endif + Endif + Endif + + ENDPROC + + PROCEDURE do_sterge + If Reccount('oper')>0 And Thisform.p.pAGE1.cmd_sterge1.Visible AND thisform.p.ActivePage=1 + Select oper + Scatter Name opdel + If amessagebox("Sunteti sigur ca doriti sa stergeti "+NVL(Alltrim(opdel.denop),[operatia])+" din lista?",4+32+256,"Confirmare") = 6 + *!* lcSql = [UPDATE ] + gcs + [.dev_oper SET sters = 1,dataoras = sysdate,id_utils = ]+ Alltrim(Str(gnIdutil)) + [ where id_oper = ] + Alltrim(Str(opdel.id_oper)) + lcSql=[begin pack_auto.sterge_operatie(']+ALLTRIM(gcS)+[',]+ALLTRIM(STR(opdel.id_oper))+[,]+; + ALLTRIM(STR(gnIdUtil))+[); end;] + If goExecutor.oExecuta(lcSql) + Thisform.actualizeaza_grid1() + Endif + Endif + Endif + + ENDPROC + + PROCEDURE do_validare + If Reccount('oper')>0 And Thisform.p.page1.cmd_executa1.Visible And Thisform.p.page1.cmd_executa1.Enabled + If AMessagebox("Sunteti sigur ca doriti validarea tuturor operatiilor nevalidate?",4+32+256,"Confirmare")==6 + *!* Select oper + *!* Scan For Validat=0 + *!* Scatter Name opdel + *!* lcSql = [UPDATE ] + gcs + [.dev_oper SET validat = 1 where id_oper = ] + Alltrim(Str(opdel.id_oper)) + *!* lnSucces = goExecutor.oExecute(lcSql) + *!* If lnSucces <0 + *!* AMessagebox(goExecutor.cEroare) + *!* Endif + *!* Select oper + *!* Endscan + *!* modificare 27.01 + lcSql = [begin pack_auto.dev_valideaza_operatii(']+gcS+[',]+Alltrim(Str(ocomanda.id_ordl))+; + [,]+Alltrim(Str(gnIdUtil))+[); end;] + if goExecutor.oExecuta(lcSql) + Select oper + Thisform.actualizeaza_grid1() + Endif + Endif + Endif + + ENDPROC + + PROCEDURE inainte_de_do_renunt + Local llReturn,lnColoana + Thisform.lvalidat=.T. + If Thisform.lsalvat=.F. + lcColoana = [] + Do Case + Case Thisform.ntimpninitial!=Thisform.ntimpnmodificat + lnColoana=1 + lcColoana=[timp normat] + Case Thisform.npretinitial!=Thisform.npretmodificat + lnColoana=2 + lcColoana=[pret] + Otherwise + lcColoana = [] + Return .T. + Endcase + If amessagebox("Doriti sa salvati ultima modificare facuta?",4+32+256,"Modificare "+lcColoana)==6 + Thisform.do_modifica(lnColoana) + Endif + Endif + Return Thisform.lvalidat + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn,lnColoana + If Thisform.lsalvat=.F. + lcColoana = [] + Do Case + Case Thisform.ntimpninitial!=Thisform.ntimpnmodificat + lnColoana=1 + lcColoana=[timp normat] + Case Thisform.npretinitial!=Thisform.npretmodificat + lnColoana=2 + lcColoana=[pret] + Otherwise + amessagebox("Modificarea nu a fost salvata!",0+48,"Atentie") + Return .F. + Endcase + If amessagebox("Doriti sa salvati ultima modificare facuta?",4+32+256,"Modificare "+lcColoana)==6 + Thisform.do_modifica(lnColoana) + Endif + Endif + Return Thisform.lvalidat + + ENDPROC + + PROCEDURE Init + *!* 05.10.2015 + *!* marius.mutu + *!* #4220 adaguare gridextras pentru cele 3 grid-uri (sa se retina dimensiunea coloanelor) + + Lparameters tnMod,tnComValidata + Local lnMod,lnComValidata + Thisform.p.page2.grid2.SetAll("DynamicForeColor","IIF(cota_diferita=1,RGB(255,66,66),RGB(0,0,0))","Column") && modificare v 2.0.22 + DoDefault() + lnMod=Iif(Empty(tnMod),1,tnMod) + llComValidata=Iif(Empty(tnComValidata),.F.,Iif(tnComValidata=0,.F.,.T.)) + Thisform.lcomandavalidata=llComValidata + If lnMod=2 Or glLunaInchisa + Thisform.cmd_modifica.Visible=.F. + With Thisform.p.page1 + .cmd_adauga1.Visible=.F. + .cmd_executa1.Visible=.F. + .cmd_sterge1.Visible=.F. + With .grid1 + .cpret.ReadOnly=.T. + .cpret.text1.ReadOnly=.T. + .ctimpn.ReadOnly=.T. + .ctimpn.text1.ReadOnly=.T. + .csectie.ReadOnly=.T. + .csectie._cbbase1.Enabled=.F. + .cvalidat.ReadOnly=.T. + .cvalidat.check1.ReadOnly=.T. + .Height=Thisform.p.page2.grid2.Height + .Left=Thisform.p.page2.grid2.Left + .Top=Thisform.p.page2.grid2.Top + .Width=Thisform.p.page2.grid2.Width + Endwith + ENDWITH + WITH thisform.p.pAGE3 + .cmd_adauga1.Visible= .F. + WITH .grid3 + .Left=Thisform.p.page2.grid2.Left + .Top=Thisform.p.page2.grid2.Top + .Width=Thisform.p.page2.grid2.Width + ENDWITH + ENDWITH + Endif + thisform.nid_pret=0 + thisform.nid_sectie=0 + Thisform.actualizeaza_grid1() + Thisform.actualizeaza_grid2() + thisform.actualizeaza_grid3() + + this.gridextra1.setup() + this.gridextra2.setup() + this.gridextra3.setup() + + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + DODEFAULT(nStyle) + * Centrez fereastra si o fac 70% din ecran + lnHeight = _screen.Height + lnWidth = _screen.Width + This.Height = INT(0.7 * m.lnHeight) + this.Width = INT(0.7 * m.lnWidth) + this.AutoCenter = .T. + + ENDPROC + + PROCEDURE lb_client.Init + This.Caption=This.Caption+Space(2)+Alltrim(Nvl(ocomanda.nume,'')) + + ENDPROC + + PROCEDURE lb_client.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 lb_data.Init + lcData = Iif(Isnull(ocomanda.datai),[],Iif(Type("ocomanda.datai")#'D',Dtoc(Ttod(ocomanda.datai)),Dtoc(ocomanda.datai))) + This.Caption=This.Caption+Space(2)+lcData + + ENDPROC + + PROCEDURE lb_data.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 Lb_titlu_alb_b121.Init + This.Caption=This.Caption+Space(2)+Alltrim(Nvl(ocomanda.nrord,'')) + + ENDPROC + + PROCEDURE p.Page1.Activate + This.FontBold=.T. + This.FontItalic=.F. + This.Parent.page2.FontBold=.F. + This.Parent.page2.FontItalic=.T. + This.Parent.page3.FontBold=.F. + This.Parent.page3.FontItalic=.T. + Select oper + ENDPROC + + PROCEDURE p.Page1.Grid1.cPret.Text1.GotFocus + Thisform.npretinitial=This.Value + Thisform.npretmodificat=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE p.Page1.Grid1.cPret.Text1.InteractiveChange + Thisform.npretmodificat=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE p.Page1.Grid1.cPret.Text1.Valid + If Thisform.npretinitial!=Thisform.npretmodificat And Thisform.lsalvat=.F. + Thisform.do_modifica(2) + Endif + + ENDPROC + + PROCEDURE p.Page1.Grid1.cSectie._CBBASE1.GotFocus + This.Tag=Alltrim(Str(v_nom_sectii.id_sectie)) + ENDPROC + + PROCEDURE p.Page1.Grid1.cSectie._CBBASE1.Valid + pnid_sectie=v_nom_sectii.id_sectie + If Int(Val(This.Tag))!=pnid_sectie + pnid_oper=oper.id_oper + *!* lcSql=[UPDATE ] + gcS + [.DEV_OPER SET ID_SECTIE=]+Alltrim(Str(pnid_sectie))+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + lcSql=[begin pack_auto.modifica_sectie(']+ALLTRIM(gcS)+[',]+; + ALLTRIM(STR(pnId_sectie))+[,]+ALLTRIM(STR(pnid_oper))+[,]+ALLTRIM(STR(gnIdUtil))+[); end;] + if !goExecutor.oExecuta(lcSql) + Return + Endif + Endif + ENDPROC + + PROCEDURE p.Page1.Grid1.cTimpn.Text1.GotFocus + Thisform.ntimpninitial=This.Value + Thisform.ntimpnmodificat=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE p.Page1.Grid1.cTimpn.Text1.InteractiveChange + Thisform.ntimpnmodificat=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE p.Page1.Grid1.cTimpn.Text1.Valid + If Thisform.ntimpninitial!=Thisform.ntimpnmodificat And Thisform.lsalvat=.F. + Thisform.do_modifica(1) + Endif + + ENDPROC + + PROCEDURE p.Page1.Grid1.cValidat.Check1.Click + If !This.ReadOnly + Local pnid_oper + Select oper + pnid_oper=id_oper + *!* lcSql=[UPDATE ] + gcS + [.DEV_OPER SET VALIDAT=]+Alltrim(Str(This.Value))+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + lcSql=[begin pack_auto.valideaza_operatie(']+gcS+[',]+Alltrim(Str(This.Value))+[,]+Alltrim(Str(pnid_oper))+[,]+; + ALLTRIM(Str(gnIdUtil))+[); end;] + if !goExecutor.oExecuta(lcSql) + This.Value=Abs(This.Value-1) + Endif + *!* modificare 09.06 + Thisform.nselectate=Thisform.nselectate+This.Value*2-1 + Thisform.activeaza_validare() + *!* Thisform.actualizeaza_grid1() + *!* ^ + Endif + ENDPROC + + PROCEDURE p.Page2.Activate + This.FontBold=.T. + This.FontItalic=.F. + This.Parent.page1.FontBold=.F. + This.Parent.page1.FontItalic=.T. + This.Parent.page3.FontBold=.F. + This.Parent.page3.FontItalic=.T. + This.grid2.cvaloare.ControlSource = 'ROUND(rul.cante*rul.pretv,gnPc)' + This.grid2.ActivateCell(1,1) + + ENDPROC + + PROCEDURE p.Page3.Activate + This.FontBold=.T. + This.FontItalic=.F. + This.Parent.page1.FontBold=.F. + This.Parent.page1.FontItalic=.T. + This.Parent.page2.FontBold=.F. + This.Parent.page2.FontItalic=.T. + + + + ENDPROC + +ENDDEFINE diff --git a/Clase/ofundal_dev.vc2 b/Clase/ofundal_dev.vc2 new file mode 100644 index 0000000..84e7181 --- /dev/null +++ b/Clase/ofundal_dev.vc2 @@ -0,0 +1,791 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_dev.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx" + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page5.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page5.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page5.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page5.Cw3" UniqueID="" Timestamp="" /> + + * + ErasePage = .T. + Height = 422 + Name = "pg_meniu_princ" + PageCount = 5 + Width = 401 + Page1.Caption = "Configurare" + Page1.Name = "Page1" + Page2.Caption = "Comenzi" + Page2.Name = "Page2" + Page3.BackColor = 255,255,255 + Page3.Caption = "Facturare" + Page3.Name = "Page3" + Page4.BackColor = 255,255,255 + Page4.Caption = "Manoper" + Page4.FontCharSet = 238 + Page4.Name = "Page4" + Page5.BackColor = 255,255,255 + Page5.Caption = "Analiz" + Page5.FontCharSet = 238 + Page5.Name = "Page5" + * + + ADD OBJECT 'Page1.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 40, ; + Label_item1.Caption = "Mecanici", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw10' AS cw WITH ; + Left = 5, ; + Name = "Cw10", ; + nid_cw = 13, ; + ntip = 0, ; + Top = 290, ; + Label_item1.Caption = "Opiuni", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw11' AS cw WITH ; + Left = 5, ; + Name = "Cw11", ; + nid_cw = 1, ; + ntip = 5, ; + Top = 18, ; + Label_item1.Caption = "Clieni", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw12' AS cw WITH ; + Left = 5, ; + Name = "Cw12", ; + nid_cw = 12, ; + ntip = 0, ; + Top = 254, ; + Label_item1.Caption = "Serii numere", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw13' AS cw WITH ; + Left = 5, ; + Name = "Cw13", ; + nid_cw = 9, ; + ntip = 0, ; + Top = 188, ; + LABEL_ITEM1.Caption = "Ansamble", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 62, ; + Label_item1.Caption = "Secii", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 4, ; + ntip = 0, ; + Top = 84, ; + Label_item1.Caption = "Asiguratori", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 5, ; + ntip = 0, ; + Top = 106, ; + Label_item1.Caption = "Mrci maini", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 0, ; + Top = 128, ; + Label_item1.Caption = "Dealeri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw7' AS cw WITH ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 8, ; + ntip = 0, ; + Top = 150, ; + Label_item1.Caption = "Delegai", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 10, ; + ntip = 0, ; + Top = 210, ; + Label_item1.Caption = "Norme", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw9' AS cw WITH ; + Left = 5, ; + Name = "Cw9", ; + nid_cw = 11, ; + ntip = 0, ; + Top = 232, ; + Label_item1.Caption = "Preuri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 176 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page1.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 280 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 18, ; + Label_item1.Caption = "Generare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 5, ; + Top = 40, ; + Label_item1.Caption = "Normare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 62, ; + Label_item1.Caption = "Validare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 5, ; + ntip = 0, ; + Top = 135, ; + Label_item1.Caption = "Comenzi n luna curent", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 0, ; + Top = 157, ; + Label_item1.Caption = "Istoric comenzi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 0, ; + Top = 216, ; + Label_item1.Caption = "Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw7' AS cw WITH ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 4, ; + ntip = 0, ; + Top = 98, ; + Label_item1.Caption = "Vizualizare stocuri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 7, ; + ntip = 0, ; + Top = 253, ; + Label_item1.Caption = "Export", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw9' AS cw WITH ; + Left = 5, ; + Name = "Cw9", ; + nid_cw = 8, ; + ntip = 0, ; + Top = 179, ; + Label_item1.Caption = "Viz. date comenzi", ; + Label_item1.Name = "Label_item1", ; + Label_item1.ToolTipText = "Vizualizare date comenzi" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 123 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 205 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 87 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 240 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page3.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 18, ; + Label_item1.Caption = "Factur deviz", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 40, ; + Label_item1.Caption = "Factur ITP", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 62, ; + Label_item1.Caption = "Factur splare auto", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 0, ; + Top = 84, ; + Label_item1.Caption = "Factur diverse", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 5, ; + ntip = 0, ; + Top = 116, ; + Label_item1.Caption = "Facturi n luna curent", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 6, ; + ntip = 0, ; + Top = 150, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "nchidere comenzi de regie", ; + Label_item1.Height = 30, ; + Label_item1.Left = 4, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 172, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw7' AS cw WITH ; + Height = 36, ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 7, ; + ntip = 0, ; + Top = 174, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Comenzi de regie n luna curent", ; + Label_item1.Height = 33, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 174, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw8' AS cw WITH ; + Height = 34, ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 8, ; + ntip = 0, ; + Top = 212, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "nchidere comenzi de producie", ; + Label_item1.Height = 30, ; + Label_item1.Left = 4, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 171, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw9' AS cw WITH ; + Left = 5, ; + Name = "Cw9", ; + nid_cw = 9, ; + ntip = 0, ; + Top = 263, ; + Label_item1.Caption = "Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 106 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page3.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 250 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page3.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 140 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 40, ; + Label_item1.Caption = "Manoper comenzi nchise", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + Top = 165, ; + Visible = .F., ; + Label_item1.Caption = "Manoper pe tehnicieni", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 4, ; + ntip = 0, ; + Top = 96, ; + Label_item1.Caption = "Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 63, ; + Label_item1.Caption = "Raport de salarizare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 18, ; + Label_item1.Caption = "Manoper n luna curent", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw6' AS cw WITH ; + Height = 39, ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 5, ; + ntip = 0, ; + Top = 119, ; + Width = 180, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Ore de manoper pe asiguratori", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 170, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 86 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page5.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 0, ; + Top = 18, ; + Label_item1.Caption = "Verificri", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page5.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 0, ; + Top = 40, ; + Label_item1.Caption = "Producie neterminat", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page5.Cw3' AS cw WITH ; + Height = 38, ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 0, ; + Top = 62, ; + LABEL_ITEM1.AutoSize = .F., ; + LABEL_ITEM1.Caption = "Centralizator comenzi validate n lun", ; + LABEL_ITEM1.Height = 50, ; + LABEL_ITEM1.Left = 5, ; + LABEL_ITEM1.Name = "LABEL_ITEM1", ; + LABEL_ITEM1.Top = 5, ; + LABEL_ITEM1.Width = 173, ; + LABEL_ITEM1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page5.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + PROCEDURE Page1.Cw1.do_actiune + DO viz_mecanici IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw10.do_actiune + DO viz_optiuni IN oproceduri_vizualizare.prg + ENDPROC + + PROCEDURE Page1.Cw11.do_actiune + DO viz_clienti IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw12.do_actiune + DO serii.mpr + ENDPROC + + PROCEDURE Page1.Cw13.do_actiune + DO viz_ansamble IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw2.do_actiune + DO viz_sectii IN onomenclatoare.prg + ENDPROC + + PROCEDURE Page1.Cw3.do_actiune + DO viz_asiguratori IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw4.do_actiune + DO viz_masini_marci IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw5.do_actiune + DO viz_dealeri IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw7.do_actiune + Do vizualizare_delegati In onomenclatoare.prg + *!* DO viz_delegati IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw8.do_actiune + DO viz_norme IN onom_devize.prg + ENDPROC + + PROCEDURE Page1.Cw9.do_actiune + DO viz_preturi IN onom_devize.prg + ENDPROC + + PROCEDURE Page2.Cw1.do_actiune + DO generare_com IN oproceduri_devize.prg + ENDPROC + + PROCEDURE Page2.Cw2.do_actiune + DO normare_comanda IN oproceduri_devize.prg + ENDPROC + + PROCEDURE Page2.Cw3.do_actiune + DO validare_comenzi IN oproceduri_vizualizare.prg + ENDPROC + + PROCEDURE Page2.Cw4.do_actiune + DO vizualizare_comenzi IN oproceduri_vizualizare.prg + ENDPROC + + PROCEDURE Page2.Cw5.do_actiune + DO vizualizare_ist_comenzi IN oproceduri_vizualizare.prg + ENDPROC + + PROCEDURE Page2.Cw6.do_actiune + DO list_comanda IN oproceduri_listari.prg + ENDPROC + + PROCEDURE Page2.Cw7.do_actiune + DO viz_stocuri IN oproceduri_vizualizare.prg + ENDPROC + + PROCEDURE Page2.Cw8.do_actiune + lnOptiune = xmenu("Export \ (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_ansamble AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_ansamble" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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') + lcAnsamblu = Nvl(Alltrim(toRec.denumire),[]) + lcinactiv = Nvl(Alltrim(Str(toRec.inactiv)),[]) + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin pack_auto.adauga_ansamblu('] + gcS + [','] + lcAnsamblu + [',]+ ; + lcinactiv + [,] + Alltrim(Str(gnIdUtil)) + [); end;] + + Case lcActiune = "UPDATE" + lcSql = [begin pack_auto.modifica_ansamblu('] + gcS + [',] + lcId + [,'] + ; + lcAnsamblu + [',] + lcinactiv + [,] + Alltrim(Str(gnIdUtil)) + [); end;] + + Case lcActiune = "DELETE" + lcSql = [begin pack_auto.sterge_ansamblu('] + gcS + [',] + lcId + [,] + ; + Alltrim(Str(gnIdUtil)) + [); end;] + Endcase + + This.csql = lcSql + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_asiguratori AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_asiguratori" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + lcnom = gcS + ".dev_nom_asiguratori" + lcamp = "id_asigurator" + lclook = gcS + ".dev_ordl" + lclookid = "id_asigurator" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + *!* modificare v 2.0.33 + lcIdPart = ALLTRIM(STR(toRec.id_part)) + *!* lcnrord = Nvl(STRTRAN(Alltrim(Upper(toRec.asigurator)),['],['']),"") + *!* modificare v 2.0.33 ^ + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + *!* modificare v 2.0.33 + *!* lcSql = [INSERT INTO ] + gcS + [.dev_nom_asiguratori (asigurator,inactiv) VALUES ('] + lcnrord + [',] + lcinactiv +[)] + lcSql = [begin pack_auto.adauga_asigurator(] + lcIdPart + [,?gnIdUtil); end;] + Case lcActiune = "UPDATE" + *!* lcSql = [UPDATE ] + gcS + [.dev_nom_asiguratori SET asigurator = '] + lcnrord + [',inactiv = ] + lcinactiv + [ where id_asigurator = ] + lcId + lcSql = [begin pack_auto.modifica_asigurator(] + lcId + [,] + lcInactiv + [,?gnIdUtil); end;] + *!* modificare v 2.0.33 ^ + Case lcActiune = "DELETE" + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_dealeri AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_dealeri" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + lcnom = gcS + ".dev_nom_furnizorimasini" + lcamp = "id_furnizor" + lclook = gcS + ".dev_masiniclienti" + lclookid = "id_furnizor" + Endif + If Inlist(lcActiune, "UPDATE",'INSERT') + lcDenumire = NVL(ALLTRIM(torec.denumire),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.dev_nom_furnizorimasini (denumire,inactiv) VALUES ('] + lcDenumire+ [','] + lcInactiv + [')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.dev_nom_furnizorimasini SET denumire = '] +; + lcDenumire + [',inactiv =] + lcInactiv + [ where id_furnizor = ] + lcId + + Case lcActiune = "DELETE" + + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + *!* lcSql = [UPDATE ] + gcS + [.dev_nom_delegati SET STERS = 1 WHERE id_nom_delegati = ] + lcId + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_delegati AS _cusodatabase OF "..\..\roacomenzi\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_delegati" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + *!* lcnom = gcS + ".dev_nom_delegati" + *!* lcamp = "id_nom_delegati" + *!* lclook = gcS + ".dev_oper_mecanici" + *!* lclookid = "dev_oper_mecanici.id_mecanic" + Endif + If Inlist(lcActiune, "UPDATE",'INSERT') + lcIdclient = Nvl(Alltrim(Str(toRec.id_partener)),[]) + lcDelegat = Nvl(Alltrim(toRec.delegat),[]) + lcEliberatde = Nvl(Alltrim(toRec.eliberatde),[]) + lcBI = Nvl(Alltrim(toRec.bi),[]) + lcinactiv = Nvl(Alltrim(Str(toRec.inactiv)),[]) + lcTelefon1 = Nvl(Alltrim(toRec.telefon1),[]) + lcTelefon2 = Nvl(Alltrim(toRec.telefon2),[]) + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin pack_auto.adauga_delegat('] + gcS + [',] + lcIdclient+ [,'] + lcDelegat+ [','] + lcEliberatde+ ; + [','] + lcBI + [',] + lcinactiv + [,'] + lcTelefon1 + [','] + lcTelefon2 + [',?gnIdUtil); end;] + *!* lcSql = [INSERT INTO ] + gcS + [.dev_nom_delegati (id_partener,delegat,eliberatde,bi,inactiv) VALUES ('] + lcIdclient+ [','] + lcDelegat+ [','] + lcEliberatde+ [','] + lcBI + [','] + lcinactiv + [')] + + Case lcActiune = "UPDATE" + lcSql = [begin pack_auto.modifica_delegat('] + gcS + [',] + lcId + [,] + lcIdclient+ [,'] + lcDelegat+ [',] + ; + ['] + lcEliberatde + [','] + lcBI + [',] + lcinactiv + [,'] + lcTelefon1 + [','] + lcTelefon2 + [',?gnIdUtil); end;] + *!* lcSql = [UPDATE ] + gcS + [.dev_nom_delegati SET id_partener = '] + lcIdclient+ [',delegat='] + lcDelegat+[',eliberatde = '] + lcEliberatde+ [',bi = ']+ lcBI+ [',inactiv =] + lcinactiv + [ where id_nom_delegati = ] + lcId + + Case lcActiune = "DELETE" + lcSql = [begin pack_auto.sterge_delegat('] + gcS + [',] + lcId+ [,?gnIdUtil); end;] + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + *lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + *!* lcSql = [UPDATE ] + gcS + [.dev_nom_delegati SET STERS = 1 WHERE id_nom_delegati = ] + lcId + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_dev_clienti_201402 AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_clienti" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + lcnom = gcS + ".nom_parteneri" + lcamp = "id_part" + lclook = gcS + ".dev_masiniclienti" + lclookid = "id_partener" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcNume = Nvl(Strtran(Alltrim(Upper(toRec.nume)),['],['']),"") + lcCod_fiscal = Nvl(Strtran(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"") + lctelefon = Nvl(Strtran(Alltrim(Upper(toRec.telefon)),['],['']),"") + lcadresa = Nvl(Strtran(Alltrim(Upper(toRec.adresa)),['],['']),"") + lcbanca = Nvl(Strtran(Alltrim(Upper(toRec.banca)),['],['']),"") + lccont_banca = Nvl(Strtran(Alltrim(Upper(toRec.cont_banca)),['],['']),"") + lcreg_comert = Nvl(Strtran(Alltrim(Upper(toRec.reg_comert)),['],['']),"") + *!* lcJudet = Nvl(STRTRAN(Alltrim(Upper(toRec.judet)),['],['']),"") + *!* lcLocalitate = Nvl(STRTRAN(Alltrim(Upper(toRec.localitate)),['],['']),"") + lcIdLoc = Nvl(Alltrim(Str(toRec.id_loc)),0) + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin devpartinsproc('] + gcS + [','] + lcNume + [','] + lcCod_fiscal + [','] + lctelefon +[',']+ lcadresa + [','] +lcbanca + ; + [',']+ lccont_banca + [','] + lcreg_comert + [',] + lcIdLoc + [); end;] + + *!* lcSql = [INSERT INTO ] + gcS + [.nom_parteneri (nume,cod_fiscal,telefon,adresa,banca,cont_banca,reg_comert,id_loc) ] + ; + *!* [VALUES ('] + lcnume + [','] + lccod_fiscal + [','] + lctelefon +[',']+ lcAdresa + [','] +lcbanca + ; + *!* [',']+ lcCont_banca + [',']+ lcReg_comert+[',] + lcIdLoc + [)] + Case lcActiune = "UPDATE" + If pnNivelModificare=-1 + lcSql = [UPDATE ] + gcS + [.nom_parteneri SET nume = '] + lcNume; + +[',cod_fiscal = '] + lcCod_fiscal + [',telefon = '] + lctelefon +; + [',adresa = '] + lcadresa + [',banca = '] + lcbanca + [',cont_banca = '] + lccont_banca + [',reg_comert = ']+lcreg_comert+; + [',id_loc = ] + lcIdLoc + [ where id_part = ] + lcId + ELSE + lcSql = [UPDATE ] + gcS + [.nom_parteneri SET telefon = '] + lctelefon + [' ]+; + [ where id_part = ] + lcId + Endif + Case lcActiune = "DELETE" + + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcId + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_inspectori AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_inspectori" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + lcnom = gcS + ".dev_nom_inspectori" + lcamp = "id_inspector" + lclook = gcS + ".dev_ordl" + lclookid = "id_inspector" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcinspector = Nvl(STRTRAN(Alltrim(Upper(toRec.inspector)),['],['']),"") + lcidasigurator = NVL(ALLTRIM(STR(torec.id_asigurator)),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.dev_nom_inspectori (inspector,id_asigurator,inactiv) VALUES ('] + lcinspector + [','] + lcidasigurator + [',] + lcinactiv +[)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.dev_nom_inspectori SET inspector = '] + lcinspector +[',id_asigurator = ] + lcidasigurator + [,inactiv = ] + lcinactiv + [ where id_inspector = ] + lcId + + Case lcActiune = "DELETE" + + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_marci AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_marci" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + lcnom = gcS + ".dev_nom_marci" + lcamp = "id_marca" + lclook = gcS + ".dev_nom_masini" + lclookid = "id_masina" + Endif + If Inlist(lcActiune, "UPDATE",'INSERT') + lcmarca = NVL(ALLTRIM(torec.marca),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.dev_nom_marci (marca,inactiv) VALUES ('] + lcmarca + [',']+ lcInactiv + [')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.dev_nom_marci SET marca = '] + lcmarca + [',inactiv =] + lcInactiv + [ where id_marca = ] + lcId + + Case lcActiune = "DELETE" + + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_masini AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_masini" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune=This.cActiune + + 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)) + lcnom = gcS + ".dev_nom_masini" + lcamp = "id_masina" + lclook = gcS + ".dev_masiniclienti" + lclookid = "id_masina" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcMasina = NVL(STRTRAN(ALLTRIM(UPPER(torec.masina)),['],['']),"") + lcExplicatia = NVL(STRTRAN(ALLTRIM(UPPER(torec.sctip)),['],['']),"") + lcId = NVL(ALLTRIM(STR(torec.id_masina)),"") + lcID_marca = NVL(ALLTRIM(STR(torec.id_marca)),"") + *!* lcinspector = Nvl(STRTRAN(Alltrim(Upper(toRec.inspector)),['],['']),"") + *!* lcidasigurator = NVL(ALLTRIM(STR(torec.id_asigurator)),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.dev_nom_masini (masina,sctip,id_marca,inactiv) VALUES ('] + lcmasina + [','] + lcExplicatia + [',] + lcid_marca + [,] + lcinactiv +[)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.dev_nom_masini SET masina = '] + lcmasina +[',sctip = '] + lcExplicatia + [',id_marca = ] + lcid_marca + [,inactiv = ] + lcinactiv + [ where id_masina = ] + lcId + + Case lcActiune = "DELETE" + + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_masiniclienti AS _cusodatabase OF "..\..\roacomenzi\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_masiniclienti" + * + + PROCEDURE make_sql + LPARAMETERS toRec, tnId + + LOCAL lcActiune, lcAnFabricatie, lcCilindree, lcId, lcId_furnizor, lcId_masina, lcId_partener + LOCAL lcPutereCP, lcPutereKW, lcSql, lcamp, lcculoare, lcinactiv, lckmint, lclook, lclookid, lcnom + LOCAL lcnrinmat, lcserief, lcseriem, lcseries + lcActiune = ALLTRIM(THIS.cActiune) + + 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)) + lcnom = gcS + ".dev_masiniclienti" + lcamp = "id_masiniclient" + lclook = gcS + ".dev_ordl" + lclookid = "id_masiniclient" + ENDIF + + IF INLIST(lcActiune, "UPDATE", 'INSERT') + lcId_partener = NVL(ALLTRIM(STR(toRec.id_partener)), "") + lcId_masina = NVL(ALLTRIM(STR(toRec.id_masina)), "") + *!* lcId_marca = Nvl(Alltrim(str(toRec.id_marca)),"") + lcnrinmat = NVL(STRTRAN(ALLTRIM(UPPER(toRec.nrinmat)), ['], ['']), "") + lcculoare = NVL(STRTRAN(ALLTRIM(UPPER(toRec.culoare)), ['], ['']), "") + lcseries = NVL(STRTRAN(ALLTRIM(UPPER(toRec.series)), ['], ['']), "") + lcseriem = NVL(STRTRAN(ALLTRIM(UPPER(toRec.seriem)), ['], ['']), "") + lckmint = NVL(ALLTRIM(STR(toRec.kmint)), "") + *!* lcdataachi = Nvl(Alltrim(Dtos(toRec.dataachi)),"") + lcserief = NVL(STRTRAN(ALLTRIM(UPPER(toRec.serief)), ['], ['']), "") + lcId_furnizor = NVL(ALLTRIM(STR(toRec.id_furnizor)), "") + lcinactiv = NVL(ALLTRIM(STR(toRec.inactiv)), "") + lcAnFabricatie = IIF(ISNULL(toRec.anfabricatie) OR EMPTY(toRec.anfabricatie), [NULL], ALLTRIM(STR(toRec.anfabricatie))) + *!* lcAnFabricatie = IIF(ISNULL(toRec.anfabricatie) or EMPTY(toRec.anfabricatie),[NULL],[']+DTOS(toRec.anfabricatie)+[']) + + lcCilindree = ALLTRIM(TRANSFORM(NVL(toRec.cilindree, 0))) + lcPutereCP = ALLTRIM(TRANSFORM(NVL(toRec.puterecp, 0))) + lcPutereKW = ALLTRIM(TRANSFORM(NVL(toRec.puterekw, 0))) + ENDIF + + + DO CASE + CASE lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.dev_masiniclienti (id_masina,nrinmat,culoare,series,seriem,kmint,serief,anfabricatie,id_furnizor,inactiv,id_partener, cilindree, puterecp, puterekw) VALUES (] + ; + lcId_masina + [,'] + lcnrinmat + [','] + lcculoare + [','] + lcseries + [','] + lcseriem + [',] + lckmint + [,'] + lcserief + ['] + ; + [,] + lcAnFabricatie + [,] + lcId_furnizor + [,] + lcinactiv + [,] + lcId_partener + [,] + m.lcCilindree + [,] + m.lcPutereCP + [,] + m.lcPutereKW + [)] + + CASE lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.dev_masiniclienti SET id_masina = ] + lcId_masina + ; + [,nrinmat = '] + lcnrinmat + ; + [',culoare = '] + lcculoare + ; + [',series = '] + lcseries + ; + [',seriem = '] + lcseriem + ; + [',kmint = ] + lckmint + ; + [,serief = '] + lcserief + ; + [',id_furnizor = ] + lcId_furnizor + ; + [,anfabricatie = ] + lcAnFabricatie + ; + [,cilindree = ] + lcCilindree + ; + [,puterecp = ] + lcPutereCP + ; + [,puterekw = ] + lcPutereKW + ; + [,inactiv = ] + lcinactiv + [ where id_masiniclient = ] + lcId + + CASE lcActiune = "DELETE" + + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcId + [,'] + lclook + [','] + lclookid + ['); end;] + ENDCASE + THIS.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_mecanici AS _cusodatabase OF "..\..\roafacturare\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_mecanici" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + *!* lcnom = gcS + ".dev_mecanici" + *!* lcamp = "id_mecanic" + *!* lclook = gcS + ".dev_oper_mecanici" + *!* lclookid = "id_mecanic" + Endif + If Inlist(lcActiune, "UPDATE",'INSERT') + *!* lcID_sal = NVL(ALLTRIM(STR(torec.id_salariat)),[NULL]) + lcId_part = NVL(ALLTRIM(STR(torec.id_part)),[NULL]) + lcId_sectie = NVL(ALLTRIM(STR(torec.id_sectie)),[NULL]) + *!* lcfdoc = Nvl(STRTRAN(Alltrim(Upper(toRec.id_mecanic)),['],['']),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0") + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin ] + gcS + [.pack_auto.adauga_mecanic(?gcS,] + lcId_part + [,] + ; + lcId_sectie + [,] + lcInactiv + [,?gnIdUtil); end;] + *!* lcSql = [INSERT INTO ] + gcS + [.dev_mecanici (id_salariat,id_sectie,inactiv) VALUES ('] + lcID_sal + [','] + lcId_sectie + [',']+ lcInactiv + [')] + Case lcActiune = "UPDATE" + lcSql = [begin ] + gcS + [.pack_auto.modifica_mecanic(?gcS,] + lcId + [,] + lcId_part + [,] + lcId_sectie + [,] + ; + lcInactiv + [,?gnIdUtil); end;] + *!* lcSql = [UPDATE ] + gcS + [.dev_mecanici SET id_salariat = '] + lcID_sal + [',id_sectie =] + lcId_sectie + [,inactiv =] + lcInactiv + [ where id_mecanic = ] + lcId + Case lcActiune = "DELETE" + lcSql = [begin ] + gcS + [.pack_auto.sterge_mecanic(?gcS,] + lcId + [,?gnIdUtil); end;] + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_norme AS _cusodatabase OF "..\..\roafacturare\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_norme" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + lcnom = gcS + ".dev_nom_norme" + lcamp = "id_norme" + lclook = gcS + ".dev_oper" + lclookid = "id_norme" + Endif + If Inlist(lcActiune, "UPDATE",'INSERT') + lcID_masina = NVL(ALLTRIM(STR(torec.id_masina)),"NULL") + lcId_ansamblu = NVL(ALLTRIM(STR(torec.id_ansamblu)),"NULL") + lcdenop = Nvl(STRTRAN(Alltrim(Upper(toRec.denop)),['],['']),"") + lccodop = Nvl(STRTRAN(Alltrim(Upper(toRec.codop)),['],['']),"") + lcTimpn = NVL(ALLTRIM(STR(torec.timpn,5,3)),"") + lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + *!* modificare v 2.0.12 + lcSql = [begin pack_auto.adauga_norma(] + lcId_masina + [,] + lcId_ansamblu + [,'] + lcDenop + [','] + lcCodOp + [',] + ; + lcTimpn + [,] + lcInactiv + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;] + *!* lcSql = [INSERT INTO ] + gcS + [.dev_nom_norme (id_masina,id_ansamblu,denop,codop,timpn,inactiv) VALUES (]; + *!* + lcID_masina + [,] + lcId_ansamblu + [,'] + lcdenop + [',']+ lccodop + [',]+ lcTimpn + [,]+ lcinactiv + [)] + *!* modificare v 2.0.12 ^ + Case lcActiune = "UPDATE" + *!* modificare v 2.0.12 + lcSql = [begin pack_auto.modifica_norma(] + lcId + [,] + lcId_masina + [,] + lcId_ansamblu + [,'] + ; + lcDenop + [','] + lcCodOp + [',] + ; + lcTimpn + [,] + lcInactiv + [,] + ; + ALLTRIM(STR(gnIdUtil)) + [); end;] + *!* lcSql = [UPDATE ] + gcS + [.dev_nom_norme SET id_masina = ] + lcid_masina + ; + *!* [,id_ansamblu =] + lcid_ansamblu + ; + *!* [,Denop = '] + lcdenop +; + *!* [',Codop = '] + lcCodop +; + *!* [',timpn = ] + lcTimpn +; + *!* [,inactiv =] + lcInactiv + [ where id_norme = ] + lcId + *!* modificare v 2.0.12 ^ + Case lcActiune = "DELETE" + *!* modificare v 2.0.12 + lcSql = [begin pack_auto.sterge_norma(] + lcId + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;] + *!* *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + *!* modificare v 2.0.12 ^ + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_preturi AS _cusodatabase OF "..\..\roafacturare\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_preturi" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + 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)) + *!* lcnom = gcS + ".dev_nom_preturi" + *!* lcamp = "id_pret" + *!* lclook = gcS + ".dev_oper" + *!* lclookid = "dev_oper.id_norme" + Endif + If Inlist(lcActiune, "UPDATE",'INSERT') + lcId_MArca = Nvl(Alltrim(Str(toRec.id_marca)),"") + lcId_asigurator = Nvl(Alltrim(Str(toRec.id_asigurator)),"") + lcPret = Nvl(Alltrim(Str(toRec.Pret,18,gnPPretV)),"") + lcPret_val = Nvl(Alltrim(Str(toRec.pret_val,10,gnPVal)),"") + lcCurs = Nvl(Alltrim(Str(toRec.Curs,12,gnPCurs2)),"") + lcId_valuta = Nvl(Alltrim(Str(toRec.id_valuta)),"") + lcinactiv = Nvl(Alltrim(Str(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin ] + gcS + [.pack_auto.adauga_pret(] + lcId_MArca + [,] + lcId_asigurator + [,] + lcPret + [,]+ lcPret_val + [,]+ lcCurs + ; + [,] + lcId_valuta + [,]+ lcinactiv + [); end;] + *!* lcSql = [INSERT INTO ] + gcS + [.dev_nom_preturi (id_marca,id_asiguratori,Pret,Pret_val,Curs,Id_valuta,inactiv) VALUES (]; + *!* + lcId_MArca + [,] + lcId_asigurator + [,] + lcPret + [,]+ lcPret_val + [,]+ lcCurs + [,] + lcId_valuta + [,]+ lcinactiv + [)] + + Case lcActiune = "UPDATE" + lcSql = [begin ] + gcS + [.pack_auto.modifica_pret(] + lcId + [,] + lcId_MArca + [,] + lcId_asigurator + [,] + lcPret + [,]+ lcPret_val + [,]+ lcCurs + ; + [,] + lcId_valuta + [,]+ lcinactiv + [); end;] + *!* lcSql = [UPDATE ] + gcS + [.dev_nom_preturi SET id_marca = ] + lcId_MArca + ; + *!* [,id_asiguratori =] + lcId_asigurator + ; + *!* [,Pret= ] + lcPret +; + *!* [,Pret_val = ] + lcPret_val +; + *!* [,Curs= ] + lcCurs +; + *!* [,Id_valuta= ] + lcId_valuta +; + *!* [,inactiv =] + lcInactiv + [ where id_pret = ] + lcId + + Case lcActiune = "DELETE" + lcSql = [begin ] + gcS + [.pack_auto.sterge_pret(] + lcId + [,?gnIdUtil); end;] + *!* lcSql = [update ] + GCS + [.dev_nom_preturi set sters = 1 where id_pret = ]+lcid + *!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_ansamble 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_ansamble" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_ansamble.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_ansamble.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_ansamble.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_ansamble.Column7.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_denumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grd_ansamble + DoCreate = .T. + Height = 470 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_ansamble" + Width = 456 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 456 + _shape2.Height = 29 + _shape2.Left = 332 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 124 + Lb_titlu_alb_b121.Caption = "Ansamble" + Lb_titlu_alb_b121.Height = 21 + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + Lb_titlu_alb_b121.Top = 6 + Lb_titlu_alb_b121.Width = 72 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 425 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 365, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + Top = 0, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 335, ; + Name = "But_nou1", ; + TabIndex = 4, ; + Top = 0, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 394, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 0, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'clb_denumire' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "clb_denumire", ; + TabIndex = 1, ; + Top = 43, ; + 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_cauta1' AS cmd_cauta WITH ; + Left = 342, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 44 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grd_ansamble' AS _grdbase WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 372, ; + Left = 20, ; + Name = "grd_ansamble", ; + Panel = 1, ; + RecordSource = "v_ansamble", ; + TabIndex = 3, ; + Top = 84, ; + Width = 420, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 343, ; + Column2.ControlSource = "inactiv", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column7", ; + Column2.Sparse = .F., ; + Column2.Width = 39 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_ansamble.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_ansamble.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 'grd_ansamble.Column7.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 13, ; + Name = "Check1", ; + Top = 83, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grd_ansamble.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + Local lcFiltru + lcFiltru=pcFiltru + If Empty(lcFiltru) + lcFiltru=poansamble.ca_baza1.cfiltru + Endif + save_grid_tag(Thisform.grd_ansamble) + poansamble.ca_baza1.cfiltru=lcFiltru + poansamble.ca_baza1.afisare() + restore_grid_tag(Thisform.grd_ansamble) + Thisform.grd_ansamble.SetFocus() + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select v_ansamble + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "ansamble",loRec,,"INSERT" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcDenumire = Strtran(Upper(Alltrim(Thisform.clb_denumire.texT_SIMPLU1.Value)),['],['']) + If !Empty(lcDenumire) + lcFiltru = [denumire like '] + lcDenumire + [%'] + Else + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + This.LockScreen=.F. + This.MousePointer= 0 + If Reccount('v_ansamble')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clb_denumire.SetFocus() + Else + Thisform.grd_ansamble.SetFocus() + Endif + + + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_ansamble')>0 + Private pniesire + pniesire=0 + Select v_ansamble + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "ansamble",loRec,loRec.id_ansamblu,"UPDATE" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_ansamble')>0 + Select v_ansamble + Scatter Name lorec + Do STERGE_INREGISTRARE With "ansamble",lorec.id_ansamblu + This.actualizeaza_grid1() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_ansamble_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_denumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_ansamble1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 109 + Name = "frm_ansamble_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 311 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 66 + Lb_titlu_alb_b121.Caption = "Ansamblu" + 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 '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 48, ; + Name = "_checkbox1", ; + TabIndex = 7, ; + Top = 78 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + 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 'Clb_denumire' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_denumire", ; + TabIndex = 3, ; + Top = 43, ; + Text_simplu1.ControlSource = "porec.denumire", ; + 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 'Cus_odata_ansamble1' AS cus_odata_ansamble WITH ; + Left = 336, ; + Name = "Cus_odata_ansamble1", ; + Top = 48 + *< END OBJECT: ClassLib="onom_devize.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(Thisform.clb_denumire.text_SIMPLU1.Value) + amessagebox("Nu ati completat denumirea ansamblului!",0+48,"Atentie") + Thisform.clb_denumire.text_SIMPLU1.SetFocus() + PLRETURN = .F. + Otherwise + PLRETURN=This.cus_odata_ansamble1.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_ansamble1.cactiune = tcActiune + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_asiguratori 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="gasiguratori" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gasiguratori.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gasiguratori.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gasiguratori.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gasiguratori.Column2.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ginspectori" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ginspectori.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ginspectori.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ginspectori.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ginspectori.Column2.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_asigurator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + *m: do_adauga2 + *m: do_modifica2 + *m: do_sterge2 + * + + * + DoCreate = .T. + Height = 340 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_asiguratori" + Width = 800 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 804 + _shape2.Height = 29 + _shape2.Left = 676 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 125 + Lb_titlu_alb_b121.Caption = "Asiguratori" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 769 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 709, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + ToolTipText = "Modificare asigurator (CTRL+M)", ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica2' AS but_modifica WITH ; + caction = do_modifica2, ; + Height = 27, ; + Left = 723, ; + Name = "But_modifica2", ; + TabIndex = 9, ; + ToolTipText = "Modificare inspector", ; + Top = 48, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 679, ; + Name = "But_nou1", ; + TabIndex = 4, ; + ToolTipText = "Adaugare asigurator (CTRL+N)", ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou2' AS but_nou WITH ; + caction = do_adauga2, ; + Height = 27, ; + Left = 693, ; + Name = "But_nou2", ; + TabIndex = 8, ; + ToolTipText = "Adaugare inspector", ; + Top = 48, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 739, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + ToolTipText = "Stergere asigurator (CTRL+D)", ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge2' AS but_sterge WITH ; + caction = do_sterge2, ; + Height = 27, ; + Left = 753, ; + Name = "But_sterge2", ; + TabIndex = 10, ; + ToolTipText = "Stergere inspector", ; + Top = 48, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 319, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 38 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gasiguratori' AS _grdrow WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 252, ; + Left = 12, ; + Name = "gasiguratori", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_asiguratori", ; + TabIndex = 3, ; + Top = 72, ; + Width = 339, ; + Column1.ControlSource = "asigurator", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 268, ; + Column2.ControlSource = "inactiv", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 34 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gasiguratori.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asigurator", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gasiguratori.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 'gasiguratori.Column2.Check1' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 19, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 24, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gasiguratori.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'ginspectori' AS _grdrow WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 240, ; + Left = 408, ; + Name = "ginspectori", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_inspectori", ; + TabIndex = 7, ; + Top = 84, ; + Width = 374, ; + Column1.ControlSource = "inspector", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 301, ; + Column2.ControlSource = "inactiv", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 38 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'ginspectori.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inspector", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'ginspectori.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 'ginspectori.Column2.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 22, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 31, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'ginspectori.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'lb_asigurator' AS clb_tx_simplu WITH ; + Left = 16, ; + Name = "lb_asigurator", ; + TabIndex = 1, ; + Top = 37, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Asigurator:", ; + 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=poasiguratori.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gasiguratori) + poasiguratori.ca_baza1.cfiltru=lcFiltru + poasiguratori.ca_baza1.afisare() + restore_grid_tag(thisform.gasiguratori) + IF RECCOUNT('v_asiguratori')>0 + thisform.gasiguratori.SetFocus() + *!* ELSE + *!* thisform.lb_mecanici.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE actualizeaza_grid2 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poinspector.ca_baza1.cfiltru + ENDIF + + save_grid_tag(thisform.ginspectori) + poinspector.ca_baza1.cfiltru=lcFiltru + poinspector.ca_baza1.afisare() + restore_grid_tag(thisform.ginspectori) + + IF RECCOUNT('v_inspectori')>0 + thisform.ginspectori.SetFocus() + *!* ELSE + *!* thisform.lb_mecanici.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select v_asiguratori + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "asiguratori",loRec,,"INSERT",,"addasig" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_adauga2 + If Reccount('v_asiguratori')>0 + Private pniesire + pniesire=0 + Select v_inspectori + Scatter Name loRec Blank + lnid_asigurator = v_asiguratori.id_asigurator + loRec.id_asigurator = v_asiguratori.id_asigurator + *!* SELECT v_asiguratori + *!* SCATTER NAME loRec FIELDS id_asigurator + Select v_inspectori + Do Adauga_Modifica_Inregistrare With "inspectori",loRec,,"INSERT",,"addinsp" + If pniesire=1 + This.actualizeaza_grid2() + Endif + Else + amessagebox("Nu puteti adauga un inspector,deoarece nu ati selectat asiguratorul!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = Strtran(Upper(Alltrim(This.lb_asigurator.text_simplu1.Value)),['],['']) + If !Empty(lcNume) + lcFiltru=[asigurator like ']+lcNume+[%'] + Else + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_asiguratori')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + thisform.actualizeaza_grid2([1=2]) + thisform.lb_asigurator.SetFocus() + Endif + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_asiguratori')>0 + Private pniesire + pniesire=0 + Select v_asiguratori + Scatter Name loRec + pcNume = loRec.asigurator + Do Adauga_Modifica_Inregistrare With "asiguratori",loRec,loRec.id_asigurator,"UPDATE",,"modasig" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica2 + If Reccount('v_inspectori')>0 + Private pniesire + pniesire=0 + Select v_inspectori + Scatter Name loRec + *!* lorec.id_asigurator = v_asiguratori.id_asigurator + *!* SELECT v_asiguratori + *!* SCATTER NAME loRec FIELDS id_asigurator + Select v_inspectori + Do Adauga_Modifica_Inregistrare With "inspectori",loRec,loRec.id_inspector,"UPDATE",,"modinsp" + If pniesire=1 + This.actualizeaza_grid2() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_asiguratori')>0 + Select v_asiguratori + Scatter Name loRec + pcNume = loRec.asigurator + Do STERGE_INREGISTRARE With "asiguratori",loRec.id_asigurator + This.actualizeaza_grid1() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_sterge2 + If Reccount('v_inspectori')>0 + Select v_inspectori + Scatter Name loRec + pcNume = loRec.inspector + Do STERGE_INREGISTRARE With "inspectori",loRec.id_inspector + This.actualizeaza_grid2() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE gasiguratori.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + DoDefault() + lcFiltru=[id_asigurator=]+Alltrim(Str(v_asiguratori.id_asigurator)) + Thisform.actualizeaza_grid2(lcFiltru) + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_asiguratori_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="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_asiguratori1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_asigurator" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_client + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 105 + Name = "frm_asiguratori_nou" + Width = 370 + _shape1.Name = "_shape1" + _shape1.ZOrderSet = 0 + _shape2.Height = 29 + _shape2.Left = 307 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 64 + _shape2.ZOrderSet = 1 + Lb_titlu_alb_b121.Caption = "Asigurator" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + Lb_titlu_alb_b121.ZOrderSet = 7 + BUT_TERMIN1.Left = 339 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 2 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 23, ; + Name = "_checkbox1", ; + TabIndex = 2, ; + Top = 78, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 309, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 1, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ct_clb_asigurator' AS ct_clb_cautare_var WITH ; + cconditie = !EMPTY(NVL(porec.id_part,0)), ; + cprocedura = Thisform.do_cauta_client, ; + cvar_afisata = porec.asigurator, ; + Left = 10, ; + Name = "Ct_clb_asigurator", ; + TabIndex = 1, ; + Top = 42, ; + shape_cautare.Name = "shape_cautare", ; + img_cautare.Name = "img_cautare", ; + lb_cautare.Caption = "Asigurator", ; + lb_cautare.Name = "lb_cautare", ; + tx_cautare.Name = "tx_cautare" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_asiguratori1' AS cus_odata_asiguratori WITH ; + Left = 288, ; + Name = "Cus_odata_asiguratori1", ; + Top = 72 + *< END OBJECT: ClassLib="onom_devize.vcx" BaseClass="custom" /> + + PROCEDURE do_cauta_client + Local loCauta + loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Cauta asigurator in clienti??cCont=>4111??lAdaugCorespondente=>1??cFiltruOrig=>tip_persoana=1])) + If gnButon = 1 + poRec.id_part = loCauta.id_part + poRec.asigurator = loCauta.denumire + Endif + ENDPROC + + 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 + *!* modificare v 2.0.33 + *!* Case Empty(porec.asigurator) + *!* amessagebox('Nu ati completat denumirea asiguratorului!',0+48,"Atentie") + *!* This.clb_tx_simplu1.text_simplu1.SetFocus() + *!* PLRETURN=.F. + *!* Otherwise + *!* If Alltrim(Upper(This.cus_odata_asiguratori1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + *!* pcexec=[select * from ]+gcS+[.DEV_Vasiguratori where (TRIM(asigurator)=']+Alltrim(porec.asigurator)+[')] + *!* Do While .T. + *!* pnSucces = SQLExec(GNHANDLE,pcexec,'exista_asigurator') + *!* If pnSucces = 0 + *!* * instructiunea in curs de executie + *!* Else + *!* Exit + *!* Endif + *!* Enddo + *!* If Reccount('exista_asigurator')>0 + *!* amessagebox('Mai exista acest asigurator inregistrat',0+48,"Atentie") + *!* This.clb_tx_simplu1.text_simplu1.SetFocus() + *!* Use In exista_asigurator + *!* PLRETURN=.F. + *!* Else + *!* PLRETURN=This.cus_odata_asiguratori1.salvare(This.OREC,This.NID) + *!* Endif + *!* Else + *!* *!* WAIT WINDOW "pe else" + *!* PLRETURN=This.cus_odata_asiguratori1.salvare(This.OREC,This.NID) + *!* Endif + CASE EMPTY(NVL(porec.id_part,0)) + amessagebox("Nu ati ales asiguratorul!",48,"Atentie") + Thisform.ct_clb_asigurator.tx_cautare.SetFocus() + plReturn = .F. + OTHERWISE + plReturn = This.cus_odata_asiguratori1.salvare(This.OREC,This.NID) + *!* modificare v 2.0.33 ^ + Endcase + + Return PLRETURN + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_asiguratori1.cactiune = tcActiune + *!* modificare v 2.0.33 + If tcActiune = [UPDATE] + Thisform.ct_clb_asigurator.do_dezactiveaza() + *!* modificare v 2.0.35 + If toRec.blocat = 1 + Thisform._checkbox1.Caption = [Inactiv (trebuie activat mai intai clientul cu acelasi nume)] + Thisform._checkbox1.Enabled = .F. + Endif + *!* modificare v 2.0.35 ^ + Endif + *!* modificare v 2.0.33 ^ + *!* Do Case + *!* Case tcActiune='UPDATE' + *!* Thisform.clb_tx_simplu1.text_simplu1.ReadOnly=.T. + *!* Endcase + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cliemasini_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_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_putere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_putere.Text_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_putere._lbbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_cilindree" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_masiniclienti1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> + + * + *m: do_adauga_dealer + *m: do_adauga_masina + *p: canfabricatie + *p: nid + *p: orec + * + + * + BorderStyle = 1 + canfabricatie = + DoCreate = .T. + Height = 386 + Name = "frm_cliemasini_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 312 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 64 + Lb_titlu_alb_b121.Caption = "Main client" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 18 + BUT_TERMIN1.Left = 344 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 13 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 33, ; + Name = "_checkbox1", ; + TabIndex = 17, ; + Top = 359 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + caction = do_adauga_masina, ; + Left = 324, ; + Name = "But_nou1", ; + TabIndex = 15, ; + Top = 45 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou2' AS but_nou WITH ; + caction = do_adauga_dealer, ; + Left = 324, ; + Name = "But_nou2", ; + TabIndex = 16, ; + Top = 325, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 314, ; + Name = "But_renunt1", ; + TabIndex = 14, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Left = 29, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + _cbbase1.ControlSource = "porec.marca", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_marci.marca,id_marca", ; + _cbbase1.RowSourceType = 6, ; + _lbbase1.Caption = "Marc", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ; + Left = 29, ; + Name = "Cb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + _cbbase1.ControlSource = "porec.masina", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_masini.masina,id_masina", ; + _cbbase1.RowSourceType = 6, ; + _lbbase1.Caption = "Model", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_simplu3' AS cb_tx_simplu WITH ; + Left = 29, ; + Name = "Cb_tx_simplu3", ; + TabIndex = 12, ; + Top = 324, ; + _cbbase1.ControlSource = "porec.furnizor", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_dealeri.furnizor", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Furnizor:", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_cilindree' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 29, ; + Name = "clb_cilindree", ; + TabIndex = 7, ; + TabStop = .T., ; + Top = 212, ; + Width = 105, ; + ZOrderSet = 13, ; + Text_simplu1.ControlSource = "porec.Cilindree", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 56, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 45, ; + Lb_simplu1.Caption = "Cilindree", ; + Lb_simplu1.Left = 3, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_putere' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 133, ; + Name = "clb_putere", ; + TabIndex = 8, ; + TabStop = .T., ; + Top = 212, ; + Width = 186, ; + ZOrderSet = 13, ; + Text_simplu1.ControlSource = "porec.PutereCP", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 88, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 41, ; + Lb_simplu1.Caption = "Putere CP/KW", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_putere._lbbase1' AS _lbbase WITH ; + Caption = "/", ; + Left = 132, ; + Name = "_lbbase1", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> + + ADD OBJECT 'clb_putere.Text_simplu2' AS _txbase WITH ; + ControlSource = "porec.PutereKW", ; + Format = "!K", ; + Height = 23, ; + Left = 138, ; + Name = "Text_simplu2", ; + Top = 3, ; + Width = 43 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 29, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 3, ; + Top = 100, ; + Text_simplu1.ControlSource = "porec.nrinmat", ; + Text_simplu1.MaxLength = 35, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nr. nmatriculare", ; + 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 = 29, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 4, ; + Top = 128, ; + Text_simplu1.ControlSource = "porec.culoare", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Culoare", ; + 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 = 29, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 5, ; + Top = 156, ; + Text_simplu1.ControlSource = "porec.series", ; + Text_simplu1.MaxLength = 17, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Serie asiu", ; + 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 = 29, ; + Name = "Clb_tx_simplu4", ; + TabIndex = 6, ; + Top = 184, ; + Text_simplu1.ControlSource = "porec.seriem", ; + Text_simplu1.MaxLength = 18, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Serie motor", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ; + Left = 29, ; + Name = "Clb_tx_simplu5", ; + TabIndex = 9, ; + Top = 240, ; + Text_simplu1.ControlSource = "porec.kmint", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Km la bord", ; + 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 = 29, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 10, ; + Top = 268, ; + Text_simplu1.ControlSource = "porec.anfabricatie", ; + Text_simplu1.InputMask = "9999", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "An fabricaie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ; + Left = 29, ; + Name = "Clb_tx_simplu7", ; + TabIndex = 11, ; + Top = 296, ; + Text_simplu1.ControlSource = "porec.serief", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Factur achiziie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_masiniclienti1' AS cus_odata_masiniclienti WITH ; + Left = 108, ; + Name = "Cus_odata_masiniclienti1", ; + Top = 360 + *< END OBJECT: ClassLib="onom_devize.vcx" BaseClass="custom" /> + + PROCEDURE do_adauga_dealer + this.AlwaysOnTop = .F. + DO viz_dealeri IN onom_devize.prg + Do update_furnizori In update_devize.prg + this.AlwaysOnTop = .t. + ENDPROC + + PROCEDURE do_adauga_masina + Private pcmarca,pcmasina + Store "" To pcmarca,pcmasina + Do viz_masini_marci In onom_devize.prg With .T. + Do update_marci In update_devize.prg + Do update_masini In update_devize.prg + If !Empty(pcmarca) + porec.marca=pcmarca + porec.masina=pcmasina + Select v_marci + Locate For Alltrim(marca)=pcmarca + porec.id_marca=id_marca + Thisform.cb_tx_simplu1._CBBASE1.Refresh() + Select v_masini + Set Filter To id_marca = porec.id_marca + Locate For Alltrim(masina)=pcmasina + porec.id_masina=id_masina + Thisform.cb_tx_simplu2._CBBASE1.SetFocus() + Thisform.clb_tx_simplu1.SetFocus() + Else + Thisform.cb_tx_simplu1.SetFocus() + Endif + + ENDPROC + + 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.marca) + amessagebox('Nu ati completat marca masinii!',0+48,"Atentie") + This.cb_tx_simplu1._CBBASE1.SetFocus() + PLRETURN=.F. + + Case Empty(porec.masina) + amessagebox('Nu ati completat tipul masinii!',0+48,"Atentie") + This.cb_tx_simplu2._CBBASE1.SetFocus() + PLRETURN=.F. + + Case Empty(porec.nrinmat) + amessagebox('Nu ati completat numarul de inmatriculare al masinii!',0+48,"Atentie") + This.clb_tx_simplu1.text_simplu1.SetFocus() + PLRETURN=.F. + + Otherwise + *!* If Alltrim(Upper(This.cus_odata_masiniclienti1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + *!* *!* pcexec=[select * from ]+gcS+[.DEV_Vmasiniclienti where (TRIM(delegat)=']+Alltrim(porec.delegat)+[')] + *!* *!* Do While .T. + *!* *!* pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_delegat') + *!* *!* If pnSucces = 0 + *!* *!* * instructiunea in curs de executie + *!* *!* Else + *!* *!* Exit + *!* *!* Endif + *!* *!* Enddo + *!* *!* If Reccount('exista_delegat')>0 + *!* *!* amessagebox('Mai exista acest delegat inregistrat',0+48,"Atentie") + *!* *!* *!* This.clb_tx_simplu2.Text_simplu1.SetFocus() + *!* *!* this.cb_tx_simplu1._CBBASE1.SetFocus() + *!* *!* Use In exista_delegat + *!* *!* plreturn=.F. + *!* *!* ELSE + *!* PLRETURN=This.cus_odata_masiniclienti1.salvare(This.OREC,This.NID) + *!* *!* ENDIF + *!* Else + *!* *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_masiniclienti1.salvare(This.OREC,This.NID) + *!* Endif + Endcase + Return PLRETURN + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_masiniclienti1.cactiune = tcActiune + If tcActiune='UPDATE' + Select v_masini + Set Filter To id_marca = porec.id_marca + Go Top + *!* porec.id_masina = v_masini.id_masina + *!* porec.masina = v_masini.masina + Thisform.cb_tx_simplu2._cbbase1.Requery + Thisform.cb_tx_simplu2._cbbase1.Refresh + Endif + ENDPROC + + PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange + *!* Select v_marci + *!* porec.id_marca = v_marci.id_marca + *!* amessagebox(Alltrim(Str(porec.id_masina))+" "+Alltrim(Str(Thisform.orec.id_masina))) + *!* *!* DO update_masini IN update_devize.prg + *!* Select v_masini + *!* Set Filter To id_marca = v_marci.id_marca + *!* Go Top + *!* Thisform.cb_tx_simplu2._CBBASE1.Value=v_masini.masina + *!* Thisform.cb_tx_simplu2.Refresh + + porec.id_marca = v_marci.id_marca + Select v_masini + Set Filter To id_marca = v_marci.id_marca + Go Top + porec.id_masina = v_masini.id_masina + porec.masina = v_masini.masina + Thisform.cb_tx_simplu2._cbbase1.Requery + Thisform.cb_tx_simplu2._cbbase1.Refresh + ENDPROC + + PROCEDURE Cb_tx_simplu2._cbbase1.InteractiveChange + porec.id_masina = v_masini.id_masina + ENDPROC + + PROCEDURE Cb_tx_simplu3._cbbase1.LostFocus + porec.id_furnizor = v_dealeri.id_furnizor + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_clienti_verif 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="grdnume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnume.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdnume.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_mesaj" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_mesaj_confirmare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_da1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 500 + Name = "frm_clienti_verif" + Width = 432 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 432 + _shape2.Height = 29 + _shape2.Left = 396 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Visible = .F. + _shape2.Width = 37 + Lb_titlu_alb_b121.Caption = "VERIFICRI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 3 + BUT_TERMIN1.Left = 400 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Visible = .F. + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_da1' AS but_da WITH ; + Left = 141, ; + Name = "But_da1", ; + TabIndex = 2, ; + Top = 456 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nu1' AS but_nu WITH ; + Left = 225, ; + Name = "But_nu1", ; + TabIndex = 1, ; + Top = 456 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdnume' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 1, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLines = 0, ; + Height = 313, ; + Left = 48, ; + Name = "grdnume", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsnumeclienti", ; + ScrollBars = 2, ; + TabIndex = 5, ; + Top = 83, ; + Width = 336, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNume", ; + Column1.Width = 316 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdnume.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdnume.cNume.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_client' AS lb_simplu WITH ; + Caption = "Client", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 12, ; + Name = "Lb_client", ; + TabIndex = 6, ; + Top = 38, ; + Width = 46 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_mesaj' AS lb_simplu WITH ; + Caption = "Clieni cu nume asemntoare", ; + Left = 24, ; + Name = "Lb_mesaj", ; + TabIndex = 7, ; + Top = 60 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_mesaj_confirmare' AS lb_simplu WITH ; + Alignment = 2, ; + AutoSize = .F., ; + Caption = "Mesaj", ; + Height = 34, ; + Left = 24, ; + Name = "Lb_mesaj_confirmare", ; + TabIndex = 8, ; + Top = 410, ; + Width = 384, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Init + Lparameters tcNume,tnTip,tcNumeVechi + DoDefault() + Thisform.lb_client.Caption=tcNume + If tnTip=1 && inserare + lcMesaj="Suntei sigur c dorii s adaugai acest client?" + Else && modificare + lcMesaj="Suntei sigur c dorii s modificai numele clientului "+Alltrim(tcNumeVechi)+" n "+ Alltrim(tcNume)+"?" + Endif + SELECT crsnumeclienti + GO top + Thisform.lb_mesaj_confirmare.Caption=lcMesaj + Thisform.AutoCenter=.T. + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_codutilizator 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="" /> + + * + DoCreate = .T. + Height = 105 + Name = "frm_codutilizator" + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Name = "_SHAPE2" + LB_TITLU_ALB_B121.Caption = "Introduceti codul utilizatorului" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + GRIDSORT1.Name = "GRIDSORT1" + BUT_RENUNT1.Name = "BUT_RENUNT1" + * + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 29, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 50, ; + TEXT_SIMPLU1.ControlSource = "pcCodTehnician", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Cod utilizator", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\..\..\..\contafin\comun\clase\lb_tx.vcx" BaseClass="container" /> + +ENDDEFINE + +DEFINE CLASS frm_dealeri 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="gdealeri" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdealeri.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdealeri.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdealeri.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdealeri.Column2.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_dealer" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 381 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_dealeri" + Width = 404 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 408 + _shape2.Height = 29 + _shape2.Left = 280 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 125 + Lb_titlu_alb_b121.Caption = "Dealeri" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 373 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 314, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 284, ; + Name = "But_nou1", ; + TabIndex = 4, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 343, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_dealer' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_dealer", ; + TabIndex = 1, ; + Top = 43, ; + 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_cauta1' AS cmd_cauta WITH ; + Left = 312, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 44 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gdealeri' AS _grdrow WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 288, ; + Left = 14, ; + Name = "gdealeri", ; + Panel = 1, ; + RecordSource = "v_furnizori", ; + TabIndex = 3, ; + Top = 84, ; + Width = 382, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 314, ; + Column2.ControlSource = "inactiv", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Sparse = .F., ; + Column2.Width = 32 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gdealeri.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdealeri.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 'gdealeri.Column2.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 27, ; + Name = "Check1", ; + Top = 47, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gdealeri.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=podealeri.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gdealeri) + podealeri.ca_baza1.cfiltru=lcFiltru + podealeri.ca_baza1.afisare() + restore_grid_tag(thisform.gdealeri) + *!* IF RECCOUNT('v_mecanici')>0 + thisform.gdealeri.SetFocus() + *!* ELSE + *!* thisform.lb_mecanici.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select v_furnizori + Scatter Name loRec Blank + *!* lorec.id_asigurator = v_asiguratori.id_asigurator + *!* SELECT v_asiguratori + *!* SCATTER NAME loRec FIELDS id_asigurator + Select v_furnizori + Do Adauga_Modifica_Inregistrare With "dealeri",loRec,,"INSERT",,"adddeal" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcDealer = Strtran(Upper(Alltrim(thisform.clb_dealer.texT_SIMPLU1.Value)),['],['']) + If !Empty(lcDealer) + lcFiltru = [denumire like '] + lcDealer + [%'] + Else + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_furnizori')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + thisform.clb_dealer.SetFocus() + Endif + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_furnizori')>0 + Private pniesire + pniesire=0 + Select v_furnizori + Scatter Name loRec + + Select v_furnizori + Do Adauga_Modifica_Inregistrare With "dealeri",loRec,loRec.id_furnizor,"UPDATE",,"moddeal" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_furnizori')>0 + Select v_furnizori + Scatter Name loRec + pcNume = loRec.denumire + Do STERGE_INREGISTRARE With "dealeri",loRec.id_furnizor + This.actualizeaza_grid1() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_dealeri_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="Cus_odata_dealeri1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 103 + Name = "frm_dealeri_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 313 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 66 + Lb_titlu_alb_b121.Caption = "Dealer" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 346 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 42, ; + Name = "_checkbox1", ; + Top = 78 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 316, ; + 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 ; + Left = 42, ; + Name = "Clb_tx_simplu1", ; + Top = 42, ; + Text_simplu1.ControlSource = "porec.denumire", ; + 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 'Cus_odata_dealeri1' AS cus_odata_dealeri WITH ; + Left = 348, ; + Name = "Cus_odata_dealeri1", ; + Top = 60 + *< END OBJECT: ClassLib="onom_devize.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.denumire) + amessagebox('Nu ati completat denumirea dealerului!',0+48,"Atentie") + this.clb_tx_simplu1.text_simplu1.SetFocus() + + plreturn=.F. + + OTHERWISE + If Alltrim(Upper(This.cus_odata_dealeri1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + pcexec=[select * from ]+gcS+[.auto_Vfurnizori where (TRIM(denumire)=']+Alltrim(porec.denumire)+[')] + Do While .T. + pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_asigurator') + If pnSucces = 0 + * instructiunea in curs de executie + Else + Exit + Endif + Enddo + If Reccount('exista_asigurator')>0 + amessagebox('Mai exista acest dealer inregistrat',0+48,"Atentie") + This.clb_tx_simplu1.Text_simplu1.SetFocus() + Use In exista_asigurator + plreturn=.F. + ELSE + PLRETURN=This.cus_odata_dealeri1.salvare(This.OREC,This.NID) + ENDIF + ELSE + *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_dealeri1.salvare(This.OREC,This.NID) + ENDIF + + ENDCASE + + Return PLRETURN + + + + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_dealeri1.cactiune = tcActiune + *!* Do Case + *!* Case tcActiune='UPDATE' + *!* Thisform.clb_tx_simplu1.text_simplu1.ReadOnly=.T. + *!* Endcase + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_delegati 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="gdelegati" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column5.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.cTelefon1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.cTelefon1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.cTelefon2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.cTelefon2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_delegat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + + * + *p: cclient + *p: nidpartener && Pentru cautarile in functie de un partener. + * + + * + cclient = + cgridsortlist = gdelegati + DoCreate = .T. + Height = 441 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_delegati" + Width = 527 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 552 + _shape2.Height = 29 + _shape2.Left = 406 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 126 + Lb_titlu_alb_b121.Caption = "Delegati" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 9 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 497 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 8 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 438, ; + Name = "But_modifica1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 408, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 467, ; + Name = "But_sterge1", ; + TabIndex = 7, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_client' AS clb_tx_simplu WITH ; + Left = 26, ; + Name = "Clb_client", ; + TabIndex = 2, ; + Top = 64, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Client", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_delegat' AS clb_tx_simplu WITH ; + Left = 26, ; + Name = "Clb_delegat", ; + TabIndex = 1, ; + Top = 36, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Delegat", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 326, ; + Name = "Cmd_cauta1", ; + TabIndex = 3, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 326, ; + Name = "Cmd_reset1", ; + Top = 68 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gdelegati' AS _grdrow WITH ; + ColumnCount = 7, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 321, ; + Left = 12, ; + Name = "gdelegati", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_delegati", ; + TabIndex = 4, ; + Top = 108, ; + Width = 504, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 168, ; + Column2.ControlSource = "delegat", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 169, ; + Column3.ControlSource = "bi", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 74, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "eliberatde", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 196, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "inactiv", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Sparse = .F., ; + Column5.Width = 48, ; + Column6.ColumnOrder = 5, ; + Column6.ControlSource = "telefon1", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "cTelefon1", ; + Column7.ColumnOrder = 6, ; + Column7.ControlSource = "telefon2", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cTelefon2" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gdelegati.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column1.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 'gdelegati.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Delegat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column2.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 'gdelegati.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "BI", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column3.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 'gdelegati.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Eliberat de..", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column4.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 'gdelegati.Column5.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 16, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 71, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gdelegati.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.cTelefon1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 1", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.cTelefon1.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 'gdelegati.cTelefon2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 2", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.cTelefon2.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" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=podelegati.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gdelegati) + podelegati.ca_baza1.cfiltru=lcFiltru + podelegati.ca_baza1.afisare() + restore_grid_tag(thisform.gdelegati) + *!* IF RECCOUNT('v_delegati')>0 + thisform.gdelegati.SetFocus() + *!* ELSE + *!* thisform.lb_delegati.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select v_delegati + Scatter Name loRec Blank + If !Empty(Thisform.nidpartener) + loRec.id_partener=Thisform.nidpartener + loRec.nume=Thisform.cclient + *!* Do update_clienti With Thisform.nidpartener In update_devize.prg + *!* Else + *!* Do update_clienti In update_devize.prg + Endif + Do Adauga_Modifica_Inregistrare With "delegati",loRec,,"INSERT",,"adddeleg" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcDelegat = Strtran(Upper(Alltrim(Thisform.clb_delegat.texT_SIMPLU1.Value)),['],['']) + lcClient = Strtran(Upper(Alltrim(Thisform.clb_client.texT_SIMPLU1.Value)),['],['']) + If !Empty(Thisform.nidpartener) + lcFiltru = [id_partener = ] + Alltrim(Str(Thisform.nidpartener)) + [ and ] + Endif + + If !Empty(lcClient) + lcFiltru = lcFiltru + [nume like '] + lcClient + [%' and ] + Endif + + If !Empty(lcDelegat) And Empty(Thisform.nidpartener) + lcFiltru = lcFiltru + [delegat like '] + lcDelegat + [%' and ] + Endif + + lcFiltru=lcFiltru + [2=2] + + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_delegati')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clb_delegat.SetFocus() + Endif + This.LockScreen=.F. + This.MousePointer= 0 + + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_delegati')>0 + Private pnButon + pnButon=0 + *!* Do update_clienti In update_devize.prg + Select v_delegati + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "delegati",loRec,loRec.id_nom_delegati,"UPDATE",,"moddeleg" + If pnButon=1 + This.actualizeaza_grid1() + Endif + ELSE + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_reset + Thisform.clb_client.text_simplu1.Value=[] + Thisform.clb_delegat.text_simplu1.Value=[] + Thisform.clb_delegat.SetFocus() + + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_delegati')>0 + Private pnButon + pnButon=1 + Select v_delegati + Scatter Name lorec + Do STERGE_INREGISTRARE With "delegati",lorec.id_nom_delegati + If pnButon=1 + This.actualizeaza_grid1() + Endif + ELSE + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE Init + Lparameters tnidpartener,tcPartener + DoDefault() + If !Empty(tnidpartener) + Thisform.nidpartener=tnidpartener + thisform.cclient=tcPartener + Thisform.clb_client.text_simplu1.Value=tcPartener + Thisform.clb_client.text_simplu1.Enabled=.F. + Endif + + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + lcControl = Upper(Alltrim(This.ActiveControl.Name)) + If nKeyCode = 13 And nShiftAltCtrl=0 And lcControl = 'GDELEGATI' && enter + Nodefault + Thisform.but_TERMIN1.SetFocus + Else + DoDefault(nKeyCode, nShiftAltCtrl) + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_delegati_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="Cus_odata_delegati1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_delegat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_bi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_eliberatde" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_client" UniqueID="" Timestamp="" /> + + * + *m: do_alege_client + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 236 + Name = "frm_delegati_nou" + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 312 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 65 + LB_TITLU_ALB_B121.Caption = "Delegat" + 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.Left = 336 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 144 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 32, ; + Name = "_checkbox1", ; + TabIndex = 7, ; + Top = 212 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + 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 'Clb_bi' AS clb_tx_simplu WITH ; + Left = 25, ; + Name = "Clb_bi", ; + TabIndex = 3, ; + Top = 92, ; + Text_simplu1.ControlSource = "porec.bi", ; + Text_simplu1.MaxLength = 10, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Serie,Nr BI:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_delegat' AS clb_tx_simplu WITH ; + Left = 25, ; + Name = "Clb_delegat", ; + TabIndex = 2, ; + Top = 64, ; + Text_simplu1.ControlSource = "porec.delegat", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Delegat:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_eliberatde' AS clb_tx_simplu WITH ; + Left = 25, ; + Name = "Clb_eliberatde", ; + TabIndex = 4, ; + Top = 120, ; + Text_simplu1.ControlSource = "porec.eliberatde", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Eliberat de:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon1' AS clb_tx_simplu WITH ; + Left = 25, ; + Name = "Clb_telefon1", ; + TabIndex = 5, ; + Top = 148, ; + Text_simplu1.ControlSource = "porec.telefon1", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Telefon 1", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ; + Left = 25, ; + Name = "Clb_telefon2", ; + TabIndex = 6, ; + Top = 176, ; + Text_simplu1.ControlSource = "porec.telefon2", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Telefon 2", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_client' AS ct_clb_cautare WITH ; + cconditie = Empty(porec.id_partener), ; + cprocedura = Thisform.do_alege_client, ; + cvar_afisata = porec.nume, ; + Height = 31, ; + Left = 24, ; + Name = "Ct_clb_client", ; + TabIndex = 1, ; + Top = 35, ; + Width = 336, ; + img_cautare.Left = 308, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Lb_simplu1.Caption = "Client", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 102, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_delegati1' AS cus_odata_delegati WITH ; + Left = 0, ; + Name = "Cus_odata_delegati1", ; + Top = 144 + *< END OBJECT: ClassLib="onom_devize.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_client + Local lnId,lcNume + lnId=poRec.id_partener + lcNume=poRec.nume + If cauta_client(@lnId,@lcNume) + poRec.id_partener=lnId + poRec.nume=lcNume + Thisform.ct_clb_client.Refresh() + Endif + + ENDPROC + + 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.nume) + amessagebox('Nu ati completat denumirea clientului!',0+48,"Atentie") + Thisform.ct_clb_client.SetFocus() + plReturn=.F. + Otherwise + *!* If Alltrim(Upper(This.cus_odata_delegati1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + *!* If Used('exista_del') + *!* Use In exista_del + *!* Endif + *!* lcSql=[select count(*) as inreg from ]+gcS+[.DEV_Vdelegati ] + ; + *!* [where (TRIM(delegat)=']+Alltrim(porec.delegat)+[') and ] + ; + *!* [id_partener=]+Alltrim(Str(porec.id_partener)) + *!* lnSucces = goExecutor.oExecute(lcSql,'exista_del') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,"Eroare") + *!* plReturn=.F. + *!* Else + *!* Select exista_del + *!* lnInreg=exista_del.inreg + *!* Use In exista_del + *!* If lnInreg>0 + *!* amessagebox('Mai exista acest delegat inregistrat!',0+48,"Atentie") + *!* Thisform.clb_client.text_simplu1.SetFocus() + *!* plReturn=.F. + *!* Else + *!* plReturn=This.cus_odata_delegati1.salvare(This.OREC,This.NID) + *!* Endif + *!* Endif + *!* Else + plReturn=This.cus_odata_delegati1.salvare(This.OREC,This.NID) + *!* Endif + Endcase + + Return plReturn + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_delegati1.cactiune = tcActiune + If (tcActiune='INSERT' And !Empty(toRec.id_partener)) Or tcActiune='UPDATE' + Thisform.ct_clb_client.do_dezactiveaza() + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_dev_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="gclienti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cTelefon.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cTelefon.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cAdresa.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cAdresa.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cBanca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cBanca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cCont_banca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cCont_banca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cReg_comert.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cReg_comert.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cJudet.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cJudet.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cLocalitate.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gclienti.cLocalitate.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column11.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_marca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_masina" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_denumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_seriem" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_series" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_clienti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbMasini" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="but_modifica3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_anfabricatie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautare2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDiscountManopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDiscountMateriale" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_discount + *m: do_activeaza_cautare2 + *m: do_adauga2 + *m: do_cauta2 + *m: do_modifica2 + *m: do_modifica_adresa + *m: do_modifica_discount + *m: do_salveaza_discount + *m: do_sterge2 + *m: leditmode_assign + *p: lcautare2 + *p: leditmode + *p: lmasiniactive && .T. daca se afiseaza doar masinile active. + *p: nidctr && Id contract pentru discount-uri manopera si materiale + *p: nidtippart + * + + * + BorderStyle = 1 + cbuton7 = but_modifica3 + cgridsortlist = gclienti,gmasini + DoCreate = .T. + Height = 590 + lcautare2 = .F. + leditmode = .F. + lmasiniactive = .F. + Name = "frm_dev_clienti" + nidctr = 0 + nidtippart = 0 + Width = 774 + _memberdata = + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 775 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 744 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 37 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "CLIENTI - Generare, Vizualizare, Modificare" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 19 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 741 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 18 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 8 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_label1' AS _label WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Caption = "Discount manopera %", ; + Height = 18, ; + Left = 642, ; + Name = "_label1", ; + Top = 76, ; + Width = 128, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Caption = "Discount materiale %", ; + Height = 18, ; + Left = 642, ; + Name = "_label2", ; + Top = 125, ; + Width = 124, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'But_cautare1' AS but_cautare WITH ; + Left = 424, ; + Name = "But_cautare1", ; + TabIndex = 2, ; + ToolTipText = "Cauta", ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_cautare2' AS but_cautare WITH ; + Anchor = 12, ; + caction = do_cauta2, ; + Left = 667, ; + Name = "But_cautare2", ; + TabIndex = 2, ; + ToolTipText = "Cauta", ; + Top = 528 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 710, ; + Name = "But_excel1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Left = 546, ; + Name = "But_modifica1", ; + TabIndex = 6, ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica2' AS but_modifica WITH ; + Anchor = 12, ; + caction = do_modifica2, ; + Left = 583, ; + Name = "But_modifica2", ; + TabIndex = 10, ; + ToolTipText = "Modificare masina", ; + Top = 373, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'but_modifica3' AS but_modiparam WITH ; + Anchor = 8, ; + caction = do_modifica_adresa, ; + Left = 576, ; + Name = "but_modifica3", ; + TabIndex = 8, ; + ToolTipText = "Modifica adresa principala", ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica4' AS but_modifica WITH ; + Anchor = 8, ; + caction = do_modifica_discount, ; + Left = 732, ; + Name = "But_modifica4", ; + TabIndex = 6, ; + ToolTipText = "Modificare discount", ; + Top = 141 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 515, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou2' AS but_nou WITH ; + Anchor = 12, ; + caction = do_adauga2, ; + Left = 549, ; + Name = "But_nou2", ; + TabIndex = 9, ; + ToolTipText = "Adaugare masina", ; + Top = 373 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset1' AS but_reset WITH ; + Left = 463, ; + Name = "But_reset1", ; + TabIndex = 22, ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset2' AS but_reset WITH ; + Anchor = 12, ; + Left = 699, ; + Name = "But_reset2", ; + TabIndex = 22, ; + Top = 528 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 606, ; + Name = "But_sterge1", ; + TabIndex = 7, ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge2' AS but_sterge WITH ; + Anchor = 12, ; + caction = do_sterge2, ; + Left = 615, ; + Name = "But_sterge2", ; + TabIndex = 11, ; + ToolTipText = "Stergere masina", ; + Top = 373, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_denumire' AS cb_tx_cautare WITH ; + cpornire = 1, ; + Left = 106, ; + Name = "Cb_denumire", ; + TabIndex = 1, ; + Top = 42, ; + Text.Name = "Text", ; + criteriu.Name = "criteriu" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_anfabricatie' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 12, ; + camp_nume = anfabricatie, ; + Caption = "An fabricatie", ; + Left = 655, ; + Name = "Ck_anfabricatie", ; + TabIndex = 17, ; + Top = 503, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_marca' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 12, ; + camp_nume = marca, ; + Caption = "Marca mainii", ; + Left = 655, ; + Name = "Ck_marca", ; + TabIndex = 12, ; + Top = 428, ; + Width = 100, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_masina' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 12, ; + camp_nume = masina, ; + Caption = "Model", ; + Left = 655, ; + Name = "Ck_masina", ; + TabIndex = 13, ; + Top = 442, ; + Width = 54, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 12, ; + camp_nume = nrinmat, ; + Caption = "Nr. nmatriculare", ; + Left = 655, ; + Name = "Ck_nrinmat", ; + TabIndex = 14, ; + Top = 457, ; + Width = 114, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_seriem' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 12, ; + camp_nume = seriem, ; + Caption = "Serie motor", ; + Left = 655, ; + Name = "ck_seriem", ; + TabIndex = 15, ; + Top = 472, ; + Width = 86, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_series' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 12, ; + camp_nume = series, ; + Caption = "Serie asiu", ; + Left = 655, ; + Name = "Ck_series", ; + TabIndex = 16, ; + Top = 487, ; + Width = 84, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'gclienti' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 9, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 274, ; + Left = 12, ; + Name = "gclienti", ; + Panel = 1, ; + RecordSource = "v_clie", ; + RowHeight = 19, ; + TabIndex = 3, ; + Top = 74, ; + Width = 624, ; + ZOrderSet = 6, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNume", ; + Column1.ReadOnly = .T., ; + Column1.Width = 239, ; + Column2.ControlSource = "cod_fiscal", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cCod_fiscal", ; + Column2.ReadOnly = .T., ; + Column2.Width = 91, ; + Column3.ControlSource = "telefon", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cTelefon", ; + Column3.ReadOnly = .T., ; + Column4.ControlSource = "adresa", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cAdresa", ; + Column4.ReadOnly = .T., ; + Column4.Width = 270, ; + Column5.ControlSource = "banca", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cBanca", ; + Column5.ReadOnly = .T., ; + Column5.Width = 114, ; + Column6.ControlSource = "cont_banca", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cCont_banca", ; + Column6.ReadOnly = .T., ; + Column6.Width = 52, ; + Column7.ControlSource = "reg_comert", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "cReg_comert", ; + Column7.ReadOnly = .T., ; + Column7.Width = 133, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "judet", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Name = "cJudet", ; + Column8.ReadOnly = .T., ; + Column8.Visible = .T., ; + Column8.Width = 68, ; + Column9.ColumnOrder = 8, ; + Column9.ControlSource = "localitate", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cLocalitate", ; + Column9.ReadOnly = .T., ; + Column9.Width = 127 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gclienti.cAdresa.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Adresa", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.cAdresa.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 'gclienti.cBanca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.cBanca.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 'gclienti.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 'gclienti.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 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gclienti.cCont_banca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.cCont_banca.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 'gclienti.cJudet.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Judet", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.cJudet.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 'gclienti.cLocalitate.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.cLocalitate.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 'gclienti.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.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., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gclienti.cReg_comert.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Reg.Com.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.cReg_comert.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 'gclienti.cTelefon.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gclienti.cTelefon.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 'gmasini' AS _grdrow WITH ; + Anchor = 14, ; + ColumnCount = 14, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 173, ; + Left = 12, ; + Name = "gmasini", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_masiniclie", ; + RowHeight = 19, ; + TabIndex = 4, ; + Top = 403, ; + Width = 633, ; + ZOrderSet = 7, ; + Column1.ControlSource = "marca", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 96, ; + Column2.ControlSource = "masina", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 93, ; + Column3.ControlSource = "nrinmat", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 99, ; + Column4.ControlSource = "culoare", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 77, ; + Column5.ControlSource = "series", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 138, ; + Column6.ControlSource = "seriem", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 107, ; + Column7.ControlSource = "kmint", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "Column7", ; + Column7.ReadOnly = .T., ; + Column8.ColumnOrder = 11, ; + Column8.ControlSource = "anfabricatie", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.InputMask = "9999", ; + Column8.Name = "Column8", ; + Column8.ReadOnly = .T., ; + Column8.Width = 76, ; + Column9.ColumnOrder = 12, ; + Column9.ControlSource = "serief", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 104, ; + Column10.ColumnOrder = 13, ; + Column10.ControlSource = "furnizor", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "Column10", ; + Column10.ReadOnly = .T., ; + Column10.Width = 133, ; + Column11.ColumnOrder = 14, ; + Column11.ControlSource = "inactiv", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "Column11", ; + Column11.ReadOnly = .T., ; + Column11.Sparse = .F., ; + Column11.Visible = .T., ; + Column11.Width = 36, ; + Column12.ColumnOrder = 8, ; + Column12.ControlSource = "cilindree", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column12.Width = 54, ; + Column13.ColumnOrder = 9, ; + Column13.ControlSource = "puterecp", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column13.Width = 64, ; + Column14.ColumnOrder = 10, ; + Column14.ControlSource = "puterekw", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 68 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gmasini.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca masinii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.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., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gmasini.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Furnizor", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column10.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 'gmasini.Column11.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 30, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 40, ; + Visible = .T., ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gmasini.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cilindree", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column12.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 'gmasini.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Putere CP", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column13.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 'gmasini.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Putere KW", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column14.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 'gmasini.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Model", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column2.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 'gmasini.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inmatriculare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column3.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 'gmasini.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Culoare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column4.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 'gmasini.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie sasiu", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column5.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 'gmasini.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie motor", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column6.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 'gmasini.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Km. la bord", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.Column7.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 'gmasini.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An fabricatie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.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., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gmasini.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fact. de achizitie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.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., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.gclienti, ; + Left = 708, ; + Name = "Gridextra1", ; + Top = 33 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridextra2' AS gridextra WITH ; + gridexpression = Thisform.gmasini, ; + Left = 660, ; + Name = "Gridextra2", ; + Top = 408 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'lb_clienti' AS lb_simplu WITH ; + Caption = "Nume client", ; + Left = 24, ; + Name = "lb_clienti", ; + TabIndex = 21, ; + Top = 47 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lbMasini' AS _lbbase WITH ; + Anchor = 4, ; + BackStyle = 0, ; + Caption = "Maini", ; + FontBold = .T., ; + Left = 17, ; + Name = "lbMasini", ; + TabIndex = 20, ; + Top = 378, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> + + ADD OBJECT 'txtDiscountManopera' AS _textbox WITH ; + Anchor = 8, ; + Format = "K", ; + Height = 23, ; + Left = 642, ; + Name = "txtDiscountManopera", ; + ReadOnly = .T., ; + Top = 97, ; + Width = 68 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtDiscountMateriale' AS _textbox WITH ; + Anchor = 8, ; + Format = "K", ; + Height = 23, ; + Left = 642, ; + Name = "txtDiscountMateriale", ; + ReadOnly = .T., ; + Top = 143, ; + Width = 68 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE actualizeaza_discount + LPARAMETERS tnIdPart + LOCAL lnDiscountManopera, lnDiscountMateriale, lnIdCtr + citeste_discount_contract(m.tnIdPart, @lnIdCtr, @lnDiscountManopera, @lnDiscountMateriale) + + this.nIdCtr = lnIdCtr + this.txtDiscountManopera.Value = m.lnDiscountManopera + this.txtDiscountMateriale.Value = m.lnDiscountMateriale + + this.txtDiscountManopera.Refresh + this.txtDiscountMateriale.Refresh + + ENDPROC + + PROCEDURE actualizeaza_grid1 + Lparameters lcFiltru + + *!* IF !tlFmasini AND thisform.ck_client.Value # 1 + *!* lcFiltru = [2 = 2] + *!* ENDIF + *!* modificare v 2.0.6 + *!* If !Thisform.lCautare2 And Empty(This.clb_denumire.text_simplu1.Value) + If !Thisform.lCautare2 And Empty(This.cb_denumire.text.Value) AND VAL(This.cb_denumire.criteriu.Value) < 6 + *!* modificare v 2.0.6 ^ + lcFiltru = [a.id_tip_part = ] + Alltrim(Str(Thisform.nidtippart)) + [ and b.inactiv=0] + Endif + + If Empty(lcFiltru) + lcFiltru = poclie.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.gclienti.salveaza_grid() + poclie.ca_baza1.cfiltru=lcFiltru + poclie.ca_baza1.afisare() + Thisform.gclienti.incarca_grid() + Thisform.LockScreen=.F. + + Thisform.MousePointer= 0 + Select v_clie + Go Top + Thisform.Refresh + ENDPROC + + PROCEDURE actualizeaza_grid2 + Lparameters lcFiltru2 + + If Empty(lcFiltru2) + lcFiltru2 = pomasini.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + + Thisform.GMASINI.salveaza_grid() + pomasini.ca_baza1.cfiltru=lcFiltru2 + pomasini.ca_baza1.afisare() + Thisform.GMASINI.incarca_grid() + If Thisform.lcautare2 + Select v_masiniclie + If Reccount() = 1 + lcFiltru = [a.id_tip_part = ] + Alltrim(Str(Thisform.nidtippart)) + ; + [and b.inactiv=0 and b.id_part = ]+ Alltrim(Str(id_partener)) + Thisform.actualizeaza_grid1(lcFiltru) + Endif + Endif + Thisform.LockScreen=.F. + + Thisform.MousePointer= 0 + Select v_masiniclie + Go Top + Thisform.Refresh + ENDPROC + + PROCEDURE do_activeaza_cautare2 + Local lnBife + lnBife = Thisform.ck_anfabricatie.Value + Thisform.ck_marca.Value + Thisform.ck_masina.Value + Thisform.ck_nrinmat.Value + ; + thisform.ck_seriem.Value + Thisform.ck_series.Value + If lnBife > 0 + Thisform.cb_denumire.criteriu.Enabled = .F. + Thisform.cb_denumire.Text.Enabled = .F. + Thisform.but_cautare1.Visible = .F. + Else + Thisform.cb_denumire.criteriu.Enabled = .T. + Thisform.cb_denumire.Text.Enabled = .T. + Thisform.but_cautare1.Visible = .T. + Endif + ENDPROC + + PROCEDURE do_adauga + loRec = nom_parteneri_nou(Thisform.nidtippart,Thisform.lb_titlu_alb_b121.Caption,1) + If gnButon = 1 + If !Isnull(loRec) + *!* loRecAdresa = adrese_parteneri_nou(loRec.id_part) + *!* modificare v 2.0.6 + *!* Thisform.clb_denumire.text_simplu1.Value = ALLTRIM(loRec.denumire) + Thisform.cb_denumire.Text.Value = ALLTRIM(loRec.denumire) + *!* modificare v 2.0.6 ^ + Thisform.do_cauta() + Select v_clie + Locate For id_part = loRec.id_part + If !Found() + Locate + Endif + Endif + This.gclienti.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_adauga2 + Private pniesire + pniesire=0 + Select v_masiniclie + Do update_marci In update_devize.prg + Do update_masini In update_devize.prg + Do update_furnizori In update_devize.prg + + Select v_masiniclie + Scatter Name loRec Blank + loRec.id_partener = v_clie.id_part + Do Adauga_Modifica_Inregistrare With "cliemasini",loRec,,"INSERT",,"addmasclie" + If pniesire=1 + This.actualizeaza_grid2() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru1,lcFiltru2,lcNume + Store '' To lcFiltru1,lcFiltru2 + lcFiltru1 = [a.id_tip_part=] + Alltrim(Str(Thisform.nidtippart))+[ and b.inactiv=0] + lcFiltru2 = [1=2] + lnCriteriu = Val(Thisform.cb_denumire.criteriu.Value) + lcNume = Strtran(Upper(Alltrim(This.cb_denumire.Text.Value)),['],['']) + Do Case + Case lnCriteriu=1 + lcFiltru1 = lcFiltru1 + [ and b.denumire LIKE '] + Upper(Alltrim(lcNume)) + [%'] + Case lnCriteriu=2 + lcFiltru1 = lcFiltru1 + [ and b.denumire ='] + Upper(Alltrim(lcNume)) + ['] + Case lnCriteriu=3 + lcFiltru1 = lcFiltru1 + [ and b.denumire !='] + Upper(Alltrim(lcNume)) + ['] + Case lnCriteriu=4 + lcFiltru1 = lcFiltru1 + [ and b.denumire LIKE '%] + Upper(Alltrim(lcNume)) + [%'] + Case lnCriteriu=5 + lcFiltru1 = lcFiltru1 + [ and b.denumire NOT LIKE '%] + Upper(Alltrim(lcNume)) + [%'] + Case lnCriteriu=6 + lcFiltru1 = lcFiltru1 + Endcase + Thisform.lcautare2 = .F. + + Thisform.actualizeaza_grid1(lcFiltru1) + If Reccount('v_clie') > 0 + Select v_clie + Go Top + Thisform.gclienti.SetFocus() + Else + Thisform.actualizeaza_grid2([1=2]) + amessagebox("Cautarea nu a intors rezultate!",64,"Info cautare clienti") + Thisform.cb_denumire.Text.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_cauta2 + Local lcFiltru1,lcFiltru2,llFMasini,lcNume + Store '' To lcFiltru1,lcFiltru2 + lcFiltru1 = [1=2] + lcFiltru2 = [id_partener not in (select id_part from nom_parteneri where sters = 1 or inactiv = 1)] + ; + iif(Thisform.lmasiniactive,[ and inactiv = 0],[]) && modificare v 2.1.1 + + If Thisform.ck_marca.Value = 1 + lcFiltru2 = lcFiltru2 + Thisform.ck_marca.filtru + Endif + + If Thisform.ck_masina.Value = 1 + lcFiltru2 = lcFiltru2 + Thisform.ck_masina.filtru + Endif + + If Thisform.ck_nrinmat.Value = 1 + lcFiltru2 = lcFiltru2 + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_seriem.Value = 1 + lcFiltru2 = lcFiltru2 + Thisform.ck_seriem.filtru + Endif + + If Thisform.ck_series.Value = 1 + lcFiltru2 = lcFiltru2 + Thisform.ck_series.filtru + Endif + + If Thisform.ck_anfabricatie.Value = 1 + lcFiltru2 = lcFiltru2 + Thisform.ck_anfabricatie.filtru + Endif + + Thisform.lcautare2 = .T. + Thisform.actualizeaza_grid2(lcFiltru2) + If Reccount('v_masiniclie')>0 + Select v_masiniclie + Go Top + Thisform.gmasini.SetFocus() + Else + Thisform.actualizeaza_grid1([1=2]) + amessagebox("Cautarea nu a intors rezultate!",64,"Info cautare masini") + Thisform.ck_marca.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_excel + lcSql = [SELECT * FROM AUTO_VCLIENTIMASINI] + llSucces = goExecutor.oExecuta(m.lcSql, "cauto_clientimasini") + IF m.llSucces + goExport.export2xlsx("cauto_clientimasini", "auto_clientimasini") + ENDIF + + + ENDPROC + + PROCEDURE do_modifica + LOCAL lnIdPart + If Thisform.but_modifica1.Visible + If Reccount('v_clie')>0 + Select v_clie + lnIdPart = id_part + loRec = nom_parteneri_modifica(lnIdPart,Thisform.nidtippart,Thisform.lb_titlu_alb_b121.Caption,1) + If !Isnull(loRec) + This.actualizeaza_grid1() + Select v_clie + Locate For id_part = lnIdPart + If !Found() + Locate + ENDIF + thisform.gclienti.Refresh() + Endif + Endif + Endif + ENDPROC + + PROCEDURE do_modifica2 + If Reccount('v_masiniclie')>0 + Private pniesire + pniesire=0 + + Select v_masiniclie + Do update_marci In update_devize.prg + Do update_masini In update_devize.prg + Do update_furnizori In update_devize.prg + + Select v_masiniclie + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "cliemasini",loRec,loRec.id_masiniclient,"UPDATE",,"modmasclie" + If pniesire=1 + This.actualizeaza_grid2() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica_adresa + LOCAL lnIdAdresa, lnIdPart, loRec + + If Thisform.but_modifica3.Visible + If Reccount('v_clie')>0 + lnIdAdresa = v_clie.id_adresa + lnIdPart = v_clie.id_part + + IF !EMPTY(lnIdAdresa) AND !ISNULL(lnIdAdresa) + loRec = adrese_parteneri_modifica(lnIdAdresa) && in onomenclatoare.prg + ELSE + loRec = adrese_parteneri_nou(lnIdPart) && in onomenclatoare.prg + ENDIF + + IF !ISNULL(loRec) + This.actualizeaza_grid1() + SELECT v_clie + LOCATE FOR id_part = lnIdPart + IF !FOUND() + LOCATE + ENDIF + ENDIF + Endif + ENDIF + ENDPROC + + PROCEDURE do_modifica_discount + IF !This.lEditMode + This.lEditmode = .T. + ELSE + llSucces = This.do_salveaza_discount() + IF !m.llSucces + thisform.actualizeaza_discount() + ELSE + This.lEditmode = .F. + ENDIF + + ENDIF + + ENDPROC + + PROCEDURE do_reset + *!* thisform.ck_client.Value = 0 + Thisform.ck_marca.Value = 0 + Thisform.ck_masina.Value = 0 + Thisform.ck_nrinmat.Value = 0 + Thisform.ck_seriem.Value = 0 + Thisform.ck_series.Value = 0 + Thisform.ck_anfabricatie.Value = 0 + *!* modificare v 2.0.6 + *!* Thisform.clb_denumire.text_simplu1.Value = '' + *!* Thisform.clb_denumire.text_simplu1.Enabled = .T. + *!* Thisform.clb_denumire.text_simplu1.SetFocus() + Thisform.do_activeaza_cautare2() + Thisform.cb_denumire.text.Value = '' + Thisform.cb_denumire.do_initializeaza_ct() + Thisform.cb_denumire.SetFocus() + *!* modificare v 2.0.6 ^ + Thisform.Refresh() + ENDPROC + + PROCEDURE do_salveaza_discount + Local llSucces, lnIdCtr, lnIdPart, lnProcDiscountManopera, lnProcDiscountMateriale + lnIdPart = v_clie.id_part + lnIdCtr = This.nIdCtr + lnProcDiscountManopera = This.txtDiscountManopera.Value + lnProcDiscountMateriale = This.txtDiscountMateriale.Value + llSucces = salveaza_discount_contract(m.lnIdPart, m.lnIdCtr, m.lnProcDiscountManopera, m.lnProcDiscountMateriale) + + RETURN m.llSucces + + ENDPROC + + PROCEDURE do_sterge + If Thisform.but_sterge1.Visible + If Reccount('v_clie')>0 + Select v_clie + Scatter Name loRec + pcNume = loRec.nume + Do STERGE_INREGISTRARE With "parteneri",loRec.id_part + This.actualizeaza_grid1() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + Endif + + ENDPROC + + PROCEDURE do_sterge2 + If Reccount('v_masiniclie')>0 + Select v_masiniclie + Scatter Name loRec + *!* pcNume = lorec.nume + Do STERGE_INREGISTRARE With "masiniclienti",loRec.id_masiniclient + This.actualizeaza_grid2() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE Init + *!* 19.08.2015 + *!* marius.mutu + *!* drepturi buton modificare adresa + + *!* modificare v 2.1.1 + lparameters tlDoarMasiniActive + Thisform.lmasiniactive = tlDoarMasiniActive + *!* modificare v 2.1.1 ^ + DoDefault() + Thisform.nidtippart = GetContIdTipPart("4111") + Thisform.cb_denumire.do_initializeaza_ct() + Thisform.cb_denumire.Text.SetFocus() + Thisform.gmasini.SetAll("DynamicBackColor","IIF(inactiv=1,rgb(128,128,128),rgb(255,255,255))","Column") && modificare v 2.1.1 + Bindevent(Thisform.ck_anfabricatie,"InteractiveChange",Thisform,"do_activeaza_cautare2",1) + Bindevent(Thisform.ck_marca,"InteractiveChange",Thisform,"do_activeaza_cautare2",1) + Bindevent(Thisform.ck_masina,"InteractiveChange",Thisform,"do_activeaza_cautare2",1) + Bindevent(Thisform.ck_nrinmat,"InteractiveChange",Thisform,"do_activeaza_cautare2",1) + Bindevent(Thisform.ck_seriem,"InteractiveChange",Thisform,"do_activeaza_cautare2",1) + Bindevent(Thisform.ck_series,"InteractiveChange",Thisform,"do_activeaza_cautare2",1) + + thisform.but_modifica3.Visible = THISFORM.lactiv7 && modificare adresa + thisform.but_modifica4.Visible = THISFORM.lactiv6 && modificare discount + + this.gridextra1.setup() + this.gridextra2.setup() + + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + lcControl = Upper(Alltrim(This.ActiveControl.Name)) + Do Case + Case nKeyCode = 13 And lcControl = 'TEXT' + Nodefault + Thisform.do_cauta() + Case Between(nKeyCode,32,122) And lcControl = 'GCLIENTI' + Nodefault + Thisform.cb_denumire.Text.SetFocus() + Thisform.cb_denumire.Text.Value = Alltrim(Thisform.cb_denumire.Text.Value) + Chr(nKeyCode) + Keyboard '{END}' + Case nKeyCode = 127 And lcControl = 'GCLIENTI' && backspace + Nodefault + Thisform.cb_denumire.Text.Value = Left(Alltrim(Thisform.cb_denumire.Text.Value),Len(Alltrim(Thisform.cb_denumire.Text.Value))-1) + Thisform.cb_denumire.Text.SetFocus() + Keyboard '{END}' + Otherwise + DoDefault(nKeyCode, nShiftAltCtrl) + Endcase + + ENDPROC + + PROCEDURE leditmode_assign + LPARAMETERS vNewVal + *To do: Modify this routine for the Assign method + THIS.lEditMode = m.vNewVal + + IF THIS.lEditMode + && intru in modul editare + this.txtDiscountManopera.ReadOnly = .F. + this.txtDiscountMateriale.ReadOnly = .F. + This.but_modifica4.cpictureup="save_sus.bmp" + This.but_modifica4.cpicturedown="save_jos.bmp" + this.txtDiscountManopera.SetFocus() + ELSE + this.txtDiscountManopera.ReadOnly = .T. + this.txtDiscountMateriale.ReadOnly = .T. + This.but_modifica4.cpictureup="modific_sus.bmp" + This.but_modifica4.cpicturedown="modific_jos.bmp" + ENDIF + this.txtDiscountManopera.Refresh + this.txtDiscountMateriale.Refresh + this.but_modifica4.Refresh + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + DODEFAULT(nStyle) + * Centrez fereastra si o fac 70% din ecran + lnHeight = _screen.Height + lnWidth = _screen.Width + This.Height = INT(0.7 * m.lnHeight) + this.Width = INT(0.7 * m.lnWidth) + this.AutoCenter = .T. + + ENDPROC + + PROCEDURE gclienti.AfterRowColChange + Lparameters nColIndex + *!* If (Thisform.ck_marca.Value # 1 And Thisform.ck_masina.Value # 1 And Thisform.ck_nrinmat.Value # 1 And; + *!* thisform.ck_seriem.Value # 1 And Thisform.ck_series.Value # 1) + Local lcFiltru, llSucces + If !Thisform.lcautare2 + If v_clie.id_part <> 0 + lcFiltru = [id_partener = ] + Alltrim(Str(v_clie.id_part)) + ; + iif(Thisform.lmasiniactive, [ and inactiv = 0], []) && modificare v 2.1.1 + Else + lcFiltru = [1=2] + Endif + * nu pune la schimbarea randului, pentru ca nu declanseaza afterrowcolchange la cautare, pentru primul rand + Thisform.actualizeaza_grid2(lcFiltru) + THISFORM.actualizeaza_discount(v_clie.id_part) + Endif + ENDPROC + + PROCEDURE gclienti.BeforeRowColChange + LPARAMETERS nColIndex + + IF INLIST(this.RowColChange,1,3) + IF Thisform.lEditMode + IF AMESSAGEBOX('Doriti sa salvati modificarile?', 4 + 32, _screen.Caption) = 6 + llSucces = Thisform.do_salveaza_discount() + IF !m.llSucces + thisform.actualizeaza_discount() + NODEFAULT + ELSE + Thisform.lEditmode = .F. + ENDIF + ELSE + Thisform.lEditmode = .F. + ENDIF + ENDIF + ENDIF + ENDPROC + + PROCEDURE gmasini.AfterRowColChange + Lparameters nColIndex + *!* IF (thisform.ck_marca.Value = 1 OR thisform.ck_masina.Value = 1 OR thisform.ck_nrinmat.Value = 1 OR; + *!* thisform.ck_seriem.Value = 1 OR thisform.ck_series.Value = 1) + If Thisform.lcautare2 + lcFiltru = [a.id_tip_part = ] + Alltrim(Str(Thisform.nidtippart)) + ; + [and b.inactiv=0 and b.id_part = ] + Alltrim(Str(v_masiniclie.id_partener)) + Thisform.actualizeaza_grid1(lcFiltru) + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_inspectori_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_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_inspectori1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 114 + Name = "frm_inspectori_nou" + Width = 332 + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Caption = "Inspector" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Left = 301 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 2 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 23, ; + Name = "_checkbox1", ; + TabIndex = 2, ; + Top = 84 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 268, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 21, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 42, ; + Text_simplu1.ControlSource = "porec.inspector", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Inspector", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_inspectori1' AS cus_odata_inspectori WITH ; + Left = 288, ; + Name = "Cus_odata_inspectori1", ; + Top = 84 + *< END OBJECT: ClassLib="onom_devize.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.inspector) + amessagebox('Nu ati completat denumirea asiguratorului!',0+48,"Atentie") + this.clb_tx_simplu1.text_simplu1.SetFocus() + + plreturn=.F. + + OTHERWISE + If Alltrim(Upper(This.cus_odata_inspectori1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + pcexec=[select * from ]+gcS+[.auto_Vinspectori where (TRIM(inspector)=']+Alltrim(porec.inspector)+[')] + Do While .T. + pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_inspector') + If pnSucces = 0 + * instructiunea in curs de executie + Else + Exit + Endif + Enddo + If Reccount('exista_inspector')>0 + amessagebox('Mai exista acest inspector inregistrat',0+48,"Atentie") + This.clb_tx_simplu1.Text_simplu1.SetFocus() + Use In exista_inspector + plreturn=.F. + ELSE + PLRETURN=This.cus_odata_inspectori1.salvare(This.OREC,This.NID) + ENDIF + ELSE + *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_inspectori1.salvare(This.OREC,This.NID) + ENDIF + + ENDCASE + + Return PLRETURN + + + + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_inspectori1.cactiune = tcActiune + Do Case + Case tcActiune='UPDATE' + Thisform.clb_tx_simplu1.text_simplu1.ReadOnly=.T. + Endcase + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_marci_masini 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="gmarci" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmarci.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmarci.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmarci.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmarci.Column2.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gmasini.Column3.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_titlu_alb_b122" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_marca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + *m: do_adauga2 + *m: do_modifica2 + *m: do_sterge2 + *p: lreturnval + * + + * + DoCreate = .T. + Height = 481 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_marci_masini" + Width = 409 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 408 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 283 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 128 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Mrci" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 380 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + BUT_TERMIN1.ZOrderSet = 4 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + BackColor = 0,64,128, ; + BorderColor = 128,128,128, ; + Height = 29, ; + Left = -9, ; + Name = "_shape3", ; + Top = 270, ; + Width = 456, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 318, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + Top = 1, ; + Visible = .T., ; + Width = 30, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_modifica2' AS but_modifica WITH ; + caction = do_modifica2, ; + Height = 27, ; + Left = 352, ; + Name = "But_modifica2", ; + TabIndex = 9, ; + Top = 271, ; + Visible = .T., ; + Width = 30, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 287, ; + Name = "But_nou1", ; + TabIndex = 4, ; + Top = 1, ; + Width = 30, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou2' AS but_nou WITH ; + caction = do_adauga2, ; + Height = 27, ; + Left = 323, ; + Name = "But_nou2", ; + TabIndex = 8, ; + Top = 271, ; + Width = 30, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 348, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T., ; + Width = 30, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge2' AS but_sterge WITH ; + caction = do_sterge2, ; + Height = 27, ; + Left = 380, ; + Name = "But_sterge2", ; + TabIndex = 10, ; + Top = 271, ; + Visible = .T., ; + Width = 30, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_marca' AS clb_tx_simplu WITH ; + Left = 12, ; + Name = "Clb_marca", ; + TabIndex = 1, ; + Top = 36, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Marca", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 312, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 37 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gmarci' AS _grdrow WITH ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 182, ; + Left = 12, ; + Name = "gmarci", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_marci", ; + TabIndex = 3, ; + Top = 80, ; + Width = 384, ; + ZOrderSet = 5, ; + Column1.ControlSource = "marca", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 301, ; + Column2.ControlSource = "inactiv", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 47 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gmarci.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmarci.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 'gmarci.Column2.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 19, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 35, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gmarci.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 164, ; + Left = 12, ; + Name = "gmasini", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_masini", ; + TabIndex = 7, ; + Top = 310, ; + Width = 384, ; + ZOrderSet = 6, ; + Column1.ControlSource = "masina", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 135, ; + Column2.ControlSource = "sctip", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 167, ; + Column3.ControlSource = "inactiv", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 48 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gmasini.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Model", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.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 'gmasini.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gmasini.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 'gmasini.Column3.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 17, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 62, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gmasini.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Lb_titlu_alb_b122' AS lb_titlu_alb_b12 WITH ; + Caption = "Modele", ; + Left = 6, ; + Name = "Lb_titlu_alb_b122", ; + TabIndex = 13, ; + Top = 274 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pomarci.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gmarci) + pomarci.ca_baza1.cfiltru=lcFiltru + pomarci.ca_baza1.afisare() + restore_grid_tag(thisform.gmarci) + *!* IF RECCOUNT('v_marci')>0 + thisform.gmarci.SetFocus() + *!* ELSE + *!* thisform.lb_mecanici.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE actualizeaza_grid2 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pomasini.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gmasini) + pomasini.ca_baza1.cfiltru=lcFiltru + pomasini.ca_baza1.afisare() + restore_grid_tag(thisform.gmasini) + *!* IF RECCOUNT('v_marci')>0 + thisform.gmasini.SetFocus() + *!* ELSE + *!* thisform.lb_mecanici.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select v_marci + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "marci",loRec,,"INSERT",,"addmarca" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_adauga2 + If Reccount('v_marci')>0 + Private pniesire + pniesire=0 + Select v_masini + Scatter Name loRec Blank + loRec.id_marca = v_marci.id_marca + Do Adauga_Modifica_Inregistrare With "masini",loRec,,"INSERT",,"add_tip" + If pniesire=1 + This.actualizeaza_grid2() + Endif + Else + amessagebox("Nu puteti adauga un model,deoarece nu ati selectat marca!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcMarca = Strtran(Upper(Alltrim(Thisform.clb_marca.texT_SIMPLU1.Value)),['],['']) + If !Empty(lcMarca) + lcFiltru = [marca like '] + lcMarca + [%'] + Else + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_marci')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.actualizeaza_grid2([1=2]) + Thisform.clb_marca.SetFocus() + Endif + This.LockScreen=.F. + This.MousePointer= 0 + + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_marci')>0 + Private pniesire + pniesire=0 + Select v_marci + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "marci",loRec,loRec.id_marca,"UPDATE",,"modmarca" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica2 + If Reccount('v_masini')>0 + Private pniesire + pniesire=0 + Select v_masini + Scatter Name loRec + *!* lorec.id_marca = v_marci.id_marca + Do Adauga_Modifica_Inregistrare With "masini",loRec,loRec.id_masina,"UPDATE",,"modtip" + If pniesire=1 + This.actualizeaza_grid2() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_marci')>0 + Select v_marci + Scatter Name loRec + Do STERGE_INREGISTRARE With "marci",loRec.id_marca + This.actualizeaza_grid1() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_sterge2 + If Reccount('v_masini')>0 + Select v_masini + Scatter Name loRec + Do STERGE_INREGISTRARE With "masini",loRec.id_masina + This.actualizeaza_grid2() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE inainte_de_do_termin + If Thisform.lreturnval=.T. + pcmarca=Alltrim(v_marci.marca) + pcmasina=Alltrim(v_masini.masina) + Endif + Return .T. + + ENDPROC + + PROCEDURE gmarci.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + DoDefault() + lcFiltru=[id_marca=]+Alltrim(Str(v_marci.id_marca)) + Thisform.actualizeaza_grid2(lcFiltru) + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_marci_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_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_marci1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 119 + Name = "frm_marci_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 311 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 67 + Lb_titlu_alb_b121.Caption = "Marca" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 43, ; + Name = "_checkbox1", ; + TabIndex = 2, ; + Top = 85 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 315, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 39, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 48, ; + Text_simplu1.ControlSource = "porec.marca", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Marca", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_marci1' AS cus_odata_marci WITH ; + Left = 336, ; + Name = "Cus_odata_marci1", ; + Top = 84 + *< END OBJECT: ClassLib="onom_devize.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.marca) + amessagebox('Nu ati completat marca!',0+48,"Atentie") + This.clb_tx_simplu1.Text_simplu1.SetFocus() + plreturn=.F. + OTHERWISE + If Alltrim(Upper(This.cus_odata_marci1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + pcexec=[select * from ]+gcS+[.DEV_nom_marci where (TRIM(marca)=']+Alltrim(porec.marca)+[') and sters = 0] + Do While .T. + pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_marca') + If pnSucces = 0 + * instructiunea in curs de executie + Else + Exit + Endif + Enddo + If Reccount('exista_marca')>0 + amessagebox('Aceasta marca a mai fost inregistrata!',0+48,"Atentie") + This.clb_tx_simplu1.Text_simplu1.SetFocus() + Use In exista_marca + plreturn=.F. + ELSE + PLRETURN=This.cus_odata_marci1.salvare(This.OREC,This.NID) + ENDIF + ELSE + PLRETURN=This.cus_odata_marci1.salvare(This.OREC,This.NID) + ENDIF + + ENDCASE + + Return PLRETURN + + + + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_marci1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_masini_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="Cus_odata_masini1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 138 + Name = "frm_masini_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 310 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 71 + Lb_titlu_alb_b121.Caption = "Model" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 344 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 35, ; + Name = "_checkbox1", ; + TabIndex = 3, ; + Top = 110 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 314, ; + Name = "But_renunt1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 39, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + TEXT_SIMPLU1.ControlSource = "porec.masina", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Model", ; + 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 ; + Height = 28, ; + Left = 39, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + Width = 290, ; + TEXT_SIMPLU1.ControlSource = "porec.sctip", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Explicaia", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_masini1' AS cus_odata_masini WITH ; + Left = 336, ; + Name = "Cus_odata_masini1", ; + Top = 36 + *< END OBJECT: ClassLib="onom_devize.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.masina) + amessagebox('Nu ati completat denumirea masinii!',0+48,"Atentie") + this.clb_tx_simplu1.text_simplu1.SetFocus() + + plreturn=.F. + + OTHERWISE + If Alltrim(Upper(This.cus_odata_masini1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + pcexec=[select * from ]+gcS+[.auto_Vmasini where (TRIM(masina)=']+Alltrim(porec.masina)+[')] + Do While .T. + pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_masina') + If pnSucces = 0 + * instructiunea in curs de executie + Else + Exit + Endif + Enddo + If Reccount('exista_masina')>0 + amessagebox('Mai exista acest model inregistrat!',0+48,"Atentie") + This.clb_tx_simplu1.Text_simplu1.SetFocus() + Use In exista_masina + plreturn=.F. + ELSE + PLRETURN=This.cus_odata_masini1.salvare(This.OREC,This.NID) + ENDIF + ELSE + *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_masini1.salvare(This.OREC,This.NID) + ENDIF + + ENDCASE + + Return PLRETURN + + + + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_masini1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_mecanici 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="gMecanici" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column5.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gMecanici.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_mecanici" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" /> + + * + cgridsortlist = gmecanici + DoCreate = .T. + Height = 445 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_mecanici" + Width = 417 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 420 + _shape2.Height = 29 + _shape2.Left = 288 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 130 + Lb_titlu_alb_b121.Caption = "Mecanici" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 387 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 324, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 293, ; + Name = "But_nou1", ; + TabIndex = 4, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 354, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 318, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 38 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ; + Caption = "\ + + ADD OBJECT 'gMecanici' AS _grdrow WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 321, ; + Left = 3, ; + Name = "gMecanici", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_mecanici", ; + TabIndex = 3, ; + Top = 72, ; + Width = 408, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 122, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "marca", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column3", ; + Column2.ReadOnly = .T., ; + Column2.Width = 37, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "sectie", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column4", ; + Column3.ReadOnly = .T., ; + Column3.Width = 85, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "inactiv", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column5", ; + Column4.ReadOnly = .T., ; + Column4.Sparse = .F., ; + Column4.Width = 31, ; + Column5.ColumnOrder = 2, ; + Column5.ControlSource = "prenume", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column2", ; + Column5.ReadOnly = .T., ; + Column5.Width = 99 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gMecanici.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gMecanici.Column1.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 'gMecanici.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Prenume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gMecanici.Column2.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 'gMecanici.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gMecanici.Column3.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 'gMecanici.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gMecanici.Column4.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 'gMecanici.Column5.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 20, ; + Name = "Check1", ; + ReadOnly = .T., ; + SpecialEffect = 1, ; + Top = 47, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gMecanici.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'lb_mecanici' AS clb_tx_simplu WITH ; + Left = 16, ; + Name = "lb_mecanici", ; + TabIndex = 1, ; + Top = 37, ; + 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=pomecanici.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gmecanici) + pomecanici.ca_baza1.cfiltru=lcFiltru + pomecanici.ca_baza1.afisare() + restore_grid_tag(thisform.gmecanici) + IF RECCOUNT('v_mecanici')>0 + thisform.gmecanici.SetFocus() + ELSE + thisform.lb_mecanici.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + Do update_sectie In update_devize.prg + pniesire=0 + Select v_mecanici + SCATTER NAME loRec Blank + ADDPROPERTY(loRec,'denumire',[]) + Do Adauga_Modifica_Inregistrare With "mecanici",loRec,,"INSERT",,"addmec" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = Strtran(Upper(Alltrim(This.lb_mecanici.text_simplu1.Value)),['],['']) + If !Empty(lcNume) + lcFiltru=[nume 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") + Thisform.lb_mecanici.SetFocus() + Endif + This.LockScreen=.F. + Thisform.MousePointer= 0 + ENDPROC + + PROCEDURE do_executa + If Type('gnadauga_sal') # 'U' And gnadauga_sal = 1 + *!* Private pniesire + *!* pniesire=0 + *!* Select v_mecanici + *!* Scatter Name loRec Blank + *!* AddProperty(loRec,'marca',0) + *!* Do Adauga_Modifica_Inregistrare With "salariati",loRec,,"INSERT" + amessagebox("Adaugarea salariatilor se poate face din Financiar - Contabilitate, prin adaugarea unei entitati cu tipul !",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_mecanici')>0 + Private pniesire + Do update_sectie In update_devize.prg + pniesire=0 + Select v_mecanici + Scatter Name loRec + AddProperty(loRec,'denumire',Alltrim(loRec.nume)+' '+Alltrim(Nvl(loRec.prenume,[]))) + Do Adauga_Modifica_Inregistrare With "mecanici",loRec,loRec.id_mecanic,"UPDATE",,"modmec" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + + *!* pcid_judet = loRec.id_judet + *!* pclocalitate = loRec.localitate + *!* Do Adauga_Modifica_Inregistrare With "localitati",loRec,loRec.Id_loc,"UPDATE" + *!* thisform.actualizeaza_grid1() + + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_mecanici')>0 + Select v_mecanici + Scatter Name lorec + Do STERGE_INREGISTRARE With "mecanici",lorec.id_mecanic + This.actualizeaza_grid1() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + DoDefault() + If Type('gnadauga_sal') = 'U' OR gnadauga_sal = 0 + *!* amessageboxmd_executa1.Visible=.F. + this.cmd_executa1.Visible = .F. + Thisform.Height=406 + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_mecanici_nou AS _frmbase OF "..\..\roafacturare\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="Cus_odata_mecanici1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_mecanic" UniqueID="" Timestamp="" /> + + * + *m: do_alege_mecanic + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 134 + Name = "frm_mecanici_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Caption = "Mecanic" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 31, ; + Name = "_checkbox1", ; + TabIndex = 3, ; + Top = 109 + *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 315, ; + Name = "But_renunt1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_sectie' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 17, ; + Name = "Cb_sectie", ; + TabIndex = 2, ; + Top = 73, ; + Width = 314, ; + _CBBASE1.ControlSource = "porec.sectie", ; + _CBBASE1.Left = 126, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_sectie.sectie", ; + _CBBASE1.RowSourceType = 2, ; + _CBBASE1.Top = 3, ; + _LBBASE1.Caption = "Secia", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\..\roafacturare\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_mecanic' AS ct_clb_cautare WITH ; + cconditie = EMPTY(porec.id_part), ; + cprocedura = thisform.do_alege_mecanic, ; + cvar_afisata = poRec.denumire, ; + Left = 16, ; + Name = "Ct_clb_mecanic", ; + TabIndex = 1, ; + Top = 44, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Mecanic", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_mecanici1' AS cus_odata_mecanici WITH ; + Left = 336, ; + Name = "Cus_odata_mecanici1", ; + Top = 60 + *< END OBJECT: ClassLib="onom_devize.vcx" BaseClass="custom" /> + + PROCEDURE do_alege_mecanic + Local loCauta + loCauta = caut_personal_devize() + If !Isnull(loCauta) And !Empty(loCauta.id_part) + poRec.id_part = loCauta.id_part + poRec.nume = loCauta.nume + poRec.prenume = loCauta.prenume + poRec.denumire = Alltrim(poRec.nume)+' '+Alltrim(poRec.prenume) + This.ct_clb_mecanic.Refresh() + Endif + + ENDPROC + + 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(NVL(poRec.denumire,'')) + amessagebox('Nu ati completat numele mecanicului!',0+48,"Atentie") + this.ct_clb_mecanic.SetFocus() + plreturn=.F. + OTHERWISE + *!* If Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + *!* pcexec=[select * from ]+gcS+[.DEV_VMECANICI where (TRIM(nume)=']+Alltrim(porec.nume)+[')] + *!* Do While .T. + *!* pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_mecanic') + *!* If pnSucces = 0 + *!* * instructiunea in curs de executie + *!* Else + *!* Exit + *!* Endif + *!* Enddo + *!* If Reccount('exista_mecanic')>0 + *!* amessagebox('Mai exista acest mecanic inregistrat',0+48,"Atentie") + *!* *!* This.clb_tx_simplu2.Text_simplu1.SetFocus() + *!* this.cb_tx_simplu1._CBBASE1.SetFocus() + *!* Use In exista_mecanic + *!* plreturn=.F. + *!* ELSE + *!* PLRETURN=This.cus_odata_mecanici1.salvare(This.OREC,This.NID) + *!* ENDIF + *!* ELSE + *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_mecanici1.salvare(This.OREC,This.NID) + *!* ENDIF + + ENDCASE + + Return PLRETURN + + + + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_mecanici1.cactiune = tcActiune + If tcActiune='UPDATE' + This.ct_clb_mecanic.do_dezactiveaza() + Endif + + ENDPROC + + PROCEDURE Cb_sectie._CBBASE1.LostFocus + porec.id_sectie = v_sectie.id_sectie + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_norme 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="gnorme" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gnorme.Column6.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_denop" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_inactive" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + cgridsortlist = gnorme + DoCreate = .T. + Height = 434 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_norme" + Width = 606 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 684 + _shape2.Height = 29 + _shape2.Left = 482 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 127 + Lb_titlu_alb_b121.Caption = "Norme" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 9 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 576 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 8 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 518, ; + Name = "But_modifica1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 488, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 547, ; + Name = "But_sterge1", ; + TabIndex = 7, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_denop' AS cb_tx_cautare WITH ; + cpornire = 1, ; + Left = 12, ; + Name = "Cb_denop", ; + TabIndex = 1, ; + Top = 33, ; + Text.Name = "Text", ; + Criteriu.Name = "Criteriu" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 324, ; + Name = "Cmd_cauta1", ; + TabIndex = 3, ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gnorme' AS _grdrow WITH ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 324, ; + Left = 10, ; + Name = "gnorme", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_norme", ; + TabIndex = 4, ; + Top = 96, ; + Width = 588, ; + Column1.ControlSource = "masina", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column2.ControlSource = "ansamblu", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 86, ; + Column3.ControlSource = "denop", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 245, ; + Column4.ControlSource = "timpn", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Sparse = .F., ; + Column4.Width = 56, ; + Column5.ControlSource = "codop", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 54, ; + Column6.ControlSource = "inactiv", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Sparse = .F., ; + Column6.Width = 37 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gnorme.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Model masina", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.Column1.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 'gnorme.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ansamblu", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.Column2.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 'gnorme.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire operatie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.Column3.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 'gnorme.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Timp normat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.Column4.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 'gnorme.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod operatie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gnorme.Column5.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 'gnorme.Column6.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 34, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 59, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gnorme.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'opt_inactive' AS _optiongrup WITH ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 27, ; + Left = 12, ; + Name = "opt_inactive", ; + TabIndex = 2, ; + Top = 63, ; + Width = 222, ; + Option1.Caption = "Toate", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.Caption = "Active", ; + Option2.Left = 81, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option3.BackStyle = 0, ; + Option3.Caption = "Inactive", ; + Option3.Height = 17, ; + Option3.Left = 156, ; + Option3.Name = "Option3", ; + Option3.Top = 5, ; + Option3.Width = 61 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=ponorme.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gnorme) + ponorme.ca_baza1.cfiltru=lcFiltru + ponorme.ca_baza1.afisare() + restore_grid_tag(thisform.gnorme) + *!* IF RECCOUNT('v_delegati')>0 + thisform.gnorme.SetFocus() + *!* ELSE + *!* thisform.lb_delegati.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Do update_ansamble In update_devize.prg + Do update_masini In update_devize.prg + + Select v_norme + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "norme",loRec,,"INSERT",,"addnorm" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[2=2] + lcDenop = Strtran(Upper(Alltrim(Thisform.cb_denop.Text.Value)),['],['']) + lnCriteriu = Val(Alltrim(Thisform.cb_denop.criteriu.Value)) + Do Case + Case lnCriteriu=1 + lcFiltru = [denop LIKE '] + Upper(Alltrim(lcDenop)) + [%'] + Case lnCriteriu=2 + lcFiltru = [denop ='] + Upper(Alltrim(lcDenop)) + ['] + Case lnCriteriu=3 + lcFiltru = [denop !='] + Upper(Alltrim(lcDenop)) + ['] + Case lnCriteriu=4 + lcFiltru = [denop LIKE '%] + Upper(Alltrim(lcDenop)) + [%'] + Case lnCriteriu=5 + lcFiltru = [denop NOT LIKE '%] + Upper(Alltrim(lcDenop)) + [%'] + Case lnCriteriu=6 + lcFiltru = [2=2] + *!* Case lnCriteriu=7 + *!* lcFiltru = [denop is not null] + Endcase + *!* modificare v 2.0.9 + lnCriteriu = Thisform.opt_inactive.Value + Do Case + Case lnCriteriu = 1 + lcFiltru = lcFiltru + Case lnCriteriu = 2 + lcFiltru = lcFiltru + [ AND inactiv = 0] + Case lnCriteriu = 3 + lcFiltru = lcFiltru + [ AND inactiv = 1] + Endcase + *!* modificare v 2.0.9 ^ + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_norme')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.cb_denop.SetFocus() + Endif + This.LockScreen=.F. + This.MousePointer= 0 + + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_norme')>0 + Private pniesire + pniesire=0 + Do update_ansamble In update_devize.prg + Do update_masini In update_devize.prg + + Select v_norme + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "norme",loRec,loRec.id_norme,"UPDATE",,"modnorm" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_norme')>0 + Select v_norme + Scatter Name lorec + Do STERGE_INREGISTRARE With "norme",lorec.id_norme + + This.actualizeaza_grid1() + Else + amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE Init + DoDefault() + This.cb_denop.do_initializeaza_ct() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_norme_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="Cus_odata_norme1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 231 + Name = "frm_norme_nou" + 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 = "Norma" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 9 + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Name = "GRIDSORT1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 36, ; + Name = "_checkbox1", ; + TabIndex = 6, ; + Top = 202 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 315, ; + Name = "But_renunt1", ; + TabIndex = 8, ; + 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 = 22, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 1, ; + Top = 48, ; + Width = 326, ; + _cbbase1.ColumnCount = 1, ; + _cbbase1.ControlSource = "porec.masina", ; + _cbbase1.Left = 138, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.NullDisplay = "", ; + _cbbase1.RowSource = "v_masini.masina", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _lbbase1.Caption = "Model main", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 22, ; + Name = "Cb_tx_simplu2", ; + TabIndex = 2, ; + Top = 76, ; + Width = 326, ; + _cbbase1.ColumnCount = 1, ; + _cbbase1.ControlSource = "porec.ansamblu", ; + _cbbase1.Left = 138, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_ansamble.denumire", ; + _cbbase1.RowSourceType = 2, ; + _cbbase1.Top = 3, ; + _lbbase1.Caption = "Ansamblu:", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 22, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 3, ; + Top = 104, ; + Width = 326, ; + TEXT_SIMPLU1.ControlSource = "porec.denop", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.Left = 99, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 223, ; + LB_SIMPLU1.Caption = "Den. operaie:", ; + 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 ; + Height = 29, ; + Left = 22, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 4, ; + Top = 132, ; + Width = 326, ; + TEXT_SIMPLU1.ControlSource = "porec.timpn", ; + TEXT_SIMPLU1.Left = 138, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + LB_SIMPLU1.Caption = "Timp normat:", ; + 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 ; + Height = 29, ; + Left = 22, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 5, ; + Top = 160, ; + Width = 326, ; + TEXT_SIMPLU1.ControlSource = "porec.codop", ; + TEXT_SIMPLU1.Left = 138, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + LB_SIMPLU1.Caption = "Cod operaie:", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_norme1' AS cus_odata_norme WITH ; + Left = 348, ; + Name = "Cus_odata_norme1", ; + Top = 36 + *< END OBJECT: ClassLib="onom_devize.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 + *!* modificare v 2.0.12 + *!* Case Empty(porec.masina) + *!* amessagebox('Nu ati completat modelul masinii!',0+48,"Atentie") + *!* This.cb_tx_simplu1._cbbase1.SetFocus() + *!* PLRETURN=.F. + *!* Case Empty(porec.ansamblu) + *!* amessagebox('Nu ati completat ansamblul!',0+48,"Atentie") + *!* This.cb_tx_simplu2._cbbase1.SetFocus() + *!* PLRETURN=.F. + *!* modificare v 2.0.12 ^ + Case Empty(porec.denop) + amessagebox('Nu ati completat denumirea operatiei!',0+48,"Atentie") + This.clb_tx_simplu1.text_simplu1.SetFocus() + PLRETURN=.F. + Otherwise + *!* If Alltrim(Upper(This.cus_odata_norme1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + *!* pcexec=[select * from ]+gcS+[.DEV_Vnorme where (TRIM(inspector)=']+Alltrim(porec.inspector)+[')] + *!* Do While .T. + *!* pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_inspector') + *!* If pnSucces = 0 + *!* * instructiunea in curs de executie + *!* Else + *!* Exit + *!* Endif + *!* Enddo + *!* If Reccount('exista_inspector')>0 + *!* amessagebox('Mai exista acest inspector inregistrat',0+48,"Atentie") + *!* This.clb_tx_simplu1.Text_simplu1.SetFocus() + *!* Use In exista_inspector + *!* plreturn=.F. + *!* ELSE + *!* PLRETURN=This.cus_odata_inspectori1.salvare(This.OREC,This.NID) + *!* ENDIF + *!* ELSE + *!* *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_norme1.salvare(This.OREC,This.NID) + *!* ENDIF + Endcase + Return PLRETURN + + + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_norme1.cactiune = tcActiune + + + ENDPROC + + PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange + porec.id_masina = v_masini.id_masina + If Type('porec.marca')<>'U' + porec.marca = v_masini.marca + Endif + ENDPROC + + PROCEDURE Cb_tx_simplu2._cbbase1.InteractiveChange + porec.id_ansamblu = v_ansamble.id_ansamblu + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_preturi 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="gpreturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gpreturi.Column7.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_marca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + cgridsortlist = gpreturi + DoCreate = .T. + Height = 470 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_preturi" + Width = 661 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 720 + _shape2.Height = 29 + _shape2.Left = 538 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 132 + Lb_titlu_alb_b121.Caption = "Preuri" + Lb_titlu_alb_b121.Height = 21 + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + Lb_titlu_alb_b121.Top = 6 + Lb_titlu_alb_b121.Width = 48 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 631 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.Width = 30 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 571, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + Top = 0, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 541, ; + Name = "But_nou1", ; + TabIndex = 4, ; + Top = 0, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 600, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 0, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_marca' AS clb_tx_simplu WITH ; + Left = 36, ; + Name = "Clb_marca", ; + TabIndex = 1, ; + Top = 43, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Marca", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 336, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 44 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gpreturi' AS _grdbase WITH ; + ColumnCount = 7, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 372, ; + Left = 12, ; + Name = "gpreturi", ; + Panel = 1, ; + RecordSource = "v_preturi", ; + TabIndex = 3, ; + Top = 84, ; + Width = 636, ; + Column1.ControlSource = "marca", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 141, ; + Column2.ControlSource = "asigurator", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Width = 112, ; + Column3.ControlSource = "pret", ; + Column3.FontName = "Arial Narrow", ; + Column3.Format = "R", ; + Column3.InputMask = (get_mask(12,gnPPretV)), ; + Column3.Name = "Column3", ; + Column4.ControlSource = "pret_val", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "R", ; + Column4.InputMask = (get_mask(12,gnPVal)), ; + Column4.Name = "Column4", ; + Column5.ControlSource = "nume_val", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "curs", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPCurs2)), ; + Column6.Name = "Column6", ; + Column6.Width = 76, ; + Column7.ControlSource = "inactiv", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column7.Sparse = .F., ; + Column7.Width = 39 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gpreturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gpreturi.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 'gpreturi.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asigurator", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gpreturi.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 'gpreturi.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret lei", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gpreturi.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 'gpreturi.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gpreturi.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 'gpreturi.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gpreturi.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 'gpreturi.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs valutar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gpreturi.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 'gpreturi.Column7.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 13, ; + Name = "Check1", ; + Top = 83, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gpreturi.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + Local lcFiltru + lcFiltru=pcFiltru + If Empty(lcFiltru) + lcFiltru=popreturi.ca_baza1.cfiltru + Endif + save_grid_tag(Thisform.gpreturi) + popreturi.ca_baza1.cfiltru=lcFiltru + popreturi.ca_baza1.afisare() + restore_grid_tag(Thisform.gpreturi) + *!* IF RECCOUNT('v_preturi')>0 + Thisform.gpreturi.SetFocus() + *!* ELSE + *!* thisform.lb_mecanici.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Do update_marci In update_devize.prg + Do update_asigurator In update_devize.prg + Do ccvalute In updateserver.prg + Select v_preturi + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "preturi",loRec,,"INSERT",,"addpret" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcMarca = Strtran(Upper(Alltrim(Thisform.clb_marca.texT_SIMPLU1.Value)),['],['']) + If !Empty(lcMarca) + lcFiltru = [marca like '] + lcMarca + [%'] + Else + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_preturi')=0 + amessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clb_marca.SetFocus() + Endif + This.LockScreen=.F. + This.MousePointer= 0 + + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_preturi')>0 + Private pniesire + pniesire=0 + Do update_marci In update_devize.prg + Do update_asigurator In update_devize.prg + Do ccvalute In updateserver.prg + Select v_preturi + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "preturi",loRec,loRec.id_pret,"UPDATE",,"modpret" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_preturi')>0 + Private pniesire + pniesire=0 + Select v_preturi + Scatter Name loRec + Do STERGE_INREGISTRARE With "preturi",loRec.id_pret + If pniesire=1 + This.actualizeaza_grid1() + Endif + Else + amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie") + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_preturi_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="Cus_odata_preturi1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_marca" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_asigurator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_pret_lei" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_pret_val" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_nume_val" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_curs" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + DoCreate = .T. + Name = "frm_preturi_nou" + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 311 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 66 + Lb_titlu_alb_b121.Caption = "Preuri" + 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 '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 50, ; + Name = "_checkbox1", ; + TabIndex = 7, ; + Top = 224 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + 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 'Cb_asigurator' AS cb_tx_simplu WITH ; + Left = 42, ; + Name = "Cb_asigurator", ; + TabIndex = 2, ; + Top = 78, ; + _cbbase1.ColumnCount = 1, ; + _cbbase1.ControlSource = "porec.asigurator", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_asiguratori.asigurator", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Asigurator", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_marca' AS cb_tx_simplu WITH ; + Left = 42, ; + Name = "Cb_marca", ; + TabIndex = 1, ; + Top = 50, ; + _cbbase1.ColumnCount = 1, ; + _cbbase1.ControlSource = "porec.marca", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_marci.marca", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Marc", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_nume_val' AS cb_tx_simplu WITH ; + Left = 42, ; + Name = "Cb_nume_val", ; + TabIndex = 5, ; + Top = 162, ; + _cbbase1.ColumnCount = 1, ; + _cbbase1.ControlSource = "porec.nume_val", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_nom_valute.nume_val", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Valut", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_curs' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_curs", ; + TabIndex = 6, ; + Top = 190, ; + Text_simplu1.ControlSource = "porec.curs", ; + Text_simplu1.InputMask = (get_mask(12,gnPCurs2)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Curs:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_pret_lei' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_pret_lei", ; + TabIndex = 3, ; + Top = 106, ; + Text_simplu1.ControlSource = "porec.pret", ; + Text_simplu1.InputMask = (get_mask(12,gnPPretV)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Pre (lei)", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_pret_val' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_pret_val", ; + TabIndex = 4, ; + Top = 134, ; + Text_simplu1.ControlSource = "porec.pret_val", ; + Text_simplu1.InputMask = (get_mask(12,gnPVal)), ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Pre (valut)", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_preturi1' AS cus_odata_preturi WITH ; + Left = 348, ; + Name = "Cus_odata_preturi1", ; + Top = 36 + *< END OBJECT: ClassLib="onom_devize.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 + + porec.nume_val=Thisform.cb_nume_val._CBBASE1.Value + + Do Case + Case Empty(Thisform.cb_marca._CBBASE1.Value) + amessagebox("Nu ati completat marca!",0+48,"Atentie") + Thisform.cb_marca._CBBASE1.SetFocus() + PLRETURN = .F. + *!* Case Empty(Thisform.cb_tx_simplu2._CBBASE1.Value) + *!* amessagebox("Nu ati completat tipul reparatiei!",0+48,"Atentie") + *!* Thisform.cb_tx_simplu2._CBBASE1.SetFocus() + *!* PLRETURN=.F. + Case porec.Pret<0 + amessagebox('Pretul nu poate fi negativ!',0+48,"Atentie") + This.clb_pret_lei.text_simplu1.SetFocus() + PLRETURN = .F. + Case !Empty(porec.Pret_val) And Empty(porec.nume_val) + amessagebox("Nu ati ales valuta!",0+48,"Atentie") + Thisform.cb_nume_val._CBBASE1.SetFocus() + PLRETURN = .F. + Case !Empty(porec.Pret_val) And Empty(porec.Curs) + amessagebox("Nu ati completat cursul!",0+48,"Atentie") + Thisform.clb_curs.text_simplu1.SetFocus() + PLRETURN = .F. + Otherwise + *!* If Alltrim(Upper(This.cus_odata_norme1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + *!* pcexec=[select * from ]+gcS+[.DEV_Vnorme where (TRIM(inspector)=']+Alltrim(porec.inspector)+[')] + *!* Do While .T. + *!* pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_inspector') + *!* If pnSucces = 0 + *!* * instructiunea in curs de executie + *!* Else + *!* Exit + *!* Endif + *!* Enddo + *!* If Reccount('exista_inspector')>0 + *!* amessagebox('Mai exista acest inspector inregistrat',0+48,"Atentie") + *!* This.clb_tx_simplu1.Text_simplu1.SetFocus() + *!* Use In exista_inspector + *!* plreturn=.F. + *!* ELSE + *!* PLRETURN=This.cus_odata_inspectori1.salvare(This.OREC,This.NID) + *!* ENDIF + *!* ELSE + *!* *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_preturi1.salvare(This.OREC,This.NID) + *!* ENDIF + + Endcase + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_preturi1.cactiune = tcActiune + if tcActiune='UPDATE' + Thisform.cb_marca._cbbase1.Enabled=.F. + Thisform.cb_asigurator._cbbase1.Enabled=.F. + Endif + + ENDPROC + + PROCEDURE Cb_asigurator._cbbase1.LostFocus + porec.id_asigurator = v_asiguratori.id_asigurator + + ENDPROC + + PROCEDURE Cb_marca._cbbase1.LostFocus + porec.id_marca = v_marci.id_marca + + ENDPROC + + PROCEDURE Cb_nume_val._cbbase1.LostFocus + porec.id_valuta = v_nom_valute.id_valuta + + ENDPROC + +ENDDEFINE diff --git a/Clase/oviz_devize.vc2 b/Clase/oviz_devize.vc2 new file mode 100644 index 0000000..c576a76 --- /dev/null +++ b/Clase/oviz_devize.vc2 @@ -0,0 +1,20650 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oviz_devize.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS ctip_deviz AS _container OF "..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_combobox1" UniqueID="" Timestamp="" /> + + * + *m: do_reset + *p: cdefault + * + + * + BorderColor = 128,128,128 + Height = 27 + Name = "ctip_deviz" + Width = 90 + * + + ADD OBJECT '_combobox1' AS _combobox WITH ; + FontName = "Arial Narrow", ; + Left = 1, ; + Name = "_combobox1", ; + Top = 2, ; + Width = 89 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + PROCEDURE do_reset + this._combobox1.Value=this.cdefault + ENDPROC + + PROCEDURE _combobox1.Destroy + If Used('lista_tipuri') + Use In lista_tipuri + Endif + ENDPROC + + PROCEDURE _combobox1.Init + =cctipuri_deviz() + Select denumire,id_tip From crstipuri_deviz Into Array latipuri Order By id_tip + If Used('crstipuri_deviz') + Use In crstipuri_deviz + Endif + If Used('lista_tipuri') + Use In lista_tipuri + Endif + + Create Cursor lista_tipuri (denumire C(50),id_tip N(5)) + Select lista_tipuri + Append Blank + Replace denumire With '',id_tip With 0 + + If Type('latipuri')#'U' + Append From Array latipuri + Release latipuri + Endif + + This.RowSourceType= 2 + This.RowSource="lista_tipuri" + This.Value="" + this.Parent.cdefault="" + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_aleg_operatie 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_operatie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_mecanic" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_timpn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_timpn.Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_ore" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 214 + Name = "frm_aleg_operatie" + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 312 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 64 + LB_TITLU_ALB_B121.Caption = "ALEGEI OPERAIA" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 8 + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 315, ; + Name = "But_renunt1", ; + TabIndex = 7, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_mecanic' AS cb_tx_simplu WITH ; + Left = 41, ; + Name = "Cb_mecanic", ; + TabIndex = 4, ; + Top = 132, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_mecanici.nume,id_mecanic", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Mecanic", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_operatie' AS cb_tx_simplu WITH ; + Left = 41, ; + Name = "Cb_operatie", ; + TabIndex = 2, ; + Top = 76, ; + _CBBASE1.DisabledForeColor = 0,0,0, ; + _CBBASE1.DisabledItemBackColor = 128,128,128, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_denop.denop,id_norme,timpn", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Operaie", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_sectie' AS cb_tx_simplu WITH ; + Left = 41, ; + Name = "Cb_sectie", ; + TabIndex = 1, ; + Top = 48, ; + _CBBASE1.DisabledForeColor = 0,0,0, ; + _CBBASE1.DisabledItemBackColor = 128,128,128, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_nom_sectii.sectie,id_sectie", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Secie", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_ore' AS clb_tx_simplu WITH ; + Left = 41, ; + Name = "Clb_ore", ; + TabIndex = 5, ; + Top = 160, ; + TEXT_SIMPLU1.ControlSource = "pnore", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.InputMask = "999.99", ; + TEXT_SIMPLU1.Left = 199, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 86, ; + LB_SIMPLU1.Caption = "Ore", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_timpn' AS clb_tx_simplu WITH ; + Left = 41, ; + Name = "Clb_timpn", ; + TabIndex = 3, ; + Top = 104, ; + TEXT_SIMPLU1.ControlSource = "pntimpn", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.InputMask = "999.99", ; + TEXT_SIMPLU1.Left = 199, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 86, ; + LB_SIMPLU1.Caption = "Timp normat", ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_timpn.Lb_simplu2' AS lb_simplu WITH ; + Caption = "1.00", ; + Left = 115, ; + Name = "Lb_simplu2", ; + Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE inainte_de_do_termin + pntimpn=Thisform.clb_timpn.texT_SIMPLU1.Value + pnore=Thisform.clb_ore.texT_SIMPLU1.Value + pnid_sectie=v_nom_sectii.id_sectie + pcsectie=v_nom_sectii.sectie + pnid_norme=v_denop.id_norme + pcdenop=v_denop.denop + pnid_mecanic=v_mecanici.id_mecanic + pcmecanic=v_mecanici.nume + If Empty(Thisform.cb_sectie._CBBASE1.Value) + amessagebox("Nu ati ales sectia!",0+48,"Atentie") + Thisform.cb_sectie.SetFocus() + Return .F. + Endif + If Empty(Thisform.cb_operatie._CBBASE1.Value) + amessagebox("Nu ati ales operatia!",0+48,"Atentie") + Thisform.cb_operatie.SetFocus() + Return .F. + Endif + If Empty(pntimpn) + amessagebox("Nu ati completat timpul normat pentru aceasta operatie!",0+48,"Atentie") + Thisform.clb_timpn.SetFocus() + Return .F. + Endif + If Empty(Thisform.cb_mecanic._CBBASE1.Value) + amessagebox("Nu ati ales mecanicul!",0+48,"Atentie") + Thisform.cb_mecanic.SetFocus() + Return .F. + Endif + If Empty(pnore) + amessagebox("Nu ati completat numarul de ore pentru acest mecanic!",0+48,"Atentie") + Thisform.clb_ore.SetFocus() + Return .F. + Endif + If pnore>pntimpn + amessagebox("Numarul de ore nu poate fi mai mare decat timpul normat!",0+48,"Atentie") + Return .F. + Endif + Return .T. + + ENDPROC + + PROCEDURE Init + DoDefault() + If !Empty(pnid_sectie) + *!* Thisform.cb_sectie._cbbase1.ReadOnly=.T. + Thisform.cb_sectie._cbbase1.Enabled=.F. + Select v_nom_sectii + Locate For id_sectie=pnid_sectie + Thisform.cb_sectie._cbbase1.Value=Alltrim(sectie) + Endif + If !Empty(pnid_norme) + *!* Thisform.cb_operatie._cbbase1.ReadOnly=.T. + Thisform.cb_operatie._cbbase1.Enabled=.F. + Select v_denop + Locate For id_norme=pnid_norme + Thisform.cb_operatie._cbbase1.Value=Alltrim(denop) + Thisform.clb_timpn.lb_simplu2.Caption=Alltrim(Str(v_denop.timpn,7,2)) + Endif + + ENDPROC + + PROCEDURE Cb_operatie._CBBASE1.InteractiveChange + thisform.clb_timpn.lb_simplu2.Caption=ALLTRIM(STR(v_denop.timpn,7,2)) + ENDPROC + + PROCEDURE Clb_timpn.TEXT_SIMPLU1.Valid + pnore=pntimpn + thisform.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_aleg_sectie 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_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 94 + Name = "frm_aleg_sectie" + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 312 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 64 + LB_TITLU_ALB_B121.Caption = "ALEGEI SECIA" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 315, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_sectie' AS cb_tx_simplu WITH ; + Left = 36, ; + Name = "Cb_sectie", ; + Top = 48, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_nom_sectii.sectie,id_sectie", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Secie", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + pnid_sectie=v_nom_sectii.id_sectie + *!* pnid_norma=v_denop.id_norme + RETURN .T. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_documente_lucrare 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_titlu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cCod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cCod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cDataAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cDataAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cNrAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cNrAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdexport.cAles.Check1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 300 + Name = "frm_documente_lucrare" + Width = 432 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 432 + _shape2.Height = 29 + _shape2.Left = 400 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 43 + Lb_titlu_alb_b121.Caption = "Documente" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 402 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'grdexport' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 204, ; + Left = 14, ; + Name = "grdexport", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordSource = "crsexport", ; + RowHeight = 19, ; + Top = 84, ; + Width = 396, ; + Column1.ColumnOrder = 4, ; + Column1.ControlSource = "cod", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cCod", ; + Column1.ReadOnly = .T., ; + Column1.Sparse = .F., ; + Column1.Width = 119, ; + Column2.ControlSource = "dataact", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDataAct", ; + Column2.ReadOnly = .T., ; + Column2.Sparse = .F., ; + Column2.Width = 86, ; + Column3.ControlSource = "nract", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNrAct", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 116, ; + Column4.ColumnOrder = 1, ; + Column4.ControlSource = "ales", ; + Column4.CurrentControl = "Check1", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cAles", ; + Column4.ReadOnly = .F., ; + Column4.Sparse = .F., ; + Column4.Width = 35 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdexport.cAles.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 13, ; + Name = "Check1", ; + ReadOnly = .F., ; + Top = 23, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grdexport.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdexport.cCod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdexport.cCod.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 'grdexport.cDataAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdexport.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 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdexport.cNrAct.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Numar act", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdexport.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 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_titlu1' AS lb_simplu WITH ; + Caption = "<>", ; + Height = 18, ; + Left = 26, ; + Name = "lb_titlu1", ; + Top = 60, ; + Width = 18 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Init + LPARAMETERS tcnrord + DODEFAULT() + thisform.lb_titlu1.Caption = [Pentru comanda ] + ALLTRIM(tcNrOrd) + [ s-au gsit urmtoarele documente: ] + ENDPROC + + PROCEDURE grdexport.Init + * Nu sterge + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_emitere_facturi 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="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAsigurator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAsigurator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatafact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatafact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAles.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAles._checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_factavans" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_factfinal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_vizualizare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_facturat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_validat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_select_adv1" UniqueID="" Timestamp="" /> + + * + *m: do_aratafact + *m: do_executa2 + *m: do_factureaza_avans + *m: do_factureaza_avans_part + *m: do_factureaza_final + *m: do_factureaza_final_part + *m: do_relisteaza_factura + *m: do_storneaza_avans + *m: do_verifica_com + *m: do_verifica_part + *m: verifica_stornare + * + + * + cbuton2 = but_listare1;but_listare2 + cbuton3 = but_modifica1;cmd_modifica1 + cgridsortlist = grdcomenzi + DoCreate = .T. + Height = 541 + lactiv2 = .T. + lactiv3 = .T. + Name = "frm_emitere_facturi" + Width = 793 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 732 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = -1 + _shape2.Width = 64 + _shape2.ZOrderSet = 12 + Lb_titlu_alb_b121.Caption = "EMITERE FACTURI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 16 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 763 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 13 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 13 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 12, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + Left = 673, ; + Name = "Ck_datai", ; + TabIndex = 4, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + tip = D, ; + Top = 73, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + Left = 673, ; + Name = "Ck_nrinmat", ; + TabIndex = 5, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 92, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comanda", ; + Left = 673, ; + Name = "Ck_nrord", ; + TabIndex = 2, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 36, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + Left = 673, ; + Name = "Ck_nume", ; + TabIndex = 3, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 54, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Left = 673, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 262, ; + Width = 109, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_factavans' AS cmd_executa WITH ; + Anchor = 12, ; + AutoSize = .F., ; + caction = do_executa, ; + Caption = "Factura \ + + ADD OBJECT 'Cmd_factfinal' AS cmd_executa WITH ; + Anchor = 12, ; + AutoSize = .F., ; + caction = do_executa2, ; + Caption = "Factura \ + + ADD OBJECT 'Cmd_modifica1' AS cmd_modifica WITH ; + Alignment = 2, ; + Anchor = 12, ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + AutoSize = .F., ; + Left = 673, ; + Name = "Cmd_reset1", ; + TabIndex = 17, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 291, ; + Width = 109, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_select_adv1' AS cmd_select_adv WITH ; + Anchor = 6, ; + AutoSize = .F., ; + ccoloana = ales, ; + cgrid = thisform.grdcomenzi, ; + FontBold = .F., ; + Height = 39, ; + Left = 17, ; + Name = "Cmd_select_adv1", ; + Picture = ..\comun\grafice\check.bmp, ; + PicturePosition = 1, ; + TabIndex = 9, ; + Top = 497, ; + Width = 103, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_vizualizare' AS cmd_executa WITH ; + Anchor = 6, ; + AutoSize = .F., ; + caction = do_aratafact, ; + Caption = "\ + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + Height = 456, ; + Left = 17, ; + Name = "grdcomenzi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crscomenzi", ; + RowHeight = 19, ; + TabIndex = 1, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 643, ; + ZOrderSet = 2, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Width = 98, ; + Column2.ColumnOrder = 4, ; + Column2.ControlSource = "IIF(TYPE('datai')=='D',datai,TTOD(datai))", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDatai", ; + Column2.ReadOnly = .T., ; + Column2.Width = 88, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNume", ; + Column3.ReadOnly = .T., ; + Column3.Width = 203, ; + Column4.ColumnOrder = 11, ; + Column4.ControlSource = "asigurator", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cAsigurator", ; + Column4.ReadOnly = .T., ; + Column4.Width = 85, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "IIF(validat=1,'Da','Nu')", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cValidat", ; + Column5.ReadOnly = .T., ; + Column5.Width = 51, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "ROUND(manopera,gnPc)", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPc)), ; + Column6.Name = "cManopera", ; + Column6.ReadOnly = .T., ; + Column6.Width = 97, ; + Column7.ColumnOrder = 10, ; + Column7.ControlSource = "ROUND(materiale,gnPc)", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "R", ; + Column7.InputMask = (get_mask(12,gnPc)), ; + Column7.Name = "cMateriale", ; + Column7.ReadOnly = .T., ; + Column7.Width = 93, ; + Column8.ColumnOrder = 12, ; + Column8.ControlSource = "util_valid", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Name = "cUtil_valid", ; + Column8.ReadOnly = .T., ; + Column8.Width = 115, ; + Column9.ColumnOrder = 13, ; + Column9.ControlSource = "dataoravalid", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cDataoravalid", ; + Column9.ReadOnly = .T., ; + Column9.Width = 113, ; + Column10.ColumnOrder = 6, ; + Column10.ControlSource = "IIF(facturat=1,'Da','Nu')", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "cFacturat", ; + Column10.ReadOnly = .T., ; + Column10.Width = 59, ; + Column11.ColumnOrder = 7, ; + Column11.ControlSource = "IIF(TYPE('datafact')=='D',datafact,TTOD(datafact))", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "cDatafact", ; + Column11.ReadOnly = .T., ; + Column11.Width = 93, ; + Column12.ColumnOrder = 8, ; + Column12.ControlSource = "nrfact", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.InputMask = (get_mask(14,0)), ; + Column12.Name = "cNrFact", ; + Column12.ReadOnly = .T., ; + Column12.Width = 104, ; + Column13.ColumnOrder = 1, ; + Column13.ControlSource = "ales", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.Name = "cAles", ; + Column13.ReadOnly = .T., ; + Column13.Sparse = .F., ; + Column13.Width = 44 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cAles._checkbox1' AS _checkbox WITH ; + Alignment = 2, ; + AutoSize = .F., ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Left = 16, ; + Name = "_checkbox1", ; + ReadOnly = .F., ; + Top = 23 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'grdcomenzi.cAles.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Aleasa", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cAsigurator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asigurator", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cAsigurator.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 'grdcomenzi.cDatafact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data facturii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatafact.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 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.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 'grdcomenzi.cDataoravalid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data si ora validarii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDataoravalid.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 'grdcomenzi.cFacturat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Facturata", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cFacturat.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 'grdcomenzi.cManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cManopera.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 'grdcomenzi.cMateriale.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Materiale", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cMateriale.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 'grdcomenzi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrFact.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 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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 'grdcomenzi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.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., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cUtil_valid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validata de catre", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cUtil_valid.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 'grdcomenzi.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validata", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValidat.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 'opt_facturat' AS _optiongrup WITH ; + Anchor = 8, ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 65, ; + Left = 671, ; + Name = "opt_facturat", ; + TabIndex = 7, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 185, ; + Width = 89, ; + OPTION1.AutoSize = .T., ; + OPTION1.Caption = "Toate", ; + OPTION1.FontSize = 10, ; + OPTION1.Left = 5, ; + OPTION1.Name = "OPTION1", ; + OPTION1.Top = 5, ; + OPTION1.Value = 1, ; + OPTION2.AutoSize = .T., ; + OPTION2.Caption = "Facturate", ; + OPTION2.FontSize = 10, ; + OPTION2.Left = 5, ; + OPTION2.Name = "OPTION2", ; + OPTION2.Top = 24, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Nefacturate", ; + Option3.FontSize = 10, ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Value = 0, ; + Option3.Width = 85 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT 'opt_validat' AS _optiongrup WITH ; + Anchor = 8, ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 65, ; + Left = 671, ; + Name = "opt_validat", ; + TabIndex = 6, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 120, ; + Width = 89, ; + OPTION1.AutoSize = .T., ; + OPTION1.Caption = "Toate", ; + OPTION1.FontSize = 10, ; + OPTION1.Left = 5, ; + OPTION1.Name = "OPTION1", ; + OPTION1.Top = 5, ; + OPTION1.Value = 1, ; + OPTION2.AutoSize = .T., ; + OPTION2.Caption = "Validate", ; + OPTION2.FontSize = 10, ; + OPTION2.Left = 5, ; + OPTION2.Name = "OPTION2", ; + OPTION2.Top = 24, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Nevalidate", ; + Option3.FontSize = 10, ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Value = 0, ; + Option3.Width = 78 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE actualizeaza_grid1 + Lparameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pocomenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.grdcomenzi) + pocomenzi.ca_baza1.cfiltru = lcFiltru + pocomenzi.ca_baza1.afisare() + restore_grid_comment(Thisform.grdcomenzi) + Thisform.grdcomenzi.SetAll("DynamicForeColor","IIF(facturat=1,RGB(128,128,128),RGB(0,0,0))","Column") + If Reccount('crscomenzi')>0 + Thisform.cmd_vizualizare.Enabled=.T. + Thisform.grdcomenzi.SetFocus() + Else + *!* Thisform.cmd_factavans.Enabled = .F. + *!* Thisform.cmd_factfinal.Enabled = .F. + Thisform.cmd_modifica1.Enabled=.F. + Thisform.cmd_vizualizare.Enabled=.F. + Endif + + Thisform.cmd_select_adv1.do_reset() + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE do_adauga + *!* Private pnvalidat,pnid_ordl,pnid_lucrare,pnrecno,pnfacturat + *!* Select crscomenzi + *!* pcnrord=nrord + *!* pnvalidat=Validat + *!* pnid_ordl=id_ordl + *!* pnfacturat=facturat + *!* pnid_lucrare=id_lucrare + *!* pnrecno=Recno() + *!* If pnvalidat=0 AND pnfacturat=0 + *!* If amessagebox("Sunteti sigur ca doriti sa validati comanda "+Alltrim(pcnrord)+" ?",4+32+256,"Confirmare")==6 + *!* Thisform.LockScreen=.T. + *!* Thisform.MousePointer= 11 + *!* lcSql=[begin pack_devize.dev_valideaza_comanda('] + Alltrim(gcS) + [',] + Alltrim(Str(pnid_ordl)) + ; + *!* [,] + Alltrim(Str(gnIdutil)) + [); end;] + *!* lnSucces=goExecutor.oExecute(lcSql) + *!* Thisform.MousePointer= 0 + *!* Thisform.LockScreen=.F. + + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Thisform.actualizeaza_grid1() + *!* Go pnrecno + *!* Endif + *!* Else + *!* amessagebox("Aceasta comanda este deja validata!",0+48,"Atentie") + *!* Endif + ENDPROC + + PROCEDURE do_aratafact + Local lnid_ordl + Select crscomenzi + lnid_ordl=id_ordl + lcnrord=nrord + If Used('crsfacturi') + Use In crsfacturi + Endif + lcSql=[select a.datai,b.serie_act,b.nract,a.nume,b.dataact,b.explicatia,b.suma,b.scd,b.scc ] + ; + [from ] + gcS + [.auto_vordl a ] + ; + [left join ] + gcS + [.vact b on a.id_lucrare=b.id_lucrare ] + ; + [where a.id_ordl=]+Alltrim(Str(lnid_ordl))+[ and (b.scd like '4111%' or b.scd like '667%') ] + ; + [order by b.dataact,b.nract] + + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + lnSucces=goExecutor.oExecute(lcSql,'crsfacturi') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + If Reccount('crsfacturi')>0 + *!* Thisform.AlwaysOnTop=.F. + ofrmfacturi=Createobject('frm_factact') + ofrmfacturi.lb_titlu_alb_b121.Caption=ofrmfacturi.lb_titlu_alb_b121.Caption+" "+Alltrim(lcnrord) + ofrmfacturi.Show(1) + *!* Thisform.AlwaysOnTop=.T. + Else + amessagebox("Nu exista facturi pentru aceasta comanda!",0+48,"Atentie") + Endif + Use In crsfacturi + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + * DOAR COMENZI 1= POSTGARANTIE, 2 = GARANTIE + lcFiltru = gcCondLuna + [ and a.id_tip IN (1,2) ] + lcFiltru = lcFiltru + [ and a.inchis_fortat = 0 ] + If Thisform.ck_datai.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + Do Case + Case Thisform.opt_facturat.Value=2 + lcFiltru = lcFiltru + [ and a.facturat=1] + Case Thisform.opt_facturat.Value=3 + lcFiltru = lcFiltru + [ and a.facturat=0] + Endcase + + Do Case + Case Thisform.opt_validat.Value=2 + lcFiltru = lcFiltru + [ and a.validat=1] + Case Thisform.opt_validat.Value=3 + lcFiltru = lcFiltru + [ and a.validat=0] + Endcase + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crscomenzi')=0 + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_executa + Local lcFiltru, lnNrDosare, lnNrInchise, lnNrInreg, lnNrParteneri, lnRecno + lcFiltru = 'ales = 1' + + If Used('crscomenzi') And Reccount('crscomenzi') > 0 + Private poGeneratorNumere + poGeneratorNumere = Createobject('oGeneratorNumere') + If Used('crsverifcom') + Use In crsverifcom + ENDIF + + lnRecno = RECNO() + IF m.lnRecno > 0 + LOCATE FOR ales = 1 + IF !FOUND() + lcFiltru = 'recno() = ' + ALLTRIM(STR(m.lnRecno)) + ENDIF + GOTO m.lnRecno + ENDIF + + Select Count(Distinct id_partener) As nr, Count(*) As nrinreg, Sum(Iif(Empty(Nvl(nr_dosar, [])), 0, 1)) As nrdosare, ; + SUM(facturat) As nrinchise From crscomenzi ; + With (Buffering = .T.) Where &lcFiltru Into Cursor crsverifcom + Select crsverifcom + lnNrParteneri = nr + lnNrInreg = nrinreg + lnNrInchise = nrinchise + *!* modificare v 2.0.29 + lnNrDosare = nrdosare + *!* modificare v 2.0.29 ^ + If Used('crsverifcom') + Use In crsverifcom + Endif + + Do Case + Case m.lnNrInreg = 0 + amessagebox([Nu ati ales comenzi pentru facturare!], 0 + 48, [Atentie]) + Case m.lnNrParteneri > 1 + amessagebox([Daca doriti sa facturati mai multe devize,atunci ele trebuie sa fie ale unui singur client!], 0 + 48, [Atentie]) + *!* modificare v 2.0.29 + *!* Case m.lnNrDosare > 0 AND m.lnNrInreg > 1 && modificare v 2.0.31 + *!* amessagebox([Nu puteti alege devizele care provin din dosare de asigurare!], 0 + 48, [Atentie]) + *!* modificare v 2.0.29 ^ + Case m.lnNrInchise > 0 + amessagebox([Ati selectat si comenzi care au fost facturate!], 0 + 48, [Atentie]) + Case m.lnNrInreg > 1 + lnRaspuns = 6 + if m.lnNrDosare > 0 && 2.4.23 + lnRaspuns = amessagebox([Atentie!] + ALLTRIM(STR(m.lnNrDosare)) + [/] + ALLTRIM(STR(m.lnNrInreg)) + [ devize provin din dosare de asigurare!]+ CRLF + ; + "Doriti sa continuati?", 4 + 32, "Confirmare facturare") + ENDIF + If m.lnRaspuns = 6 + Thisform.do_factureaza_avans_part(m.lcFiltru) + ENDIF + Otherwise + Thisform.do_factureaza_avans(m.lcFiltru) + Endcase + Release m.poGeneratorNumere + Endif + ENDPROC + + PROCEDURE do_executa2 + Local lcFiltru, lnCotaTva, lnNrDosare, lnNrInchise, lnNrInreg, lnNrParteneri, lnNrValidate + Local lnRaspuns, lnRecno + + lcFiltru = 'ales = 1' + If Used('crscomenzi') And Reccount('crscomenzi') > 0 + Private poGeneratorNumere + poGeneratorNumere = Createobject('oGeneratorNumere') + + SELECT crsComenzi + lnRecno = RECNO() + IF m.lnRecno > 0 + LOCATE FOR ales = 1 + IF !FOUND() + lcFiltru = 'recno() = ' + ALLTRIM(STR(m.lnRecno)) + ENDIF + GOTO m.lnRecno + ENDIF + + Use In (SELECT('crsverifcom')) + + Select Count(Distinct id_partener) As nr, Count(*) As nrinreg, Sum(Validat) As nrvalidate, ; + Sum(Iif(Empty(Nvl(nr_dosar, [])), 0, 1)) As nrdosare, ; + SUM(facturat) As nrinchise, ; + SUM(Iif(INLIST(proc_tvav, 1, gnCotaTVAStandard), 0, 1)) As cotatva From crscomenzi ; + With (Buffering = .T.) Where &lcFiltru Into Cursor crsverifcom + + Select crsverifcom + lnNrParteneri = nr + lnNrInreg = nrinreg + lnNrValidate = nrvalidate + lnNrInchise = nrinchise + *!* modificare v 2.0.29 + lnNrDosare = nrdosare + *!* modificare v 2.0.29 ^ + *!* modificare v 2.0.35 + lnCotaTva = cotatva + *!* modificare v 2.0.35 ^ + Use In (SELECT('crsverifcom')) + + + Do Case + Case m.lnNrInreg = 0 + amessagebox([Nu ati ales comenzi pentru facturare!], 0 + 48, [Atentie]) + Case m.lnNrParteneri > 1 + amessagebox([Daca doriti sa facturati mai multe devize,atunci ele trebuie sa fie ale unui singur client!], 0 + 48, [Atentie]) + *!* modificare v 2.0.29 + *!* Case m.lnNrDosare > 0 And m.lnNrInreg > 1 && modificare v 2.0.31 + *!* amessagebox([Nu puteti alege devizele care provin din dosare de asigurare!], 0 + 48, [Atentie]) + *!* modificare v 2.0.29 ^ + Case m.lnNrValidate = 0 + amessagebox([Nu puteti emite factura finala pentru comenzi nevalidate!], 0 + 48, [Atentie]) + Case m.lnNrInreg > m.lnNrValidate + amessagebox([Ati ales si comenzi nevalidate!], 0 + 48, [Atentie]) + Case m.lnNrInchise > 0 + amessagebox([Ati selectat si comenzi care au fost facturate!], 0 + 48, [Atentie]) + *!* modificare v 2.0.35 + *!* Case lnNrInreg > 1 + *!* Thisform.do_factureaza_final_part() + *!* Otherwise + *!* Thisform.do_factureaza_final() + Case m.lnNrInreg > 1 + lnRaspuns = 6 + If m.lnCotaTva <> 0 + lnRaspuns = amessagebox("Cota TVA de la validarea comenzilor selectate difera de cea standard din luna curenta!" + CRLF + ; + "Daca apasati DA, atunci pretul cu TVA al materialelor bonate se va calcula aplicand cota TVA actuala la pretul fara TVA de pe bon." + CRLF + ; + "Doriti sa continuati?", 4 + 32, "Confirmare facturare") + ENDIF + + if m.lnNrDosare > 0 && 2.4.23 + lnRaspuns = amessagebox([Atentie! ] + ALLTRIM(STR(m.lnNrDosare)) + [/] + ALLTRIM(STR(m.lnNrInreg)) + [ devize provin din dosare de asigurare!]+ CRLF + ; + "Doriti sa continuati?", 4 + 32, "Confirmare facturare") + ENDIF + + If m.lnRaspuns = 6 + Thisform.do_factureaza_final_part(m.lcFiltru) + Endif + Otherwise + lnRaspuns = 6 + If m.lnCotaTva <> 0 + lnRaspuns = amessagebox("Cota TVA de la validarea comenzi selectate difera de cea standard din luna curenta!" + CRLF + ; + "Daca apasati DA, atunci pretul cu TVA al materialelor bonate se va calcula aplicand cota TVA actuala la pretul fara TVA de pe bon." + CRLF + ; + "Doriti sa continuati?", 4 + 32, "Confirmare facturare") + Endif + + If m.lnRaspuns = 6 + Thisform.do_factureaza_final(m.lcFiltru) + Endif + *!* modificare v 2.0.35 ^ + Endcase + Release m.poGeneratorNumere + Endif + + ENDPROC + + PROCEDURE do_factureaza_avans + LPARAMETERS tcFiltru + + LOCAL lcFiltru + Local ofrmincasare As 'frm_incasare_avans' + Local ofrmverificari As "frm_rezultate_verificari" + Local lcSql, lnLungime, lnSucces, loTVAColoana + *:Global oactan, ocomanda, oincasare, otva, pcCasa, pnTaxCode, poactan, taValori[1], x + + lcFiltru = IIF(EMPTY(m.tcFiltru), 'ales = 1', m.tcFiltru) + + Private pniesire,pnIdTva,pnProcTva,pnIdJtvaColoana,pnTipIncasare,pnAvans + Local lnIncasat, loLogCursoare, ldDataAct + loLogCursoare = CREATEOBJECT("oLogCursoare") + *!* modificare JC/JV 2007 + + pnIdJtvaColoana = GetIdJtvaStandard("VANZARE") + loTVAColoana = GeJtvaColoana(pnIdJtvaColoana) + pnIdTva = NVL(loTVAColoana.id_tva,0) + pnProcTva = 1 + ROUND(loTVAColoana.cota_tva/100,2) + *!* modificare JC/JV 2007 ^ + pnTipIncasare=1 + optiuni_firma() && reinitializare optiuni + Local lnPozitieCursor + Select crscomenzi + GO top + *LOCATE FOR ales = 1 + LOCATE FOR &lcFiltru + lnPozitieCursor=Recno() + Scatter Name ocomanda + && optiuni cu analitice + && optiuni tip analitic + + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + + If Used('crsavansuri') + Use In crsavansuri + Endif + *!* modificare v 2.0.21 + *!* lcSql=[select NVL(sum(suma),0.00) as avans,incasat from ]+gcS+[.dev_vordl_avansuri ] + ; + *!* [where id_lucrare=] + Alltrim(Str(ocomanda.id_lucrare)) + [ group by incasat] + lcSql = [{call pack_auto.citeste_date_avans('] + Alltrim(Str(ocomanda.id_lucrare)) + [',',')}] + *!* modificare v 2.0.21 ^ + lnSucces=goExecutor.oExecute(lcSql,'crsavansuri') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + Select crsavansuri + Sum ROUND(avans,gnPc),ROUND(incasat,gnPc) To pnAvans,lnIncasat + + lcSql=[select a.nrord,to_char(a.datai,'DD/MM/YYYY') as datai from ] + gcS + ; + [.auto_normare_comenzi a ] + ; + [where a.id_masiniclient=] + Alltrim(Str(ocomanda.id_masiniclient)) + [ and a.id_ordl!=] + Alltrim(Str(ocomanda.id_ordl)) + [ and ] + ; + [a.facturat=0 and ]+gcCondLuna+[ order by a.datai] + lnSucces=goExecutor.oExecute(lcSql,'crsverificari') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + + pniesire=1 + ofrmverificari=Createobject("frm_rezultate_verificari",pnAvans,lnIncasat) + ofrmverificari.lb_client.Caption="Client: "+Alltrim(Nvl(ocomanda.nume,'')) + ofrmverificari.lb_titlu1.Caption=ofrmverificari.lb_titlu1.Caption+" "+Alltrim(ocomanda.nrinmat) + ofrmverificari.lb_comanda.Caption="Comanda: "+Alltrim(Nvl(ocomanda.nrord,'')) + ofrmverificari.Show(1) + Release ofrmverificari + Use In crsverificari + If pniesire!=1 + If Used('crsavansuri') + Use In crsavansuri + Endif + Return + Endif + + lnLungime=4 + Dimension taValori[lnLungime,3] + taValori[1,1]="poAct.v4111" + taValori[1,2]=Alltrim(ocomanda.nume) + taValori[1,3]=.T. + taValori[2,1]="poAct.nrord" + taValori[2,2]=Alltrim(ocomanda.nrord) + taValori[2,3]=.T. + taValori[3,1]="poAct.id_lucrare" + taValori[3,2]=Alltrim(Str(ocomanda.id_lucrare)) + taValori[3,3]=.T. + taValori[4,1]="poAct.id_vv4111" + taValori[4,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[4,3]=.T. + *!* lnNumarFactura = aloca_numar_fact() + *!* taValori[5,1]="poAct.nract" + *!* taValori[5,2]=Alltrim(Str(lnNumarFactura)) + *!* taValori[5,3]=.F. + + *!* modificare v 2.0.28 + *!* If !Isnull(gnid_fdoc_factura) + If !Isnull(gnid_fdoc_fact) + *!* modificare v 2.0.28 ^ + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.id_fdoc" + *!* modificare v 2.0.28 + *!* taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_factura)) + taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_fact)) + *!* modificare v 2.0.28 ^ + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.fdoc" + taValori[lnLungime+2,2]='FACTURA' + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + Endif + + Thisform.AlwaysOnTop=.F. + If gnAvans419=1 + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.v419" + taValori[lnLungime+1,2]=Alltrim(ocomanda.nume) + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.id_vv419" + taValori[lnLungime+2,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[lnLungime+2,3]=.T. + lans(31002,.F.,.T.,@taValori) + Else + lans(31001,.F.,.T.,@taValori) && id_set,daca se executa procedura de mai multe ori, + && daca verifica analiticele,array de valori + Endif + + Thisform.AlwaysOnTop=.T. + If buton=2 + Do deschid_actc + *!* DO dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Return + Endif + *!* SELECT actactan + *!* GO TOP + *!* lnNumarFacturaAct = nract + *!* IF lnNumarFacturaAct <> lnNumarFactura + *!* DO dezaloca_numar_fact In oserii_numere.prg + *!* ENDIF + + Use In (SELECT('v_nom_casa')) + lcSql=[select id_part,nume from vcoresp_tip_part where tip_partener IN ('BANCA LEI', 'CASA LEI')] + lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + SET STEP ON + *!* modificare v 2.1.0 + local lnTvaIncasare, lcContTVA + Select actactan + Calculate Max(tva_incasare) To lnTvaIncasare + if lnTvaIncasare = 1 + pnIdJtvaColoana = getIdJtvaColoana(pnIdJtvaColoana,1) + pnIdTva = getIdTva(pnIdTva,1) + lcContTVA = [4428] + else + lcContTVA = [4427] + ENDIF + + *!* modificare v 2.1.0 ^ + *!* modificare v 2.0.41 : am adaugat pnPretCuTva + Private pnTotalfTva,pnTotalTva,pnTotalcTva,pnNrChit,pnIdCasa,pcSerieChit,pnPretCuTva, pnPOS + Store 0 To pnTotalfTva,pnTotalTva,pnTotalcTva,pnIdCasa,pcCasa,pnNrChit,pnPretCuTva, pnPOS + STORE [] TO pcSerieChit && modificare v 2.0.28 + pniesire=1 + ofrmincasare=Createobject('frm_incasare_avans',lnTvaIncasare,2) && modificare v 2.0.41 / v 2.1.0 + ofrmincasare.Show(1) + Release ofrmincasare + Use In v_nom_casa + If pniesire!=1 + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Return + Endif + + SELECT actactan + GO TOP + ldDataAct = dataact + pnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.pnIdJtvaColoana, ocomanda.id_partener) + + *!* modificare v 2.0.3 + Local lcExplicatia5 + lcExplicatia5 = Alltrim(Nvl(ocomanda.inspector,''))+[;]+Alltrim(Nvl(ocomanda.nr_dosar,'')) + *!* modificare v 2.0.3 ^ + + *!* modificare v 2.1.0 + *!* modificare v 2.0.6 : am concatenat explicatia5 + SET STEP ON + Select actactan + Replace suma With pnTotalfTva,proc_Tva With pnProcTva,id_jtva_coloana With pnIdJtvaColoana, taxcode WITH m.pnTaxCode For Alltrim(scc)='707' Or Alltrim(scc)='419' + Replace suma With pnTotalTva,proc_Tva With pnProcTva,id_jtva_coloana With pnIdTva, taxcode WITH m.pnTaxCode For scc=lcContTVA + Replace explicatia4 With ocomanda.asigurator,explicatia5 with ALLTRIM(NVL(explicatia5,''))+[;]+lcExplicatia5,explicatia With 'AVANS' For Alltrim(scd)='4111' + *!* Replace explicatia4 With ocomanda.asigurator,explicatia5 with ALLTRIM(NVL(explicatia5,''))+[;]+lcExplicatia5,suma With pnTotalfTva,proc_Tva With pnProcTva,; + *!* id_jtva_coloana With pnIdJtvaColoana,explicatia With 'AVANS' For Alltrim(scc)='707' Or Alltrim(scc)='419' + *!* Replace explicatia4 With ocomanda.asigurator,explicatia5 with ALLTRIM(NVL(explicatia5,''))+[;]+lcExplicatia5,suma With pnTotalTva,proc_Tva With pnProcTva,; + *!* id_jtva_coloana With pnIdTva,explicatia With 'AVANS' For scc='4427' + *!* Replace explicatia4 With ocomanda.asigurator,explicatia5 with ALLTRIM(NVL(explicatia5,''))+[;]+lcExplicatia5,explicatia With 'AVANS' For Alltrim(scd)='4111' + *!* modificare v 2.1.0 ^ + + If pnTipIncasare>1 + *!* If !Empty(pnNrChit) && modificare 22.02 + *!* incasare = 5311 + Select actactan + Go Top + Scatter Name oactan + Append Blank + *!* modificare v 2.0.28 : pcSerieChit + Gather Name oactan Fields Except proc_Tva,id_jtva_coloana && Fields Except suma, ascc, scc, id_partc + Replace nr_nota With Recno(),partc With partd, id_partc With id_partd, suma With pnTotalcTva, serie_Act WITH null + Replace scc With Alltrim(scd), ascc With ascd, scd With '5311', ascd With '', perecheC With nract,nract With pnNrChit,serie_act WITH pcSerieChit + Replace id_partd With pnIdCasa,partd With m.pcCasa,neimpozab With 0,explicatia With 'INCASARE AVANS', id_factd With id_fact, datascad With {} + Do Case + Case pnTipIncasare=2 + Replace id_fdoc With gnid_fdoc_bonfiscal,fdoc With 'BON FISCAL' + Case pnTipIncasare=3 + Replace id_fdoc With gnid_fdoc_chitanta,fdoc With 'CHITANTA' && modificare v 2.0.29 : am inlocuit gnid_fdoc_incasare + Endcase + + *!* modificare v 2.1.0 + If lnTvaIncasare = 1 + Select actactan + Locate For scc = lcContTVA + If Found() + Scatter Name otva + Locate For scd = '5311' + If Found() + Scatter Name oincasare + Append Blank + Gather Name oincasare Fields Except id_partc,id_partd,partc,partd,scc,scd,id_fact,pereched,perechec,id_jtva_coloana,suma + Replace suma with otva.suma,scd With '4428',scc With '4427',id_fact With -5,perechec With otva.nract,; + id_jtva_coloana With getIdTva(pnIdTva,0),proc_tva with otva.proc_tva, taxcode WITH m.pnTaxCode + Endif + Endif + Endif + *!* modificare v 2.1.0 ^ + + IF m.pnTipIncasare = 2 AND m.pnPOS = 1 + SELECT actactan + Locate For scd = '5311' + If Found() + REPLACE explicatia4 WITH partd && numele bancii + REPLACE scd WITH '5125', id_partd WITH id_partc, partd WITH partc + ENDIF + ENDIF + ENDIF && pnTipIncasare>1 + + UPDATE actactan SET PAYMENTCODE = '42', PAYMENTNAME = 'Plata in contul bancar' WHERE LEFT(scd, 3) = '512' + UPDATE actactan SET PAYMENTCODE = '10', PAYMENTNAME = 'Numerar' WHERE LEFT(scd, 3) = '531' + UPDATE actactan SET TAXCODE = NULL, TAXNAME = '' WHERE INLIST(LEFT(scd, 3), '531', '512') + + + Select actactan + Scan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scc) + Endif + poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + Select actactan + Replace ascc With poactan.ascc + + Release poactan + Select actactan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scd) + Endif + poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + Select actactan + Replace ascd With poactan.ascd + Endscan + + Select actactan + Replace All tva_incasare With lnTvaIncasare && modificare v 2.1.0 + Go Top + Private buton + buton=1 + *!* modificare v 2.0.17 + *!* Do Form verificare With .T. + If !verificare_note_contabile('actactan', .T.,.T., .F.) + Do Form verificare With .T. + Endif + *!* modificare v 2.0.17 ^ + If buton=2 + Use In actactan + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Return + Endif + + Select actactan + *!* modificare v 2.0.28 + *!* lnSucces = oscrie_in_fisiere() + *!* If lnSucces>0 + *!* modificare v 2.0.28 ^ + Thisform.AlwaysOnTop = .F. + *!* modificare v 2.0.28 + *!* Do listare_avans With ocomanda.id_partener,'actactan',ocomanda.nrord,ocomanda.nrinmat,0 + *!* modificare v 2.0.35 + *!* IF !factureaza_deviz(ocomanda.id_lucrare,ocomanda.nrord,ocomanda.nrinmat,[],0) + *!* modificare v 2.0.41 : am adaugat Alltrim(Str(ocomanda.id_lucrare)),pnPretCuTva + IF !factureaza_deviz(ocomanda.id_lucrare,ocomanda.nrord,ocomanda.nrinmat,[],0,,,,,,Alltrim(Str(ocomanda.id_ordl)),Alltrim(Str(ocomanda.id_lucrare)),pnPretCuTva) + *!* modificare v 2.0.35 ^ + poGeneratorNumere.dezaloca_numere() + ELSE + Thisform.actualizeaza_grid1() + ENDIF + *!* modificare v 2.0.28 ^ + Thisform.AlwaysOnTop = .T. + *!* Thisform.actualizeaza_grid1() && modificare v 2.0.28 + Select crscomenzi + If Reccount('crscomenzi')>=lnPozitieCursor + Go lnPozitieCursor + Endif + *!* modificare v 2.0.28 + *!* Else + *!* *!* dezaloca_numar_bf() && oserii_numere.prg + *!* *!* Do dezaloca_numar_fact In oserii_numere.prg + *!* poGeneratorNumere.dezaloca_numere() + *!* Endif + *!* modificare v 2.0.28 ^ + + Use In crsavansuri + ENDPROC + + PROCEDURE do_factureaza_avans_part + LPARAMETERS tcFiltru + LOCAL lcFiltru + Local ofrmincasare As 'frm_incasare_avans' + Local lcSql, lnLungime, lnSucces, loTVAColoana + *:Global ocomanda, poactan, taValori[1], x + + lcFiltru = IIF(EMPTY(m.tcFiltru), 'ales = 1', m.tcFiltru) + + *!* 12.06.2014 + *!* marius.mutu + *!* selectie nume banca lei pentru plata bon fiscal numerar sau prin card + *!* pnPOS = incasare bon fiscal numerar = 1; CARD POS = 1 + *!* inlocuiesc nota 5311 = 4111.client cu 5113.client = 4111.client + *!* v_nom_casa: se alege casa sau banca lei (pentru incasare CARD) + + Private pniesire,pnIdTva,pnProcTva,pnIdJtvaColoana,pnTipIncasare, pnTaxCode + Local lcSirIdLucrare,lcSirIdOrdl,lcSirNrOrd,lnNrComenzi, loLogCursoare, ldDataAct + loLogCursoare = CREATEOBJECT("oLogCursoare") + + lcSirIdLucrare = [] + lcSirIdOrdl = [] + lcSirNrOrd = [] + *!* modificare JC/JV 2007 + pnIdJtvaColoana = GetIdJtvaStandard("VANZARE") + loTVAColoana = GeJtvaColoana(pnIdJtvaColoana) + pnIdTva = NVL(loTVAColoana.id_tva,0) + pnProcTva = 1 + ROUND(loTVAColoana.cota_tva/100,2) + + *!* modificare JC/JV 2007 ^ + pnTaxCode = NULL + pnTipIncasare=1 + optiuni_firma() && reinitializare optiuni + Local lnPozitieCursor + Select crscomenzi + GO top + * LOCATE FOR ales = 1 + LOCATE FOR &lcFiltru + lnPozitieCursor=Recno() + Scatter Name ocomanda + && optiuni cu analitice + && optiuni tip analitic + + If Used('crsselectate') + Use In crsselectate + Endif + + Select * From crscomenzi With (Buffering = .T.) Where &lcFiltru Into Cursor crsselectate + lnNrComenzi = Reccount('crsselectate') + Select crsselectate + Scan + lcSirIdOrdl = lcSirIdOrdl + Alltrim(Str(id_ordl)) + [,] + lcSirIdLucrare = lcSirIdLucrare + Alltrim(Str(id_lucrare)) + [,] + lcSirNrOrd = lcSirNrOrd + Alltrim(nrord) + [,] + Endscan + lcSirIdOrdl = Substr(lcSirIdOrdl,1,Len(lcSirIdOrdl)-1) + lcSirIdLucrare = Substr(lcSirIdLucrare,1,Len(lcSirIdLucrare)-1) + lcSirNrOrd = Substr(lcSirNrOrd,1,Len(lcSirNrOrd)-1) + + If Used('crsavansuri_complet') + Use In crsavansuri_complet + Endif + + *!* modificare v 2.0.21 + *!* lcSql=[select NVL(SUM(a.suma),0.00) as avans,a.id_lucrare,b.nrord ] + ; + *!* [from ] + gcS + [.dev_vordl_avansuri a ] + ; + *!* [left join ] + gcS + [.vnom_lucrari b on a.id_lucrare = b.id_lucrare ] + ; + *!* [where a.id_partd = ] + Alltrim(Str(ocomanda.id_partener)) + [ ] + ; + *!* [and a.id_lucrare in (] + ALLTRIM(lcSirIdLucrare) + [) ] + ; + *!* [group by a.id_lucrare,b.nrord] + lcSql = [{call pack_auto.citeste_date_avans('] + ALLTRIM(lcSirIdLucrare) + [',',')}] + *!* modificare v 2.0.21 ^ + lnSucces = goExecutor.oExecute(lcSql,'crsavansuri_complet') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + *!* modificare v 2.0.21 + Use In Select('crsavansuri') + Select Sum(NVL(avans,0.00)) As avans,SUM(NVL(incasat,0.00)) as incasat,id_lucrare,nrord From crsavansuri_complet ; + GROUP By id_lucrare,nrord Into Cursor crsavansuri + *!* modificare v 2.0.21 ^ + + If Thisform.do_verifica_part(lcSirIdOrdl,ocomanda)!=1 + Use In Select('crsavansuri') + Use In Select('crsavansuri_complet') + Return + Endif + + Use In Select('crsavansuri_complet') + + lnLungime=4 + Dimension taValori[lnLungime,3] + taValori[1,1] = "poAct.v4111" + taValori[1,2] = Alltrim(ocomanda.nume) + taValori[1,3] = .T. + taValori[2,1] = "poAct.nrord" + taValori[2,2] = lcSirNrOrd + taValori[2,3] = .T. + taValori[3,1] = "poAct.id_lucrare" + taValori[3,2] = [-1] + taValori[3,3] = .T. + taValori[4,1] = "poAct.id_vv4111" + taValori[4,2] = Alltrim(Str(ocomanda.id_partener)) + taValori[4,3] = .T. + *!* lnNumarFactura = aloca_numar_fact() + *!* taValori[5,1]="poAct.nract" + *!* taValori[5,2]=Alltrim(Str(lnNumarFactura)) + *!* taValori[5,3]=.F. + + *!* modificare v 2.0.28 + *!* If !Isnull(gnid_fdoc_factura) + If !Isnull(gnid_fdoc_fact) + *!* modificare v 2.0.28 ^ + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.id_fdoc" + *!* modificare v 2.0.28 + *!* taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_factura)) + taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_fact)) + *!* modificare v 2.0.28 ^ + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.fdoc" + taValori[lnLungime+2,2]='FACTURA' + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + Endif + + Thisform.AlwaysOnTop=.F. + If gnAvans419=1 + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.v419" + taValori[lnLungime+1,2]=Alltrim(ocomanda.nume) + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.id_vv419" + taValori[lnLungime+2,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[lnLungime+2,3]=.T. + lans(31002,.F.,.T.,@taValori) + Else + lans(31001,.F.,.T.,@taValori) && id_set,daca se executa procedura de mai multe ori, + && daca verifica analiticele,array de valori + Endif + + Thisform.AlwaysOnTop=.T. + If buton=2 + Do deschid_actc + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Return + Endif + + *!* SELECT actactan + *!* GO TOP + *!* lnNumarFacturaAct = nract + *!* IF lnNumarFacturaAct <> lnNumarFactura + *!* DO dezaloca_numar_fact In oserii_numere.prg + *!* ENDIF + Use In (SELECT('v_nom_casa')) + lcSql=[select id_part,nume from vcoresp_tip_part where tip_partener IN ('BANCA LEI', 'CASA LEI')] + lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + *!* modificare v 2.1.0 + local lnTvaIncasare, lcContTVA + Select actactan + Calculate Max(tva_incasare) To lnTvaIncasare + if lnTvaIncasare = 1 + pnIdJtvaColoana = getIdJtvaColoana(pnIdJtvaColoana,1) + pnIdTva = getIdTva(pnIdTva,1) + lcContTVA = [4428] + else + lcContTVA = [4427] + ENDIF + + + *!* modificare v 2.1.0 ^ + *!* modificare v 2.0.41 : am adaugat pnPretCuTva + Private pnTotalfTva,pnTotalTva,pnTotalcTva,pnNrChit,pnIdCasa,pcCasa,pcSerieChit,pnPretCuTva, pnPOS + Store 0 To pnTotalfTva,pnTotalTva,pnTotalcTva,pnIdCasa,pnNrChit,pnPretCuTva, pnPOS + STORE [] TO pcSerieChit, pcCasa && modificare v 2.0.28 + + pniesire=1 + ofrmincasare=Createobject('frm_incasare_avans',lnTvaIncasare,2) && modificare v 2.0.41 / v 2.1.0 + ofrmincasare.Show(1) + Release ofrmincasare + Use In v_nom_casa + If pniesire!=1 + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Return + Endif + + SELECT actactan + GO TOP + ldDataAct = dataact + pnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.pnIdJtvaColoana, ocomanda.id_partener) + + *!* modificare v 2.0.6 : am concatenat explicatia5 + *!* modificare v 2.1.0 : am adaugat apelurile la getIdTva si getIdJtvaColoana + Insert Into actactan(nr_nota,id_act,luna,an,cod,datairegt,dataireg,dataact,serie_act,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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) ; + Select a.nr_nota,a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,a.serie_act,a.nract,a.dataactt,a.datascad,; + IIF(Alltrim(a.scc) = '707' Or Alltrim(a.scc) = '419',Round(pnTotalfTva/lnNrComenzi,gnpc),Round(pnTotalTva/lnNrComenzi,gnpc)) As suma,; + IIF(Alltrim(a.scd) = '4111',[AVANS],[]) As explicatia,a.scd,a.ascd,a.scc,a.ascc,a.pereched,a.perechec,; + b.asigurator As explicatia4,ALLTRIM(NVL(a.explicatia5,''))+[;]+alltrim(Nvl(b.inspector,''))+[;]+Alltrim(Nvl(b.nr_dosar,'')) as explicatia5,a.datascadt,a.nnir,a.id_util,a.util,a.dataora,; + a.id_responsabil,a.nresp,a.id_venchelt,a.dst_chlt,b.id_lucrare,b.nrord,a.id_ctr,a.contract,; + a.id_sectie,a.sectie,pnProcTva As proc_tva,a.id_set,a.id_fact,a.id_factd,a.id_factc,a.id_partd,a.partd,; + a.id_partc,a.partc,a.id_sucursala,a.sucursala,a.id_fdoc,a.fdoc,a.id_gestin,; + Iif(Alltrim(a.scc)=lcContTVA,pnIdTva,pnIdJtvaColoana) As id_jtva_coloana,; + m.pnTaxCode As taxcode,; + a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val From actactan a ; + Left Join crsselectate b On 2 = 2 + Delete From actactan Where id_lucrare = -1 + + Select actactan + If pnTotalfTva <> Round(pnTotalfTva/lnNrComenzi,gnpc) * lnNrComenzi Then + Locate For Alltrim(scc) = '707' Or Alltrim(scc) = '419' + If Found() + Replace suma With suma + pnTotalfTva - Round(pnTotalfTva/lnNrComenzi,gnpc) * lnNrComenzi + Endif + Endif + + If pnTotalTva <> Round(pnTotalTva/lnNrComenzi,gnpc) * lnNrComenzi Then + Locate For Alltrim(scc) = lcContTVA + If Found() + Replace suma With suma + pnTotalTva - Round(pnTotalTva/lnNrComenzi,gnpc) * lnNrComenzi + Endif + Endif + + If pnTipIncasare>1 + *!* modificare v 2.0.28 : pcSerieChit + Insert Into actactan(nr_nota,id_act,luna,an,cod,datairegt,dataireg,dataact,nract,serie_act,dataactt,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,datascad,nnir,id_util,util,dataora,; + id_responsabil,nresp,id_venchelt,dst_chlt,id_lucrare,nrord,id_ctr,contract,id_sectie,sectie,; + id_set,id_fact,id_factd,id_factc,id_partd,partd,id_partc,partc,id_sucursala,sucursala,; + id_fdoc,fdoc,id_gestin,gestin,id_gestout,gestout,id_valuta,nume_val) ; + Select Recno() As nr_nota,a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,pnNrChit As nract,pcSerieChit as serie_act,a.dataactt,; + SUM(suma) As suma,[INCASARE AVANS] As explicatia,[5311] As scd,[] As ascd,a.scd As scc,a.ascd As ascc,; + a.pereched,a.nract As perechec,a.explicatia4,a.explicatia5,{} As datascadt,{} As datascad,a.nnir,; + a.id_util,a.util,a.dataora,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.id_set,a.id_fact,a.id_fact As id_factd,a.id_factc,; + pnIdCasa As id_partd, m.pcCasa As partd,a.id_partd As id_partc,a.partd As partc,a.id_sucursala,a.sucursala,; + IIF(pnTipIncasare=2,gnid_fdoc_bonfiscal,Iif(pnTipIncasare=3,gnid_fdoc_chitanta,0)) As id_fdoc,; && modificare v 2.0.29 : am inlocuit gnid_fdoc_incasare + IIF(pnTipIncasare=2,[BON FISCAL],Iif(pnTipIncasare=3,[CHITANTA],[])) As fdoc,a.id_gestin,; + a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val From actactan a ; + GROUP By a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,a.dataactt,a.scd,; + a.ascd,a.pereched,a.nract,a.explicatia4,a.explicatia5,a.nnir,a.id_util,a.util,a.dataora,; + 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.id_set,a.id_fact,a.id_factc,a.id_partd,a.partd,a.id_sucursala,a.sucursala,; + a.id_gestin,a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val + + *!* modificare v 2.1.0 + If lnTvaIncasare = 1 + Insert Into actactan(nr_nota,id_act,luna,an,cod,datairegt,dataireg,dataact,serie_act,nract,dataactt,suma,explicatia,scd,; + scc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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,gestin,id_gestout,gestout,id_valuta,nume_val) ; + Select Recno() As nr_nota,a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,pcSerieChit As serie_act,pnNrChit As nract,a.dataactt,; + a.suma,[INCASARE AVANS] As explicatia,'4428' As scd,'4427' As scc,a.pereched,a.nract As perechec,; + a.explicatia4,a.explicatia5,a.datascadt,a.nnir,a.id_util,a.util,a.dataora,; + 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,a.id_factd,a.id_factc,0 As id_partd,'' As partd,; + 0 As id_partc,'' As partc,a.id_sucursala,a.sucursala,; + IIF(pnTipIncasare=2,gnid_fdoc_bonfiscal,Iif(pnTipIncasare=3,gnid_fdoc_chitanta,0)) As id_fdoc,; + IIF(pnTipIncasare=2,[BON FISCAL],Iif(pnTipIncasare=3,[CHITANTA],[])) As fdoc,a.id_gestin,; + getIdTva(pnIdTva,0) As id_jtva_coloana, m.pnTaxcode as taxcode, ; + a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val From actactan a Where a.scc = lcContTVA + Endif + *!* modificare v 2.1.0 ^ + + IF m.pnTipIncasare = 2 AND m.pnPOS = 1 + SELECT actactan + Locate For scd = '5311' + If Found() + REPLACE explicatia4 WITH partd && numele bancii + REPLACE scd WITH '5125', id_partd WITH id_partc, partd WITH partc + ENDIF + ENDIF + ENDIF && pnTipIncasare>1 + + Select actactan + Scan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scc) + Endif + poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + Select actactan + Replace ascc With poactan.ascc + + Release poactan + Select actactan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scd) + Endif + poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + Select actactan + Replace ascd With poactan.ascd + Endscan + + UPDATE actactan SET PAYMENTCODE = '42', PAYMENTNAME = 'Plata in contul bancar' WHERE LEFT(scd, 3) = '512' + UPDATE actactan SET PAYMENTCODE = '10', PAYMENTNAME = 'Numerar' WHERE LEFT(scd, 3) = '531' + UPDATE actactan SET TAXCODE = NULL, TAXNAME = '' WHERE INLIST(LEFT(scd, 3), '531', '512') + + + Select actactan + replace all tva_incasare with lnTvaIncasare && modificare v 2.1.0 + Go Top + Private buton + buton=1 + *!* modificare v 2.0.17 + *!* Do Form verificare With .T. + If !verificare_note_contabile('actactan', .T.,.T., .F.) + Do Form verificare With .T. + Endif + *!* modificare v 2.0.17 ^ + If buton=2 + Use In actactan + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Return + Endif + + Select actactan + *!* modificare v 2.0.28 + *!* lnSucces = oscrie_in_fisiere() + *!* If lnSucces>0 + *!* modificare v 2.0.28 ^ + Thisform.AlwaysOnTop = .F. + *!* modificare v 2.0.28 + *!* Do listare_avans With ocomanda.id_partener,'actactan',lcSirNrOrd,ocomanda.nrinmat,1 + *!* modificare v 2.0.35 + *!* IF !factureaza_deviz(ocomanda.id_lucrare,lcSirNrOrd,ocomanda.nrinmat,[],1) + *!* modificare v 2.0.41 : am adaugat lcSirIdLucrare,pnPretCuTva + IF !factureaza_deviz(ocomanda.id_lucrare,lcSirNrOrd,ocomanda.nrinmat,[],1,,,,,,lcSirIdOrdl,lcSirIdLucrare,pnPretCuTva) + *!* modificare v 2.0.35 ^ + poGeneratorNumere.dezaloca_numere() + ELSE + Thisform.actualizeaza_grid1() + ENDIF + *!* modificare v 2.0.28 ^ + + Thisform.AlwaysOnTop = .T. + *!* Thisform.actualizeaza_grid1() && modificare v 2.0.28 + Select crscomenzi + If Reccount('crscomenzi')>=lnPozitieCursor + Go lnPozitieCursor + Endif + *!* modificare v 2.0.28 + *!* Else + *!* *!* dezaloca_numar_bf() && oserii_numere.prg + *!* *!* Do dezaloca_numar_fact In oserii_numere.prg + *!* poGeneratorNumere.dezaloca_numere() + *!* Endif + *!* modificare v 2.0.28 ^ + + *!* Use In crsavansuri + ENDPROC + + PROCEDURE do_factureaza_final + LPARAMETERS tcFiltru + + LOCAL lcFiltru + Local ofrmincasare As 'frm_incasare_finala' + Local ofrmverificari As "frm_rezultate_verificari" + Local lcAscdTva, lcPartC, lcPartD, lcSectie, lcSql, lcscc, lcscd, ldDataAct, lnIdPartC, lnIdPartD + Local lnId_Sectie, lnLungime, lnProcDiscM, lnProcDiscN, lnSucces, lnSumaAlteServFTva + Local lnSumaAlteServTva, lnSumaMateriale, lnTotalCTVAMateriale, lnTotalManop, lnTotalMater + Local loTVAColoana + *:Global oactan, oavans, ocomanda, oincasare, otva, poactan, taValori[1], x + + lcFiltru = IIF(EMPTY(m.tcFiltru), 'ales = 1', m.tcFiltru) + + *!* 12.06.2014 + *!* marius.mutu + *!* selectie nume banca lei pentru plata bon fiscal numerar sau prin card + *!* pnPOS = incasare bon fiscal numerar = 1; CARD POS = 1 + *!* inlocuiesc nota 5311 = 4111.client cu 5113.client = 4111.client + *!* v_nom_casa: se alege casa sau banca lei (pentru incasare CARD) + + + *!* 18.08.2015 + *!* marius.mutu + *!* completare procent discount manopera, materiale din contract tip CLIENT AUTO + + *!* 23.11.2017 + *!* marius.mutu + *!* Sterg liniile cu 0 doar daca am inregistrari cu suma <> 0, altfel nu gasesc inregistrari 411 = xxx la salvarea facturii si da eroare + + Private pniesire,pnAvansFTva,pnAvansTva,pnTipIncasare,pnIdTva,pnProcTva,pnIdJtvaColoana,pnAvans,pnAchitAsigurator, pnTaxCode + Local lnIncasat,lnTVAMateriale, loLogCursoare + loLogCursoare = CREATEOBJECT("oLogCursoare") + && 1 - fara incasare + && 2 - bon fiscal + && 3 - chitanta pe factura + pnTipIncasare=1 + optiuni_firma() && reinitializare gnTip_LFactura + Local lnPozitieCursor + Select crscomenzi + Go Top + *Locate For ales = 1 + LOCATE FOR &lcFiltru + lnPozitieCursor=Recno() + Scatter Name ocomanda + && optiuni cu analitice + && optiuni tip analitic + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + + *!* modificare v 2.0.28 : l-am mutat dupa stornare avans pentru ca in frm_alte_date se inchide cursorul v_nom_casa + *!* si nu mi-l mai gaseste in do_factureaza_final + *!* If Used('v_nom_casa') + *!* Use In v_nom_casa + *!* Endif + *!* lcSql=[select id_part,nume from ] + gcS + [.vnom_casa_lei] + *!* lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Endif + *!* modificare v 2.0.28 ^ + + Use In Select('crsavansuri_complet') + *!* modificare v 2.0.21 + *!* lcSql=[select * from ]+gcS+[.dev_vordl_avansuri where id_lucrare=]+Alltrim(Str(ocomanda.id_lucrare)) + lcSql = [{call pack_auto.citeste_date_avans('] + Alltrim(Str(ocomanda.id_lucrare)) + [',',')}] + *!* modificare v 2.0.21 ^ + lnSucces=goExecutor.oExecute(lcSql,'crsavansuri_complet') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + Use In Select('crsavansuri') + *!* modificare v 2.0.52 : am adaugat avansftva + Select Sum(Nvl(avans,0.00)) As avans,Sum(Nvl(incasat,0.00)) As incasat,sum(nvl(avansftva,0.00)) as avansftva,; + id_lucrare,nrord From crsavansuri_complet ; + GROUP By id_lucrare,nrord Into Cursor crsavansuri + Select crsavansuri + *!* modificare v 2.0.21 + *!* Sum suma to pnAvans + pnAvans = avans + pnAvansFTva = avansftva && modificare v 2.0.52 + lnIncasat = incasat + Use In Select('crsavansuri') + *!* modificare v 2.0.21 ^ + + If Used('crsverificari') + Use In crsverificari + Endif + + lcSql=[select a.nrord,to_char(a.datai,'DD/MM/YYYY') as datai from ] + gcS + ; + [.auto_normare_comenzi a ] + ; + [where a.id_masiniclient=] + Alltrim(Str(ocomanda.id_masiniclient)) + [ and a.id_ordl!=] + Alltrim(Str(ocomanda.id_ordl)) + [ and ] + ; + [a.facturat=0 and ]+gcCondLuna+[ order by a.datai] + lnSucces=goExecutor.oExecute(lcSql,'crsverificari') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + + pniesire=1 + ofrmverificari=Createobject("frm_rezultate_verificari",pnAvans,lnIncasat) + ofrmverificari.lb_client.Caption="Client: "+Alltrim(Nvl(ocomanda.nume,'')) + ofrmverificari.lb_titlu1.Caption=ofrmverificari.lb_titlu1.Caption+" "+Alltrim(ocomanda.nrinmat) + ofrmverificari.lb_comanda.Caption="Comanda: "+Alltrim(Nvl(ocomanda.nrord,'')) + ofrmverificari.Show(1) + Release ofrmverificari + Use In crsverificari + If pniesire!=1 + Return + Endif + + *!* modificare v 2.0.21 + If glAutoBonDet + If pnAvans > 0 + If aMessagebox("Se achita factura cu bon fiscal?",4+32+256,"Confirmare") = 6 + *!* modificare v 2.0.35 : am adaugat ocomanda.id_ordl + *!* modificare v 2.0.41 : am adaugat ocomanda.id_lucrare + If This.do_storneaza_avans(lnIncasat,ocomanda.nrord,0,ALLTRIM(STR(ocomanda.id_ordl)),ALLTRIM(STR(ocomanda.id_lucrare))) + pnAvans = 0 + Else + Return + Endif + Endif + Endif + *!* modificare v 2.0.35 : IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard) in loc de pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn) + *!* modificare v 2.0.52 : am pus round(pack_sesiune.calculeaza_...) pentru ca pot avea nr. zecimale diferit la calcularea pretului fata de nr. zecimale pentru totaluri + lcSql = [select denumire,um,cant,pret,dataact,id_rul,pretv,] + ; + [round(pack_sesiune.calculeaza_pret_tva(totalctva,1,0,] + ALLTRIM(STR(IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,1,2),?gnPPretV) as totaltva,] + ; + [round(pack_sesiune.calculeaza_pret_fara_tva(totalctva,1,0,] + ALLTRIM(STR(IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,1,2),?gnPPretV) as totalftva,] + ; + [totalctva from (] + ; + [select b.denumire, b.um, a.cante as cant, a.pretv, a.pret, a.dataact, a.id_rul,SUM(ROUND(a.pret*a.cante,?gnPc)) over (order by a.id_lucrare) as totalctva ] + ; + [ from (] + ; + [select id_articol,id_lucrare,pretv,] + ; + [pack_sesiune.calculeaza_pret_cu_tva(pretv,1,pack_def.GetIdMonedaNationala(),] + ; + ALLTRIM(STR(IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,0,2) as pret,] + ; + [SUM(cante) as cante,MIN(dataact) as dataact,MIN(id_rul) as id_rul ] + ; + [from ] + gcS + [.rul where sters = 0 and id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ ] + ; + [group by id_lucrare,id_articol,pretv) a ] + ; + [left join nom_articole b on a.id_articol = b.id_articol where a.cante <> 0) ] + ; + [order by dataact,id_rul] + lnSucces = goExecutor.oExecute(lcSql,'crsBonDetaliat') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,16,'Eroare') + Return + Endif + Endif + *!* modificare v 2.0.21 ^ + + *!* modificare v 2.0.28 + Use In (SELECT('v_nom_casa')) + lcSql=[select id_part,nume from vcoresp_tip_part where tip_partener IN ('BANCA LEI', 'CASA LEI')] + lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + *!* modificare v 2.0.28 ^ + + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + + lnLungime=4 + Dimension taValori[lnLungime,3] + taValori[1,1]="poAct.v4111" + taValori[1,2]=Alltrim(ocomanda.nume) + taValori[1,3]=.T. + taValori[2,1]="poAct.nrord" + taValori[2,2]=Alltrim(ocomanda.nrord) + taValori[2,3]=.T. + taValori[3,1]="poAct.id_lucrare" + taValori[3,2]=Alltrim(Str(ocomanda.id_lucrare)) + taValori[3,3]=.T. + taValori[4,1]="poAct.id_vv4111" + taValori[4,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[4,3]=.T. + *!* lnNumarFactura = aloca_numar_fact() + *!* taValori[5,1]="poAct.nract" + *!* taValori[5,2]=Alltrim(Str(lnNumarFactura)) + *!* taValori[5,3]=.F. + + *!* modificare v 2.0.28 + *!* If !Isnull(gnid_fdoc_factura) + If (!Empty(Nvl(ocomanda.asigurator,[])) And !Empty(Nvl(gnid_fdoc_factasig,0))) Or ; + (Empty(Nvl(ocomanda.asigurator,[])) And !Empty(Nvl(gnid_fdoc_fact,0))) + *!* modificare v 2.0.28 ^ + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.id_fdoc" + *!* modificare v 2.0.28 + *!* taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_factura)) + taValori[lnLungime+1,2]=Iif(!Empty(Nvl(ocomanda.asigurator,[])),Alltrim(Str(gnid_fdoc_factasig)),Alltrim(Str(gnid_fdoc_fact))) + *!* modificare v 2.0.28 ^ + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.fdoc" + taValori[lnLungime+2,2]='FACTURA'+Iif(!Empty(Nvl(ocomanda.asigurator,[])),' ASIGURATOR','') && modificare v 2.0.28 + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + Endif + + Thisform.MousePointer=0 + Thisform.LockScreen=.F. + + Thisform.AlwaysOnTop=.F. + lans(31011,.F.,.T.,@taValori) && id_set,daca se executa procedura de mai multe ori, + && daca verifica analiticele,array de valori + Thisform.AlwaysOnTop=.T. + + If buton=2 + *!* Do deschid_actc + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Use In Select('crsBonDetaliat') + Return + Endif + + *!* SELECT actactan + *!* GO TOP + *!* lnNumarFacturaAct = nract + *!* IF lnNumarFacturaAct <> lnNumarFactura + *!* DO dezaloca_numar_fact In oserii_numere.prg + *!* ENDIF + + *!* If Used('v_nom_casa') + *!* Use In v_nom_casa + *!* Endif + *!* lcSql=[select id_part,nume from ] + gcS + [.vnom_casa_lei] + *!* lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Endif + + *!* modificare v 2.1.0 : am adaugat pnTotalFactura + Private pnDiscountM,pnDiscountN,pnDiscountTvaM,pnDiscountTvaN,pnNrChit,pnIdCasa,pcCasa,pnIncasat,pcSerieChit,pnTotalFactura, pnPOS + Store 0 To pnDiscountM,pnDiscountN,pnDiscountTvaM,pnDiscountTvaN,pnNrChit,pnIdCasa,pnIncasat, pnTotalFactura, pnPOS + STORE [] TO pcSerieChit, pcCasa && modificare v 2.0.28 + + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + + ** modificare 31.05 + *!* modificare v 2.0.4 + *!* lcSql=[select acont,NVL(sum(ROUND(PRETV*cante,?gnPc)),0) as pret,id_sectie,sectie from ] + gcS + [.vrul ]+; + *!* [where id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ group by acont,sectie,id_sectie] + *!* modificare v 2.0.22 + If glAutoBonDet + *!* modificare v 2.0.35 : am pus IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard) in loc de pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn) + lcSql=[select a.acont,NVL(sum(ROUND(PACK_SESIUNE.SUMA_RON(A.PRETV, A.AN, A.LUNA, 3)*a.cante,?gnPc)),0) as pret,] + ; + [NVL(sum(ROUND(pack_sesiune.calculeaza_pret_tva(PACK_SESIUNE.SUMA_RON(A.PRETV, A.AN, A.LUNA, 3),1,pack_def.GetIdMonedaNationala(),] + ; + ALLTRIM(STR(IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,0,2)*a.cante,?gnPc)),0) as tva,] + ; + [a.id_sectie,b.sectie from ] + gcS + [.rul a ]+; + [left join ] + gcS + [.nom_sectii b on a.id_sectie = b.id_sectie ] + ; + [where a.sters = 0 and a.id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ group by a.acont,b.sectie,a.id_sectie] + Else + lcSql=[select a.acont,NVL(sum(ROUND(PACK_SESIUNE.SUMA_RON(A.PRETV, A.AN, A.LUNA, 3)*a.cante,?gnPc)),0) as pret,0 as tva,a.id_sectie,b.sectie from ] + gcS + [.rul a ]+; + [left join ] + gcS + [.nom_sectii b on a.id_sectie = b.id_sectie ] + ; + [where a.sters = 0 and a.id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ group by a.acont,b.sectie,a.id_sectie] + Endif + *!* modificare v 2.0.22 ^ + *!* modificare v 2.0.4 ^ + lnSucces=goExecutor.oExecute(lcSql,'crsMater') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + Select crsMater + *!* modificare v 2.0.22 + *!* CALCULATE SUM(pret) TO ocomanda.materiale + Calculate Sum(Pret),Sum(tva) To ocomanda.materiale,lnTVAMateriale + *!* modificare v 2.0.41 + *!* AddProperty(ocomanda,"bondiftva",0) + *!* AddProperty(ocomanda,"bondifftva",0) + *!* If Used('crsBonDetaliat') + *!* Select crsBonDetaliat + *!* ocomanda.bondiftva = totaltva - lnTVAMateriale + *!* ocomanda.bondifftva = totalftva - ocomanda.materiale + *!* Endif + *!* modificare v 2.0.41 ^ + *!* modificare v 2.0.22 ^ + + lcSql=[select id_sectie,NVL(sum(ROUND(timpn * pret,?gnPc)),0) as pret,'' as analitic,id_sectie,sectie from ] + gcS + [.auto_voper where id_ordl = ] + ; + Alltrim(Str(ocomanda.id_ordl)) + [ group by id_sectie,sectie] + lnSucces=goExecutor.oExecute(lcSql,'crsManop') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + Select crsManop + Calculate Sum(Pret) To ocomanda.manopera + *** + + *!* modificare JC/JV 2007 + pnIdJtvaColoana = GetIdJtvaStandard("VANZARE") + loTVAColoana = GeJtvaColoana(pnIdJtvaColoana) + pnIdTva = NVL(loTVAColoana.id_tva,0) + pnProcTva = 1 + ROUND(loTVAColoana.cota_tva/100,2) + *!* modificare JC/JV 2007 ^ + + *!* modificare v 2.0.41 + *!* *!* modificare v 2.0.22 + *!* lnTVAMateriale = Iif(glAutoBonDet,lnTVAMateriale,Round(ocomanda.materiale*(pnProcTva-1),gnPa)) + *!* *!* modificare v 2.0.22 ^ + AddProperty(ocomanda,"materialerecalc",ocomanda.materiale) + If glAutoBonDet + Select crsBonDetaliat + lnTotalCTVAMateriale = totalctva + ocomanda.materialerecalc = Round(lnTotalCTVAMateriale/pnProcTva,gnPc) + lnTVAMateriale = lnTotalCTVAMateriale - ocomanda.materialerecalc + Else + lnTVAMateriale = Round(ocomanda.materiale*(pnProcTva-1),gnPc) + Endif + *!* modificare v 2.0.41 ^ + + *!* modificare v 2.1.0 + local lnTvaIncasare, lcContTVA + Select actactan + Calculate Max(tva_incasare) To lnTvaIncasare + if lnTvaIncasare = 1 + pnIdJtvaColoana = getIdJtvaColoana(pnIdJtvaColoana,1) + pnIdTva = getIdTva(pnIdTva,1) + lcContTVA = [4428] + else + lcContTVA = [4427] + ENDIF + + + *!* modificare v 2.1.0 ^ + *!* modificare v 2.0.28 + Create Cursor crsalteserv(id_articol N(14) Not Null,denumire c(100) Not Null,codmat c(50) Null,um c(10) Null,; + id_lucrare N(14) Not Null,nrord c(100) Not Null,; + cantitate N(14,gnPCant) Default 1,pretftva N(14,gnPPretV) Default 0,valoareftva N(14,gnPc) Default 0) + *!* modificare v 2.0.28 ^ + pniesire=1 + *!* modificare v 2.0.33 : am adaugat pnAchitAsigurator si parametrul 4 > daca e factura cu asigurator, atunci poate fi achitata de asig. + pnAchitAsigurator = 0 + *!* modificare v 2.0.41 + *!* ofrmincasare=Createobject('frm_incasare_finala',lnTVAMateriale,ocomanda.bondifftva,ocomanda.bondiftva,!Empty(Nvl(ocomanda.asigurator,[]))) + + LOCAL lnProcDiscountManopera, lnProcDiscountMateriale, lnIdCtr + lnProcDiscountManopera = 0 + lnProcDiscountMateriale = 0 + lnIdCtr = 0 + citeste_discount_contract(ocomanda.id_partener, @lnIdCtr, @lnProcDiscountManopera, @lnProcDiscountMateriale) + + ofrmincasare=Createobject('frm_incasare_finala',lnTvaIncasare,lnTVAMateriale,!Empty(Nvl(ocomanda.asigurator,[]))) + *!* modificare v 2.0.41 ^ + *!* modificare v 2.0.33 ^ + With ofrmincasare + .clb_manopera.text_simplu1.Value=Round(ocomanda.manopera,gnPc) + .clb_tvam.text_simplu1.Value=Round(ocomanda.manopera*(pnProcTva-1),gnPc) + *!* modificare v 2.0.41 + *!* .clb_materiale.text_simplu1.Value=Round(ocomanda.materiale,gnPa)+ocomanda.bondifftva + *!* *!* modificare v 2.0.22 + *!* *!* .clb_tvan.text_simplu1.Value=Round(ocomanda.materiale*(pnProcTva-1),gnPa) + *!* .clb_tvan.text_simplu1.Value = lnTVAMateriale + ocomanda.bondiftva + *!* *!* modificare v 2.0.22 ^ + .clb_materiale.text_simplu1.Value=Round(ocomanda.materialerecalc,gnPc) + .clb_tvan.text_simplu1.Value = lnTVAMateriale + *!* modificare v 2.0.41 ^ + .clb_avans.text_simplu1.Value=pnAvans + .navansfaratva = pnAvansFTva && modificare v 2.0.52 + + IF NVL(ocomanda.manopera, 0) <> 0 + .clb_procdiscm.text_simplu1.value = m.lnProcDiscountManopera + ENDIF + IF NVL(ocomanda.materialerecalc, 0) <> 0 + .clb_procdiscn.text_simplu1.value = m.lnProcDiscountMateriale + ENDIF + Endwith + ofrmincasare.calculeaza_total() + ofrmincasare.Show(1) + Use In v_nom_casa + Release ofrmincasare + + If pniesire!=1 + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Use In Select('crsBonDetaliat') + Use In Select('crsalteserv') && modificare v 2.0.28 + Return + Endif + + SELECT actactan + GO TOP + ldDataAct = dataact + pnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.pnIdJtvaColoana, ocomanda.id_partener) + + *!* modificare v 2.0.3 + Local lcExplicatia5 + lcExplicatia5 = Alltrim(Nvl(ocomanda.inspector,''))+[;]+Alltrim(Nvl(ocomanda.nr_dosar,'')) + *!* modificare v 2.0.3 ^ + + *!* modificare v 2.0.6 : am concatenat explicatia5 + Select actactan + Go Top + Scatter Name oactan + Replace explicatia With 'MATERIALE',suma With Nvl(ocomanda.materiale,0),explicatia4 With ocomanda.asigurator,explicatia5 With Alltrim(Nvl(explicatia5,''))+[;]+lcExplicatia5,proc_tva With pnProcTva,id_jtva_coloana With pnIdJtvaColoana, taxcode WITH m.pnTaxCode For Alltrim(scc)='707' + *!* modificare v 2.0.22 : am modificat suma din Round(ocomanda.materiale*(pnProcTva-1),gnPc) in lnTVAMateriale + *!* modificare v 2.0.35 : am modificat suma din lnTVAMateriale in IIF(pnProcTva=1,0,lnTvaMateriale) + Replace explicatia With 'TVA MATERIALE',suma With IIF(pnProcTva=1,0,lnTvaMateriale),explicatia4 With ocomanda.asigurator,; + explicatia5 With Alltrim(Nvl(explicatia5,''))+[;]+lcExplicatia5,proc_tva With pnProcTva,id_jtva_coloana With pnIdTva, taxcode WITH m.pnTaxCode For nr_nota=2 + + Replace explicatia With 'MANOPERA',suma With Nvl(ocomanda.manopera,0),explicatia4 With ocomanda.asigurator,; + explicatia5 With Alltrim(Nvl(explicatia5,''))+[;]+lcExplicatia5,proc_tva With pnProcTva,id_jtva_coloana With pnIdJtvaColoana, taxcode WITH m.pnTaxCode For Alltrim(scc)='704' + + Replace explicatia With 'TVA MANOPERA',suma With Round(ocomanda.manopera*(pnProcTva-1),gnPc),explicatia4 With ocomanda.asigurator,; + explicatia5 With Alltrim(Nvl(explicatia5,''))+[;]+lcExplicatia5,proc_tva With pnProcTva,id_jtva_coloana With pnIdTva, taxcode WITH m.pnTaxCode For nr_nota=4 + + Replace explicatia With 'PRODUCTIE TERMINATA',suma With ocomanda.materiale,explicatia4 With ocomanda.asigurator,; + explicatia5 With Alltrim(Nvl(explicatia5,''))+[;]+lcExplicatia5,datascad With {},proc_tva With 0,id_jtva_coloana With Null, taxcode WITH null For Alltrim(scd)='711' And Alltrim(scc)='332' + + Note----------modificare pentru analitice variabilele pentru analitice deocamdata nu le citesc din tabela; + le initializez pur si simplu din cod pana imi dau seama cum ar trebui sa fie initializarea analiticelor + **----manopera + Select * From actactan Into Cursor actactan_vechi Readwrite + + Select actactan + Locate For nr_nota = 3 + Scatter Name oactan + Delete + + Select crsManop + Scan + Select actactan + Insert Into actactan (suma,id_sectie,sectie) Values (crsManop.Pret,crsManop.id_sectie,crsManop.sectie) + Gather Name oactan Fields Except suma,id_sectie,sectie + Select crsManop + Endscan + + *!* modificare v 2.0.28 + If Reccount('crsalteserv') > 0 + Select crsalteserv + Calculate Sum(valoareftva) To lnSumaAlteServFTva + Select actactan + Insert Into actactan(suma,scc,explicatia) Values (lnSumaAlteServFTva,gcDevContAltele,'ALTELE') + Gather Name oactan Fields Except suma,scc,explicatia + Endif + *!* modificare v 2.0.28 ^ + + Select actactan + Locate For nr_nota = 4 + Scatter Name oactan + Delete + + *!* modificare 08.07 + *!* Select crsManop + *!* Scan + *!* Select actactan + *!* Insert Into actactan (suma,id_sectie,sectie) Values (ROUND(crsManop.Pret*(pnctva-1),gnPc),crsManop.id_sectie,crsManop.sectie) + *!* Gather Name oactan Fields Except suma,id_sectie,sectie + *!* Select crsManop + *!* Endscan + + Select crsManop + lnTotalManop=0 + Calculate Sum(Pret) To lnTotalManop + Go Top + If Reccount('crsManop')>0 && lnTotalManop!=0 AND + Select actactan + Insert Into actactan (suma,id_sectie,sectie) Values (Round(lnTotalManop*(pnProcTva-1),gnPc),crsManop.id_sectie,crsManop.sectie) + Gather Name oactan Fields Except suma,id_sectie,sectie + Select crsManop + Endif + *!* modificare 08.07 ^ + + *!* modificare v 2.0.28 + If Reccount('crsalteserv') > 0 + Select crsalteserv + Calculate Sum(Round(valoareftva*(pnProcTva-1),gnPc)) To lnSumaAlteServTva + Select actactan + Insert Into actactan(suma,explicatia) Values (lnSumaAlteServTva,'TVA ALTELE') + Gather Name oactan Fields Except suma,explicatia + Endif + *!* modificare v 2.0.28 ^ + + **----manopera + + *---materiale + *!* lcSql=[select acont,NVL(sum(ROUND(pretv*cante,?gnPc)),0) as pret,id_sectie,sectie from ] + gcS + [.vrul ]+; + *!* [where id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ group by acont,sectie,id_sectie] + *!* lnSucces=goExecutor.oExecute(lcSql,'crsMater') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Endif + + Select actactan + Locate For nr_nota = 1 + Scatter Name oactan + Delete + + Select crsMater + Scan + Select actactan + Insert Into actactan (suma,id_sectie,sectie) Values (crsMater.Pret,crsMater.id_sectie,crsMater.sectie) + Gather Name oactan Fields Except suma,id_sectie,sectie + Select crsMater + Endscan + + Select actactan + Locate For nr_nota = 2 + Scatter Name oactan + Delete + + *!* modificare v 2.0.41 + *!* *!* modificare 08.07 + *!* *!* Select crsMater + *!* *!* Scan + *!* *!* Select actactan + *!* *!* Insert Into actactan (suma,id_sectie,sectie) Values (ROUND(crsMater.Pret*(pnctva-1),gnPc),crsMater.id_sectie,crsMater.sectie) + *!* *!* Gather Name oactan Fields Except suma,id_sectie,sectie + *!* *!* Select crsMater + *!* *!* Endscan + *!* Select crsMater + *!* lnTotalMater=0 + *!* Calculate Sum(Pret) To lnTotalMater + *!* Go Top + *!* If Reccount('crsMater')>0 && lnTotalMater!=0 + *!* Select actactan + *!* *!* modificare v 2.0.22 + *!* *!* modificare v 2.0.35 : am modificat suma din lnTVAMateriale in IIF(pnProcTva=1,0,lnTvaMateriale) + *!* Insert Into actactan (suma,id_sectie,sectie) Values (IIF(pnProcTva=1,0,lnTvaMateriale),crsMater.id_sectie,crsMater.sectie) + *!* *!* Insert Into actactan (suma,id_sectie,sectie) Values (Round(lnTotalMater*(pnProcTva-1),gnPc),crsMater.id_sectie,crsMater.sectie) + *!* *!* modificare v 2.0.22 ^ + *!* Gather Name oactan Fields Except suma,id_sectie,sectie + *!* Select crsMater + *!* Endif + *!* *!* modificare 08.07 ^ + *!* *!* modificare v 2.0.22 + *!* If pnProcTva = 1 + *!* ocomanda.bondiftva = 0 + *!* ocomanda.bondifftva = 0 + *!* If Used('crsBonDetaliat') + *!* Select crsBonDetaliat + *!* Replace Pret With pretv All + *!* Endif + *!* Endif + *!* If ocomanda.bondifftva <> 0 + *!* Select actactan + *!* Locate For nr_nota = 1 + *!* Scatter Name oactan + *!* Insert Into actactan(suma,explicatia) Values(ocomanda.bondifftva,"MATERIALE ROTUNJIRE BON") + *!* Gather Name oactan Fields Except suma,explicatia + *!* Endif + *!* If ocomanda.bondiftva <> 0 + *!* Select actactan + *!* Locate For nr_nota = 2 + *!* Scatter Name oactan + *!* Insert Into actactan(suma,explicatia) Values(ocomanda.bondiftva,"TVA MATERIALE ROTUNJIRE BON") + *!* Gather Name oactan Fields Except suma,explicatia + *!* Endif + *!* *!* modificare v 2.0.22 ^ + Select crsMater + lnTotalMater = 0 + Calculate Sum(Pret) To lnTotalMater + Go Top + If Reccount('crsMater')>0 + Select actactan + Insert Into actactan (suma,id_sectie,sectie) Values (ROUND(lnTotalMater*(pnProcTva-1),gnPc),crsMater.id_sectie,crsMater.sectie) + Gather Name oactan Fields Except suma,id_sectie,sectie + ENDIF + + If pnProcTva = 1 + If Used('crsBonDetaliat') + Select crsBonDetaliat + Replace Pret With pretv All + Endif + Else + If ocomanda.materialerecalc <> lnTotalMater + Select actactan + Locate For nr_nota = 1 + Scatter Name oactan + Insert Into actactan(suma,explicatia) Values(ocomanda.materialerecalc-lnTotalMater,"MATERIALE ROTUNJIRE BON") + Gather Name oactan Fields Except suma,explicatia + Endif + If lnTVAMateriale <> ROUND(lnTotalMater*(pnProcTva-1),gnPc) + Select actactan + Locate For nr_nota = 2 + Scatter Name oactan + Insert Into actactan(suma,explicatia) Values(lnTVAMateriale-ROUND(lnTotalMater*(pnProcTva-1),gnPc),"TVA MATERIALE ROTUNJIRE BON") + Gather Name oactan Fields Except suma,explicatia + Endif + Endif + *!* modificare v 2.0.41 ^ + + Select crsMater + Calculate Sum(Pret) To lnSumaMateriale + Select actactan + Replace suma With lnSumaMateriale For Alltrim(scd)='711' And Alltrim(scc)='332' + *---materiale + *!* modificare 1.09 + *!* Select actactan + *!* Scan + *!* Scatter Name poactan + *!* If Type('poActan.cont') = 'U' + *!* x = AddProperty(poactan,'cont',poactan.scc) + *!* Endif + *!* poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + *!* Select actactan + *!* Replace ascc With poactan.ascc + + *!* Release poactan + *!* Select actactan + *!* Scatter Name poactan + *!* If Type('poActan.cont') = 'U' + *!* x = AddProperty(poactan,'cont',poactan.scd) + *!* Endif + *!* poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + *!* Select actactan + *!* Replace ascd With poactan.ascd + *!* Endscan + *------------- + + Local lcAscc,lcAscd + Select actactan + If pnDiscountN<>0 + Select actactan + Locate For Alltrim(scd) = '4111' And Alltrim(scc) = '707' && (modificare 1.09) AND !EMPTY(ascd) + If Found() + lcAscd = actactan.ascd + lcAscc = actactan.ascc + lcAscdTva = actactan.ascd + lnIdPartD = actactan.id_partd + lcPartD = actactan.partd + lnIdPartC = actactan.id_partc + lcPartC = actactan.partc + lnId_Sectie = actactan.id_sectie + lcSectie = actactan.sectie + Else + lcAscd = '' + lcAscc = '' + lcAscdTva = '' + lnIdPartD = 0 + lcPartD = '' + lnIdPartC = 0 + lcPartC = '' + lnId_Sectie = 0 + lcSectie = '' + Endif + *!* modificare v 2.0.41 + *!* lnProcDiscN=Round(pnDiscountN*100/ocomanda.materiale,2) + lnProcDiscN=Round(pnDiscountN*100/ocomanda.materialerecalc,2) + *!* modificare v 2.0.41 ^ + If gnDiscount411=1 && discount 411 + lcscd='4111' + lcscc='707' + pnDiscountN=-pnDiscountN + Else && discount 667 + lcscd='667' + lcscc='4111' + lcAscdTva = lcAscd + lcAscc = lcAscd + lcAscd = "" + lnIdPartC = lnIdPartD + lcPartC = lcPartD + lnIdPartD = 0 + lcPartD = '' + Endif + Append Blank + Gather Name oactan + Replace explicatia With 'DISCOUNT MATERIALE '+Alltrim(Str(lnProcDiscN,6,2))+'%',nr_nota With Recno(), suma With pnDiscountN + Replace scd With lcscd,partd With lcPartD,partc With lcPartC,id_partd With lnIdPartD,id_partc With lnIdPartC + Replace ascd With lcAscd + Replace scc With lcscc + Replace ascc With lcAscc && ,datascad With {} modificare v 2.0.28 + Replace sectie With lcSectie,id_sectie With lnId_Sectie,id_jtva_coloana With pnIdJtvaColoana, taxcode WITH m.pnTaxCode + Append Blank + Gather Name oactan + Replace explicatia With 'DISCOUNT MATERIALE '+Alltrim(Str(lnProcDiscN,6,2))+'%',nr_nota With Recno(),suma With -pnDiscountTvaN + Replace scd With '4111' + Replace ascd With lcAscdTva, scc With lcContTVA, ascc With '' && , datascad With {} modificare v 2.0.28 + Replace sectie With lcSectie,id_sectie With lnId_Sectie,id_jtva_coloana With pnIdTva, taxcode WITH m.pnTaxCode + Endif + + If pnDiscountM<>0 + Select actactan + Locate For Alltrim(scd) = '4111' And Alltrim(scc) = '704' && (modificare 1.09) AND !EMPTY(ascd) + If Found() + lcAscd = actactan.ascd + lcAscc = actactan.ascc + lcAscdTva = actactan.ascd + lnIdPartD = actactan.id_partd + lcPartD = actactan.partd + lnIdPartC = actactan.id_partc + lcPartC = actactan.partc + lnId_Sectie = actactan.id_sectie + lcSectie = actactan.sectie + Else + lcAscd = '' + lcAscc = '' + lcAscdTva = '' + lnIdPartD = 0 + lcPartD = '' + lnIdPartC = 0 + lcPartC = '' + lnId_Sectie = 0 + lcSectie = '' + Endif + lnProcDiscM=Round(pnDiscountM*100/ocomanda.manopera,2) + If gnDiscount411=1 && discount 411 + lcscd='4111' + lcscc='704' + pnDiscountM=-pnDiscountM + Else && discount 667 + lcscd='667' + lcscc='4111' + lcAscdTva = lcAscd + lcAscc = lcAscd + lcAscd = "" + lnIdPartC = lnIdPartD + lcPartC = lcPartD + lnIdPartD = 0 + lcPartD = '' + Endif + Append Blank + Gather Name oactan + Replace explicatia With 'DISCOUNT MANOPERA '+Alltrim(Str(lnProcDiscM,6,2))+'%',nr_nota With Recno(), suma With pnDiscountM + Replace scd With lcscd,partd With lcPartD,partc With lcPartC,id_partd With lnIdPartD,id_partc With lnIdPartC + Replace ascd With lcAscd , scc With lcscc + Replace ascc With lcAscc && ,datascad With {} modificare v 2.0.28 + Replace sectie With lcSectie,id_sectie With lnId_Sectie,id_jtva_coloana With pnIdJtvaColoana, taxcode WITH m.pnTaxCode + Append Blank + Gather Name oactan + Replace explicatia With 'DISCOUNT MANOPERA '+Alltrim(Str(lnProcDiscM,6,2))+'%',nr_nota With Recno(),suma With -pnDiscountTvaM + Replace scd With '4111', ascd With lcAscdTva, scc With lcContTVA, ascc With '' && , datascad With {} modificare v 2.0.28 + Replace sectie With lcSectie,id_sectie With lnId_Sectie,id_jtva_coloana With pnIdTva, taxcode WITH m.pnTaxCode + Endif + + *!* modificare 1.09 + Select actactan + Scan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scc) + Endif + poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + Select actactan + Replace ascc With poactan.ascc + + Release poactan + Select actactan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scd) + Endif + poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + Select actactan + Replace ascd With poactan.ascd + Endscan + + If pnAvans > 0 + *!* *!* IF avans_419 && avans 419 + *!* If gnAvans419=1 + *!* lcscc='419' + *!* Else && avans 707 + *!* lcscc='707' + *!* Endif + + Select crsavansuri_complet + Scan + Scatter Name oavans + Select actactan + Append Blank + Gather Name oactan Fields Except scc,scd,ascc,ascd,avans,id_partc,id_partd,id_sectie,partd,partc,incasat + Replace explicatia With 'STORNARE AVANS',nr_nota With Recno(), suma With -oavans.avans && ,datascad With {} modificare v 2.0.28 + Gather Name oavans Fields scd,ascd,scc,ascc,id_partc,id_sectie,sectie,id_partd,partc,partd,id_jtva_coloana, proc_tva + Select crsavansuri_complet + Endscan + *!* Append Blank + *!* Gather Name oactan + *!* Replace explicatia With 'STORNARE AVANS',nr_nota With Recno(), suma With -pnAvans + *!* Replace scd With '411', ascd With '', scc With lcscc, ascc With '',datascad With {} + *!* REPLACE id_partc WITH id_partd + *!* REPLACE partc WITH partd + Endif + + If pnTipIncasare>1 + *!* If !Empty(pnNrChit) && modificare 22.02.2006 + *!* *!* incasare = 5311 + + Select actactan + Locate For Alltrim(scd) = '4111' And !Empty(ascd) && And Alltrim(scc) = '707' + If Found() + lcAscd = actactan.ascd + lnId_Sectie = actactan.id_sectie + lcSectie = actactan.sectie + Else + lcAscd = '' + lnId_Sectie = 0 + lcSectie = '' + Endif + Select actactan + Append Blank + *!* modificare v 2.0.28 : pcSerieChit + Gather Name oactan Fields Except id_jtva_coloana,proc_tva, taxcode && Fields Except suma, ascc, scc, id_partc + Replace nr_nota With Recno(), partc With partd, id_partc With id_partd, suma With pnIncasat,serie_Act With Null + Replace scc With '4111', ascc With lcAscd, scd With '5311', ascd With '', perecheC With nract,nract With pnNrChit,serie_act WITH pcSerieChit + Replace id_partd With pnIdCasa, partd WITH pcCasa, neimpozab With 0, explicatia With 'INCASARE', id_factd With id_fact, datascad With {} + Replace sectie With lcSectie,id_sectie With lnId_Sectie + Do Case + Case pnTipIncasare=2 + Replace id_fdoc With gnid_fdoc_bonfiscal,fdoc With 'BON FISCAL' + Case pnTipIncasare=3 + Replace id_fdoc With gnid_fdoc_chitanta,fdoc With 'CHITANTA' && modificare v 2.0.29 : am inlocuit gnid_fdoc_incasare + Endcase + *!* modificare v 2.1.0 + If lnTvaIncasare = 1 + local lnTotalTvaNeex + Select actactan + *!* calculate sum(suma) for scc = lcContTva to lnTotalTvaNeex + Locate For scc = lcContTVA + If Found() + Scatter Name otva + Locate For scd = '5311' + If Found() + Scatter Name oincasare + Append Blank + Gather Name oincasare Fields Except id_partc,id_partd,partc,partd,scc,scd,id_fact,pereched,perechec,id_jtva_coloana,suma + *!* Replace suma with round(round(pnIncasat/pnTotalFactura,2)*lnTotalTvaNeex,gnPc),scd With '4428',scc With '4427',id_fact With -5,; + *!* perechec With otva.nract,id_jtva_coloana With getIdTva(pnIdTva,0),proc_tva with otva.proc_tva + Replace suma with round(oincasare.suma*(otva.proc_tva-1)/otva.proc_tva,gnPc),scd With '4428',scc With '4427',id_fact With -5,; + perechec With otva.nract,id_jtva_coloana With getIdTva(pnIdTva,0),proc_tva with otva.proc_tva + Endif + Endif + release lnTotalTvaNeex + Endif + *!* modificare v 2.1.0 ^ + *** bon fiscal incasat cu CARD POS + + *** inlocuiesc nota 5311 = 4111.client cu 5113.client = 4111.client + IF m.pnTipIncasare = 2 AND m.pnPOS = 1 + SELECT actactan + Locate For scd = '5311' + If Found() + REPLACE explicatia4 WITH partd && numele bancii + REPLACE scd WITH '5125', id_partd WITH id_partc, partd WITH partc + ENDIF + ENDIF + + UPDATE actactan SET PAYMENTCODE = '42', PAYMENTNAME = 'Plata in contul bancar' WHERE LEFT(scd, 3) = '512' + UPDATE actactan SET PAYMENTCODE = '10', PAYMENTNAME = 'Numerar' WHERE LEFT(scd, 3) = '531' + UPDATE actactan SET TAXCODE = NULL, TAXNAME = '' WHERE INLIST(LEFT(scd, 3), '531', '512') + + + ENDIF && pnTipIncasare>1 + + *!* modificare 09.07 + *!* AddProperty(ocomanda,'delegat','') + *!* AddProperty(ocomanda,'eliberatde','') + *!* AddProperty(ocomanda,'bi','') + *!* AddProperty(ocomanda,'nrinmat_exp',ocomanda.nrinmat) + *!* ofrmdelegat=Createobject("frm_delegat_factura") + *!* ofrmdelegat.nidpartener=ocomanda.id_partener + *!* ofrmdelegat.cclient=ocomanda.nume + *!* ofrmdelegat.cnrinmat_exp=ocomanda.nrinmat_exp + *!* ofrmdelegat.Show(1) + *!* Release ofrmdelegat + + *!* modificare v 2.0.33 + IF pnAchitAsigurator = 1 + SELECT actactan + replace id_partd WITH ocomanda.id_part_asig,partd WITH ocomanda.asigurator FOR id_partd = ocomanda.id_partener + replace id_partc WITH ocomanda.id_part_asig,partc WITH ocomanda.asigurator for id_partc = ocomanda.id_partener + ENDIF + *!* modificare v 2.0.33 ^ + + Private buton + buton=1 + Select actactan + Replace All tva_incasare With lnTvaIncasare && modificare v 2.1.0 + * Sterg liniile cu 0 doar daca am inregistrari cu suma <> 0, altfel nu gasesc inregistrari 411 = xxx la salvarea facturii si da eroare + LOCATE FOR suma <> 0 + IF FOUND() + Delete For suma = 0 + ENDIF + Go Top + *!* modificare v 2.0.17 + *!* Do Form verificare With .T. + If !verificare_note_contabile('actactan', .T.,.T., .F.) + Do Form verificare With .T. + Endif + *!* modificare v 2.0.17 ^ + If buton=2 + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Use In actactan + Use In Select('crsBonDetaliat') + Use In Select('crsalteserv') && modificare v 2.0.28 + Return + Endif + + Select actactan + *!* modificare v 2.1.0 + *!* Replace All id_fact With -1 + Replace id_fact With -1 for id_fact <> -5 + *!* modificare v 2.1.0 ^ + *!* lnSucces = oscrie_in_fisiere() && modificare v 2.0.28 + Use In crsavansuri_complet + + *!* modificare v 2.0.28 + *!* If lnSucces>0 + *!* lcSql = [begin pack_devize.dev_completeaza_rul(?gcS,?ocomanda.id_lucrare); end;] + *!* lnSucces = goExecutor.oExecute(lcSql) + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Use In Select('crsBonDetaliat') + *!* Return + *!* Endif + *!* modificare v 2.0.28 ^ + Thisform.AlwaysOnTop = .F. + If Empty(pnDiscountN) + Store 0 To lnProcDiscN,pnDiscountN,pnDiscountTvaN + Endif + If Empty(pnDiscountM) + Store 0 To lnProcDiscM,pnDiscountM,pnDiscountTvaM + Endif + *!* modificare v 2.0.28 + *!* Do listare_FACTURA With ocomanda.id_partener,'actactan',ocomanda.nrord,ocomanda.nrinmat,1,lnProcDiscM ,lnProcDiscN,-pnDiscountM,-pnDiscountN,pnDiscountTvaM,pnDiscountTvaN,'MANOPERA',0 In oproceduri_listari + *!* modificare v 2.0.35 : am adaugat ocomanda.id_ordl + *!* modificare v 2.0.41 : am adaugat Alltrim(Str(ocomanda.id_lucrare)) + If !factureaza_deviz(ocomanda.id_lucrare,ocomanda.nrord,ocomanda.nrinmat,[],0,-pnDiscountM,-pnDiscountN,lnProcDiscM,lnProcDiscN,IIF(pnAchitAsigurator = 1,ocomanda.id_ordl,Null),ALLTRIM(STR(ocomanda.id_ordl)),Alltrim(Str(ocomanda.id_lucrare))) && in oproceduri_devize.prg + poGeneratorNumere.dezaloca_numere() + ELSE + Thisform.actualizeaza_grid1() + Endif + *!* modificare v 2.0.28 ^ + + Thisform.AlwaysOnTop = .T. + *!* Thisform.actualizeaza_grid1() && modificare v 2.0.28 + Select crscomenzi + If Reccount('crscomenzi')>=lnPozitieCursor + Go lnPozitieCursor + Endif + *!* modificare v 2.0.28 + *!* Else + *!* *!* dezaloca_numar_bf() && oserii_numere.prg + *!* *!* Do dezaloca_numar_fact In oserii_numere.prg + *!* poGeneratorNumere.dezaloca_numere() + *!* ENDIF + *!* modificare v 2.0.21 + *!* modificare v 2.0.28 ^ + Use In Select('crsBonDetaliat') + *!* modificare v 2.0.21 ^ + Use In Select('crsalteserv') && modificare v 2.0.28 + ENDPROC + + PROCEDURE do_factureaza_final_part + LPARAMETERS tcFiltru + LOCAL lcFiltru + Local ofrmincasare As 'frm_incasare_finala' + Local lcNrOrdDif, lcSql, ldDataAct, lnIdLucrareDif, lnLungime, lnNrComenzi, lnProcDiscM, lnProcDiscN + Local lnSucces, lnTotalCTVAMateriale, lnTotalManop, lnTotalManopTVA, lnTotalMater, lnTotalMaterTVA + Local lnVerifMan, lnVerifManTva, lnVerifMat, lnVerifMatTva, loTVAColoana + *:Global oTva, oactan, ocomanda, poActDate, poactan, taValori[1], x + + lcFiltru = IIF(EMPTY(m.tcFiltru), 'ales = 1', m.tcFiltru) + + *!* 12.06.2014 + *!* marius.mutu + *!* selectie nume banca lei pentru plata bon fiscal numerar sau prin card + *!* pnPOS = incasare bon fiscal numerar = 1; CARD POS = 1 + *!* inlocuiesc nota 5311 = 4111.client cu 5113.client = 4111.client + *!* v_nom_casa: se alege casa sau banca lei (pentru incasare CARD) + + *!* 18.08.2015 + *!* marius.mutu + *!* completare procent discount manopera, materiale din contract tip CLIENT AUTO + + *!* 27.01.2016 + *!* marius.mutu + *!* stornare avans - se completeaza in actan cota tva din cursorul de avans in loc de cota tva de pe factura + *!* este posibil ca pe avans sa fie alta cota de TVA + + *!* 23.11.2017 + *!* marius.mutu + *!* Sterg liniile cu 0 doar daca am inregistrari cu suma <> 0, altfel nu gasesc inregistrari 411 = xxx la salvarea facturii si da eroare + + *!* 12.04.2022 + *!* 2.4.24 + *!* se pot factura mai multe devize cu dosar asigurator pe o factura (ar trebui sa aiba acelasi asigurator si dosar, dar nu se verifica) + *!* daca se bifeaza factura achitata de asigurator, in registrul jurnal clientul este asiguratorul, in loc de proprietar + + Private pniesire,pnAvansFTva,pnAvansTva,pnTipIncasare,pnIdTva,pnProcTva,pnIdJtvaColoana,pnAvans, pnTaxCode + Private pcSirIdLucrare,pcSirIdOrdl,pcSirNrOrd,pnNrComenzi,pcSeparator + Local lnIncasat,lnTVAMateriale, loLogCursoare + loLogCursoare = Createobject("oLogCursoare") + pcSirIdLucrare = [] + pcSirIdOrdl = [] + pcSirNrOrd = [] + pcSeparator = [,] + && 1 - fara incasare + && 2 - bon fiscal + && 3 - chitanta pe factura + pnTipIncasare=1 + optiuni_firma() && reinitializare gnTip_LFactura + Local lnPozitieCursor,lnIncasat + Select crscomenzi + Go Top + *Locate For ales = 1 + LOCATE FOR &lcFiltru + lnPozitieCursor=Recno() + Scatter Name ocomanda + && optiuni cu analitice + && optiuni tip analitic + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + + *!* modificare v 2.0.35 : l-am mutat dupa stornare avans pentru ca in frm_alte_date se inchide cursorul v_nom_casa + *!* si nu mi-l mai gaseste in do_factureaza_final_part + *!* If Used('v_nom_casa') + *!* Use In v_nom_casa + *!* Endif + *!* lcSql=[select id_part,nume from ] + gcS + [.vnom_casa_lei] + *!* lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Endif + *!* modificare v 2.0.35 + + If Used('crsselectate') + Use In crsselectate + Endif + + Select * From crscomenzi With (Buffering = .T.) Where &lcFiltru And Validat = 1 Into Cursor crsselectate + lnNrComenzi = Reccount('crsselectate') + Select crsselectate + Scan + pcSirIdOrdl = pcSirIdOrdl + Alltrim(Str(id_ordl)) + pcSeparator + pcSirIdLucrare = pcSirIdLucrare + Alltrim(Str(id_lucrare)) + pcSeparator + pcSirNrOrd = pcSirNrOrd + Alltrim(nrord) + pcSeparator + [ ] + Endscan + pcSirNrOrd = Alltrim(pcSirNrOrd) + pcSirIdOrdl = Substr(pcSirIdOrdl,1,Len(pcSirIdOrdl)-1) + pcSirIdLucrare = Substr(pcSirIdLucrare,1,Len(pcSirIdLucrare)-1) + pcSirNrOrd = Substr(pcSirNrOrd,1,Len(pcSirNrOrd)-1) + + Use In Select('crsavansuri_complet') + + *!* modificare v 2.0.21 + *!* lcSql=[select a.*,b.nrord ] + ; + *!* [from ] + gcS + [.dev_vordl_avansuri a ] + ; + *!* [left join ] + gcS + [.vnom_lucrari b on a.id_lucrare = b.id_lucrare ] + ; + *!* [where a.id_partd = ] + Alltrim(Str(ocomanda.id_partener)) + [ ] + ; + *!* [and a.id_lucrare in (] + pcSirIdLucrare + [)] + lcSql = [{call pack_auto.citeste_date_avans('] + Alltrim(pcSirIdLucrare) + [',',')}] + *!* modificare v 2.0.21 ^ + lnSucces = goExecutor.oExecute(lcSql,'crsavansuri_complet') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + Use In Select('crsavansuri') + + *!* modificare v 2.0.21 : am adaugat incasat + *!* modificare v 2.0.52 : am adaugat avansftva + Select Sum(Nvl(avans,0.00)) As avans,Sum(Nvl(incasat,0.00)) As incasat,Sum(Nvl(avansftva,0.00)) As avansftva,; + id_lucrare,nrord From crsavansuri_complet ; + GROUP By id_lucrare,nrord Into Cursor crsavansuri + + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + + If Thisform.do_verifica_part(pcSirIdOrdl,ocomanda)!=1 + Use In Select('crsavansuri') + Use In Select('crsavansuri_complet') + Return + Endif + Use In Select('crsavansuri') + Select crsavansuri_complet + *!* modificare v 2.0.52 : am adaugat pnAvansFTva + Calculate Sum(Nvl(avans,0.00)),Sum(Nvl(incasat,0.00)),Sum(Nvl(avansftva,0.00)) To pnAvans,lnIncasat,pnAvansFTva + + *!* modificare v 2.0.21 + If glAutoBonDet + If pnAvans > 0 + If amessagebox("Se achita factura cu bon fiscal?",4+32+256,"Confirmare") = 6 + *!* modificare v 2.0.35 : am adaugat pcSirIdOrdl + *!* modificare v 2.0.41 : am adaugat pcSirIdLucrare + If This.do_storneaza_avans(lnIncasat,pcSirNrOrd,1,pcSirIdOrdl,pcSirIdLucrare) + pnAvans = 0 + Else + Return + Endif + Endif + Endif + *!* lcSql = [select b.denumire, b.um, a.cante as cant, a.pret, a.dataact, a.id_rul from (] + ; + *!* [select id_articol,] + ; + *!* [pack_sesiune.calculeaza_pret_cu_tva(pretv,1,pack_def.GetIdMonedaNationala(),] + ; + *!* [pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0) as pret,] + ; + *!* [SUM(cante) as cante,MIN(dataact) as dataact,MIN(id_rul) as id_rul ] + ; + *!* [from ] + gcS + [.rul where sters = 0 and id_lucrare in (] + pcSirIdLucrare + [) ] + ; + *!* [group by id_articol,pretv) a ] + ; + *!* [left join nom_articole b on a.id_articol = b.id_articol where a.cante <> 0 ] + ; + *!* [order by a.dataact,a.id_rul] + *!* modificare v 2.0.35 : am pus IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard) in loc de pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn) + lcSql = [select denumire,um,cant,pret,dataact,id_rul,pret,] + ; + [round(pack_sesiune.calculeaza_pret_tva(totalctva,1,0,] + Alltrim(Str(Iif(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,1,2),?gnPPretV) as totaltva,] + ; + [round(pack_sesiune.calculeaza_pret_fara_tva(totalctva,1,0,] + Alltrim(Str(Iif(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,1,2),?gnPPretV) as totalftva,] + ; + [totalctva from (] + ; + [select b.denumire, b.um, a.cante as cant, a.pretv, a.pret, a.dataact, a.id_rul,SUM(ROUND(a.pret*a.cante,?gnPc)) over () as totalctva ] + ; + [ from (] + ; + [select id_articol,pretv,] + ; + [pack_sesiune.calculeaza_pret_cu_tva(pretv,1,pack_def.GetIdMonedaNationala(),] + ; + ALLTRIM(Str(Iif(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,0,2) as pret,] + ; + [SUM(cante) as cante,MIN(dataact) as dataact,MIN(id_rul) as id_rul ] + ; + [from ] + gcS + [.rul where sters = 0 and id_lucrare in (] + pcSirIdLucrare + [) ] + ; + [group by id_articol,pretv) a ] + ; + [left join nom_articole b on a.id_articol = b.id_articol where a.cante <> 0) ] + ; + [order by dataact,id_rul] + lnSucces = goExecutor.oExecute(lcSql,'crsBonDetaliat') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,16,'Eroare') + Return + Endif + Endif + *!* modificare v 2.0.21 ^ + + *!* modificare v 2.0.35 + Use In (Select('v_nom_casa')) + lcSql=[select id_part,nume from vcoresp_tip_part where tip_partener IN ('BANCA LEI', 'CASA LEI')] + lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + *!* modificare v 2.0.35 ^ + + lnLungime=4 + Dimension taValori[lnLungime,3] + taValori[1,1]="poAct.v4111" + taValori[1,2]=Alltrim(ocomanda.nume) + taValori[1,3]=.T. + taValori[2,1]="poAct.nrord" + taValori[2,2]=pcSirNrOrd + taValori[2,3]=.T. + taValori[3,1]="poAct.id_lucrare" + taValori[3,2]=[-1] + taValori[3,3]=.T. + taValori[4,1]="poAct.id_vv4111" + taValori[4,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[4,3]=.T. + *!* lnNumarFactura = aloca_numar_fact() + *!* taValori[5,1]="poAct.nract" + *!* taValori[5,2]=Alltrim(Str(lnNumarFactura)) + *!* taValori[5,3]=.F. + + *!* modificare v 2.0.28 : nu pun conditie si in functie de gnid_fdoc_factasig pentru ca voi completa id_fdoc cu + *!* gnid_fdoc_factasig mai jos, in functie de fiecare lucrare ( daca e pe asigurator sau nu ) + *!* If !Isnull(gnid_fdoc_factura) + If !Empty(Nvl(gnid_fdoc_fact,0)) + *!* modificare v 2.0.28 ^ + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.id_fdoc" + *!* modificare v 2.0.28 : nu pun conditie si in functie de gnid_fdoc_factasig pentru ca voi completa id_fdoc cu + *!* gnid_fdoc_factasig mai jos, in functie de fiecare lucrare ( daca e pe asigurator sau nu ) + *!* taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_factura)) + taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_fact)) + *!* modificare v 2.0.28 ^ + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.fdoc" + taValori[lnLungime+2,2]='FACTURA' + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + Endif + + Thisform.MousePointer=0 + Thisform.LockScreen=.F. + + Thisform.AlwaysOnTop=.F. + lans(31011,.F.,.T.,@taValori) && id_set,daca se executa procedura de mai multe ori, + && daca verifica analiticele,array de valori + Thisform.AlwaysOnTop=.T. + + If buton=2 + Do deschid_actc + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Use In Select('crsBonDetaliat') + Return + Endif + + *!* SELECT actactan + *!* GO TOP + *!* lnNumarFacturaAct = nract + *!* IF lnNumarFacturaAct <> lnNumarFactura + *!* DO dezaloca_numar_fact In oserii_numere.prg + *!* ENDIF + + *!* If Used('v_nom_casa') + *!* Use In v_nom_casa + *!* Endif + *!* lcSql=[select id_part,nume from ] + gcS + [.vnom_casa_lei] + *!* lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Endif + + *!* modificare v 2.1.0 : am adaugat pnTotalFactura + Private pnDiscountM,pnDiscountN,pnDiscountTvaM,pnDiscountTvaN,pnNrChit,pnIdCasa,pnIncasat,pcCasa,pcSerieChit,pnTotalFactura, pnPOS + Store 0 To pnDiscountM,pnDiscountN,pnDiscountTvaM,pnDiscountTvaN,pnNrChit,pnIdCasa,pnIncasat,pnTotalFactura, pnPOS + Store [] To pcCasa,pcSerieChit && modificare v 2.0.28 : pcSerieChit + + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + + *!* modificare v 2.0.4 + *!* lcSql=[select 1 as tip,acont,NVL(sum(ROUND(pretv*cante,?gnPc)),0) as pret,0 as id_ordl,id_lucrare,id_sectie,sectie from ] + gcS + [.vrul ]+; + *!* [where id_lucrare in (] + Alltrim(pcSirIdLucrare) + [) group by id_lucrare,acont,sectie,id_sectie ] + ; + *!* [union all ] + ; + *!* [select 2 as tip,null as acont,NVL(sum(ROUND(a.timpn * a.pret,?gnPc)),0) as pret,a.id_ordl,0 as id_lucrare,a.id_sectie,a.sectie from ] + gcS + [.dev_voper a ] + ; + *!* [where a.id_ordl in (] + Alltrim(pcSirIdOrdl) + [) group by a.id_ordl,a.id_sectie,a.sectie] + *!* modificare v 2.0.22 + If glAutoBonDet + *!* modificare v 2.0.35 : am pus IIF(ocomanda.proc_tvav=1,1,gnCotaTVAStandard) in loc de pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn) + lcSql=[select 1 as tip,a.acont,NVL(sum(ROUND(PACK_SESIUNE.SUMA_RON(A.PRETV, A.AN, A.LUNA, 3)*a.cante,?gnPc)),0) as pret,] + ; + [NVL(sum(ROUND(pack_sesiune.calculeaza_pret_tva(PACK_SESIUNE.SUMA_RON(A.PRETV, A.AN, A.LUNA, 3),1,pack_def.GetIdMonedaNationala(),] + ; + ALLTRIM(Str(Iif(ocomanda.proc_tvav=1,1,gnCotaTVAStandard),10,4)) + [,0,2)*a.cante,?gnPc)),0) as tva,] + ; + [0 as id_ordl,a.id_lucrare,a.id_sectie,b.sectie from ] + gcS + [.rul a ]+; + [left join ] + gcS + [.nom_sectii b on a.id_sectie = b.id_sectie ] + ; + [where a.sters = 0 and a.id_lucrare in (] + Alltrim(pcSirIdLucrare) + [) group by a.id_lucrare,a.acont,b.sectie,a.id_sectie ] + ; + [union all ] + ; + [select 2 as tip,null as acont,NVL(sum(ROUND(a.timpn * a.pret,?gnPc)),0) as pret,0 as tva,a.id_ordl,0 as id_lucrare,a.id_sectie,a.sectie from ] + gcS + [.auto_voper a ] + ; + [where a.id_ordl in (] + Alltrim(pcSirIdOrdl) + [) group by a.id_ordl,a.id_sectie,a.sectie] + Else + lcSql=[select 1 as tip,a.acont,NVL(sum(ROUND(PACK_SESIUNE.SUMA_RON(A.PRETV, A.AN, A.LUNA, 3)*a.cante,?gnPc)),0) as pret,0 as tva,0 as id_ordl,a.id_lucrare,a.id_sectie,b.sectie from ] + gcS + [.rul a ]+; + [left join ] + gcS + [.nom_sectii b on a.id_sectie = b.id_sectie ] + ; + [where a.sters = 0 and a.id_lucrare in (] + Alltrim(pcSirIdLucrare) + [) group by a.id_lucrare,a.acont,b.sectie,a.id_sectie ] + ; + [union all ] + ; + [select 2 as tip,null as acont,NVL(sum(ROUND(a.timpn * a.pret,?gnPc)),0) as pret,0 as tva,a.id_ordl,0 as id_lucrare,a.id_sectie,a.sectie from ] + gcS + [.auto_voper a ] + ; + [where a.id_ordl in (] + Alltrim(pcSirIdOrdl) + [) group by a.id_ordl,a.id_sectie,a.sectie] + Endif + *!* modificare v 2.0.22 ^ + *!* modificare v 2.0.4 ^ + lnSucces=goExecutor.oExecute(lcSql,'crsTotaluri') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + Select crsTotaluri + *!* modificare v 2.0.22 + *!* Calculate Sum(Pret) To ocomanda.materiale FOR tip = 1 + *!* Calculate Sum(Pret) To ocomanda.manopera FOR tip = 2 + Calculate Sum(Pret),Sum(tva) To ocomanda.materiale,lnTVAMateriale For tip = 1 + Calculate Sum(Pret) To ocomanda.manopera For tip = 2 + *!* modificare v 2.0.41 + *!* AddProperty(ocomanda,"bondiftva",0) + *!* AddProperty(ocomanda,"bondifftva",0) + *!* If Used('crsBonDetaliat') + *!* Select crsBonDetaliat + *!* *!* modificare v 2.0.41 + *!* *!* ocomanda.bondiftva = totaltva - lnTVAMateriale + *!* *!* ocomanda.bondifftva = totalftva - ocomanda.materiale + *!* CALCULATE SUM(totaltva),SUM(totalftva) TO ocomanda.bondiftva,ocomanda.bondifftva + *!* ocomanda.bondiftva = ocomanda.bondiftva - lnTVAMateriale + *!* ocomanda.bondifftva = ocomanda.bondifftva - ocomanda.materiale + *!* *!* modificare v 2.0.41 ^ + *!* Endif + *!* modificare v 2.0.41 ^ + *!* modificare v 2.0.22 ^ + + *!* modificare JC/JV 2007 + pnIdJtvaColoana = GetIdJtvaStandard("VANZARE") + loTVAColoana = GeJtvaColoana(pnIdJtvaColoana) + pnIdTva = NVL(loTVAColoana.id_tva,0) + pnProcTva = 1 + ROUND(loTVAColoana.cota_tva/100,2) + *!* modificare JC/JV 2007 ^ + + *!* modificare v 2.0.41 + *!* *!* modificare v 2.0.22 + *!* lnTVAMateriale = Iif(glAutoBonDet,lnTVAMateriale,Round(ocomanda.materiale*(pnProcTva-1),gnPa)) + *!* *!* modificare v 2.0.22 ^ + AddProperty(ocomanda,"materialerecalc",ocomanda.materiale) + If glAutoBonDet + Select crsBonDetaliat + lnTotalCTVAMateriale = totalctva + ocomanda.materialerecalc = Round(lnTotalCTVAMateriale/pnProcTva,gnPc) + lnTVAMateriale = lnTotalCTVAMateriale - ocomanda.materialerecalc + Else + lnTVAMateriale = Round(ocomanda.materiale*(pnProcTva-1),gnPc) + Endif + *!* modificare v 2.0.41 ^ + + *!* modificare v 2.1.0 + Local lnTvaIncasare, lcContTVA + Select actactan + Calculate Max(tva_incasare) To lnTvaIncasare + If lnTvaIncasare = 1 + pnIdJtvaColoana = getIdJtvaColoana(pnIdJtvaColoana,1) + pnIdTva = getIdTva(pnIdTva,1) + lcContTVA = [4428] + Else + lcContTVA = [4427] + ENDIF + + + *!* modificare v 2.1.0 ^ + *!* modificare v 2.0.28 + Create Cursor crsalteserv(id_articol N(14) Not Null,denumire c(100) Not Null,codmat c(50) Null,um c(10) Null,; + id_lucrare N(14) Not Null,nrord c(100) Not Null,; + cantitate N(14,gnPCant) Default 1,pretftva N(14,gnPPretV) Default 0,valoareftva N(14,gnPc) Default 0) + *!* modificare v 2.0.28 ^ + pniesire=1 + *!* modificare v 2.0.33 : am adaugat pnAchitAsigurator + Private pnAchitAsigurator + pnAchitAsigurator = 0 + *!* modificare v 2.0.33 ^ + *!* modificare v 2.0.41 + *!* ofrmincasare=Createobject('frm_incasare_finala',lnTVAMateriale,ocomanda.bondifftva,ocomanda.bondiftva) + Local lnProcDiscountManopera, lnProcDiscountMateriale, lnIdCtr + lnProcDiscountManopera = 0 + lnProcDiscountMateriale = 0 + lnIdCtr = 0 + citeste_discount_contract(ocomanda.id_partener, @lnIdCtr, @lnProcDiscountManopera, @lnProcDiscountMateriale) + + ofrmincasare=Createobject('frm_incasare_finala',lnTvaIncasare,lnTVAMateriale,!Empty(Nvl(ocomanda.asigurator,[]))) + *!* modificare v 2.0.41 ^ + With ofrmincasare + .clb_manopera.text_simplu1.Value=Round(ocomanda.manopera,gnPc) + .clb_tvam.text_simplu1.Value=Round(ocomanda.manopera*(pnProcTva-1),gnPc) + *!* modificare v 2.0.41 + *!* .clb_materiale.text_simplu1.Value=Round(ocomanda.materiale,gnPa)+ocomanda.bondifftva + *!* *!* modificare v 2.0.22 + *!* *!* .clb_tvan.text_simplu1.Value=Round(ocomanda.materiale*(pnProcTva-1),gnPa) + *!* .clb_tvan.text_simplu1.Value = lnTVAMateriale + ocomanda.bondiftva + *!* *!* modificare v 2.0.22 ^ + .clb_materiale.text_simplu1.Value=Round(ocomanda.materialerecalc,gnPc) + .clb_tvan.text_simplu1.Value = lnTVAMateriale + *!* modificare v 2.0.41 ^ + .clb_avans.text_simplu1.Value = pnAvans + .navansfaratva = pnAvansFTva && modificare v 2.0.52 + + If Nvl(ocomanda.manopera, 0) <> 0 + .clb_procdiscm.text_simplu1.Value = lnProcDiscountManopera + Endif + If Nvl(ocomanda.materialerecalc, 0) <> 0 + .clb_procdiscn.text_simplu1.Value = lnProcDiscountMateriale + Endif + Endwith + ofrmincasare.calculeaza_total() + ofrmincasare.Show(1) + Use In v_nom_casa + Release ofrmincasare + + If pniesire!=1 + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Use In Select('crsBonDetaliat') + Use In Select('crsalteserv') && modificare v 2.0.28 + Return + Endif + + SELECT actactan + GO TOP + ldDataAct = dataact + pnTaxCode = GetTaxCodeIdPart(m.gnAn, m.gnLuna, m.ldDataAct, m.pnIdJtvaColoana, ocomanda.id_partener) + + *!* SELECT * FROM actactan INTO TABLE C:\actactan.dbf + *!* SELECT * FROM crstotaluri INTO TABLE C:\crstotaluri.dbf + *!* SELECT * FROM crsselectate INTO TABLE C:\crsselectate.dbf + + *!* modificare v 2.0.6 : am concatenat explicatia5 + *!* modificare v 2.0.35 : am modificat suma din c.tva in IIF(pnProcTva=1,000000000000.0000,Nvl(c.tva,000000000000.0000)) + *!* modificare v 2.0.41 : am modificat suma din IIF(a.nr_nota = 2,Iif(glAutoBonDet,IIF(pnProcTva=1,000000000000.0000,Nvl(c.tva,000000000000.0000)),Round(Nvl(c.Pret,000000000000.0000)*(pnProcTva-1),gnPc)),... + Insert Into actactan(nr_nota,id_act,luna,an,cod,datairegt,dataireg,dataact,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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,serie_act) ; + SELECT Distinct a.nr_nota,a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,a.nract,a.dataactt,; + IIF(Alltrim(a.scd) = '711',{},a.datascad) As datascad,; + IIF(Alltrim(a.scc) = '332',Nvl(c.Pret,000000000000.0000),; + IIF(Alltrim(a.scc) = '707',Nvl(c.Pret,000000000000.0000),; + IIF(Alltrim(a.scc) = '704',Nvl(d.Pret,000000000000.0000),; + IIF(a.nr_nota = 2,Round(Nvl(c.Pret,000000000000.0000)*(pnProcTva-1),gnPc),; + IIF(a.nr_nota = 4,Round(Nvl(d.Pret,000000000000.0000)*(pnProcTva-1),gnPc),000000000000.0000))))) As suma,; + IIF(Alltrim(a.scc) = '332',Padr([PRODUCTIE TERMINATA],50,[ ]),; + IIF(Alltrim(a.scc) = '707',Padr([MATERIALE],50,[ ]),; + IIF(Alltrim(a.scc) = '704',Padr([MANOPERA],50,[ ]),; + IIF(a.nr_nota = 2,Padr([TVA MATERIALE],50,[ ]),; + IIF(a.nr_nota = 4,Padr([TVA MANOPERA],50,[ ]),Space(50)))))) As explicatia,; + a.scd,a.ascd,a.scc,a.ascc,a.pereched,a.perechec,; + b.asigurator As explicatia4,Alltrim(Nvl(a.explicatia5,''))+[;]+Alltrim(Nvl(b.inspector,''))+[;]+Alltrim(Nvl(b.nr_dosar,'')) As explicatia5,a.datascadt,a.nnir,a.id_util,a.util,a.dataora,; + a.id_responsabil,a.nresp,a.id_venchelt,a.dst_chlt,b.id_lucrare,b.nrord,a.id_ctr,a.contract,; + IIF(Alltrim(a.scc) = '332',Nvl(c.id_sectie,000000000000),; + IIF(Alltrim(a.scc) = '707',Nvl(c.id_sectie,000000000000),; + IIF(Alltrim(a.scc) = '704',Nvl(d.id_sectie,000000000000),; + IIF(a.nr_nota = 2,Nvl(c.id_sectie,000000000000),; + IIF(a.nr_nota = 4,Nvl(d.id_sectie,000000000000),000000000000))))) As id_sectie,; + IIF(Alltrim(a.scc) = '332',Padr(c.sectie,50,[ ]),; + IIF(Alltrim(a.scc) = '707',Padr(c.sectie,50,[ ]),; + IIF(Alltrim(a.scc) = '704',Padr(d.sectie,50,[ ]),; + IIF(a.nr_nota = 2,Padr(c.sectie,50,[ ]),; + IIF(a.nr_nota = 4,Padr(d.sectie,50,[ ]),Space(50)))))) As sectie,; + IIF(Alltrim(a.scd) = '711',00000000000,pnProcTva) As proc_tva,; + a.id_set,a.id_fact,a.id_factd,a.id_factc,a.id_partd,a.partd,; + a.id_partc,a.partc,a.id_sucursala,a.sucursala,; + IIF(!Empty(Nvl(b.asigurator,[])),Nvl(gnid_fdoc_factasig,a.id_fdoc),a.id_fdoc) As id_fdoc,; && modificare v 2.0.28 + Iif(!Empty(Nvl(b.asigurator,[])),a.fdoc+[ ASIGURATOR],a.fdoc) As fdoc,; && modificare v 2.0.28 + a.id_gestin,; + IIF(Alltrim(a.scd) = '711',00000000000,Iif(Alltrim(a.scc)=lcContTVA,pnIdTva,pnIdJtvaColoana)) As id_jtva_coloana,; + CAST(IIF(Alltrim(a.scd) = '711',NULL,pnTaxcode) as N(6)) As taxcode,; + a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val,a.serie_act From actactan a ; + Left Join crsselectate b On 2 = 2 ; + left Join crsTotaluri c On b.id_lucrare = c.id_lucrare And c.tip = 1 ; + left Join crsTotaluri d On b.id_ordl = d.id_ordl And d.tip = 2 + + *!* modificare v 2.0.28 + If Reccount('crsalteserv') > 0 + If Used('crstotaluriserv') + Use In crstotaluriserv + Endif + Select Sum(valoareftva) As totalftva,Sum(Round(valoareftva*(pnProcTva-1),gnPc)) As totaltva,id_lucrare,nrord ; + FROM crsalteserv Group By id_lucrare,nrord ; + INTO Cursor crstotaluriserv + Insert Into actactan(nr_nota,id_act,luna,an,cod,datairegt,dataireg,dataact,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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,serie_act) ; + SELECT Distinct a.nr_nota*(-1) As nr_nota,a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,a.nract,a.dataactt,a.datascad,; + IIF(Alltrim(a.scc) = lcContTVA,b.totaltva,b.totalftva) As suma,; + IIF(Alltrim(a.scc) = lcContTVA,Padr([TVA ALTELE],50,[ ]),Padr([ALTELE],50,[ ])) As explicatia,; + a.scd,a.ascd,Iif(Alltrim(a.scc) = lcContTVA,a.scc,Padl(gcDevContAltele,4,[ ])) As scc,a.ascc,a.pereched,a.perechec,; + c.asigurator As explicatia4,Alltrim(Nvl(a.explicatia5,''))+[;]+Alltrim(Nvl(c.inspector,''))+[;]+Alltrim(Nvl(c.nr_dosar,'')) As explicatia5,; + a.datascadt,a.nnir,a.id_util,a.util,a.dataora,; + a.id_responsabil,a.nresp,a.id_venchelt,a.dst_chlt,b.id_lucrare,b.nrord,a.id_ctr,a.contract,; + a.id_sectie,a.sectie,pnProcTva As proc_tva,; + a.id_set,a.id_fact,a.id_factd,a.id_factc,a.id_partd,a.partd,; + a.id_partc,a.partc,a.id_sucursala,a.sucursala,a.id_fdoc,a.fdoc,a.id_gestin,; + Iif(Alltrim(a.scc)=lcContTVA,pnIdTva,pnIdJtvaColoana) As id_jtva_coloana,; + CAST(m.pnTaxCode as N(6)) As taxcode,; + a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val,a.serie_act From actactan a ; + Left Join crstotaluriserv b On 2 = 2 ; + left Join crsselectate c On b.id_lucrare = c.id_lucrare ; + Where Inlist(a.nr_nota,1,2) And a.id_lucrare = -1 + Update actactan Set scc = Alltrim(scc) && ca sa-mi scoata spatiul de la gcDevContAltele ; daca nu pun spatiu, atunci imi arata 442, in loc de 4427 + Use In crstotaluriserv + Endif + *!* modificare v 2.0.28 ^ + Delete From actactan Where id_lucrare = -1 + + *!* SELECT actactan + *!* BROWSE + *!* modificare v 2.0.41 + *!* *!* modificare v 2.0.22 + *!* If pnProcTva = 1 + *!* ocomanda.bondiftva = 0 + *!* ocomanda.bondifftva = 0 + *!* If Used('crsBonDetaliat') + *!* Select crsBonDetaliat + *!* Replace Pret With pretv All + *!* Endif + *!* Endif + *!* If ocomanda.bondifftva <> 0 + *!* Select actactan + *!* Locate For nr_nota = 1 + *!* Scatter Name oactan + *!* Insert Into actactan(suma,explicatia) Values(ocomanda.bondifftva,"MATERIALE ROTUNJIRE BON") + *!* Gather Name oactan Fields Except suma,explicatia + *!* Endif + *!* If ocomanda.bondiftva <> 0 + *!* Select actactan + *!* Locate For nr_nota = 2 + *!* Scatter Name oactan + *!* Insert Into actactan(suma,explicatia) Values(ocomanda.bondiftva,"TVA MATERIALE ROTUNJIRE BON") + *!* Gather Name oactan Fields Except suma,explicatia + *!* Endif + *!* *!* modificare v 2.0.22 ^ + If pnProcTva = 1 + If Used('crsBonDetaliat') + Select crsBonDetaliat + Replace Pret With pretv All + Endif + Else + Select actactan + lnTotalMater = 0 + lnTotalMaterTVA = 0 + && pun diferentele pe o comanda care are materiale + Locate For Alltrim(scd) = '4111' And Alltrim(scc) = '707' And Left(Alltrim(explicatia),3) = "MAT" And suma > 0 + If Found() + lnIdLucrareDif = id_lucrare + lcNrOrdDif = nrord + Else + lnIdLucrareDif = 0 + lcNrOrdDif = [] + Endif + Sum suma For Alltrim(scd) = '4111' And Alltrim(scc) = '707' And Left(Alltrim(explicatia),3) = "MAT" To lnTotalMater + Sum suma For Alltrim(scd) = '4111' And Alltrim(scc) = lcContTVA And Left(Alltrim(explicatia),7) = "TVA MAT" To lnTotalMaterTVA + If ocomanda.materialerecalc <> lnTotalMater + Select actactan + Locate For nr_nota = 1 + Scatter Name oactan + Insert Into actactan(suma,explicatia,id_lucrare,nrord) Values(ocomanda.materialerecalc-lnTotalMater,"MATERIALE ROTUNJIRE BON",lnIdLucrareDif,lcNrOrdDif) + If Empty(lnIdLucrareDif) + Gather Name oactan Fields Except suma,explicatia + Else + Gather Name oactan Fields Except suma,explicatia,id_lucrare,nrord + Endif + Endif + If lnTVAMateriale <> lnTotalMaterTVA + Select actactan + Locate For nr_nota = 2 + Scatter Name oactan + Insert Into actactan(suma,explicatia,id_lucrare,nrord) Values(lnTVAMateriale-lnTotalMaterTVA,"TVA MATERIALE ROTUNJIRE BON",lnIdLucrareDif,lcNrOrdDif) + If Empty(lnIdLucrareDif) + Gather Name oactan Fields Except suma,explicatia + Else + Gather Name oactan Fields Except suma,explicatia,id_lucrare,nrord + Endif + Endif + Select actactan + lnTotalManop = 0 + lnTotalManopTVA = 0 + Locate For Alltrim(scd) = '4111' And Alltrim(scc) = '704' And Left(Alltrim(explicatia),3) = "MAN" And suma > 0 + If Found() + lnIdLucrareDif = id_lucrare + lcNrOrdDif = nrord + Else + lnIdLucrareDif = 0 + lcNrOrdDif = [] + Endif + Sum suma For Alltrim(scd) = '4111' And Alltrim(scc) = '704' And Left(Alltrim(explicatia),3) = "MAN" To lnTotalManop + Sum suma For Alltrim(scd) = '4111' And Alltrim(scc) = lcContTVA And Left(Alltrim(explicatia),7) = "TVA MAN" To lnTotalManopTVA + If Round(lnTotalManop*(pnProcTva-1),gnPc) <> lnTotalManopTVA + Select actactan + Locate For nr_nota = 4 + Scatter Name oactan + Insert Into actactan(suma,explicatia,id_lucrare,nrord) Values(Round(lnTotalManop*(pnProcTva-1),gnPc)-lnTotalManopTVA,"TVA MANOPERA ROTUNJIRE",lnIdLucrareDif,lcNrOrdDif) + If Empty(lnIdLucrareDif) + Gather Name oactan Fields Except suma,explicatia + Else + Gather Name oactan Fields Except suma,explicatia,id_lucrare,nrord + Endif + Endif + Endif + *!* modificare v 2.0.41 ^ + + *!* modificare v 2.0.41 + *!* lnProcDiscN=Round(pnDiscountN*100/ocomanda.materiale,2) + lnProcDiscN=Round(pnDiscountN*100/ocomanda.materialerecalc,2) + *!* modificare v 2.0.41 ^ + lnProcDiscM=Round(pnDiscountM*100/ocomanda.manopera,2) + + *!* scriere discount-uri + Insert Into actactan(nr_nota,id_act,luna,an,cod,datairegt,dataireg,dataact,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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,serie_act) ; + Select Recno() As nr_nota,a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,a.nract,a.dataactt,a.datascad,; + IIF(Alltrim(a.scc) = lcContTVA,; + IIF(a.nr_nota=2,Round((-1)*lnProcDiscN*a.suma/100,gnPc),; && 707 + Iif(a.nr_nota=4,Round((-1)*lnProcDiscM*a.suma/100,gnPc),0)),; && 704 + Iif(Alltrim(a.scc) = '707',; + IIF(gnDiscount411 = 1,Round((-1)*lnProcDiscN*a.suma/100,gnPc),Round((-1)*lnProcDiscN*a.suma/100,gnPc)),; + IIF(gnDiscount411 = 1,Round((-1)*lnProcDiscM*a.suma/100,gnPc),Round((-1)*lnProcDiscM*a.suma/100,gnPc)))) As suma,; + IIF(Alltrim(a.scc) = lcContTVA,; + IIF(a.nr_nota=2,Padr([TVA DISCOUNT MATERIALE ]+Alltrim(Str(lnProcDiscN,6,2))+[%],50,[ ]),; && 707 + Iif(a.nr_nota=4,Padr([TVA DISCOUNT MANOPERA ]+Alltrim(Str(lnProcDiscM,6,2))+[%],50,[ ]),[])),; && 704 + Iif(Alltrim(a.scc) = '707',Padr([DISCOUNT MATERIALE ]+Alltrim(Str(lnProcDiscN,6,2))+[%],50,[ ]),; + PADR([DISCOUNT MANOPERA ]+Alltrim(Str(lnProcDiscM,6,2))+[%],50,[ ]))) As explicatia,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,'667',a.scd) As scd,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,'',a.ascd) As ascd,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,a.scd,a.scc) As scc,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,a.ascd,a.ascc) As ascc,; + a.pereched,a.perechec,a.explicatia4,a.explicatia5,a.datascadt,a.nnir,a.id_util,a.util,a.dataora,; + 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,a.id_factd,a.id_factc,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,00000000000000,a.id_partd) As id_partd,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,Space(50),a.partd) As partd,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,a.id_partd,a.id_partc) As id_partc,; + IIF(Alltrim(a.scc) <> lcContTVA And gnDiscount411 = 0,a.partd,a.partc) As partc,; + a.id_sucursala,a.sucursala,a.id_fdoc,a.fdoc,a.id_gestin,a.id_jtva_coloana,a.taxcode,; + a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val,a.serie_act From actactan a ; + WHERE a.scd = '4111' And a.suma <> 0 And a.nr_nota > 0 && modificare v 2.0.28 : am adaugat nr_nota > 0 + + *!* SELECT actactan + *!* BROWSE + Select actactan + Calculate Sum(suma) To lnVerifMan For Like(explicatia,[DISCOUNT MANOPERA*]) + Calculate Sum(suma) To lnVerifManTva For Like(explicatia,[TVA DISCOUNT MANOPERA*]) + Calculate Sum(suma) To lnVerifMat For Like(explicatia,[DISCOUNT MATERIALE*]) + Calculate Sum(suma) To lnVerifMatTva For Like(explicatia,[TVA DISCOUNT MATERIALE*]) + + If lnVerifMan <> pnDiscountM Then + Locate For Like(explicatia,[DISCOUNT MANOPERA*]) + If Found() + Replace suma With suma + lnVerifMan - pnDiscountM + Endif + Endif + + If lnVerifManTva <> pnDiscountTvaM Then + Locate For Like(explicatia,[TVA DISCOUNT MANOPERA*]) + If Found() + Replace suma With suma + lnVerifManTva - pnDiscountTvaM + Endif + Endif + + If lnVerifMat <> pnDiscountN Then + Locate For Like(explicatia,[DISCOUNT MATERIALE*]) + If Found() + Replace suma With suma + lnVerifMat - pnDiscountN + Endif + Endif + + If lnVerifMatTva <> pnDiscountTvaN Then + Locate For Like(explicatia,[TVA DISCOUNT MATERIALE*]) + If Found() + Replace suma With suma + lnVerifMatTva - pnDiscountTvaN + Endif + Endif + + Select actactan + Scan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scc) + Endif + poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + Select actactan + Replace ascc With poactan.ascc + + Release poactan + Select actactan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scd) + Endif + poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + Select actactan + Replace ascd With poactan.ascd + Endscan + + *!* SELECT actactan + *!* BROWSE + Select actactan + Go Top + Scatter Name poActDate + + If pnAvans > 0 + Insert Into actactan(nr_nota,luna,an,cod,datairegt,dataireg,dataact,serie_act,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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,gestin,id_gestout,gestout,id_valuta,nume_val) ; + Select Recno() As nr_nota,poActDate.luna As luna,poActDate.an As an,poActDate.cod As cod,poActDate.datairegt As datairegt,; + poActDate.dataireg As dataireg,poActDate.dataact As dataact,poActDate.serie_act As serie_act,poActDate.nract As nract,poActDate.dataactt As dataactt,poActDate.datascad As datascad,; + (-1) * avans As suma,[STORNARE AVANS] As explicatia,scd,ascd,scc,ascc,poActDate.pereched As pereched,poActDate.perechec As perechec,; + NVL(poActDate.explicatia4,[]) As explicatia4,Alltrim(Nvl(poActDate.explicatia5,[])) As explicatia5,poActDate.datascadt As datascadt,poActDate.nnir As nnir,; + poActDate.id_util As id_util,poActDate.util As util,poActDate.dataora As dataora,poActDate.id_responsabil As id_responsabil,; + poActDate.nresp As nresp,poActDate.id_venchelt As id_venchelt,poActDate.dst_chlt As dst_chlt,id_lucrare,nrord,poActDate.id_ctr As id_ctr,; + poActDate.contract As contract,id_sectie,sectie,proc_tva As proc_tva,poActDate.id_set As id_set,poActDate.id_fact As id_fact,; + poActDate.id_factd As id_factd,poActDate.id_factc As id_factc,id_partd,partd,id_partc,partc,; + poActDate.id_sucursala As id_sucursala,poActDate.sucursala As sucursala,poActDate.id_fdoc As id_fdoc,poActDate.fdoc As fdoc,; + poActDate.id_gestin As id_gestin,id_jtva_coloana,taxcode,poActDate.gestin As gestin,poActDate.id_gestout As id_gestout,; + poActDate.gestout As gestout,poActDate.id_valuta As id_valuta,poActDate.nume_val As nume_val ; + From crsavansuri_complet + Endif + + If pnTipIncasare>1 + *!* Insert Into actactan(nr_nota,luna,an,cod,datairegt,dataireg,dataact,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + *!* scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + *!* 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,gestin,id_gestout,gestout,id_valuta,nume_val) ; + *!* Select RECNO() as nr_nota,luna,an,cod,datairegt,dataireg,dataact,pnNrChit as nract,dataactt,{} as datascad,; + *!* SUM(suma) as suma,[INCASARE] As explicatia,[5311] as scd,[] as ascd,[4111] as scc,MIN(ascc) as ascc,pereched,; + *!* nract as perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + *!* id_responsabil,nresp,0 as id_venchelt,[] as dst_chlt,id_lucrare,nrord,id_ctr,contract,; + *!* 0 as id_sectie,[] as sectie,0.00 as proc_tva,id_set,id_fact,id_fact as id_factd,id_factc,; + *!* pnIdCasa as id_partd,[] as partd,id_partd as id_partc,partd as partc,id_sucursala,sucursala,; + *!* IIF(pnTipIncasare=2,gnid_fdoc_bonfiscal,gnid_fdoc_incasare) as id_fdoc,; + *!* IIF(pnTipIncasare=2,[BON FISCAL],[CHITANTA]) as fdoc,; + *!* id_gestin,00000000000 as id_jtva_coloana,gestin,id_gestout,gestout,id_valuta,nume_val ; + *!* From actactan WHERE scd <> '711' ; + *!* group by luna,an,cod,datairegt,dataireg,dataact,nract,dataactt,pereched,nract,; + *!* explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,id_responsabil,nresp,; + *!* id_lucrare,nrord,id_ctr,contract,id_set,id_fact,id_factc,id_partd,partd,id_sucursala,sucursala,; + *!* id_gestin,gestin,id_gestout,gestout,id_valuta,nume_val + *!* modificare v 2.0.28 : pcSerieChit + Insert Into actactan(nr_nota,luna,an,cod,datairegt,dataireg,dataact,serie_act,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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,gestin,id_gestout,gestout,id_valuta,nume_val) ; + VALUES (Recno(),poActDate.luna,poActDate.an,poActDate.cod,poActDate.datairegt,; + poActDate.dataireg,poActDate.dataact,pcSerieChit,pnNrChit,poActDate.dataactt,; + {},pnIncasat,[INCASARE],[5311],[],[4111],poActDate.ascd,; + poActDate.pereched,poActDate.nract,Nvl(poActDate.explicatia4,[]),; + ALLTRIM(Nvl(poActDate.explicatia5,[])),poActDate.datascadt,poActDate.nnir,; + poActDate.id_util,poActDate.util,poActDate.dataora,; + poActDate.id_responsabil,poActDate.nresp,0,[],; + 0,[],0,[],0,[],0.00,poActDate.id_set,poActDate.id_fact,poActDate.id_fact,poActDate.id_factc,; + pnIdCasa,pcCasa,poActDate.id_partd,poActDate.partd,poActDate.id_sucursala,poActDate.sucursala,; + IIF(pnTipIncasare=2,gnid_fdoc_bonfiscal,gnid_fdoc_chitanta),; && modificare v 2.0.29 : am inlocuit gnid_fdoc_incasare + Iif(pnTipIncasare=2,[BON FISCAL],[CHITANTA]),; + poActDate.id_gestin,00000000000,poActDate.gestin,poActDate.id_gestout,; + poActDate.gestout,poActDate.id_valuta,poActDate.nume_val) + *!* modificare v 2.1.0 + If lnTvaIncasare = 1 + Select actactan + Locate For scc = lcContTVA + If Found() + Scatter Name oTva + Append Blank + Gather Name oTva Fields Except nr_nota,serie_act,nract,suma,explicatia,scd,scc,perechec,id_fact,id_partd,id_partc,partd,partc,id_fdoc,fdoc,id_jtva_coloana + Replace nr_nota With Recno(),serie_act With pcSerieChit,nract With pnNrChit,; + suma With Round(pnIncasat*(oTva.proc_tva-1)/oTva.proc_tva,gnPc),; + explicatia With [INCASARE],scd With '4428',scc With '4427',perechec With oTva.nract,; + id_fact With -5,id_partd With 0,partd With '',id_partc With 0,partc With '',; + id_fdoc With Iif(pnTipIncasare=2,gnid_fdoc_bonfiscal,Iif(pnTipIncasare=3,gnid_fdoc_chitanta,0)),; + fdoc With Iif(pnTipIncasare=2,[BON FISCAL],Iif(pnTipIncasare=3,[CHITANTA],[])),; + id_jtva_coloana With getIdTva(pnIdTva,0) + Endif + *!* local lnProcentIncasat + *!* lnProcentIncasat = Round(pnIncasat / pnTotalFactura,2) + *!* Insert Into actactan(nr_nota,id_act,luna,an,cod,datairegt,dataireg,dataact,serie_act,nract,dataactt,suma,explicatia,scd,; + *!* scc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + *!* 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,gestin,id_gestout,gestout,id_valuta,nume_val) ; + *!* Select Recno() As nr_nota,a.id_act,a.luna,a.an,a.cod,a.datairegt,a.dataireg,a.dataact,pcSerieChit as serie_act,pnNrChit As nract,a.dataactt,; + *!* round(a.suma*lnProcentIncasat,gnPc) as suma,[INCASARE] As explicatia,'4428' as scd,'4427' as scc,a.pereched,a.nract as perechec,; + *!* a.explicatia4,a.explicatia5,a.datascadt,a.nnir,a.id_util,a.util,a.dataora,; + *!* 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,a.id_factd,a.id_factc,0 as id_partd,'' as partd,; + *!* 0 as id_partc,'' as partc,a.id_sucursala,a.sucursala,; + *!* IIF(pnTipIncasare=2,gnid_fdoc_bonfiscal,Iif(pnTipIncasare=3,gnid_fdoc_chitanta,0)) as id_fdoc,; + *!* IIF(pnTipIncasare=2,[BON FISCAL],Iif(pnTipIncasare=3,[CHITANTA],[])) as fdoc,a.id_gestin,; + *!* getIdTva(pnIdTva,0) As id_jtva_coloana,; + *!* a.gestin,a.id_gestout,a.gestout,a.id_valuta,a.nume_val From actactan a where a.scc = lcContTVA + + Release lnProcentIncasat + Endif + *!* modificare v 2.1.0 ^ + + *** inlocuiesc nota 5311 = 4111.client cu 5113.client = 4111.client + If m.pnTipIncasare = 2 And m.pnPOS = 1 + Select actactan + Locate For scd = '5311' + If Found() + Replace explicatia4 With partd && numele bancii + Replace scd With '5125', id_partd With id_partc, partd With partc + Endif + Endif + + Endif && pnTipIncasare>1 + Release poDateAct + *!* modificare 09.07 + *!* AddProperty(ocomanda,'delegat','') + *!* AddProperty(ocomanda,'eliberatde','') + *!* AddProperty(ocomanda,'bi','') + *!* AddProperty(ocomanda,'nrinmat_exp',ocomanda.nrinmat) + *!* ofrmdelegat = Createobject("frm_delegat_factura") + *!* ofrmdelegat.nidpartener = ocomanda.id_partener + *!* ofrmdelegat.cclient = ocomanda.nume + *!* ofrmdelegat.cnrinmat_exp = ocomanda.nrinmat_exp + *!* ofrmdelegat.Show(1) + *!* Release ofrmdelegat + + Private buton + buton=1 + + *!* modificare v 2.4.24 + IF pnAchitAsigurator = 1 + SELECT actactan + replace id_partd WITH ocomanda.id_part_asig,partd WITH ocomanda.asigurator FOR id_partd = ocomanda.id_partener + replace id_partc WITH ocomanda.id_part_asig,partc WITH ocomanda.asigurator for id_partc = ocomanda.id_partener + ENDIF + *!* modificare v 2.4.24 ^ + + UPDATE actactan SET PAYMENTCODE = '42', PAYMENTNAME = 'Plata in contul bancar' WHERE LEFT(scd, 3) = '512' + UPDATE actactan SET PAYMENTCODE = '10', PAYMENTNAME = 'Numerar' WHERE LEFT(scd, 3) = '531' + UPDATE actactan SET TAXCODE = NULL, TAXNAME = '' WHERE INLIST(LEFT(scd, 3), '531', '512') + + + Select actactan + * Sterg liniile cu 0 doar daca am inregistrari cu suma <> 0, altfel nu gasesc inregistrari 411 = xxx la salvarea facturii si da eroare + Locate For suma <> 0 + If Found() + Delete For suma = 0 + Endif + Replace All tva_incasare With lnTvaIncasare && modificare v 2.1.0 + Go Top + *!* modificare v 2.0.17 + *!* Do Form verificare With .T. + If !verificare_note_contabile('actactan', .T.,.T., .F.) + Do Form verificare With .T. + Endif + *!* modificare v 2.0.17 ^ + If buton=2 + *!* dezaloca_numar_bf() && oserii_numere.prg + *!* Do dezaloca_numar_fact In oserii_numere.prg + poGeneratorNumere.dezaloca_numere() + Use In actactan + Use In Select('crsBonDetaliat') + Use In Select('crsalteserv') && modificare v 2.0.28 + Return + Endif + + Select actactan + *!* modificare v 2.1.0 + *!* Replace All id_fact With -1 + Replace id_fact With -1 For id_fact <> -5 + *!* modificare v 2.1.0 ^ + *!* lnSucces = oscrie_in_fisiere() && modificare v 2.0.28 + Use In crsavansuri_complet + + *!* modificare v 2.0.28 + *!* If lnSucces>0 + *!* lcSql = [begin pack_devize.dev_completeaza_rul(?gcS,?pcSirIdLucrare,?pcSeparator); end;] + *!* lnSucces = goExecutor.oExecute(lcSql) + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Use In Select('crsBonDetaliat') + *!* Return + *!* Endif + *!* modificare v 2.0.28 ^ + Thisform.AlwaysOnTop = .F. + If Empty(pnDiscountN) + Store 0 To lnProcDiscN,pnDiscountN,pnDiscountTvaN + Endif + + If Empty(pnDiscountM) + Store 0 To lnProcDiscM,pnDiscountM,pnDiscountTvaM + Endif + *!* modificare v 2.0.28 + *!* Do listare_FACTURA With ocomanda.id_partener,'actactan',pcSirNrOrd,ocomanda.nrinmat,4,lnProcDiscM ,lnProcDiscN,-pnDiscountM,-pnDiscountN,pnDiscountTvaM,pnDiscountTvaN,'MANOPERA',0 In oproceduri_listari + *!* modificare v 2.0.35 : am adaugat pcSirIdOrdl + *!* modificare v 2.0.41 : am adaugat pcSirIdLucrare + If !factureaza_deviz(ocomanda.id_lucrare,pcSirNrOrd,ocomanda.nrinmat,[],1,-pnDiscountM,-pnDiscountN,lnProcDiscM,lnProcDiscN,IIF(pnAchitAsigurator = 1,ocomanda.id_ordl,Null),pcSirIdOrdl,pcSirIdLucrare) && in oproceduri_devize.prg + poGeneratorNumere.dezaloca_numere() + Else + Thisform.actualizeaza_grid1() + Endif + *!* modificare v 2.0.28 ^ + + Thisform.AlwaysOnTop = .T. + *!* Thisform.actualizeaza_grid1() && modificare v 2.0.28 + Select crscomenzi + If Reccount('crscomenzi')>=lnPozitieCursor + Go lnPozitieCursor + Endif + *!* modificare v 2.0.28 + *!* Else + *!* *!* dezaloca_numar_bf() && oserii_numere.prg + *!* *!* Do dezaloca_numar_fact In oserii_numere.prg + *!* poGeneratorNumere.dezaloca_numere() + *!* Endif + *!* modificare v 2.0.28 ^ + *!* modificare v 2.0.21 + Use In Select('crsBonDetaliat') + Use In Select('crsalteserv') && modificare v 2.0.28 + *!* modificare v 2.0.21 ^ + + ENDPROC + + PROCEDURE do_listare + lnOptiune = xmenu('Listare deviz;Listare raport comanda;\-;Relistare factura') + If Empty(m.lnOptiune) + Return + Endif + + Do Case + Case m.lnOptiune = 1 + If Reccount('crscomenzi')>0 + Private porul,pooper,pcschema1,pcselect1,poFirma + Store '' To porul,pooper,poFirma + + Select crscomenzi + lnRecno = Recno() + Use In (Select('crsdevize')) + Calculate Sum(ales) To lnAlese + If lnAlese = 0 + Select * From crscomenzi Where Recno() = lnRecno Into Cursor crsdevize + Else + Select * From crscomenzi With (Buffering = .T.) Where ales = 1 Into Cursor crsdevize + Endif + + Select crsdevize + Scan + Scatter Name ocomanda + listare_comanda_deviz(Thisform,ocomanda) + Endscan + Use In (Select('crsdevize')) + + Select crscomenzi + Go lnRecno + Thisform.grdcomenzi.SetFocus() + Else + amessagebox("Nu ati selectat nici o comanda!",0+48,"Atentie") + Thisform.grdcomenzi.SetFocus() + Endif + Case m.lnOptiune = 2 + If Reccount('crscomenzi') > 0 + Thisform.AlwaysOnTop = .F. + lnIdOrdl = crscomenzi.id_ordl + Do listare_precomanda With m.lnIdOrdl + Thisform.AlwaysOnTop = .T. + Endif + Case m.lnOptiune = 4 + This.do_relisteaza_factura() + Endcase + + ENDPROC + + PROCEDURE do_modifica + *!* 29.01.2016 + *!* marius.mutu + *!* se permite schimbarea si a masinii nu numai a clientului cu aceeasi masina + + If Reccount('crscomenzi')>0 And Thisform.cmd_modifica1.Enabled + Private pnButon,pnIdMasiniClient, pcNrordNou + LOCAL lcNrInmat + pcNrordNou = '' + Store 0 To pnButon,pnIdMasiniClient + Use In (SELECT('crsclienti')) + + Select crscomenzi + lnPozitieCursor=Recno() + Scatter Name loRec + + *!* se permite schimbarea si a masinii nu numai a clientului cu aceeasi masina + LOCAL lcNrInmat, lcNrInmatVechi, lcNrOrdNou, lcNrOrdVechi + lcNrInmat = Alltrim(loRec.nrinmat) + lcNrInmatVechi = Alltrim(loRec.nrinmat) + lcNrOrdVechi = ALLTRIM(lorec.nrord) + lnOptiune = xmenu('Alt client cu aceeasi \]+Alltrim(Str(loRec.id_masiniclient)) + lnSucces=goExecutor.oExecute(lcSql,'crsclienti') + If lnSucces<0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + If Reccount('crsclienti')=0 + amessagebox("Nu exista alti clienti cu acest numar de masina!",0+48,"Atentie") + Use In crsclienti + Return + Endif + ofrmmodificarecom=Createobject('frm_modificare_mc',loRec.nrord,loRec.nume) + ofrmmodificarecom.Show(1) + Release ofrmmodificarecom + Use In crsclienti + If pnButon=1 + lcSql=[begin pack_auto.modifica_client_comanda(']+gcS+[',]+; + Alltrim(Str(loRec.id_ordl))+[,]+Alltrim(Str(pnIdMasiniClient))+[,]+; + ALLTRIM(Str(gnIdUtil))+[); end;] + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces<0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + RETURN + ELSE + IF m.lcNrOrdNou <> m.lcNrOrdVechi + AMESSAGEBOX('Se va schimba si numarul comenzii din ' + m.lcNrOrdVechi + ' in ' + m.lcNrOrdNou + '!',0+48,_screen.Caption) + pcNrordNou = m.lcNrordNou + lcSql = [update nom_lucrari set nrord = ?pcNrordNou where id_lucrare = (select MIN(id_lucrare) from dev_ordl where id_ordl = ] + ALLTRIM(STR(loRec.id_ordl)) + [)] + llSucces=goExecutor.oExecuta(lcSql) + ENDIF + Endif + Thisform.actualizeaza_grid1() + Select crscomenzi + If Reccount('crscomenzi')>=lnPozitieCursor + Go lnPozitieCursor + Endif + Endif + Endif + + ENDPROC + + PROCEDURE do_relisteaza_factura + Thisform.AlwaysOnTop = .F. + Do alege_facturi_relistare WITH 'crsComenzi' In oproceduri_devize.prg + Thisform.grdcomenzi.SetFocus() + Thisform.AlwaysOnTop = .T. + + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.opt_facturat.Value=Thisform.opt_facturat.ndefault + Thisform.opt_validat.Value=Thisform.opt_validat.ndefault + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE do_sterge + *!* Private pnvalidat,pnid_ordl,pcnrord,pnrecno,pnfacturat + *!* Select crscomenzi + *!* pnvalidat=Validat + *!* pnid_ordl=id_ordl + *!* pnfacturat=facturat + *!* pcnrord=nrord + *!* pnrecno=Recno() + *!* If pnvalidat>0 AND pnfacturat=0 + *!* If amessagebox("Sunteti sigur ca doriti sa anulati validarea comenzii "+Alltrim(pcnrord)+" ?",4+32+256,"Confirmare")==6 + *!* Thisform.LockScreen=.T. + *!* Thisform.MousePointer= 11 + *!* lcSql=[begin pack_devize.dev_invalideaza_comanda('] + Alltrim(gcS) + [',] + Alltrim(Str(pnid_ordl)) + [,] + Alltrim(Str(gnIdutil)) + [); end;] + *!* lnSucces=goExecutor.oExecute(lcSql) + *!* Thisform.MousePointer= 0 + *!* Thisform.LockScreen=.F. + + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Thisform.actualizeaza_grid1() + *!* Go pnrecno + *!* Endif + *!* Else + *!* amessagebox("Aceasta comanda nu este validata!",0+48,"Atentie") + *!* Endif + + ENDPROC + + PROCEDURE do_storneaza_avans + *!* modificare v 2.0.38 : am adaugat tcSirIdOrdl + *!* modificare v 2.0.41 : am adaugat tcSirIdLucrare + Lparameters tnIncasat,tcSirNrOrd,tnDevizeMultiple,tcSirIdOrdl,tcSirIdLucrare + Local lnLungime + *!* If amessagebox("Se achita factura cu bon fiscal?",4+32+256,"Confirmare") = 7 + *!* Return .T. + *!* Endif + + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + + lnLungime=4 + Dimension taValori[lnLungime,3] + taValori[1,1]="poAct.v4111" + taValori[1,2]=Alltrim(ocomanda.nume) + taValori[1,3]=.T. + taValori[2,1]="poAct.nrord" + taValori[2,2]=Alltrim(ocomanda.nrord) + taValori[2,3]=.T. + taValori[3,1]="poAct.id_lucrare" + taValori[3,2]=Alltrim(Str(ocomanda.id_lucrare)) + taValori[3,3]=.T. + taValori[4,1]="poAct.id_vv4111" + taValori[4,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[4,3]=.T. + + *!* modificare v 2.0.28 + *!* If !Isnull(gnid_fdoc_factura) + If !Isnull(gnid_fdoc_fact) + *!* modificare v 2.0.28 ^ + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.id_fdoc" + *!* modificare v 2.0.28 + *!* taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_factura)) + taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_fact)) + *!* modificare v 2.0.28 ^ + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.fdoc" + taValori[lnLungime+2,2]='FACTURA' + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + Endif + + If !Isnull(gnid_casa_achit) And tnIncasat <> 0 + *!* modificare v 2.0.28 + If Used('v_nom_casa') + Use In v_nom_casa + Endif + lcSql=[select id_part,nume from ] + gcS + [.vnom_casa_lei where id_part = ?gnId_casa_achit] + lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + lcNumeCasa = [] + Else + Select v_nom_casa + lcNumeCasa = Alltrim(nume) + Use In v_nom_casa + Endif + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.v53110" + taValori[lnLungime+1,2]=Alltrim(lcNumeCasa) + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.id_vv53110" + taValori[lnLungime+2,2]=Alltrim(Str(gnid_casa_achit)) + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + *!* Select v_nom_casa + *!* Locate For id_part = gnid_casa_achit + *!* If Found() + *!* Dimension taValori[lnLungime+2,3] + *!* taValori[lnLungime+1,1]="poAct.v53110" + *!* taValori[lnLungime+1,2]=Alltrim(nume) + *!* taValori[lnLungime+1,3]=.T. + *!* taValori[lnLungime+2,1]="poAct.id_vv53110" + *!* taValori[lnLungime+2,2]=Alltrim(Str(id_part)) + *!* taValori[lnLungime+2,3]=.T. + *!* lnLungime=lnLungime+2 + *!* Endif + *!* modificare v 2.0.28 ^ + Endif + + Thisform.MousePointer=0 + Thisform.LockScreen=.F. + + Thisform.AlwaysOnTop=.F. + If gnAvans419=1 + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.v419" + taValori[lnLungime+1,2]=Alltrim(ocomanda.nume) + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.id_vv419" + taValori[lnLungime+2,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[lnLungime+2,3]=.T. + lans(31013,.F.,.T.,@taValori) + Else + lans(31012,.F.,.T.,@taValori) && id_set,daca se executa procedura de mai multe ori, + && daca verifica analiticele,array de valori + Endif + Thisform.AlwaysOnTop=.T. + + If buton=2 + poGeneratorNumere.dezaloca_numere() + Return .F. + Endif + + Private poDateFactSt,poDateDispPlata + Select actactan + *!* modificare v 2.1.0 + local lnTvaIncasare + calculate max(tva_incasare) to lnTvaIncasare + *!* modificare v 2.1.0 ^ + Go Top + Scatter Name poDateAct + Locate For nr_nota = 3 + Scatter Name poDateDispPlata + Delete All + Insert Into actactan(nr_nota,luna,an,cod,datairegt,dataireg,dataact,serie_act,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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) ; + Select Recno() As nr_nota,poDateAct.luna As luna,poDateAct.an As an,poDateAct.cod As cod,poDateAct.datairegt As datairegt,; + poDateAct.dataireg As dataireg,poDateAct.dataact As dataact,poDateAct.serie_act As serie_act,poDateAct.nract As nract,poDateAct.dataactt As dataactt,poDateAct.dataact As datascad,; + (-1) * avans As suma,[STORNARE AVANS] As explicatia,scd,ascd,scc,ascc,poDateAct.pereched As pereched,poDateAct.perechec As perechec,; + NVL(poDateAct.explicatia4,[]) As explicatia4,Alltrim(Nvl(poDateAct.explicatia5,[])) As explicatia5,poDateAct.dataactt As datascadt,poDateAct.nnir As nnir,; + poDateAct.id_util As id_util,poDateAct.util As util,poDateAct.dataora As dataora,poDateAct.id_responsabil As id_responsabil,; + poDateAct.nresp As nresp,poDateAct.id_venchelt As id_venchelt,poDateAct.dst_chlt As dst_chlt,id_lucrare,nrord,poDateAct.id_ctr As id_ctr,; + poDateAct.contract As contract,id_sectie,sectie,proc_tva,poDateAct.id_set As id_set,poDateAct.id_fact As id_fact,; + poDateAct.id_factd As id_factd,poDateAct.id_factc As id_factc,id_partd,partd,id_partc,partc,; + poDateAct.id_sucursala As id_sucursala,poDateAct.sucursala As sucursala,poDateAct.id_fdoc As id_fdoc,poDateAct.fdoc As fdoc,; + poDateAct.id_gestin As id_gestin,id_jtva_coloana,; + GetTaxCodeIdPart(m.gnAn, m.gnLuna, poDateAct.dataact, crsavansuri_complet.id_jtva_coloana, crsavansuri_complet.id_partd), ; + poDateAct.gestin As gestin,poDateAct.id_gestout As id_gestout,; + poDateAct.gestout As gestout,poDateAct.id_valuta As id_valuta,poDateAct.nume_val As nume_val ; + From crsavansuri_complet + + Insert Into actactan(nr_nota,luna,an,cod,datairegt,dataireg,dataact,nract,dataactt,datascad,suma,explicatia,scd,ascd,; + scc,ascc,pereched,perechec,explicatia4,explicatia5,datascadt,nnir,id_util,util,dataora,; + 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,gestin,id_gestout,gestout,id_valuta,nume_val) ; + SELECT Recno()+Reccount(),poDateDispPlata.luna,poDateDispPlata.an,poDateDispPlata.cod,poDateDispPlata.datairegt,; + poDateDispPlata.dataireg,poDateDispPlata.dataact,poDateDispPlata.nract,poDateDispPlata.dataactt,; + {},(-1)*incasat,[DISPOZITIE DE PLATA],poDateDispPlata.scd,ascc,poDateDispPlata.scc,ascd,; + poDateDispPlata.pereched,poDateDispPlata.perechec,Nvl(poDateDispPlata.explicatia4,[]),; + ALLTRIM(Nvl(poDateDispPlata.explicatia5,[])),poDateDispPlata.datascadt,poDateDispPlata.nnir,; + poDateDispPlata.id_util,poDateDispPlata.util,poDateDispPlata.dataora,; + poDateDispPlata.id_responsabil,poDateDispPlata.nresp,0,[],; + id_lucrare,nrord,0,[],0,[],0.00,poDateDispPlata.id_set,poDateDispPlata.id_fact,poDateDispPlata.id_factd,poDateDispPlata.id_factc,; + poDateDispPlata.id_partd,poDateDispPlata.partd,poDateDispPlata.id_partc,poDateDispPlata.partc,poDateDispPlata.id_sucursala,poDateDispPlata.sucursala,; + gnId_Fdoc_Dispplata,[DISPOZITIE DE PLATA],; + poDateDispPlata.id_gestin,00000000000,poDateDispPlata.gestin,poDateDispPlata.id_gestout,; + poDateDispPlata.gestout,poDateDispPlata.id_valuta,poDateDispPlata.nume_val From crsavansuri_complet Where incasat <> 0 + *!* Select actactan + *!* Scan + *!* Scatter Name poactan + *!* If Type('poActan.cont') = 'U' + *!* x = AddProperty(poactan,'cont',poactan.scc) + *!* Endif + *!* poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + *!* Select actactan + *!* Replace ascc With poactan.ascc + + *!* Release poactan + *!* Select actactan + *!* Scatter Name poactan + *!* If Type('poActan.cont') = 'U' + *!* x = AddProperty(poactan,'cont',poactan.scd) + *!* Endif + *!* poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + *!* Select actactan + *!* Replace ascd With poactan.ascd + *!* Endscan + + Select actactan + replace all tva_incasare with lnTvaIncasare && modificare v 2.1.0 + Go Top + Private buton + buton=1 + If !verificare_note_contabile('actactan', .T.,.T., .F.) + Do Form verificare With .T. + Endif + If buton=2 + Use In actactan + poGeneratorNumere.dezaloca_numere() + Return .F. + Endif + + *!* modificare v 2.0.28 + *!* Select actactan + *!* lnSucces = oscrie_in_fisiere() + + *!* If lnSucces>0 + *!* poGeneratorNumere.ResetAll() + Thisform.AlwaysOnTop = .F. + *!* Do listare_avans With ocomanda.id_partener,'actactan',tcSirNrOrd,ocomanda.nrinmat,tnDevizeMultiple + *!* modificare v 2.0.35 + *!* If !factureaza_deviz(ocomanda.id_lucrare,tcSirNrOrd,ocomanda.nrinmat,[],tnDevizeMultiple) + *!* modificare v 2.0.41 : am adaugat tcSirIdLucrare + If !factureaza_deviz(ocomanda.id_lucrare,tcSirNrOrd,ocomanda.nrinmat,[],tnDevizeMultiple,,,,,,tcSirIdOrdl,tcSirIdLucrare) + *!* modificare v 2.0.35 ^ + poGeneratorNumere.dezaloca_numere() + Return .F. + Else + poGeneratorNumere.ResetAll() + Endif + Thisform.AlwaysOnTop = .T. + *!* Else + *!* poGeneratorNumere.dezaloca_numere() + *!* Return .F. + *!* Endif + *!* modificare v 2.0.28 ^ + Return .T. + ENDPROC + + PROCEDURE do_verifica_com + ENDPROC + + PROCEDURE do_verifica_part + Lparameters tcSirIdOrdl,toComanda + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + + lcSql=[select a.nrord,to_char(a.datai,'DD/MM/YYYY') as datai ] + ; + [from ] + gcS + [.auto_normare_comenzi a ] + ; + [left join ] + gcS + [.dev_masiniclienti b on a.id_masiniclient = b.id_masiniclient ] + ; + [where a.id_masiniclient = ] + Alltrim(Str(toComanda.id_masiniclient)) + [ ] + ; + [and a.id_ordl not in (] + tcSirIdOrdl + [) ] + ; + [and a.facturat = 0 ] + ; + [and ] + gcCondLuna + [ ] + ; + [and b.id_partener = ] + Alltrim(Str(toComanda.id_partener)) + [ ] + ; + [order by a.datai] + lnSucces=goExecutor.oExecute(lcSql,'crsverificari') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + Thisform.MousePointer=0 + Thisform.LockScreen=.F. + + pniesire=1 + ofrmverificari = Createobject("frm_rezultate_verificari_part") + ofrmverificari.lb_client.Caption = "Client: " + Alltrim(Nvl(toComanda.nume,'')) + ofrmverificari.Show(1) + Release ofrmverificari + Use In crsverificari + Return pniesire + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.grdcomenzi.SetAll("DynamicForeColor","IIF(facturat=1,RGB(128,128,128),RGB(0,0,0))","Column") + Thisform.grdcomenzi.cales.ReadOnly = .F. + + ENDPROC + + PROCEDURE verifica_stornare + ENDPROC + + PROCEDURE grdcomenzi.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + Select crscomenzi + DoDefault() + *!* modificare 07.06 + *!* Do Case + *!* Case Validat=0 + *!* Thisform.cmd_factavans.Enabled=.T. + *!* Thisform.cmd_factfinal.Enabled=.F. + *!* *!* Thisform.cmd_vizualizare.Enabled=.F. + *!* Case Facturat = 1 + *!* Thisform.cmd_factavans.Enabled=.F. + *!* Thisform.cmd_factfinal.Enabled=.F. + *!* Otherwise + *!* Thisform.cmd_factavans.Enabled=.T. + *!* Thisform.cmd_factfinal.Enabled=.T. + *!* Thisform.cmd_vizualizare.Enabled=.T. + *!* Endcase + *!* modificare 07.06 ^ + Thisform.cmd_modifica1.Enabled=Iif(Empty(nrfact),.T.,.F.) + Endif + + ENDPROC + + PROCEDURE opt_validat.Click + If This.Value=3 + Thisform.opt_facturat.Value=3 + Thisform.opt_facturat.Enabled=.F. + Else + Thisform.opt_facturat.Enabled=.T. + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_factact 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="grdfacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cExplicatia.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cExplicatia.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDataFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDataFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cSuma.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cSuma.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cScd.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cScd.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cScc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cScc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_total" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grdfacturi + DoCreate = .T. + Height = 382 + Name = "frm_factact" + Width = 793 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Height = 29 + _shape2.Left = 756 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = -1 + _shape2.Width = 38 + _shape2.ZOrderSet = 8 + Lb_titlu_alb_b121.Caption = "VIZUALIZARE FACTURI EMISE PENTRU COMANDA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 10 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Left = 762 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 8 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 11 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'Clb_total' AS clb_tx_simplu WITH ; + Left = 490, ; + Name = "Clb_total", ; + TabStop = .F., ; + Top = 347, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.Format = "R", ; + TEXT_SIMPLU1.InputMask = (get_mask(12,gnPc)), ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "Total", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'grdfacturi' AS _grdrow WITH ; + ColumnCount = 9, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 300, ; + Left = 17, ; + Name = "grdfacturi", ; + Panel = 1, ; + RecordSource = "crsfacturi", ; + TabIndex = 7, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 763, ; + ZOrderSet = 2, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "TTOD(datai)", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cDatai", ; + Column1.Width = 65, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "nume", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cNume", ; + Column2.Width = 160, ; + Column3.ColumnOrder = 6, ; + Column3.ControlSource = "explicatia", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cExplicatia", ; + Column3.Width = 116, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "nract", ; + Column4.FontName = "Arial Narrow", ; + Column4.InputMask = (get_mask(14,0)), ; + Column4.Name = "cNrFact", ; + Column5.ColumnOrder = 4, ; + Column5.ControlSource = "TTOD(dataact)", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cDataFact", ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "suma", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPc)), ; + Column6.Name = "cSuma", ; + Column6.Width = 113, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "scd", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cScd", ; + Column7.Width = 56, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "scc", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cScc", ; + Column8.Width = 62, ; + Column9.ColumnOrder = 2, ; + Column9.ControlSource = "serie_act", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "cSerie_act", ; + Column9.Width = 63 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdfacturi.cDataFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cDataFact.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 'grdfacturi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cDatai.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 'grdfacturi.cExplicatia.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cExplicatia.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 'grdfacturi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNrFact.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 'grdfacturi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNume.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 'grdfacturi.cScc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont creditor", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cScc.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 'grdfacturi.cScd.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont debitor", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cScd.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 'grdfacturi.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.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 'grdfacturi.cSuma.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cSuma.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" /> + + PROCEDURE Init + DoDefault() + Select crsfacturi + Calculate Sum(suma) For scd='4111' To lnSuma + Calculate Sum(suma) For scd='667' To lnSumaDisc + Go Top + Thisform.clb_total.text_simplu1.Value=lnSuma-lnSumaDisc + ENDPROC + + PROCEDURE grdfacturi.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + DoDefault() + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_incasare_avans 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="Clb_totalftva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totalctva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LB_SIMPLU1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_casa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_incasat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrchit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_explicatie_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_explicatie_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_serie_chit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkPOS" UniqueID="" Timestamp="" /> + + * + *m: do_aloca_nr_bon + *m: do_calculeaza + *p: cseriechit + *p: nnrbon + *p: nnrchit + *p: npos && Incasare bon fiscal numerar = 0; CARD POS = 1 + *p: nproc_tva + *p: nrezultatserii + * + + * + cseriechit = + DoCreate = .T. + Height = 312 + Name = "frm_incasare_avans" + nnrbon = 0 + nnrchit = 0 + npos = 0 + nproc_tva = 0 + nrezultatserii = 0 + Width = 530 + _memberdata = + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 551 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 489 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 64 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "FACTUR AVANS" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Left = 497 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 8 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + BackColor = 255,255,255, ; + Height = 110, ; + Left = 12, ; + Name = "_shape3", ; + Top = 184, ; + Width = 324, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + caction = do_modifica, ; + Height = 27, ; + Left = 299, ; + Name = "But_modifica1", ; + TabIndex = 4, ; + Top = 197, ; + Width = 30, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 467, ; + Name = "But_renunt1", ; + TabIndex = 10, ; + Top = 1, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_casa' AS cb_tx_simplu WITH ; + Left = 30, ; + Name = "Cb_casa", ; + TabIndex = 7, ; + Top = 254, ; + ZOrderSet = 10, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_nom_casa.nume,id_part", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Casa", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cbo_explicatie_tva' AS combobox WITH ; + BorderColor = 128,128,128, ; + BorderStyle = 1, ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "200,10", ; + ControlSource = "", ; + FontSize = 10, ; + Height = 20, ; + InputMask = "", ; + Left = 309, ; + Name = "cbo_explicatie_tva", ; + RowSource = "jtva_coloane.denumire,cota_tva", ; + RowSourceType = 6, ; + SpecialEffect = 1, ; + Style = 2, ; + TabIndex = 14, ; + TabStop = .F., ; + Top = 67, ; + Visible = .T., ; + Width = 213 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'chkPOS' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "POS", ; + ControlSource = "thisform.nPOS", ; + Left = 276, ; + Name = "chkPOS", ; + ToolTipText = "Incasare bon fiscal prin CARD la POS", ; + Top = 233, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_nrchit' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 30, ; + Name = "Clb_nrchit", ; + TabIndex = 6, ; + Top = 226, ; + Width = 229, ; + ZOrderSet = 15, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.ControlSource = "Thisform.nnrchit", ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.InputMask = "999 999 999 999 999", ; + TEXT_SIMPLU1.Left = 101, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Value = 0, ; + TEXT_SIMPLU1.Width = 123, ; + LB_SIMPLU1.Caption = "Nr. chitan", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_serie_chit' AS clb_serie_act WITH ; + cvariabila = cseriechit, ; + cvariabiladoc = nnrchit, ; + Height = 29, ; + Left = 30, ; + Name = "Clb_serie_chit", ; + nid_tipdoc = 16, ; + pcobj = Thisform, ; + TabIndex = 5, ; + Top = 198, ; + Visible = .F., ; + Width = 290, ; + Text_simplu1.ControlSource = "Thisform.cseriechit", ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.TabIndex = 2, ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 184, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 101, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.TabIndex = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 184, ; + _lbbase1.Caption = "Serie chitan", ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.TabIndex = 3 + *< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalctva' AS clb_tx_simplu WITH ; + Left = 11, ; + Name = "Clb_totalctva", ; + TabIndex = 2, ; + Top = 105, ; + ZOrderSet = 7, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.InputMask = (get_mask(12,gnPc)), ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.TerminateRead = .T., ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "Total cu TVA", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalftva' AS clb_tx_simplu WITH ; + Left = 11, ; + Name = "Clb_totalftva", ; + TabIndex = 1, ; + Top = 49, ; + ZOrderSet = 5, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.InputMask = (get_mask(12,gnPc)), ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "Total fr TVA", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tva' AS clb_tx_simplu WITH ; + Left = 11, ; + Name = "Clb_tva", ; + TabIndex = 9, ; + TabStop = .F., ; + Top = 77, ; + ZOrderSet = 6, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.InputMask = (get_mask(12,gnPc)), ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "Total TVA", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'lb_explicatie_tva' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Explicaie TVA", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 310, ; + Name = "lb_explicatie_tva", ; + TabIndex = 13, ; + Top = 50, ; + Visible = .T., ; + Width = 88 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'LB_SIMPLU1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Detalii ncasare", ; + Left = 20, ; + Name = "LB_SIMPLU1", ; + TabIndex = 12, ; + Top = 177, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'opt_incasat' AS _optiongrup WITH ; + AutoSize = .T., ; + ButtonCount = 3, ; + Height = 27, ; + Left = 34, ; + Name = "opt_incasat", ; + TabIndex = 3, ; + Top = 138, ; + Width = 291, ; + ZOrderSet = 13, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Fr ncasare", ; + Option1.FontCharSet = 238, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Bon fiscal", ; + Option2.Left = 112, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Chitan", ; + Option3.FontCharSet = 238, ; + Option3.Height = 17, ; + Option3.Left = 222, ; + Option3.Name = "Option3", ; + Option3.Top = 5, ; + Option3.Width = 64 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE do_aloca_nr_bon + Lparameters tcActiune + Local lnNumarBon + Store -1 To lnNumarBon + If Empty(Thisform.nnrbon) Or Upper(tcActiune)='UPDATE' + *!* lnNumarBon = aloca_numar_bf() && in oserii_numere.prg + poGeneratorNumere.creeaza_cursor_serii(3) + lnNumarBon = poGeneratorNumere.aloca_numar(3) + If lnNumarBon <> -1 + Thisform.clb_nrchit.text_simplu1.Value = lnNumarBon + Thisform.nnrbon = lnNumarBon + Thisform.nnrchit = Thisform.nnrbon + Endif + Else + Thisform.nnrchit = Thisform.nnrbon + Endif + Thisform.clb_nrchit.text_simplu1.Refresh() && modificare v 2.0.41 + + ENDPROC + + PROCEDURE do_calculeaza + Lparameters tcnume + lnTotftva=Thisform.clb_totalftva.texT_SIMPLU1.Value + lnTottva=Thisform.clb_tva.texT_SIMPLU1.Value + lnTotctva=Thisform.clb_totalctva.texT_SIMPLU1.Value + Do Case + Case tcnume='TOTAL' + lnTottva=Round(lnTotftva*(pnProcTva-1),gnPC) + lnTotctva=lnTotftva+lnTottva + pnPretCuTva = 0 && modificare v 2.0.41 + Case tcnume='TVA' + lnTotftva=Round(lnTottva/(pnProcTva-1),gnPC) + lnTotctva=lnTotftva+lnTottva + pnPretCuTva = 0 && modificare v 2.0.41 + Case tcnume='TOTALCTVA' + lnTottva=Round(Round(lnTotctva*(pnProcTva-1),gnPC)/pnProcTva,gnPC) + lnTotftva=lnTotctva-lnTottva + pnPretCuTva = 1 && modificare v 2.0.41 + Endcase + Thisform.clb_totalftva.texT_SIMPLU1.Value=lnTotftva + Thisform.clb_tva.texT_SIMPLU1.Value=lnTottva + Thisform.clb_totalctva.texT_SIMPLU1.Value=lnTotctva + + ENDPROC + + PROCEDURE do_modifica + Private pniesire + pniesire=0 + DO viz_config_serii_complet WITH 3 IN oserii_numere.prg + If pniesire=1 + *!* dezaloca_numar_bf() + poGeneratorNumere.dezaloca_numar(3) + Thisform.do_aloca_nr_bon([UPDATE]) + Endif + ENDPROC + + PROCEDURE inainte_de_do_renunt + If Type('poGeneratorNumere') = 'O' And This.opt_incasat.Value = 3 And Thisform.nRezultatSerii <> 0 + poGeneratorNumere.dezaloca_numar(16) + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn + Store .T. To llReturn + pnTotalfTva=Thisform.clb_totalftva.text_simplu1.Value + pnTotalTva=Thisform.clb_tva.text_simplu1.Value + pnTotalcTva=Thisform.clb_totalctva.text_simplu1.Value + + pnPOS = thisform.nPOS && incasare bon fiscal prin CARD POS + *!* modificare v 2.0.35 + Do Case + Case pnTotalfTva = 0 + amessagebox("Totalul fara TVA nu poate fi 0!",48,"Atentie") + Thisform.clb_totalftva.text_simplu1.SetFocus() + llReturn = .F. + Case pnTotalcTva = 0 + amessagebox("Totalul cu TVA nu poate fi 0!",48,"Atentie") + Thisform.clb_totalctva.text_simplu1.SetFocus() + llReturn = .F. + Otherwise + *!* modificare v 2.0.35 ^ + If Thisform.opt_incasat.Value>1 + pnIdCasa=v_nom_casa.id_part + pcCasa=Thisform.cb_casa._CBBASE1.Value + pnTipIncasare=Thisform.opt_incasat.Value + If pnTipIncasare=3 + If !Empty(Thisform.nnrbon) + poGeneratorNumere.dezaloca_numar(3) + Endif + poGeneratorNumere.verifica_numar(16,Thisform.nnrchit) + Endif + *!* modificare v 2.0.28 + pcSerieChit = Thisform.cseriechit + pnNrChit=Thisform.nnrchit && Thisform.clb_nrchit.text_simplu1.Value + *!* modificare v 2.0.28 ^ + lcDocument=Iif(pnTipIncasare=2,[bonului],[chitantei]) + If pnNrChit<=0 + amessagebox("Numarul "+lcDocument+" trebuie sa fie diferit de 0!",0+48,"Atentie") + Thisform.clb_nrchit.SetFocus() + llReturn=.F. + Endif + If pnIdCasa=0 Or Empty(pcCasa) + amessagebox("Nu ati ales casa!",0+48,"Atentie") + Thisform.cb_casa.SetFocus() + llReturn=.F. + Endif + Endif + *!* modificare v 2.0.35 + Endcase + *!* modificare v 2.0.35 ^ + Return llReturn + ENDPROC + + PROCEDURE Init + *!* modificare v 2.0.41 + Lparameters tnTvaIncasare,tnTip + *!* tnTip : + *!* 1 - fara TVA + *!* 2 - cu TVA + *!* 0 - ambele + Do Case + Case tnTip = 1 + Thisform.clb_totalctva.text_simplu1.ReadOnly = .T. + Thisform.clb_totalftva.text_simplu1.SetFocus() + Case tnTip = 2 + Thisform.clb_totalftva.text_simplu1.ReadOnly = .T. + Thisform.clb_totalctva.text_simplu1.SetFocus() + Otherwise + *!* le las asa + Endcase + *!* modificare v 2.0.41 ^ + DoDefault() + Thisform.Height = Thisform.opt_incasat.Top + Thisform.opt_incasat.Height + 10 && modificare v 2.0.41 + Thisform.cb_casa.Enabled=.F. + Thisform.clb_nrchit.text_simplu1.ReadOnly=.T. + Thisform.AutoCenter=.T. + Thisform.Refresh + Select v_nom_casa + Locate For id_part=gnid_casa_achit + If Found() + Thisform.cb_casa._CBBASE1.Value=Alltrim(nume) + Endif + Select jtva_coloane + *!* modificare v 2.1.0 + *!* Set Filter To Inlist(cota_tva,0,gnCotaTVAStandard*100-100) && modificare v 2.0.22 + If empty(tnTvaIncasare) + Set Filter To Inlist(cota_tva,0,gnCotaTVAStandard*100-100) and isnull(id_jtva_ex) + Else + Set Filter To Inlist(cota_tva,0,gnCotaTVAStandard*100-100) and isnull(id_jtva_neex) + Endif + *!* modificare v 2.1.0 ^ + Locate For id_jtva_coloana = pnIdJtvaColoana + If !Found() + Go Top + pnIdJtvaColoana = id_jtva_coloana + Endif + pnIdTva = id_tva + pnProcTva = (cota_tva+100)/100 + This.cbo_explicatie_tva.Value = Alltrim(denumire) + + ENDPROC + + PROCEDURE cbo_explicatie_tva.InteractiveChange + Select jtva_coloane + pnIdJtvaColoana = id_jtva_coloana + pnIdTva = id_tva + pnProcTva = (cota_tva+100)/100 + Thisform.do_calculeaza('TOTAL') + ENDPROC + + PROCEDURE chkPOS.Valid + IF this.Value = 0 + thisform.cb_casa._lbbase1.Caption = 'Casa' + ELSE + thisform.cb_casa._lbbase1.Caption = 'Banca POS' + ENDIF + thisform.cb_casa._lbbase1.Refresh() + ENDPROC + + PROCEDURE Clb_nrchit.TEXT_SIMPLU1.InteractiveChange + If Thisform.opt_incasat.Value = 3 + Thisform.clb_serie_chit.genereazaNumar() + Endif + ENDPROC + + PROCEDURE Clb_serie_chit._cbbase1.InteractiveChange + This.Parent.genereazaNumar() + ENDPROC + + PROCEDURE Clb_totalctva.TEXT_SIMPLU1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_totalctva.TEXT_SIMPLU1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('TOTALCTVA') + Endif + + ENDPROC + + PROCEDURE Clb_totalftva.TEXT_SIMPLU1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_totalftva.TEXT_SIMPLU1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('TOTAL') + Endif + ENDPROC + + PROCEDURE Clb_tva.TEXT_SIMPLU1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_tva.TEXT_SIMPLU1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('TVA') + Endif + + ENDPROC + + PROCEDURE opt_incasat.Click + Do Case + Case This.Value=1 && Fara incasare + Thisform.Height = This.Top + This.Height + 10 && modificare v 2.0.41 + Thisform.cb_casa.Enabled=.F. + Thisform.lactiv3=.F. + Thisform.but_modifica1.Visible=.F. + Thisform.clb_nrchit.text_simplu1.ReadOnly=.T. + Thisform.clb_nrchit.text_simplu1.Value=0 + Thisform.clb_serie_chit.Visible = .F. && modificare v 2.0.28 + poGeneratorNumere.dezaloca_numar(16) && modificare v 2.0.28 + thisform.chkPOS.Value = 0 && modificare v 2.1.14 + thisform.chkPOS.Visible = .F. && modificare v 2.1.14 + Case This.Value=2 && Bon fiscal + Thisform.Height = Thisform._shape3.Top + Thisform._shape3.Height + 10 && modificare v 2.0.41 + Thisform.cb_casa.Enabled=.T. + Thisform.clb_nrchit.lB_SIMPLU1.Caption=[Nr. bon] + Thisform.lactiv3=.T. + Thisform.but_modifica1.Visible=.T. + Thisform.clb_nrchit.text_simplu1.ReadOnly=.T. + Thisform.do_aloca_nr_bon([CLICK]) + Thisform.clb_serie_chit.Visible = .F. && modificare v 2.0.28 + poGeneratorNumere.dezaloca_numar(16) && modificare v 2.0.28 + thisform.chkPOS.Value = 0 && modificare v 2.1.14 + thisform.chkPOS.Visible = .T. && modificare v 2.1.14 + Case This.Value=3 && Chitanta + Thisform.Height = Thisform._shape3.Top + Thisform._shape3.Height + 10 && modificare v 2.0.41 + Thisform.cb_casa.Enabled=.T. + Thisform.clb_nrchit.lB_SIMPLU1.Caption=[Nr. chitan] + Thisform.lactiv3=.F. + Thisform.but_modifica1.Visible=.F. + Thisform.clb_nrchit.text_simplu1.ReadOnly=.F. + Thisform.clb_nrchit.text_simplu1.Value=0 + thisform.chkPOS.Value = 0 && modificare v 2.1.14 + thisform.chkPOS.Visible = .F. && modificare v 2.1.14 + *!* modificare v 2.0.28 + Thisform.clb_serie_chit.Visible = .T. + If Thisform.nRezultatSerii = 0 + Thisform.nRezultatSerii = poGeneratorNumere.creeaza_cursor_serii(16) + Thisform.clb_serie_chit.do_initializeaza(Thisform.nRezultatSerii) + If !Empty(Nvl(Thisform.cseriechit,[])) + If Thisform.nRezultatSerii <> 1 + Select (Thisform.clb_serie_chit._cbbase1.RowSource) + Locate For Alltrim(serie) = Alltrim(Thisform.cseriechit) + If !Found() + Go Top + Endif + Thisform.clb_serie_chit._cbbase1.Value = Alltrim(serie) + Endif + Endif + Endif + Thisform.clb_serie_chit.genereazaNumar() + *!* modificare v 2.0.28 ^ + Endcase + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_incasare_finala 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_totalfact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_manopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tvam" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_procdiscm" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_materiale" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tvan" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_procdiscn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_avans" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totaldeviz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_discountm" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_discountn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tvadiscm" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tvadiscn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_explicatie_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LB_SIMPLU1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_casa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrchit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_incasat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totaldisc" 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="Lb_simplu7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu15" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu18" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu17" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_achit_asigurator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_incasat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_explicatie_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cCantitate.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cCantitate.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cPretFTva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cPretFTva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cValoareftva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_altele.cValoareftva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="chkPOS" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_serie_chit" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_tipincasare + *m: calculeaza_total + *m: do_aloca_nr_bon + *m: do_calculeaza + *m: do_modifica_alteserv + *m: do_recalculeaza_total + *m: verifica_tipincasare + *p: cseriechit + *p: navans + *p: navansfaratva + *p: nbondifftva + *p: nbondiftva + *p: nincasat + *p: nnrbon + *p: nnrchit + *p: npos && Incasare bon fiscal numerar = 0; CARD POS = 1 + *p: nrezultatserii + *p: ntvamateriale + * + + * + BorderStyle = 1 + cseriechit = + DoCreate = .T. + FontCharSet = 238 + Height = 577 + lactiv4 = .T. + Name = "frm_incasare_finala" + navans = 0 + navansfaratva = 0 + nbondifftva = 0 + nbondiftva = 0 + nincasat = 0 + nnrbon = 0 + nnrchit = 0 + npos = 0 + nrezultatserii = 0 + ntvamateriale = 0 + Width = 775 + _memberdata = + + + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 3 + _shape2.Height = 29 + _shape2.Left = 711 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 64 + _shape2.ZOrderSet = 4 + Lb_titlu_alb_b121.Caption = "FACTURA FINALA" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 24 + Lb_titlu_alb_b121.ZOrderSet = 5 + BUT_TERMIN1.Left = 744 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 10 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + BackColor = 255,255,255, ; + Height = 132, ; + Left = 389, ; + Name = "_shape3", ; + Top = 269, ; + Visible = .F., ; + Width = 337, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackColor = 255,255,255, ; + Height = 360, ; + Left = 22, ; + Name = "_shape4", ; + Top = 48, ; + Width = 356, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 668, ; + Name = "But_modifica1", ; + TabIndex = 13, ; + Top = 281, ; + ZOrderSet = 44 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 12, ; + Left = 694, ; + Name = "But_nou1", ; + TabIndex = 5, ; + Top = 402, ; + ZOrderSet = 47 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 715, ; + Name = "But_renunt1", ; + TabIndex = 12, ; + Top = 1, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 12, ; + Left = 726, ; + Name = "But_sterge1", ; + TabIndex = 45, ; + Top = 402, ; + Visible = .T., ; + ZOrderSet = 48 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_casa' AS cb_tx_simplu WITH ; + Left = 399, ; + Name = "Cb_casa", ; + TabIndex = 10, ; + Top = 365, ; + Visible = .F., ; + ZOrderSet = 25, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_nom_casa.nume,id_part", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Casa", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'cbo_explicatie_tva' AS combobox WITH ; + BorderColor = 128,128,128, ; + BorderStyle = 1, ; + ColumnCount = 2, ; + ColumnLines = .F., ; + ColumnWidths = "200,10", ; + ControlSource = "", ; + FontSize = 10, ; + Height = 20, ; + InputMask = "", ; + Left = 144, ; + Name = "cbo_explicatie_tva", ; + RowSource = "jtva_coloane.denumire,cota_tva", ; + RowSourceType = 6, ; + SpecialEffect = 1, ; + Style = 2, ; + TabIndex = 14, ; + TabStop = .F., ; + Top = 66, ; + Visible = .T., ; + Width = 231, ; + ZOrderSet = 45 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'chkPOS' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "POS", ; + ControlSource = "thisform.nPOS", ; + Left = 647, ; + Name = "chkPOS", ; + ToolTipText = "Incasare bon fiscal prin CARD la POS", ; + Top = 342, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_achit_asigurator' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Se achita de catre asigurator", ; + Left = 397, ; + Name = "ck_achit_asigurator", ; + TabIndex = 46, ; + Top = 408, ; + ZOrderSet = 50 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_avans' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 391, ; + Name = "Clb_avans", ; + TabIndex = 15, ; + TabStop = .F., ; + Top = 149, ; + Width = 337, ; + ZOrderSet = 14, ; + Text_simplu1.Alignment = 1, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 205, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Value = 0, ; + Text_simplu1.Width = 126, ; + Lb_simplu1.Caption = "Avans cu TVA facturat", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_discountm' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_discountm", ; + TabIndex = 2, ; + Top = 178, ; + Width = 302, ; + ZOrderSet = 17, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 112, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Discount", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_discountn' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_discountn", ; + TabIndex = 4, ; + Top = 337, ; + Width = 302, ; + ZOrderSet = 18, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 112, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Discount", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_incasat' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 399, ; + Name = "Clb_incasat", ; + TabIndex = 9, ; + Top = 337, ; + Visible = .F., ; + Width = 244, ; + ZOrderSet = 27, ; + Text_simplu1.ControlSource = "thisform.nincasat", ; + Text_simplu1.Format = "RK", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 138, ; + Lb_simplu1.Caption = "ncasat", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_manopera' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_manopera", ; + TabIndex = 18, ; + TabStop = .F., ; + Top = 94, ; + Width = 302, ; + ZOrderSet = 7, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.InputMask = (get_mask(12,gnPc)), ; + TEXT_SIMPLU1.Left = 112, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "Manopera", ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_materiale' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_materiale", ; + TabIndex = 19, ; + TabStop = .F., ; + Top = 253, ; + Width = 302, ; + ZOrderSet = 11, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 112, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Materiale", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nrchit' AS clb_tx_simplu WITH ; + Left = 399, ; + Name = "Clb_nrchit", ; + TabIndex = 8, ; + Top = 309, ; + Visible = .F., ; + ZOrderSet = 26, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.ControlSource = "Thisform.nnrchit", ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.InputMask = "999 999 999 999 999", ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "Nr. chitanta", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_procdiscm' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_procdiscm", ; + TabIndex = 1, ; + Top = 150, ; + Width = 302, ; + ZOrderSet = 9, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.InputMask = "999.99", ; + TEXT_SIMPLU1.Left = 112, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "Procent discount", ; + LB_SIMPLU1.Left = 4, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_procdiscn' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_procdiscn", ; + TabIndex = 3, ; + Top = 309, ; + Width = 302, ; + ZOrderSet = 13, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.InputMask = "999.99", ; + Text_simplu1.Left = 112, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Procent discount", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_serie_chit' AS clb_serie_act WITH ; + cvariabila = cseriechit, ; + cvariabiladoc = nnrchit, ; + Height = 29, ; + Left = 399, ; + Name = "Clb_serie_chit", ; + nid_tipdoc = 16, ; + pcobj = Thisform, ; + TabIndex = 7, ; + Top = 281, ; + Visible = .F., ; + Width = 290, ; + ZOrderSet = 49, ; + Text_simplu1.ControlSource = "Thisform.cseriechit", ; + Text_simplu1.Left = 101, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.TabIndex = 2, ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 184, ; + _cbbase1.Height = 23, ; + _cbbase1.Left = 101, ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.TabIndex = 1, ; + _cbbase1.Top = 3, ; + _cbbase1.Width = 184, ; + _lbbase1.Caption = "Serie chitanta", ; + _lbbase1.Name = "_lbbase1", ; + _lbbase1.TabIndex = 3 + *< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totaldeviz' AS clb_tx_simplu WITH ; + Height = 51, ; + Left = 391, ; + Name = "Clb_totaldeviz", ; + TabIndex = 20, ; + TabStop = .F., ; + Top = 49, ; + Width = 337, ; + ZOrderSet = 15, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 205, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 25, ; + Text_simplu1.Value = 0, ; + Text_simplu1.Width = 126, ; + Lb_simplu1.Caption = "Total deviz cu TVA", ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totaldisc' AS clb_tx_simplu WITH ; + Height = 51, ; + Left = 391, ; + Name = "Clb_totaldisc", ; + TabIndex = 21, ; + TabStop = .F., ; + Top = 99, ; + Width = 337, ; + ZOrderSet = 28, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 205, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 25, ; + Text_simplu1.Value = 0, ; + Text_simplu1.Width = 126, ; + Lb_simplu1.Caption = "Total discount cu TVA", ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalfact' AS clb_nr_intre WITH ; + Height = 51, ; + Left = 391, ; + Name = "Clb_totalfact", ; + TabIndex = 25, ; + Top = 177, ; + Width = 337, ; + ZOrderSet = 0, ; + tx_n1.Alignment = 1, ; + tx_n1.Height = 23, ; + tx_n1.InputMask = (get_mask(12,gnPc)), ; + tx_n1.Left = 57, ; + tx_n1.Name = "tx_n1", ; + tx_n1.ReadOnly = .T., ; + tx_n1.Top = 26, ; + tx_n1.Width = 126, ; + Lb_simplu1.Caption = "Total factura", ; + Lb_simplu1.FontBold = .T., ; + Lb_simplu1.Name = "Lb_simplu1", ; + tx_n2.Alignment = 1, ; + tx_n2.FontBold = .T., ; + tx_n2.Height = 23, ; + tx_n2.InputMask = (get_mask(12,gnPc)), ; + tx_n2.Left = 205, ; + tx_n2.Name = "tx_n2", ; + tx_n2.ReadOnly = .T., ; + tx_n2.Top = 26, ; + tx_n2.Width = 126 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tvadiscm' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_tvadiscm", ; + TabIndex = 17, ; + TabStop = .F., ; + Top = 206, ; + Width = 302, ; + ZOrderSet = 19, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 112, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "TVA", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tvadiscn' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_tvadiscn", ; + TabIndex = 16, ; + TabStop = .F., ; + Top = 365, ; + Width = 302, ; + ZOrderSet = 20, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 112, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "TVA", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tvam' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_tvam", ; + TabIndex = 23, ; + TabStop = .F., ; + Top = 122, ; + Width = 302, ; + ZOrderSet = 8, ; + TEXT_SIMPLU1.Alignment = 3, ; + TEXT_SIMPLU1.Format = "RK", ; + TEXT_SIMPLU1.InputMask = (get_mask(12,gnPc)), ; + TEXT_SIMPLU1.Left = 112, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.ReadOnly = .T., ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Value = 0, ; + LB_SIMPLU1.Caption = "TVA manopera", ; + LB_SIMPLU1.Left = 4, ; + LB_SIMPLU1.Name = "LB_SIMPLU1", ; + LB_SIMPLU1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tvan' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 34, ; + Name = "Clb_tvan", ; + TabIndex = 22, ; + TabStop = .F., ; + Top = 281, ; + Width = 302, ; + ZOrderSet = 12, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "RK", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 112, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "TVA materiale", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'grd_altele' AS _grdrow WITH ; + Anchor = 14, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontCharSet = 1, ; + FontSize = 10, ; + Height = 132, ; + Left = 22, ; + Name = "grd_altele", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordSource = "crsalteserv", ; + RowHeight = 19, ; + TabIndex = 44, ; + Top = 432, ; + Width = 734, ; + ZOrderSet = 46, ; + Column1.ControlSource = "denumire", ; + Column1.FontCharSet = 1, ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cDenumire", ; + Column1.ReadOnly = .T., ; + Column1.Width = 331, ; + Column2.ControlSource = "nrord", ; + Column2.FontCharSet = 1, ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cNrord", ; + Column2.ReadOnly = .T., ; + Column2.Width = 100, ; + Column3.BackColor = 253,252,223, ; + Column3.ControlSource = "cantitate", ; + Column3.DynamicBackColor = "rgb(253,252,223)", ; + Column3.FontCharSet = 1, ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.InputMask = (get_mask(7,gnPCant)), ; + Column3.Name = "cCantitate", ; + Column3.ReadOnly = .F., ; + Column3.Width = 56, ; + Column4.BackColor = 253,252,223, ; + Column4.ControlSource = "pretftva", ; + Column4.DynamicBackColor = "rgb(253,252,223)", ; + Column4.FontCharSet = 1, ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.InputMask = (get_mask(14,gnPPretV)), ; + Column4.Name = "cPretFTva", ; + Column4.ReadOnly = .F., ; + Column4.Width = 98, ; + Column5.ControlSource = "valoareftva", ; + Column5.FontCharSet = 1, ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.InputMask = (get_mask(14,gnPc)), ; + Column5.Name = "cValoareftva", ; + Column5.ReadOnly = .T., ; + Column5.Width = 102 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_altele.cCantitate.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_altele.cCantitate.Text1' AS textbox WITH ; + BackColor = 253,252,223, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_altele.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_altele.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_altele.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_altele.cNrord.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_altele.cPretFTva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret fara TVA", ; + FontCharSet = 238, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_altele.cPretFTva.Text1' AS textbox WITH ; + BackColor = 253,252,223, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_altele.cValoareftva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare fara TVA", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_altele.cValoareftva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_explicatie_tva' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Explicatie TVA", ; + Left = 40, ; + Name = "lb_explicatie_tva", ; + TabIndex = 27, ; + Top = 68, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'LB_SIMPLU1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Detalii ncasare", ; + Left = 403, ; + Name = "LB_SIMPLU1", ; + TabIndex = 26, ; + Top = 263, ; + Visible = .F., ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu10' AS lb_simplu WITH ; + Caption = "(8)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu10", ; + TabIndex = 36, ; + Top = 370, ; + ZOrderSet = 36 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu11' AS lb_simplu WITH ; + Caption = "(9) = (1)+(2)+(5)+(6)", ; + Left = 606, ; + Name = "Lb_simplu11", ; + TabIndex = 37, ; + Top = 55, ; + ZOrderSet = 37 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu13' AS lb_simplu WITH ; + Caption = "(10) = (3)+(4)+(7)+(8)", ; + Left = 604, ; + Name = "Lb_simplu13", ; + TabIndex = 39, ; + Top = 105, ; + ZOrderSet = 39 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu15' AS lb_simplu WITH ; + Caption = "(11)", ; + Left = 568, ; + Name = "Lb_simplu15", ; + TabIndex = 41, ; + Top = 155, ; + ZOrderSet = 41 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu17' AS lb_simplu WITH ; + Caption = "Cu TVA ( (9)-(10)-(11) )", ; + FontBold = .T., ; + Left = 589, ; + Name = "Lb_simplu17", ; + TabIndex = 43, ; + Top = 181, ; + ZOrderSet = 42 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu18' AS lb_simplu WITH ; + Caption = "Fara TVA", ; + FontBold = .T., ; + Left = 511, ; + Name = "Lb_simplu18", ; + TabIndex = 42, ; + Top = 182, ; + ZOrderSet = 42 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Detalii factura", ; + Left = 32, ; + Name = "Lb_simplu2", ; + TabIndex = 28, ; + Top = 42, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ; + Caption = "(2)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu3", ; + TabIndex = 29, ; + Top = 127, ; + ZOrderSet = 29 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ; + Caption = "(1)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu4", ; + TabIndex = 30, ; + Top = 99, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ; + Caption = "(3)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu5", ; + TabIndex = 31, ; + Top = 183, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ; + Caption = "(4)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu6", ; + TabIndex = 32, ; + Top = 211, ; + ZOrderSet = 32 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu7' AS lb_simplu WITH ; + Caption = "(5)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu7", ; + TabIndex = 33, ; + Top = 258, ; + ZOrderSet = 33 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu8' AS lb_simplu WITH ; + Caption = "(6)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu8", ; + TabIndex = 34, ; + Top = 286, ; + ZOrderSet = 34 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu9' AS lb_simplu WITH ; + Caption = "(7)", ; + FontSize = 10, ; + Left = 128, ; + Name = "Lb_simplu9", ; + TabIndex = 35, ; + Top = 342, ; + ZOrderSet = 35 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'opt_incasat' AS _optiongrup WITH ; + AutoSize = .T., ; + ButtonCount = 3, ; + Height = 27, ; + Left = 394, ; + Name = "opt_incasat", ; + TabIndex = 6, ; + Top = 232, ; + Width = 291, ; + ZOrderSet = 43, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Fara ncasare", ; + Option1.FontCharSet = 238, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Bon fiscal", ; + Option2.Left = 112, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Chitanta", ; + Option3.FontCharSet = 238, ; + Option3.Height = 17, ; + Option3.Left = 222, ; + Option3.Name = "Option3", ; + Option3.Top = 5, ; + Option3.Width = 64 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE actualizeaza_tipincasare + Local lnValoare + lnValoare = Thisform.opt_incasat.Value + Do Case + Case lnValoare=1 && fara incasare + Thisform.cb_casa.Visible=.F. + Thisform.clb_nrchit.Visible=.F. + Thisform.clb_incasat.Visible=.F. + Thisform._shape3.Visible=.F. + Thisform.lb_simplu1.Visible=.F. + Thisform.lactiv3=.F. + Thisform.but_modifica1.Visible=.F. + Thisform.clb_nrchit.text_simplu1.ReadOnly=.T. + Thisform.clb_nrchit.text_simplu1.Value=0 + Thisform.clb_serie_chit.Visible = .F. && modificare v 2.0.28 + poGeneratorNumere.dezaloca_numar(16) && modificare v 2.0.28 + thisform.chkPOS.Value = 0 && modificare v 2.1.14 + thisform.chkPOS.Visible = .F. && modificare v 2.1.14 + Case lnValoare=2 && bon fiscal + Thisform.cb_casa.Visible=.T. + Thisform.clb_nrchit.Visible=.T. + Thisform.clb_nrchit.lb_simplu1.Caption=[Nr. bon] + Thisform.clb_incasat.Visible=.T. + Thisform._shape3.Visible=.T. + Thisform.lb_simplu1.Visible=.T. + Thisform.lactiv3=.T. + Thisform.but_modifica1.Visible=.T. + Thisform.clb_nrchit.text_simplu1.ReadOnly=.T. + Thisform.do_aloca_nr_bon([CLICK]) + Thisform.clb_serie_chit.Visible = .F. && modificare v 2.0.28 + poGeneratorNumere.dezaloca_numar(16) && modificare v 2.0.28 + thisform.chkPOS.Value = 0 && modificare v 2.1.14 + thisform.chkPOS.Visible = .T. && modificare v 2.1.14 + Case lnValoare=3 && chitanta + Thisform.cb_casa.Visible=.T. + Thisform.clb_nrchit.Visible=.T. + Thisform.clb_nrchit.lb_simplu1.Caption=[Nr. chitan] + Thisform.clb_incasat.Visible=.T. + Thisform._shape3.Visible=.T. + Thisform.lb_simplu1.Visible=.T. + Thisform.lactiv3=.F. + Thisform.but_modifica1.Visible=.F. + Thisform.clb_nrchit.text_simplu1.ReadOnly=.F. + Thisform.clb_nrchit.text_simplu1.Value=0 + thisform.chkPOS.Value = 0 && modificare v 2.1.14 + thisform.chkPOS.Visible = .F. && modificare v 2.1.14 + *!* modificare v 2.0.28 + Thisform.clb_serie_chit.Visible = .T. + If Thisform.nRezultatSerii = 0 + Thisform.nRezultatSerii = poGeneratorNumere.creeaza_cursor_serii(16) + Thisform.clb_serie_chit.do_initializeaza(Thisform.nRezultatSerii) + If !Empty(Nvl(Thisform.cseriechit,[])) + If Thisform.nRezultatSerii <> 1 + Select (Thisform.clb_serie_chit._cbbase1.RowSource) + Locate For Alltrim(serie) = Alltrim(Thisform.cseriechit) + If !Found() + Go Top + Endif + Thisform.clb_serie_chit._cbbase1.Value = Alltrim(serie) + Endif + Endif + Endif + Thisform.clb_serie_chit.genereazaNumar() + *!* modificare v 2.0.28 ^ + Endcase + *!* modificare v 2.0.23 + Thisform.do_recalculeaza_total() + *!* modificare v 2.0.23 ^ + ENDPROC + + PROCEDURE calculeaza_total + Local lnManopera, lnMateriale, lnTvaM, lnTvaN, lnDiscountM, lnDiscountN, lnTvaDiscM, lnTvaDiscN, lnTotalDeviz, lnTotalDisc, ; + lnAvans, lcCursor, lnProcTva, lnTotalAltele, lnTotalFTvaAltele + lnManopera=Thisform.clb_manopera.text_simplu1.Value + lnMateriale=Thisform.clb_materiale.text_simplu1.Value + lnTvaM=Thisform.clb_tvam.text_simplu1.Value + lnTvaN=Thisform.clb_tvan.text_simplu1.Value + lnTotalDeviz=lnManopera+lnTvaM+lnMateriale+lnTvaN + + lnDiscountM=Thisform.clb_discountm.text_simplu1.Value + lnTvaDiscM=Thisform.clb_tvadiscm.text_simplu1.Value + lnDiscountN=Thisform.clb_discountn.text_simplu1.Value + lnTvaDiscN=Thisform.clb_tvadiscn.text_simplu1.Value + lnTotalDisc=lnDiscountM+lnTvaDiscM+lnDiscountN+lnTvaDiscN + + lnAvans=Thisform.clb_avans.text_simplu1.Value + + *!* modificare v 2.0.28 + *!* lnTotalFact=lnTotalDeviz-lnTotalDisc-lnAvans + lcCursor = Thisform.grd_altele.RecordSource + If Reccount(lcCursor) > 0 + Select jtva_coloane + lnProcTva = (cota_tva+100)/100 + Select (lcCursor) + lnRecno = Recno() + Calculate Sum(valoareftva+Round(valoareftva*(lnProcTva-1),gnPc)),sum(valoareftva) To lnTotalAltele,lnTotalFTvaAltele + Go lnRecno + Else + lnTotalAltele = 0 + lnTotalFTvaAltele = 0 + Endif + lnTotalFact=lnTotalDeviz-lnTotalDisc-lnAvans+lnTotalAltele + *!* modificare v 2.0.28 ^ + + Thisform.clb_totaldeviz.text_simplu1.Value=lnTotalDeviz + Thisform.clb_totaldisc.text_simplu1.Value=lnTotalDisc + Thisform.clb_totalfact.tx_n1.Value = lnManopera + lnMateriale - lnDiscountM - lnDiscountN - Thisform.navansfaratva + lnTotalFTvaAltele + Thisform.clb_totalfact.tx_n2.Value = lnTotalFact + *!* Thisform.clb_incasat.text_simplu1.Value=lnTotalFact + Thisform.nincasat=lnTotalFact + Thisform.clb_totalfact.tx_n1.Refresh() + Thisform.clb_totalfact.tx_n2.Refresh() + Thisform.clb_incasat.text_simplu1.Refresh() + ENDPROC + + PROCEDURE do_adauga + Local lcXMLArticole, lcCursor, lcCursorArt, loLucrare + lcCursor = Thisform.grd_altele.RecordSource + Thisform.LockScreen = .T. && modificare v 2.0.30 + Thisform.grd_altele.salveaza_grid() + *!* cauta lucrare ( in caz ca sunt mai multe lucrari selectate ) + If Type('pcSirIdLucrare') <> 'U' + loLucrare = caut_lucrare(.F., .F., [id_lucrare in (]+pcSirIdLucrare+[)]) + If gnButon = 1 And !Empty(Nvl(loLucrare.id_lucrare,0)) + lnIdLucrare = loLucrare.id_lucrare + lcNrOrd = loLucrare.nrord + Else + gnButon = 2 + Endif + Else + lnIdLucrare = ocomanda.id_lucrare + lcNrOrd = ocomanda.nrord + gnButon = 1 && modificare v 2.0.30 + Endif + If gnButon = 1 + lcXMLArticole = cauta_nom_articole([in_stoc = 0 and in_crm = 1 and id_articol not between -100008 and -100000]) + lcCursorArt = [crstmpart] + If gnButon = 1 + Xmltocursor(lcXMLArticole, lcCursorArt) + Select (lcCursorArt) + Scan + Scatter Name loArticol + Select (lcCursor) + Append Blank + Replace id_articol With loArticol.id_articol,denumire With loArticol.denumire,um With loArticol.um,codmat With loArticol.codmat,; + id_lucrare With lnIdLucrare,nrord With lcNrOrd + Select (lcCursorArt) + Endscan + Use In (lcCursorArt) + Select (lcCursor) + Go Top + Endif + Endif + Thisform.grd_altele.incarca_grid() + Thisform.LockScreen = .F. && modificare v 2.0.30 + Thisform.grd_altele.cCantitate.SetFocus() + ENDPROC + + PROCEDURE do_aloca_nr_bon + Lparameters tcActiune + Local lnNumarBon + Store -1 To lnNumarBon + If Empty(Thisform.nnrbon) Or Upper(tcActiune)='UPDATE' + *!* lnNumarBon = aloca_numar_bf() && in oserii_numere.prg + poGeneratorNumere.creeaza_cursor_serii(3) + lnNumarBon = poGeneratorNumere.aloca_numar(3) + If lnNumarBon <> -1 + Thisform.clb_nrchit.text_simplu1.Value = lnNumarBon + Thisform.nnrbon = lnNumarBon + Thisform.nnrchit = Thisform.nnrbon + Endif + Else + Thisform.nnrchit = Thisform.nnrbon + ENDIF + Thisform.clb_nrchit.text_simplu1.Refresh() && modificare v 2.0.41 + ENDPROC + + PROCEDURE do_calculeaza + Lparameters tcnume + Local lcnume + lcnume=Upper(tcnume) + + Do Case + Case lcnume='PROCDISCM' + lnProcDisc=Thisform.clb_procdiscm.text_simplu1.Value + lnManopera=Thisform.clb_manopera.text_simplu1.Value + *!* modificare v 2.0.41 + *!* lnDiscount=Round(lnManopera*Round(lnProcDisc/100,2),gnPc) + *!* lnTvaDiscM=Round(lnDiscount*(pnProcTva-1),gnPc) + If glAutoBonDet + lnTVAManopera = Thisform.clb_tvam.text_simplu1.Value + lnDiscount = Round(Round((lnManopera+lnTVAManopera)*(lnProcDisc/100),gnPc)/pnProcTva,gnPc) + lnTvaDiscM = Round((lnManopera+lnTVAManopera)*(lnProcDisc/100),gnPc) - lnDiscount + Else + lnDiscount=Round(lnManopera*(lnProcDisc/100),gnPc) + lnTvaDiscM=Round(lnDiscount*(pnProcTva-1),gnPc) + Endif + *!* modificare v 2.0.41 ^ + Thisform.clb_discountm.text_simplu1.Value=lnDiscount + Thisform.clb_tvadiscm.text_simplu1.Value=lnTvaDiscM + Case lcnume='DISCOUNTM' + lnDiscount=Thisform.clb_discountm.text_simplu1.Value + lnManopera=Thisform.clb_manopera.text_simplu1.Value + lnTvaDiscM=Round(lnDiscount*(pnProcTva-1),gnPc) + *!* modificare v 2.0.41 + *!* lnProcDisc=Round(lnDiscount*100/lnManopera,2) + If glAutoBonDet + lnTVAManopera = Thisform.clb_tvam.text_simplu1.Value + lnProcDisc=Round((lnDiscount+lnTvaDiscM)*100/(lnManopera+lnTVAManopera),2) + lnDiscount = Round(Round((lnManopera+lnTVAManopera)*(lnProcDisc/100),gnPc)/pnProcTva,gnPc) + lnTvaDiscM = Round((lnManopera+lnTVAManopera)*(lnProcDisc/100),gnPc) - lnDiscount + Thisform.clb_discountm.text_simplu1.Value = lnDiscount + Else + lnProcDisc=Round(lnDiscount*100/lnManopera,2) + Endif + *!* modificare v 2.0.41 ^ + Thisform.clb_procdiscm.text_simplu1.Value=lnProcDisc + Thisform.clb_tvadiscm.text_simplu1.Value=lnTvaDiscM + Case lcnume='PROCDISCN' + lnProcDisc=Thisform.clb_procdiscn.text_simplu1.Value + lnMateriale=Thisform.clb_materiale.text_simplu1.Value + *!* modificare v 2.0.41 + *!* lnDiscount=Round(lnMateriale*Round(lnProcDisc/100,2),gnPc) + *!* lnTvaDiscN=Round(lnDiscount*(pnProcTva-1),gnPc) + If glAutoBonDet + lnTVAMateriale = Thisform.clb_tvan.text_simplu1.Value + lnDiscount = Round(Round((lnMateriale+lnTVAMateriale)*(lnProcDisc/100),gnPc)/pnProcTva,gnPc) + lnTvaDiscN = Round((lnMateriale+lnTVAMateriale)*(lnProcDisc/100),gnPc) - lnDiscount + Else + lnDiscount=Round(lnMateriale*(lnProcDisc/100),gnPc) + lnTvaDiscN=Round(lnDiscount*(pnProcTva-1),gnPc) + Endif + *!* modificare v 2.0.41 ^ + Thisform.clb_discountn.text_simplu1.Value=lnDiscount + Thisform.clb_tvadiscn.text_simplu1.Value=lnTvaDiscN + Case lcnume='DISCOUNTN' + lnDiscount=Thisform.clb_discountn.text_simplu1.Value + lnMateriale=Thisform.clb_materiale.text_simplu1.Value + lnTvaDiscN=Round(lnDiscount*(pnProcTva-1),gnPc) + *!* modificare v 2.0.41 + *!* lnProcDisc=Round(lnDiscount*100/lnMateriale,2) + If glAutoBonDet + lnTVAMateriale = Thisform.clb_tvan.text_simplu1.Value + lnProcDisc=Round((lnDiscount+lnTvaDiscN)*100/(lnMateriale+lnTVAMateriale),2) + lnDiscount = Round(Round((lnMateriale+lnTVAMateriale)*(lnProcDisc/100),gnPc)/pnProcTva,gnPc) + lnTvaDiscN = Round((lnMateriale+lnTVAMateriale)*(lnProcDisc/100),gnPc) - lnDiscount + Thisform.clb_discountn.text_simplu1.Value = lnDiscount + Else + lnProcDisc=Round(lnDiscount*100/lnMateriale,2) + Endif + *!* modificare v 2.0.41 ^ + Thisform.clb_procdiscn.text_simplu1.Value=lnProcDisc + Thisform.clb_tvadiscn.text_simplu1.Value=lnTvaDiscN + Endcase + Thisform.calculeaza_total() + ENDPROC + + PROCEDURE do_modifica + Private pniesire + pniesire=0 + DO viz_config_serii_complet WITH 3 IN oserii_numere.prg + If pniesire=1 + *!* dezaloca_numar_bf() + poGeneratorNumere.dezaloca_numar(3) + Thisform.do_aloca_nr_bon([UPDATE]) + Endif + ENDPROC + + PROCEDURE do_modifica_alteserv + Local lcCursor + lcCursor = Thisform.grd_altele.RecordSource + Select (lcCursor) + Replace valoareftva With cantitate * pretftva + Thisform.do_recalculeaza_total() + ENDPROC + + PROCEDURE do_recalculeaza_total + *!* modificare v 2.0.41 : daca glAutoBonDet = .T., atunci in toate cazurile ( fara incasare, incasare cu bon fiscal, + *!* incasare cu chitanta ), la materiale pornesc de la pretul de vanzare cu TVA + *!* If glAutoBonDet + *!* If Thisform.opt_incasat.Value = 2 + *!* ocomanda.bondifftva = Thisform.nbondifftva + *!* ocomanda.bondiftva = Thisform.nbondiftva + *!* Else + *!* ocomanda.bondifftva = 0 + *!* ocomanda.bondiftva = 0 + *!* Endif + *!* Endif + *!* With Thisform + *!* .clb_materiale.text_simplu1.Value = Iif(glAutoBonDet And pnProcTva <> 1,ocomanda.materiale+ocomanda.bondifftva,ocomanda.materiale) + *!* .clb_tvan.text_simplu1.Value = Iif(glAutoBonDet And pnProcTva <> 1,Thisform.nTVAMateriale,Round(ocomanda.materiale*(pnProcTva-1),gnPa)) + Iif(pnProcTva<>1,ocomanda.bondiftva,0) + *!* Endwith + With Thisform + .clb_materiale.text_simplu1.Value = Iif(glAutoBonDet And pnProcTva <> 1,ocomanda.materialerecalc,ocomanda.materiale) + .clb_tvan.text_simplu1.Value = Iif(pnProcTva = 1,0,Thisform.nTVAMateriale) + Endwith + *!* modificare v 2.0.41 ^ + If !Empty(Thisform.clb_discountm.text_simplu1.Value) + Thisform.do_calculeaza('DISCOUNTM') + Endif + If !Empty(Thisform.clb_discountn.text_simplu1.Value) + Thisform.do_calculeaza('DISCOUNTN') + Endif + Thisform.calculeaza_total() + ENDPROC + + PROCEDURE do_sterge + Local lcCursor + lcCursor = Thisform.grd_altele.RecordSource + Select (lcCursor) + If Reccount(lcCursor) > 0 And !Deleted() + lcArticol = Alltrim(denumire) + If amessagebox("Sunteti sigur ca doriti sa stergeti articolul "+lcArticol+" de pe factura?",4+32,"Confirmare stergere") = 6 + Delete + Endif + Endif + Thisform.grd_altele.Refresh() + ENDPROC + + PROCEDURE inainte_de_do_renunt + If Type('poGeneratorNumere') = 'O' And This.opt_incasat.Value = 3 And Thisform.nRezultatSerii <> 0 + poGeneratorNumere.dezaloca_numar(16) + Endif + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn + Store .T. To llReturn + pnDiscountM=Thisform.clb_discountm.text_simplu1.Value + pnDiscountN=Thisform.clb_discountn.text_simplu1.Value + pnDiscountTvaM=Thisform.clb_tvadiscm.text_simplu1.Value + pnDiscountTvaN=Thisform.clb_tvadiscn.text_simplu1.Value + pnTotalFactura = Thisform.clb_totalfact.tx_N2.Value && modificare v 2.1.0 + *!* modificare v 2.0.28 + lcCursor = Thisform.grd_altele.RecordSource + *!* modificare v 2.1.12 + Do Case + Case Sign(pnDiscountM) <> Sign(Thisform.clb_manopera.text_simplu1.Value) AND pnDiscountM <> 0 + amessagebox("Valoarea nscris la discount manoper trebuie s aib acelasi semn cu valoarea manoperei!",48,"Atentie") + Thisform.clb_discountm.text_simplu1.SetFocus() + llReturn = .F. + Case Sign(pnDiscountN) <> Sign(Thisform.clb_materiale.text_simplu1.Value) AND pnDiscountN <> 0 + amessagebox("Valoarea nscris la discount materiale trebuie s aib acelasi semn cu valoarea materialelor!",48,"Atentie") + Thisform.clb_discountn.text_simplu1.SetFocus() + llReturn = .F. + Otherwise + llReturn = .T. + Endcase + *!* modificare v 2.1.12 + If Reccount(lcCursor) <> 0 And llReturn + lcMesaj = [] + lcCursor2 = [crstmpverart] + Select Count(*) As nr,id_articol,denumire From (lcCursor) Group By id_articol,denumire Order By 1,3 Into Cursor (lcCursor2) + Select (lcCursor2) + Scan For nr > 1 + lcMesaj = [,] + lcMesaj + Alltrim(denumire) + Endscan + If !Empty(lcMesaj) + If amessagebox(Iif(Occurs([,],lcMesaj)=2,"Urmtorul articol este prezent de dou ori pe factur : ", ; + "Urmtoarele articole sunt prezente de dou ori pe factur : ")+Substr(lcMesaj,2)+"." + ; + CHR(13)+ Chr(10)+Chr(13)+ Chr(10)+"Doriti s continuai?",4+48,"Articole dublate") = 7 + llReturn = .F. + Endif + Endif + If llReturn + Select (lcCursor) + Locate For !Deleted() And valoareftva = 0 + If Found() + If amessagebox("Exist articole care au valoarea fr TVA egal cu 0. Dorii s continuati?",4+48,"Articole cu total 0") = 7 + llReturn = .F. + Else + Go Top + Endif + Else + Go Top + Endif + Endif + Endif + *!* If Thisform.opt_incasat.Value<>1 + If Thisform.opt_incasat.Value<>1 And llReturn + *!* modificare v 2.0.28 ^ + lcDocument=Iif(Thisform.opt_incasat.Value=2,[bonului],[chitantei]) + pnTipIncasare=Thisform.opt_incasat.Value + If pnTipIncasare=3 + If !Empty(Thisform.nnrbon) + *!* dezaloca_numar_bf() && oserii_numere.prg + poGeneratorNumere.dezaloca_numar(3) + Endif + poGeneratorNumere.verifica_numar(16,Thisform.nnrchit) + Endif + + pnIdCasa = v_nom_casa.id_part + pcCasa = v_nom_casa.nume + *!* pnIncasat=Thisform.clb_incasat.text_simplu1.Value + pnIncasat=Thisform.nincasat + *!* modificare v 2.0.28 + pcSerieChit = Thisform.cseriechit + pnNrChit=Thisform.nnrchit && Thisform.clb_nrchit.text_simplu1.Value + *!* modificare v 2.0.28 ^ + Do Case + Case pnIncasat=0 + amessagebox("Nu ati specificat suma ncasat!",0+48,"Atentie") + Thisform.clb_incasat.SetFocus() + llReturn=.F. + Case pnIncasat<0 + amessagebox("Nu puteti ncasa o sum negativ!",0+48,"Atentie") + Thisform.clb_incasat.SetFocus() + llReturn=.F. + Case pnIdCasa<=0 + amessagebox("Nu ati ales casa!",0+48,"Atentie") + Thisform.cb_casa.SetFocus() + llReturn=.F. + Case Empty(Thisform.cb_casa._CBBASE1.Value) + amessagebox("Numrul "+lcDocument+" trebuie s fie diferit de 0!",0+48,"Atentie") + Thisform.clb_nrchit.SetFocus() + llReturn=.F. + Endcase + Endif + pnAchitAsigurator = Thisform.ck_achit_asigurator.Value && modificare v 2.0.33 + + pnPOS = thisform.nPOS && incasare bon fiscal prin CARD POS + + Return llReturn + ENDPROC + + PROCEDURE Init + *!* modificare v 2.0.41 + LPARAMETERS tnTvaIncasare,tnTvaMateriale,tlAchitaAsigurator + *!* LPARAMETERS tnTvaMateriale,tnBonDifFTva,tnBonDifTva,tlAchitaAsigurator + DoDefault() + This.nTVAMateriale = tnTVAMateriale + *!* This.nBonDifFTva = tnBonDifFTva + *!* This.nBonDifTva = tnBonDifTva + Thisform.ck_achit_asigurator.Visible = tlAchitaAsigurator && modificare v 2.0.33 + *!* ocomanda.bondiftva = 0 + *!* ocomanda.bondifftva = 0 + *!* modificare v 2.0.41 ^ + If !Empty(gnid_casa_achit) + Select v_nom_casa + Locate For id_part=gnid_casa_achit + If Found() + Thisform.cb_casa._CBBASE1.Value=Alltrim(nume) + Endif + ENDIF + + Select jtva_coloane + *!* modificare v 2.1.0 + *!* Set Filter To Inlist(cota_tva,0,gnCotaTVAStandard*100-100) && modificare v 2.0.22 + * Nu pun filtru si pe cota de tva standard 21% si 0% pentru ca este posibil sa se factureze storno 19% + If Empty(tnTvaIncasare) + Set Filter To isnull(id_jtva_ex) + Else + Set Filter To isnull(id_jtva_neex) + Endif + *!* modificare v 2.1.0 ^ + Locate For id_jtva_coloana = pnIdJtvaColoana + If !Found() + Go Top + pnIdJtvaColoana = id_jtva_coloana + Endif + pnIdTva = id_tva + pnProcTva = (cota_tva+100)/100 + This.cbo_explicatie_tva.Value = Alltrim(denumire) + ENDPROC + + PROCEDURE Show + Lparameters nStyle + DoDefault(nStyle) + If Thisform.clb_manopera.text_simplu1.Value = 0 + Thisform.clb_procdiscm.text_simplu1.ReadOnly = .T. + Thisform.clb_discountm.text_simplu1.ReadOnly = .T. + Endif + If Thisform.clb_materiale.text_simplu1.Value = 0 + Thisform.clb_procdiscn.text_simplu1.ReadOnly = .T. + Thisform.clb_discountn.text_simplu1.ReadOnly = .T. + Endif + ENDPROC + + PROCEDURE verifica_tipincasare + Local lnValoare, lnOptiuneIncas + lnValoare = Thisform.ck_achit_asigurator.Value + lnOptiuneIncas = Thisform.opt_incasat.Value + Do Case + Case lnValoare = 1 And lnOptiuneIncas = 2 + Thisform.opt_incasat.option2.Enabled = .F. + Thisform.opt_incasat.Value = 3 + Thisform.actualizeaza_tipincasare() + Case lnValoare = 1 + Thisform.opt_incasat.option2.Enabled = .F. + Otherwise + Thisform.opt_incasat.option2.Enabled = .T. + Endcase + + ENDPROC + + PROCEDURE cbo_explicatie_tva.InteractiveChange + Select jtva_coloane + pnIdJtvaColoana = id_jtva_coloana + pnIdTva = id_tva + pnProcTva = (cota_tva+100)/100 + With Thisform + *!* modificare v 2.0.22 + *!* .clb_tvam.text_simplu1.Value=Round( .clb_manopera.text_simplu1.Value*(pnProcTva-1),gnPa) + *!* .clb_tvan.text_simplu1.Value=Round( .clb_materiale.text_simplu1.Value*(pnProcTva-1),gnPa) + .clb_tvam.text_simplu1.Value=Round(ocomanda.manopera*(pnProcTva-1),gnPc) + *!* modificare v 2.0.23 + *!* .clb_materiale.text_simplu1.Value = IIF(glAutoBonDet and pnProcTva <> 1,ocomanda.materiale+ocomanda.bondifftva,ocomanda.materiale) + *!* .clb_tvan.text_simplu1.Value = IIF(glAutoBonDet and pnProcTva <> 1,Thisform.nTVAMateriale,Round(ocomanda.materiale*(pnProcTva-1),gnPa)) + IIF(pnProcTva<>1,ocomanda.bondiftva,0) + *!* modificare v 2.0.23 ^ + *!* modificare v 2.0.22 ^ + Endwith + *!* modificare v 2.0.23 + Thisform.do_recalculeaza_total() + *!* If !Empty(Thisform.clb_discountm.text_simplu1.Value) + *!* Thisform.do_calculeaza('DISCOUNTM') + *!* Endif + *!* If !Empty(Thisform.clb_discountn.text_simplu1.Value) + *!* Thisform.do_calculeaza('DISCOUNTN') + *!* Endif + *!* Thisform.calculeaza_total() + *!* modificare v 2.0.23 ^ + ENDPROC + + PROCEDURE chkPOS.Valid + IF this.Value = 0 + thisform.cb_casa._lbbase1.Caption = 'Casa' + ELSE + thisform.cb_casa._lbbase1.Caption = 'Banca POS' + ENDIF + thisform.cb_casa._lbbase1.Refresh() + ENDPROC + + PROCEDURE ck_achit_asigurator.Click + Thisform.verifica_tipincasare() + ENDPROC + + PROCEDURE Clb_avans.Text_simplu1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_avans.Text_simplu1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('TOTAL') + Endif + ENDPROC + + PROCEDURE Clb_discountm.Text_simplu1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_discountm.Text_simplu1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('DISCOUNTM') + Endif + + ENDPROC + + PROCEDURE Clb_discountn.Text_simplu1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_discountn.Text_simplu1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('DISCOUNTN') + Endif + + ENDPROC + + PROCEDURE Clb_incasat.Text_simplu1.InteractiveChange + Thisform.nincasat=This.Value + ENDPROC + + PROCEDURE Clb_incasat.Text_simplu1.Valid + If Thisform.nincasat=0 And Thisform.opt_incasat.Value>1 + Thisform.nincasat=Thisform.clb_totalfact.text_simplu1.Value + Endif + ENDPROC + + PROCEDURE Clb_nrchit.TEXT_SIMPLU1.GotFocus + If Thisform.opt_incasat.Value = 3 + Thisform.clb_serie_chit.genereazaNumar() + Endif + ENDPROC + + PROCEDURE Clb_procdiscm.TEXT_SIMPLU1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_procdiscm.TEXT_SIMPLU1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('PROCDISCM') + Endif + + ENDPROC + + PROCEDURE Clb_procdiscm.TEXT_SIMPLU1.ProgrammaticChange + Thisform.do_calculeaza('PROCDISCM') + ENDPROC + + PROCEDURE Clb_procdiscn.Text_simplu1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_procdiscn.Text_simplu1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('PROCDISCN') + Endif + + ENDPROC + + PROCEDURE Clb_procdiscn.Text_simplu1.ProgrammaticChange + Thisform.do_calculeaza('PROCDISCN') + ENDPROC + + PROCEDURE Clb_serie_chit._cbbase1.InteractiveChange + This.Parent.genereazaNumar() + ENDPROC + + PROCEDURE Clb_totaldeviz.Text_simplu1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_totaldeviz.Text_simplu1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('TVA') + Endif + + ENDPROC + + PROCEDURE Clb_totaldisc.Text_simplu1.GotFocus + this.Tag=ALLTRIM(STR(this.value,20,4)) + ENDPROC + + PROCEDURE Clb_totaldisc.Text_simplu1.LostFocus + If Alltrim(Str(This.Value,20,4))!=This.Tag + Thisform.do_calculeaza('TVA') + Endif + + ENDPROC + + PROCEDURE grd_altele.cCantitate.Text1.LostFocus + Thisform.do_modifica_alteserv() + ENDPROC + + PROCEDURE grd_altele.cPretFTva.Text1.LostFocus + Thisform.do_modifica_alteserv() + ENDPROC + + PROCEDURE grd_altele.Init + *!* + ENDPROC + + PROCEDURE opt_incasat.Click + *!* modificare v 2.0.33 + Thisform.actualizeaza_tipincasare() + *!* Do Case + *!* Case This.Value=1 + *!* Thisform.cb_casa.Visible=.F. + *!* Thisform.clb_nrchit.Visible=.F. + *!* Thisform.clb_incasat.Visible=.F. + *!* Thisform._shape3.Visible=.F. + *!* Thisform.lb_simplu1.Visible=.F. + *!* Thisform.lactiv3=.F. + *!* Thisform.but_modifica1.Visible=.F. + *!* Thisform.clb_nrchit.text_simplu1.ReadOnly=.T. + *!* Thisform.clb_nrchit.text_simplu1.Value=0 + *!* Thisform.clb_serie_chit.Visible = .F. && modificare v 2.0.28 + *!* poGeneratorNumere.dezaloca_numar(16) && modificare v 2.0.28 + *!* Case This.Value=2 + *!* Thisform.cb_casa.Visible=.T. + *!* Thisform.clb_nrchit.Visible=.T. + *!* Thisform.clb_nrchit.lb_simplu1.Caption=[Nr. bon] + *!* Thisform.clb_incasat.Visible=.T. + *!* Thisform._shape3.Visible=.T. + *!* Thisform.lb_simplu1.Visible=.T. + *!* Thisform.lactiv3=.T. + *!* Thisform.but_modifica1.Visible=.T. + *!* Thisform.clb_nrchit.text_simplu1.ReadOnly=.T. + *!* Thisform.do_aloca_nr_bon([CLICK]) + *!* Thisform.clb_serie_chit.Visible = .F. && modificare v 2.0.28 + *!* poGeneratorNumere.dezaloca_numar(16) && modificare v 2.0.28 + *!* Case This.Value=3 + *!* Thisform.cb_casa.Visible=.T. + *!* Thisform.clb_nrchit.Visible=.T. + *!* Thisform.clb_nrchit.lb_simplu1.Caption=[Nr. chitanta] + *!* Thisform.clb_incasat.Visible=.T. + *!* Thisform._shape3.Visible=.T. + *!* Thisform.lb_simplu1.Visible=.T. + *!* Thisform.lactiv3=.F. + *!* Thisform.but_modifica1.Visible=.F. + *!* Thisform.clb_nrchit.text_simplu1.ReadOnly=.F. + *!* Thisform.clb_nrchit.text_simplu1.Value=0 + *!* *!* modificare v 2.0.28 + *!* Thisform.clb_serie_chit.Visible = .T. + *!* If Thisform.nRezultatSerii = 0 + *!* Thisform.nRezultatSerii = poGeneratorNumere.creeaza_cursor_serii(16) + *!* Thisform.clb_serie_chit.do_initializeaza(Thisform.nRezultatSerii) + *!* If !Empty(Nvl(Thisform.cseriechit,[])) + *!* If Thisform.nRezultatSerii <> 1 + *!* Select (Thisform.clb_serie_chit._cbbase1.RowSource) + *!* Locate For Alltrim(serie) = Alltrim(Thisform.cseriechit) + *!* If !Found() + *!* Go Top + *!* Endif + *!* Thisform.clb_serie_chit._cbbase1.Value = Alltrim(serie) + *!* Endif + *!* Endif + *!* Endif + *!* Thisform.clb_serie_chit.genereazaNumar() + *!* *!* modificare v 2.0.28 ^ + *!* Endcase + *!* *!* modificare v 2.0.23 + *!* Thisform.do_recalculeaza_total() + *!* *!* modificare v 2.0.23 ^ + *!* modificare v 2.0.33 ^ + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_inchidere_productie 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="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_inchidere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_inchis" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_validat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_vizualizare" UniqueID="" Timestamp="" /> + + * + *m: do_aratanote + *m: do_executa2 + * + + * + cgridsortlist = grdcomenzi + DoCreate = .T. + Height = 504 + lactiv2 = .T. + lactiv3 = .T. + Name = "frm_inchidere_productie" + Width = 793 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 731 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = 0 + _shape2.Width = 64 + _shape2.ZOrderSet = 12 + Lb_titlu_alb_b121.Caption = "NCHIDERE COMENZI PRODUCIE" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 13 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 763 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 13 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 733, ; + Name = "But_listare1", ; + TabIndex = 12, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_datai", ; + TabIndex = 4, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + tip = D, ; + Top = 73, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_nrinmat", ; + TabIndex = 5, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 92, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comand", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_nrord", ; + TabIndex = 2, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 36, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_nume", ; + TabIndex = 3, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 54, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Left = 690, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 262, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_inchidere' AS cmd_executa WITH ; + Anchor = 12, ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Left = 690, ; + Name = "Cmd_reset1", ; + TabIndex = 14, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 295, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_vizualizare' AS cmd_executa WITH ; + Anchor = 12, ; + caction = do_aratanote, ; + Caption = "\ + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 456, ; + Left = 17, ; + Name = "grdcomenzi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crscomenzi", ; + TabIndex = 1, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 655, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Width = 90, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "IIF(TYPE('datai')=='D',datai,TTOD(datai))", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDatai", ; + Column2.ReadOnly = .T., ; + Column2.Width = 65, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cNume", ; + Column3.ReadOnly = .T., ; + Column3.Width = 160, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "IIF(validat=1,'Da','Nu')", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cValidat", ; + Column4.ReadOnly = .T., ; + Column4.Width = 36, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "ROUND(manopera,gnPc)", ; + Column5.FontName = "Arial Narrow", ; + Column5.Format = "R", ; + Column5.InputMask = (get_mask(12,gnPc)), ; + Column5.Name = "cManopera", ; + Column5.ReadOnly = .T., ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "ROUND(materiale,gnPc)", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPc)), ; + Column6.Name = "cMateriale", ; + Column6.ReadOnly = .T., ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "util_valid", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cUtil_valid", ; + Column7.ReadOnly = .T., ; + Column7.Width = 115, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "dataoravalid", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cDataoravalid", ; + Column8.ReadOnly = .T., ; + Column8.Width = 94, ; + Column9.ColumnOrder = 5, ; + Column9.ControlSource = "IIF(facturat=1,'Da','Nu')", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "cFacturat", ; + Column9.ReadOnly = .T., ; + Column9.Width = 39, ; + Column10.ColumnOrder = 6, ; + Column10.ControlSource = "nrfact", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(14,0)), ; + Column10.Name = "cNrFact", ; + Column10.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.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 'grdcomenzi.cDataoravalid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data si ora validarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDataoravalid.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 'grdcomenzi.cFacturat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inchisa", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cFacturat.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 'grdcomenzi.cManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cManopera.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 'grdcomenzi.cMateriale.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Materiale", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cMateriale.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 'grdcomenzi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrFact.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 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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 'grdcomenzi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.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 'grdcomenzi.cUtil_valid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validata de catre", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cUtil_valid.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 'grdcomenzi.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValidat.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 'opt_inchis' AS _optiongrup WITH ; + Anchor = 8, ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 65, ; + Left = 696, ; + Name = "opt_inchis", ; + TabIndex = 7, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 188, ; + Width = 77, ; + OPTION1.AutoSize = .T., ; + OPTION1.Caption = "Toate", ; + OPTION1.FontName = "Arial Narrow", ; + OPTION1.Left = 5, ; + OPTION1.Name = "OPTION1", ; + OPTION1.Top = 5, ; + OPTION1.Value = 1, ; + OPTION2.AutoSize = .T., ; + OPTION2.Caption = "nchise", ; + OPTION2.FontCharSet = 238, ; + OPTION2.FontName = "Arial Narrow", ; + OPTION2.Left = 5, ; + OPTION2.Name = "OPTION2", ; + OPTION2.Top = 24, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Deschise", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Value = 0, ; + Option3.Width = 57 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT 'opt_validat' AS _optiongrup WITH ; + Anchor = 8, ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 65, ; + Left = 696, ; + Name = "opt_validat", ; + TabIndex = 6, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 120, ; + Width = 77, ; + OPTION1.AutoSize = .T., ; + OPTION1.Caption = "Toate", ; + OPTION1.FontName = "Arial Narrow", ; + OPTION1.Left = 5, ; + OPTION1.Name = "OPTION1", ; + OPTION1.Top = 5, ; + OPTION1.Value = 1, ; + OPTION2.AutoSize = .T., ; + OPTION2.Caption = "Validate", ; + OPTION2.FontName = "Arial Narrow", ; + OPTION2.Left = 5, ; + OPTION2.Name = "OPTION2", ; + OPTION2.Top = 24, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Nevalidate", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Value = 0, ; + Option3.Width = 63 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pocomenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.grdcomenzi) + pocomenzi.ca_baza1.cfiltru = lcFiltru + pocomenzi.ca_baza1.afisare() + restore_grid_comment(Thisform.grdcomenzi) + Thisform.grdcomenzi.SetAll("DynamicForeColor","IIF(facturat=1,RGB(128,128,128),RGB(0,0,0))","Column") + If Reccount('crscomenzi')>0 + Thisform.cmd_vizualizare.Enabled=.T. + Thisform.grdcomenzi.SetFocus() + Else + Thisform.cmd_inchidere.Enabled = .F. + Thisform.cmd_vizualizare.Enabled=.F. + Endif + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE do_aratanote + If Reccount('crscomenzi')>0 + Local lnid_ordl + Select crscomenzi + lnid_ordl=id_ordl + lcnrord=nrord + If Used('crsfacturi') + Use In crsfacturi + Endif + lcSql=[select a.datai,b.serie_act,b.nract,a.nume,b.dataact,b.explicatia,b.suma,b.scd,b.scc ] + ; + [from ] + gcS + [.auto_vordl a ] + ; + [left join ] + gcS + [.vact b on a.id_lucrare=b.id_lucrare ] + ; + [where a.id_ordl = ] + Alltrim(Str(lnid_ordl)) + ; + [order by b.dataact,b.nract] + + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + lnSucces=goExecutor.oExecute(lcSql,'crsfacturi') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + If Reccount('crsfacturi')>0 + ofrmfacturi=Createobject('frm_factact') + ofrmfacturi.lb_titlu_alb_b121.Caption = [Note contabile comanda ]+Alltrim(lcnrord) + ofrmfacturi.Show(1) + Else + amessagebox("Nu exista note pentru aceasta comanda!",0+48,"Atentie") + Endif + Use In crsfacturi + Else + amessagebox("Nu ati selectat comanda!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = gcCondLuna + [ and a.id_tip=6 ] + If Thisform.ck_datai.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + With Thisform.opt_inchis + Do Case + Case .Value=2 + lcFiltru = lcFiltru + [ and a.facturat=1] + Case .Value=3 + lcFiltru = lcFiltru + [ and a.facturat=0] + Endcase + Endwith + + With Thisform.opt_validat + Do Case + Case .Value=2 + lcFiltru = lcFiltru + [ and a.validat=1] + Case .Value=3 + lcFiltru = lcFiltru + [ and a.validat=0] + Endcase + Endwith + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crscomenzi')=0 + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_executa + If Used('crscomenzi') And Reccount('crscomenzi')>0 + Private pniesire + Local lnPozitieCursor + Select crscomenzi + lnPozitieCursor=Recno() + Scatter Name ocomanda + && optiuni cu analitice + && optiuni tip analitic + lnLungime=2 + Dimension taValori[lnLungime,3] + taValori[1,1]="poAct.nrord" + taValori[1,2]=Alltrim(ocomanda.nrord) + taValori[1,3]=.T. + taValori[2,1]="poAct.id_lucrare" + taValori[2,2]=Alltrim(Str(ocomanda.id_lucrare)) + taValori[2,3]=.T. + + If !Isnull(gnid_fdoc_inchprod) + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.id_fdoc" + taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_inchprod)) + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.fdoc" + taValori[lnLungime+2,2]='' + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + Endif + + Thisform.AlwaysOnTop=.F. + lans(31007,.F.,.T.,@taValori) && id_set,daca se executa procedura de mai multe ori, + && daca verifica analiticele,array de valori + Thisform.AlwaysOnTop=.T. + + If buton=2 + Do deschid_actc + Return + Endif + + If Used('crsTotaluri') + Use In crsTotaluri + Endif + + lcSql=[select NVL(sum(ROUND(] + ; + [(case when a.an * 12 + a.luna < 2005 * 12 + 7 ] + ; + [then ROUND(a.pretv/10000,?gnPc) else a.pretv end) ] + ; + [ * a.cante, ?gnPc)), 0) as total,a.id_sectie,b.sectie ] + ; + [from rul a ] + ; + [left join nom_sectii b on a.id_sectie = b.id_sectie ] + ; + [where a.id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ and a.sters = 0 ] + ; + [group by a.id_sectie,b.sectie ] + + lnSucces=goExecutor.oExecute(lcSql,'crsTotaluri') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + Select actactan + Locate For nr_nota = 1 + Scatter Name loNota1 + Delete For nr_nota = 1 + + Select crsTotaluri + Scan + Scatter Name loMateriale + With loMateriale + Select actactan + Append Blank + Gather Name loNota1 + Replace suma WITH .total,id_sectie With .id_sectie,sectie With .sectie + Endwith + Endscan + Select actactan + *!* modificare v 2.1.0 + *!* Replace All id_fact With -1 + Replace id_fact With -1 for id_fact <> -5 + *!* modificare v 2.1.0 ^ + Use In crsTotaluri + ********************************************** + + Select actactan + Scan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scc) + Endif + poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + Select actactan + Replace ascc With poactan.ascc + + Release poactan + Select actactan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scd) + Endif + poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + Select actactan + Replace ascd With poactan.ascd + Endscan + + Private buton + buton=1 + Select actactan + Go Top + *!* modificare v 2.0.17 + *!* Do Form verificare With .T. + If !verificare_note_contabile('actactan', .T.,.T., .F.) + Do Form verificare With .T. + Endif + *!* modificare v 2.0.17 ^ + If buton=2 + Use In actactan + Return + Endif + + lnSucces = oscrie_in_fisiere() + + If lnSucces>0 + *!* modificare v 2.0.35 + *!* lcSql = [begin pack_devize.dev_completeaza_rul(?gcS,?ocomanda.id_lucrare); end;] + *!* modificare v 2.0.47 : am adaugat poAct.id_set + *!* modificare v 2.0.50 : am pus 31007 in loc de poAct.id_set ( dadea eroare pentru ca nu gasea poAct ) + lcSql = [begin pack_auto.actualizeaza_deviz(pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),'] + ALLTRIM(STR(ocomanda.id_lucrare)) + [',31007); end;] + *!* modificare v 2.0.35 ^ + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + Thisform.actualizeaza_grid1() + If Reccount('crscomenzi')>=lnPozitieCursor + Go lnPozitieCursor + Endif + Endif + + Endif + ENDPROC + + PROCEDURE do_executa2 + ENDPROC + + PROCEDURE do_listare + If Reccount('crscomenzi')>0 + Private porul,pooper,pcschema1,pcselect1 + Store '' To porul,pooper + + Select crscomenzi + Scatter Name ocomanda + If ocomanda.Validat=1 + *!* modificare v 2.0.35 + listare_comanda_deviz(Thisform,ocomanda,2) + *!* lcSql = [select row_number() over (order by datai,id_oper) as nrcrt,id_ordl,codop,timpn,pret,denop,] + ; + *!* [datai from ] + gcS + [.dev_voper where id_ordl = ?ocomanda.id_ordl and ] + ; + *!* [extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12 ] + ; + *!* [order by 1] + *!* lnSucces = goExecutor.oExecute(lcSql,'oper') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,16,'Eroare') + *!* Return + *!* Endif + *!* lcSql = [select row_number() over (order by a.dataact,a.id_rul) as nrcrt,a.*,b.denumire,b.codmat from (] + ; + *!* [select id_articol,pretv,SUM(cante) as cante,MIN(dataact) as dataact,MIN(id_rul) as id_rul ] + ; + *!* [from ] + gcS + [.rul where sters = 0 and id_lucrare = ?ocomanda.id_lucrare ] + ; + *!* [group by id_articol,pretv) a ] + ; + *!* [left join nom_articole b on a.id_articol = b.id_articol where a.cante <> 0] + *!* lnSucces = goExecutor.oExecute(lcSql,'rul') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,16,'Eroare') + *!* Return + *!* Endif + *!* If Reccount('oper')>0 Or Reccount('rul')>0 + *!* Private pdDataora,pcdataora,pntotaltn,pntotalval,pofirma,pcschema,pcselect,pcorder,pcfiltru + *!* Store '' To pofirma,pcschema,pcselect,pcorder,pcfiltru + *!* If Used('crsFirma') + *!* Use In crsfirma + *!* Endif + *!* lcSql = [select localitate,strada,numar,cod_fiscal,reg_comert from syn_nom_firme where ] + ; + *!* [id_firma = ?gnIdFirma] && modificare v 2.0.29 : am inlocuit gnId_Firma + *!* lnSucces=goExecutor.oExecute(lcSql,[crsfirma]) + *!* If lnSucces<0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Sele crsfirma + *!* Scatter Name firma + *!* Use In crsfirma + *!* If Used('crslistare') + *!* Use In crslistare + *!* Endif + *!* lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,] + ; + *!* [a.banca,a.cont_banca,a.adresa,a.nr_dosar,a.reg_comert,a.tip_persoana,] + ; + *!* [b.nrinmat,b.series,b.seriem,b.culoare,b.kmint,b.marca,b.masina ] + ; + *!* [from ] + gcS + [.dev_vordl a ] + ; + *!* [left join ] + gcS + [.dev_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + *!* [where a.id_ordl = ?ocomanda.id_ordl] + *!* lnSucces=goExecutor.oExecute(lcSql,'crslistare') + *!* If lnSucces<0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Select crslistare + *!* Scatter Name olistare Memo + *!* Use In crslistare + *!* pcdataora=get_ora(2) + *!* pdDataora=Ttod(Ctot(pcdataora)) + *!* *!* modificare 27.07 + *!* Select rul + *!* Calculate Sum(Round(cante*pretv,gnPc)) To pnTotalMatDeviz + *!* Select oper + *!* Calculate Sum(Round(timpn*Pret,gnPc)) To pnTotalManDeviz + *!* *!* + *!* Select nrcrt,olistare.nrord As nrord,'A' As semn,codmat,denumire,cante,pretv As Pret From rul Where cante <> 0 ; + *!* UNION All ; + *!* SELECT nrcrt,olistare.nrord As nrord,'B' As semn,codop As codmat,denop As denumire,timpn As cante,Pret ; + *!* From oper Order By 3,1 Into Cursor crslistare + *!* Thisform.AlwaysOnTop=.F. + *!* Select crslistare + *!* *!* modificare MIX 07.09.2007 + *!* *!* *!* modificare 09.08.2006 + *!* *!* Locate For Like('MIX*',denumire) And semn=='A' + *!* *!* If Found() + *!* *!* Calculate Sum(Round(cante*Pret,gnPc)),Max(Recno()) To lnSumaMix,lnNrCrt For Like('MIX*',denumire) And semn='A' + *!* *!* If Used('crslistare2') + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* Select Recno() As nrcrtord,* From crslistare Where !(Like('MIX*',denumire) And semn='A') Into Cursor crslistare2 Readwrite + *!* *!* Select crslistare2 + *!* *!* Append Blank + *!* *!* Replace codmat With '',denumire With 'MIX',semn With 'A',Pret With lnSumaMix,cante With 1,nrcrtord With lnNrCrt,nrord With olistare.nrord + *!* *!* Use In crslistare + *!* *!* Select * From crslistare2 Into Cursor crslistare Order By nrcrtord + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* Select crslistare + *!* *!* Go Top + *!* *!* *!* modificare 09.08.2006 + *!* *!* modificare MIX 07.09.2007 ^ + *!* *!* modificare v 2.0.5 + *!* *!* Do LISTAREUSERREPORT With "crsListare", "FRX", "RAP_DEVIZ_REGIE" In PROCEDURI_RAPOARTE.PRG + *!* goExport.export2frx([crslistare],[rap_deviz_regie]) + *!* *!* modificare v 2.0.5 ^ + *!* *!* 26.06.2006 + *!* Thisform.AlwaysOnTop=.T. + *!* Use In crslistare + *!* Else + *!* amessagebox("Nu exista manopera si materiale pe aceasta comanda!",0+48,"Atentie") + *!* Thisform.ck_nrord.SetFocus() + *!* Endif + *!* *!* modificare v 2.0.5 + *!* If Used('oper') + *!* Use In oper + *!* Endif + *!* If Used('rul') + *!* Use In rul + *!* Endif + *!* *!* modificare v 2.0.5 ^ + *!* modificare v 2.0.35 ^ + Else + amessagebox("Nu puteti lista deviz pentru aceasta comanda, deoarece nu este validata!",0+48,"Atentie") + Thisform.grdcomenzi.SetFocus() + Endif + Else + amessagebox("Nu ati selectat comanda!",0+48,"Atentie") + Thisform.grdcomenzi.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.opt_inchis.Value=Thisform.opt_inchis.ndefault + Thisform.opt_validat.Value=Thisform.opt_validat.ndefault + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.grdcomenzi.SetAll("DynamicForeColor","IIF(facturat=1,RGB(128,128,128),RGB(0,0,0))","Column") + + ENDPROC + + PROCEDURE grdcomenzi.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + Select crscomenzi + DoDefault() + Do Case + Case Validat=0 + Thisform.cmd_inchidere.Enabled=.F. + *!* Thisform.cmd_vizualizare.Enabled=.F. + Case Facturat = 1 + Thisform.cmd_inchidere.Enabled=.F. + Otherwise + Thisform.cmd_inchidere.Enabled=.T. + Thisform.cmd_vizualizare.Enabled=.T. + Endcase + Endif + + ENDPROC + + PROCEDURE opt_validat.Click + If This.Value=3 + Thisform.opt_inchis.Value=3 + Thisform.opt_inchis.Enabled=.F. + Else + Thisform.opt_inchis.Enabled=.T. + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_inchidere_regie 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="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_inchidere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_inchis" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_validat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_vizualizare" UniqueID="" Timestamp="" /> + + * + *m: do_aratanote + *m: do_executa2 + * + + * + cgridsortlist = grdcomenzi + DoCreate = .T. + Height = 504 + lactiv2 = .T. + lactiv3 = .T. + Name = "frm_inchidere_regie" + Width = 793 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 731 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = 0 + _shape2.Width = 64 + _shape2.ZOrderSet = 12 + Lb_titlu_alb_b121.Caption = "NCHIDERE COMENZI REGIE" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 13 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 763 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 2 + BUT_TERMIN1.ZOrderSet = 13 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 733, ; + Name = "But_listare1", ; + TabIndex = 12, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 2, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_datai", ; + TabIndex = 4, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + tip = D, ; + Top = 73, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_nrinmat", ; + TabIndex = 5, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 92, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comand", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_nrord", ; + TabIndex = 2, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 36, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Left = 689, ; + Name = "Ck_nume", ; + TabIndex = 3, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 54, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Left = 690, ; + Name = "Cmd_cauta1", ; + TabIndex = 8, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 262, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmd_inchidere' AS cmd_executa WITH ; + Anchor = 12, ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Left = 690, ; + Name = "Cmd_reset1", ; + TabIndex = 14, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 295, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_vizualizare' AS cmd_executa WITH ; + Anchor = 12, ; + caction = do_aratanote, ; + Caption = "\ + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 456, ; + Left = 17, ; + Name = "grdcomenzi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crscomenzi", ; + TabIndex = 1, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 655, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Width = 90, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "IIF(TYPE('datai')=='D',datai,TTOD(datai))", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDatai", ; + Column2.ReadOnly = .T., ; + Column2.Width = 65, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cNume", ; + Column3.ReadOnly = .T., ; + Column3.Width = 160, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "IIF(validat=1,'Da','Nu')", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cValidat", ; + Column4.ReadOnly = .T., ; + Column4.Width = 36, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "ROUND(manopera,gnPc)", ; + Column5.FontName = "Arial Narrow", ; + Column5.Format = "R", ; + Column5.InputMask = (get_mask(12,gnPc)), ; + Column5.Name = "cManopera", ; + Column5.ReadOnly = .T., ; + Column6.ColumnOrder = 8, ; + Column6.ControlSource = "ROUND(materiale,gnPc)", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPc)), ; + Column6.Name = "cMateriale", ; + Column6.ReadOnly = .T., ; + Column7.ColumnOrder = 9, ; + Column7.ControlSource = "util_valid", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cUtil_valid", ; + Column7.ReadOnly = .T., ; + Column7.Width = 115, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "dataoravalid", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cDataoravalid", ; + Column8.ReadOnly = .T., ; + Column8.Width = 94, ; + Column9.ColumnOrder = 5, ; + Column9.ControlSource = "IIF(facturat=1,'Da','Nu')", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "cFacturat", ; + Column9.ReadOnly = .T., ; + Column9.Width = 39, ; + Column10.ColumnOrder = 6, ; + Column10.ControlSource = "nrfact", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(14,0)), ; + Column10.Name = "cNrFact", ; + Column10.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.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 'grdcomenzi.cDataoravalid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data si ora validarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDataoravalid.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 'grdcomenzi.cFacturat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inchisa", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cFacturat.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 'grdcomenzi.cManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cManopera.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 'grdcomenzi.cMateriale.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Materiale", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cMateriale.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 'grdcomenzi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrFact.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 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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 'grdcomenzi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.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 'grdcomenzi.cUtil_valid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validata de catre", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cUtil_valid.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 'grdcomenzi.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValidat.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 'opt_inchis' AS _optiongrup WITH ; + Anchor = 8, ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 65, ; + Left = 696, ; + Name = "opt_inchis", ; + TabIndex = 7, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 188, ; + Width = 77, ; + OPTION1.AutoSize = .T., ; + OPTION1.Caption = "Toate", ; + OPTION1.FontName = "Arial Narrow", ; + OPTION1.Left = 5, ; + OPTION1.Name = "OPTION1", ; + OPTION1.Top = 5, ; + OPTION1.Value = 1, ; + OPTION2.AutoSize = .T., ; + OPTION2.Caption = "nchise", ; + OPTION2.FontCharSet = 238, ; + OPTION2.FontName = "Arial Narrow", ; + OPTION2.Left = 5, ; + OPTION2.Name = "OPTION2", ; + OPTION2.Top = 24, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Deschise", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Value = 0, ; + Option3.Width = 57 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT 'opt_validat' AS _optiongrup WITH ; + Anchor = 8, ; + AutoSize = .F., ; + ButtonCount = 3, ; + Height = 65, ; + Left = 696, ; + Name = "opt_validat", ; + TabIndex = 6, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 120, ; + Width = 77, ; + OPTION1.AutoSize = .T., ; + OPTION1.Caption = "Toate", ; + OPTION1.FontName = "Arial Narrow", ; + OPTION1.Left = 5, ; + OPTION1.Name = "OPTION1", ; + OPTION1.Top = 5, ; + OPTION1.Value = 1, ; + OPTION2.AutoSize = .T., ; + OPTION2.Caption = "Validate", ; + OPTION2.FontName = "Arial Narrow", ; + OPTION2.Left = 5, ; + OPTION2.Name = "OPTION2", ; + OPTION2.Top = 24, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Nevalidate", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Value = 0, ; + Option3.Width = 63 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pocomenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.grdcomenzi) + pocomenzi.ca_baza1.cfiltru = lcFiltru + pocomenzi.ca_baza1.afisare() + restore_grid_comment(Thisform.grdcomenzi) + Thisform.grdcomenzi.SetAll("DynamicForeColor","IIF(facturat=1,RGB(128,128,128),RGB(0,0,0))","Column") + If Reccount('crscomenzi')>0 + Thisform.cmd_vizualizare.Enabled=.T. + Thisform.grdcomenzi.SetFocus() + Else + Thisform.cmd_inchidere.Enabled = .F. + Thisform.cmd_vizualizare.Enabled=.F. + Endif + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE do_aratanote + If Reccount('crscomenzi')>0 + Local lnid_ordl + Select crscomenzi + lnid_ordl=id_ordl + lcnrord=nrord + If Used('crsfacturi') + Use In crsfacturi + Endif + lcSql=[select a.datai,b.serie_act,b.nract,a.nume,b.dataact,b.explicatia,b.suma,b.scd,b.scc ] + ; + [from ] + gcS + [.auto_vordl a ] + ; + [left join ] + gcS + [.vact b on a.id_lucrare=b.id_lucrare ] + ; + [where a.id_ordl = ] + Alltrim(Str(lnid_ordl)) + ; + [order by b.dataact,b.nract] + + Thisform.MousePointer=11 + Thisform.LockScreen=.T. + lnSucces=goExecutor.oExecute(lcSql,'crsfacturi') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + If Reccount('crsfacturi')>0 + ofrmfacturi=Createobject('frm_factact') + ofrmfacturi.lb_titlu_alb_b121.Caption = [Note contabile comanda ]+Alltrim(lcnrord) + ofrmfacturi.Show(1) + Else + amessagebox("Nu exista note pentru aceasta comanda!",0+48,"Atentie") + Endif + Use In crsfacturi + Else + amessagebox("Nu ati selectat comanda!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = gcCondLuna + [ and a.id_tip=3 ] + If Thisform.ck_datai.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + With Thisform.opt_inchis + Do Case + Case .Value=2 + lcFiltru = lcFiltru + [ and a.facturat=1] + Case .Value=3 + lcFiltru = lcFiltru + [ and a.facturat=0] + Endcase + Endwith + + With Thisform.opt_validat + Do Case + Case .Value=2 + lcFiltru = lcFiltru + [ and a.validat=1] + Case .Value=3 + lcFiltru = lcFiltru + [ and a.validat=0] + Endcase + Endwith + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crscomenzi')=0 + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_executa + If Used('crscomenzi') And Reccount('crscomenzi')>0 + Private pniesire + Local lnPozitieCursor + Select crscomenzi + lnPozitieCursor=Recno() + Scatter Name ocomanda + && optiuni cu analitice + && optiuni tip analitic + lnLungime=4 + Dimension taValori[lnLungime,3] + taValori[1,1]="poAct.v482" + taValori[1,2]=Alltrim(ocomanda.nume) + taValori[1,3]=.T. + taValori[2,1]="poAct.nrord" + taValori[2,2]=Alltrim(ocomanda.nrord) + taValori[2,3]=.T. + taValori[3,1]="poAct.id_lucrare" + taValori[3,2]=Alltrim(Str(ocomanda.id_lucrare)) + taValori[3,3]=.T. + taValori[4,1]="poAct.id_vv482" + taValori[4,2]=Alltrim(Str(ocomanda.id_partener)) + taValori[4,3]=.T. + + If !Isnull(gnid_fdoc_inchreg) + Dimension taValori[lnLungime+2,3] + taValori[lnLungime+1,1]="poAct.id_fdoc" + taValori[lnLungime+1,2]=Alltrim(Str(gnid_fdoc_inchreg)) + taValori[lnLungime+1,3]=.T. + taValori[lnLungime+2,1]="poAct.fdoc" + taValori[lnLungime+2,2]='' + taValori[lnLungime+2,3]=.T. + lnLungime=lnLungime+2 + Endif + + Thisform.AlwaysOnTop=.F. + lans(31006,.F.,.T.,@taValori) && id_set,daca se executa procedura de mai multe ori, + && daca verifica analiticele,array de valori + Thisform.AlwaysOnTop=.T. + + If buton=2 + Do deschid_actc + Return + Endif + + If Used('crsTotaluri') + Use In crsTotaluri + Endif + ********************************************** + *!* lcSql=[select a.tip, a.acont, a.pret, a.id_sectie, b.sectie from ] + ; + *!* [(select 1 as tip, acont, NVL(sum(ROUND(pretv * cante, ?gnPc)), 0) as pret,id_sectie ] + ; + *!* [from rul where id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ and sters = 0 ] + ; + *!* [group by acont, id_sectie ] + ; + *!* [union all ] + ; + *!* [select 2 as tip, '' as acont, NVL(sum(ROUND(timpn * pret, ?gnPc)), 0) as pret, id_sectie ] + ; + *!* [from dev_oper where id_ordl = ] + Alltrim(Str(ocomanda.id_ordl)) + [ and sters = 0 ] + ; + *!* [group by id_sectie) a ] + ; + *!* [left join nom_sectii b on a.id_sectie = b.id_sectie order by tip] + *!* lnSucces=goExecutor.oExecute(lcSql,'crsTotaluri') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Endif + + *!* Select actactan + *!* Locate For nr_nota = 1 + *!* Scatter Name loNota1 + *!* Locate For nr_nota = 3 + *!* Scatter Name loNota3 + *!* Delete For Inlist(nr_nota,1,3) + + *!* Select crsTotaluri + *!* Scan For tip = 1 + *!* Scatter Name loMateriale + *!* With loMateriale + *!* Select actactan + *!* Append Blank + *!* Gather Name loNota1 + *!* Replace ascd With .acont,id_sectie With .id_sectie,sectie With .sectie + *!* Append Blank + *!* Gather Name loNota3 + *!* Replace ascd With .acont,suma With .Pret,id_sectie With .id_sectie,sectie With .sectie + *!* Endwith + *!* Endscan + *!* Calculate Sum(Pret) For tip = 1 To ocomanda.materiale + *!* Calculate Sum(Pret) For tip = 2 To ocomanda.manopera + *!* Select actactan + *!* Replace suma With ocomanda.materiale + ocomanda.manopera For nr_nota = 2 + *!* Replace All id_fact With -1 + *!* Use In crsTotaluri + *!* Use In crsTotaluri2 + ********************************************** + lcSql=[select sum(case when a.tip = 1 then a.pret else 0 end) as materiale,] + ; + [a.id_sectie,b.sectie,sum(a.pret) as total from ] + ; + [(select 1 as tip, NVL(sum(ROUND((case when an * 12 + luna < 2005 * 12 + 7 then ROUND(pretv / 10000,?gnPc) ] + ; + [else pretv end) * cante, ?gnPc)), 0) as pret,id_sectie ] + ; + [from rul where id_lucrare = ] + Alltrim(Str(ocomanda.id_lucrare)) + [ and sters = 0 ] + ; + [group by id_sectie ] + ; + [union all ] + ; + [select 2 as tip, NVL(sum(ROUND(timpn * (case when nou = 0 then ROUND(pret/10000,?gnPc) else pret end), ?gnPc)), 0) as pret, id_sectie ] + ; + [from dev_oper where id_ordl = ] + Alltrim(Str(ocomanda.id_ordl)) + [ and sters = 0 ] + ; + [group by id_sectie) a ] + ; + [left join nom_sectii b on a.id_sectie = b.id_sectie ] + ; + [group by a.id_sectie,b.sectie order by 4] + + lnSucces=goExecutor.oExecute(lcSql,'crsTotaluri') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + Select actactan + Locate For nr_nota = 1 + Scatter Name loNota1 + Locate For nr_nota = 3 + Scatter Name loNota3 + Delete For Inlist(nr_nota,1,3) + + Select crsTotaluri + Scan + Scatter Name loMateriale + With loMateriale + Select actactan + Append Blank + Gather Name loNota1 + Replace suma WITH (-1) * .total,id_sectie With .id_sectie,sectie With .sectie,id_partc WITH 0,partc WITH '' + If .materiale <> 0 + Append Blank + Gather Name loNota3 + Replace suma With .materiale,id_sectie With .id_sectie,sectie With .sectie + Endif + Endwith + Endscan + Calculate Sum(total) TO lnTotal + Select actactan + Replace suma With lnTotal For nr_nota = 2 + *!* modificare v 2.1.0 + *!* Replace All id_fact With -1 + Replace id_fact With -1 for id_fact <> -5 + *!* modificare v 2.1.0 ^ + Use In crsTotaluri + ********************************************** + + Select actactan + Scan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scc) + Endif + poactan.ascc = calc_analitic(poactan.scc,'poActan','poActan') + Select actactan + Replace ascc With poactan.ascc + + Release poactan + Select actactan + Scatter Name poactan + If Type('poActan.cont') = 'U' + x = AddProperty(poactan,'cont',poactan.scd) + Endif + poactan.ascd = calc_analitic(poactan.scd,'poActan','poActan') + Select actactan + Replace ascd With poactan.ascd + Endscan + + Private buton + buton=1 + Select actactan + Go Top + *!* modificare v 2.0.17 + *!* Do Form verificare With .T. + If !verificare_note_contabile('actactan', .T.,.T., .F.) + Do Form verificare With .T. + Endif + *!* modificare v 2.0.17 ^ + If buton=2 + Use In actactan + Return + Endif + + lnSucces = oscrie_in_fisiere() + + If lnSucces>0 + *!* modificare v 2.0.35 + *!* lcSql = [begin pack_devize.dev_completeaza_rul(?gcS,?ocomanda.id_lucrare); end;] + *!* modificare v 2.0.47 : am adaugat poAct.id_set + *!* modificare v 2.0.50 : am pus 31006 in loc de poAct.id_set ( dadea eroare pentru ca nu gasea poAct ) + lcSql = [begin pack_auto.actualizeaza_deviz(pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),'] + ALLTRIM(STR(ocomanda.id_lucrare)) + [',31006); end;] + *!* modificare v 2.0.35 ^ + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + Thisform.actualizeaza_grid1() + If Reccount('crscomenzi')>=lnPozitieCursor + Go lnPozitieCursor + Endif + Endif + + Endif + ENDPROC + + PROCEDURE do_executa2 + ENDPROC + + PROCEDURE do_listare + If Reccount('crscomenzi')>0 + Private porul,pooper,pcschema1,pcselect1 + Store '' To porul,pooper + + Select crscomenzi + Scatter Name ocomanda + + If ocomanda.Validat=1 + *!* modificare v 2.0.35 + listare_comanda_deviz(Thisform,ocomanda,2) + *!* lcSql = [select row_number() over (order by datai,id_oper) as nrcrt,id_ordl,codop,timpn,pret,denop,] + ; + *!* [datai from ] + gcS + [.dev_voper where id_ordl = ?ocomanda.id_ordl and ] + ; + *!* [extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12 ] + ; + *!* [order by 1] + *!* lnSucces = goExecutor.oExecute(lcSql,'oper') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,16,'Eroare') + *!* Return + *!* Endif + + *!* lcSql = [select row_number() over (order by a.dataact,a.id_rul) as nrcrt,a.*,b.denumire,b.codmat from (] + ; + *!* [select id_articol,pretv,SUM(cante) as cante,MIN(dataact) as dataact,MIN(id_rul) as id_rul ] + ; + *!* [from ] + gcS + [.rul where sters = 0 and id_lucrare = ?ocomanda.id_lucrare ] + ; + *!* [group by id_articol,pretv) a ] + ; + *!* [left join nom_articole b on a.id_articol = b.id_articol where a.cante <> 0] + *!* lnSucces = goExecutor.oExecute(lcSql,'rul') + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,16,'Eroare') + *!* Return + *!* Endif + + *!* If Reccount('oper')>0 Or Reccount('rul')>0 + *!* Private pdDataora,pcdataora,pntotaltn,pntotalval,pofirma,pcschema,pcselect,pcorder,pcfiltru + *!* Store '' To pofirma,pcschema,pcselect,pcorder,pcfiltru + + *!* If Used('crsFirma') + *!* Use In crsfirma + *!* Endif + *!* lcSql = [select localitate,strada,numar,cod_fiscal,reg_comert from syn_nom_firme where ] + ; + *!* [id_firma = ?gnIdFirma] && modificare v 2.0.29 : am inlocuit gnId_Firma + *!* lnSucces=goExecutor.oExecute(lcSql,[crsfirma]) + *!* If lnSucces<0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Sele crsfirma + *!* Scatter Name firma + *!* Use In crsfirma + + *!* If Used('crslistare') + *!* Use In crslistare + *!* Endif + + *!* lcSql=[select a.nrord,a.nume,a.cod_fiscal,a.datai,a.asigurator,a.inspector,] + ; + *!* [a.banca,a.cont_banca,a.adresa,a.nr_dosar,a.reg_comert,a.tip_persoana,] + ; + *!* [b.nrinmat,b.series,b.seriem,b.culoare,b.kmint,b.marca,b.masina ] + ; + *!* [from ] + gcS + [.dev_vordl a ] + ; + *!* [left join ] + gcS + [.dev_vmasiniclienti b on a.id_masiniclient=b.id_masiniclient ] + ; + *!* [where a.id_ordl = ?ocomanda.id_ordl] + *!* lnSucces=goExecutor.oExecute(lcSql,'crslistare') + *!* If lnSucces<0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + *!* Select crslistare + *!* Scatter Name olistare Memo + *!* Use In crslistare + + *!* pcdataora=get_ora(2) + *!* pdDataora=Ttod(Ctot(pcdataora)) + + *!* *!* modificare 27.07 + *!* Select rul + *!* Calculate Sum(Round(cante*pretv,gnPc)) To pnTotalMatDeviz + + *!* Select oper + *!* Calculate Sum(Round(timpn*Pret,gnPc)) To pnTotalManDeviz + *!* *!* + + *!* Select nrcrt,olistare.nrord As nrord,'A' As semn,codmat,denumire,cante,pretv As Pret From rul Where cante <> 0 ; + *!* UNION All ; + *!* SELECT nrcrt,olistare.nrord As nrord,'B' As semn,codop As codmat,denop As denumire,timpn As cante,Pret ; + *!* From oper Order By 3,1 Into Cursor crslistare + + *!* Thisform.AlwaysOnTop=.F. + *!* Select crslistare + *!* *!* modificare MIX 07.09.2007 + *!* *!* *!* modificare 09.08.2006 + *!* *!* Locate For Like('MIX*',denumire) And semn=='A' + *!* *!* If Found() + *!* *!* Calculate Sum(Round(cante*Pret,gnPc)),Max(Recno()) To lnSumaMix,lnNrCrt For Like('MIX*',denumire) And semn='A' + *!* *!* If Used('crslistare2') + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* Select Recno() As nrcrtord,* From crslistare Where !(Like('MIX*',denumire) And semn='A') Into Cursor crslistare2 Readwrite + *!* *!* Select crslistare2 + *!* *!* Append Blank + *!* *!* Replace codmat With '',denumire With 'MIX',semn With 'A',Pret With lnSumaMix,cante With 1,nrcrtord With lnNrCrt,nrord With olistare.nrord + *!* *!* Use In crslistare + *!* *!* Select * From crslistare2 Into Cursor crslistare Order By nrcrtord + *!* *!* Use In crslistare2 + *!* *!* Endif + *!* *!* Select crslistare + *!* *!* Go Top + *!* *!* *!* modificare 09.08.2006 + *!* *!* modificare MIX 07.09.2007 ^ + *!* *!* modificare v 2.0.5 + *!* *!* Do LISTAREUSERREPORT With "crsListare", "FRX", "RAP_DEVIZ_REGIE" In PROCEDURI_RAPOARTE.PRG + *!* goExport.export2frx([crslistare],[rap_deviz_regie]) + *!* *!* modificare v 2.0.5 ^ + *!* *!* 26.06.2006 + + *!* Thisform.AlwaysOnTop=.T. + *!* Use In crslistare + *!* Else + *!* amessagebox("Nu exista manopera si materiale pe aceasta comanda!",0+48,"Atentie") + *!* Thisform.ck_nrord.SetFocus() + *!* Endif + *!* *!* modificare v 2.0.5 + *!* If Used('oper') + *!* Use In oper + *!* Endif + *!* If Used('rul') + *!* Use In rul + *!* Endif + *!* *!* modificare v 2.0.5 ^ + *!* modificare v 2.0.35 ^ + Else + amessagebox("Nu puteti lista deviz pentru aceasta comanda, deoarece nu este validata!",0+48,"Atentie") + Thisform.grdcomenzi.SetFocus() + Endif + Else + amessagebox("Nu ati selectat comanda!",0+48,"Atentie") + Thisform.grdcomenzi.SetFocus() + Endif + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.opt_inchis.Value=Thisform.opt_inchis.ndefault + Thisform.opt_validat.Value=Thisform.opt_validat.ndefault + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.grdcomenzi.SetAll("DynamicForeColor","IIF(facturat=1,RGB(128,128,128),RGB(0,0,0))","Column") + + ENDPROC + + PROCEDURE grdcomenzi.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + Select crscomenzi + DoDefault() + Do Case + Case Validat=0 + Thisform.cmd_inchidere.Enabled=.F. + *!* Thisform.cmd_vizualizare.Enabled=.F. + Case Facturat = 1 + Thisform.cmd_inchidere.Enabled=.F. + Otherwise + Thisform.cmd_inchidere.Enabled=.T. + Thisform.cmd_vizualizare.Enabled=.T. + Endcase + Endif + + ENDPROC + + PROCEDURE opt_validat.Click + If This.Value=3 + Thisform.opt_inchis.Value=3 + Thisform.opt_inchis.Enabled=.F. + Else + Thisform.opt_inchis.Enabled=.T. + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_istoric_comenzi 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="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAsigurator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAsigurator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMarca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMarca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMasina.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMasina.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cInspector.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cInspector.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNr_dosar.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNr_dosar.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cArhivat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cArhivat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cPartRef.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cPartRef.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cSeries.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cSeries.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cKmint.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cKmint.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreFunctionare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreFunctionare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValcTVAFactura.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValcTVAFactura.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValManoperaFactura.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValManoperaFactura.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValMaterialeFactura.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValMaterialeFactura.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValMaterialeAch.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValMaterialeAch.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValMaterialeVz.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValMaterialeVz.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_series" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_referinta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_dosar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_inspector" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_asigurator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_vizualizare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_facturat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbValidat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbArhivat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbtip_deviz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbArhivat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbValidat" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + cgridsortlist = grdcomenzi + DoCreate = .T. + Height = 489 + lactiv1 = .T. + lactiv2 = .T. + Name = "frm_istoric_comenzi" + Width = 793 + WindowState = 2 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 730 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = 0 + _shape2.Width = 65 + _shape2.ZOrderSet = 9 + Lb_titlu_alb_b121.Caption = "ISTORIC COMENZI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 15 + Lb_titlu_alb_b121.ZOrderSet = 2 + BUT_TERMIN1.Left = 762 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 14 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 10 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 16, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 733, ; + Name = "But_listare1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbArhivat' AS ctip_deviz WITH ; + Anchor = 8, ; + Left = 691, ; + Name = "cbArhivat", ; + TabIndex = 6, ; + Top = 327, ; + _combobox1.Name = "_combobox1" + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'cbtip_deviz' AS ctip_deviz WITH ; + Left = 692, ; + Name = "cbtip_deviz", ; + TabIndex = 10, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 240, ; + _combobox1.Name = "_combobox1" + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'cbValidat' AS ctip_deviz WITH ; + Anchor = 8, ; + Left = 692, ; + Name = "cbValidat", ; + TabIndex = 6, ; + Top = 283, ; + _combobox1.Name = "_combobox1" + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_asigurator' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.asigurator, ; + Caption = "Asigurator", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_asigurator", ; + TabIndex = 6, ; + Top = 125, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_datai", ; + TabIndex = 3, ; + tip = D, ; + Top = 69, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_facturat' AS ck_simplu WITH ; + Alignment = 0, ; + Anchor = 8, ; + Caption = "Facturate", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_facturat", ; + TabIndex = 5, ; + Top = 111, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_inspector' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.inspector, ; + Caption = "Inspector", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_inspector", ; + TabIndex = 7, ; + Top = 139, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_dosar' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nr_dosar, ; + Caption = "Nr.dosar", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_nr_dosar", ; + TabIndex = 8, ; + Top = 154, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_nrinmat", ; + TabIndex = 4, ; + Top = 83, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comanda", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_nrord", ; + TabIndex = 1, ; + Top = 41, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_nume", ; + TabIndex = 2, ; + Top = 55, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_referinta' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.part_ref, ; + Caption = "Referinta", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Ck_referinta", ; + TabIndex = 2, ; + Top = 169, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_series' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.series, ; + Caption = "Serie sasiu", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "ck_series", ; + TabIndex = 2, ; + Top = 97, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 696, ; + Name = "Cmd_cauta1", ; + TabIndex = 11, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 363, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 696, ; + Name = "Cmd_reset1", ; + TabIndex = 16, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 392, ; + Width = 84, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_sterge1' AS cmd_sterge WITH ; + Left = 696, ; + Name = "Cmd_sterge1", ; + TabIndex = 17, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 424, ; + Visible = .F., ; + Width = 84 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_vizualizare' AS cmd_executa WITH ; + Caption = "Vi\ + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + ColumnCount = 25, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 444, ; + Left = 17, ; + Name = "grdcomenzi", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "crscomenzi", ; + RowHeight = 19, ; + TabIndex = 13, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 663, ; + ZOrderSet = 3, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Width = 90, ; + Column2.ColumnOrder = 8, ; + Column2.ControlSource = "IIF(TYPE('datai')=='D',datai,TTOD(datai))", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDatai", ; + Column2.ReadOnly = .T., ; + Column2.Width = 87, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNume", ; + Column3.ReadOnly = .T., ; + Column3.Width = 160, ; + Column4.ColumnOrder = 9, ; + Column4.ControlSource = "IIF(validat=1,'Da','Nu')", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cValidat", ; + Column4.ReadOnly = .T., ; + Column4.Width = 44, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "asigurator", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cAsigurator", ; + Column5.ReadOnly = .T., ; + Column6.ColumnOrder = 10, ; + Column6.ControlSource = "IIF(facturat=1,'Da','Nu')", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cFacturat", ; + Column6.ReadOnly = .T., ; + Column6.Width = 52, ; + Column7.ColumnOrder = 3, ; + Column7.ControlSource = "marca", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "cMarca", ; + Column7.ReadOnly = .T., ; + Column7.Width = 85, ; + Column8.ColumnOrder = 4, ; + Column8.ControlSource = "masina", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Name = "cMasina", ; + Column8.ReadOnly = .T., ; + Column9.ColumnOrder = 13, ; + Column9.ControlSource = "tip_comanda", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cTip_comanda", ; + Column9.ReadOnly = .T., ; + Column9.Width = 78, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "IIF(TYPE('datafact')=='D',datafact,TTOD(datafact))", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "cDataFact", ; + Column10.ReadOnly = .T., ; + Column10.Width = 82, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "nrfact", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.InputMask = (get_mask(14,0)), ; + Column11.Name = "cNrFact", ; + Column11.ReadOnly = .T., ; + Column11.Width = 80, ; + Column12.ColumnOrder = 6, ; + Column12.ControlSource = "inspector", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "cInspector", ; + Column12.ReadOnly = .T., ; + Column12.Width = 61, ; + Column13.ColumnOrder = 7, ; + Column13.ControlSource = "nr_dosar", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.Name = "cNr_dosar", ; + Column13.ReadOnly = .T., ; + Column13.Width = 69, ; + Column14.ControlSource = "IIF(inchis_fortat=1,'Da','Nu')", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.Name = "cArhivat", ; + Column14.ReadOnly = .T., ; + Column14.Width = 42, ; + Column15.ControlSource = "part_ref", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.Name = "cPartRef", ; + Column15.ReadOnly = .T., ; + Column15.Width = 112, ; + Column16.ControlSource = "series", ; + Column16.FontSize = 10, ; + Column16.Name = "cSeries", ; + Column16.ReadOnly = .T., ; + Column16.Width = 181, ; + Column17.ControlSource = "kmint", ; + Column17.FontSize = 10, ; + Column17.Name = "cKmint", ; + Column17.ReadOnly = .T., ; + Column18.ControlSource = "ore_functionare", ; + Column18.FontSize = 10, ; + Column18.Name = "cOreFunctionare", ; + Column18.ReadOnly = .T., ; + Column19.ControlSource = "valctva_factura", ; + Column19.FontSize = 10, ; + Column19.Format = "R", ; + Column19.InputMask = (get_mask(16,gnPc)), ; + Column19.Name = "cValcTVAFactura", ; + Column19.ReadOnly = .T., ; + Column19.Width = 138, ; + Column20.ControlSource = "val_manopera_factura", ; + Column20.FontSize = 10, ; + Column20.Format = "R", ; + Column20.InputMask = (get_mask(16,gnPc)), ; + Column20.Name = "cValManoperaFactura", ; + Column20.ReadOnly = .T., ; + Column20.Width = 152, ; + Column21.ControlSource = "val_materiale_factura", ; + Column21.FontSize = 10, ; + Column21.Format = "R", ; + Column21.InputMask = (get_mask(16,gnPc)), ; + Column21.Name = "cValMaterialeFactura", ; + Column21.ReadOnly = .T., ; + Column21.Width = 148, ; + Column22.ControlSource = "val_materiale_ach", ; + Column22.FontSize = 10, ; + Column22.Format = "R", ; + Column22.InputMask = (get_mask(16,gnPc)), ; + Column22.Name = "cValMaterialeAch", ; + Column22.ReadOnly = .T., ; + Column22.Width = 157, ; + Column23.ControlSource = "val_materiale_vz", ; + Column23.CurrentControl = "Text1", ; + Column23.FontSize = 10, ; + Column23.Format = "R", ; + Column23.InputMask = (get_mask(16,gnPc)), ; + Column23.Name = "cValMaterialeVz", ; + Column23.ReadOnly = .T., ; + Column23.Width = 153, ; + Column24.ControlSource = "ore_manopera", ; + Column24.FontSize = 10, ; + Column24.Format = "R", ; + Column24.InputMask = (get_mask(16,gnPc)), ; + Column24.Name = "cOreManopera", ; + Column24.ReadOnly = .T., ; + Column24.Width = 86, ; + Column25.ControlSource = "val_manopera", ; + Column25.FontSize = 10, ; + Column25.Format = "R", ; + Column25.InputMask = (get_mask(16,gnPc)), ; + Column25.Name = "cValManopera", ; + Column25.ReadOnly = .T., ; + Column25.Width = 109 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cArhivat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Arhivat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cArhivat.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 'grdcomenzi.cAsigurator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asigurator", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cAsigurator.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 'grdcomenzi.cDataFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDataFact.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 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.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 'grdcomenzi.cFacturat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Facturat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cFacturat.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 'grdcomenzi.cInspector.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inspector", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cInspector.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 'grdcomenzi.cKmint.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Km la bord", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cKmint.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cMarca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca masina", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cMarca.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 'grdcomenzi.cMasina.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip masina", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cMasina.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 'grdcomenzi.cNr_dosar.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. dosar", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNr_dosar.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 'grdcomenzi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrFact.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 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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 'grdcomenzi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.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., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cOreFunctionare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ore motor", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cOreFunctionare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cOreManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ore manopera", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cOreManopera.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cPartRef.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Referinta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cPartRef.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 'grdcomenzi.cSeries.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie sasiu", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cSeries.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cTip_comanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cTip_comanda.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 'grdcomenzi.cValcTVAFactura.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare factura cu TVA", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValcTVAFactura.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValidat.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 'grdcomenzi.cValManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare manopera", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValManopera.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cValManoperaFactura.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare manopera factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValManoperaFactura.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cValMaterialeAch.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare materiale achizitie", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValMaterialeAch.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cValMaterialeFactura.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare materiale factura", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValMaterialeFactura.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cValMaterialeVz.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare materiale vanzare", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValMaterialeVz.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.grdComenzi, ; + Left = 624, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 384 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Tip comanda", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "Lb_simplu1", ; + TabIndex = 9, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 222, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lbArhivat' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Arhivate", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "lbArhivat", ; + TabIndex = 5, ; + Top = 311, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lbValidat' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Validate", ; + FontName = "Arial Narrow", ; + Left = 692, ; + Name = "lbValidat", ; + TabIndex = 5, ; + Top = 267, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Xresize1' AS xresize WITH ; + Left = 780, ; + Name = "Xresize1", ; + Top = 480 + *< END OBJECT: ClassLib="..\comun\clase\xresize.vcx" BaseClass="custom" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pocomenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid(Thisform.grdcomenzi) + pocomenzi.ca_baza1.cfiltru = lcFiltru + pocomenzi.ca_baza1.afisare() + restore_grid(Thisform.grdcomenzi) + + If Reccount('crscomenzi')>0 + Thisform.grdcomenzi.SetFocus() + Endif + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + Local lnOptiune, lnOptiuneArhivat + lcFiltru = [2=2] + + lnOptiune = Iif(Thisform.cbValidat._combobox1.Value = '', 1, Iif(Thisform.cbValidat._combobox1.Value = 'Validate', 2, 3)) + lnOptiuneArhivat = Iif(Thisform.cbArhivat._combobox1.Value = '', 1, Iif(Thisform.cbArhivat._combobox1.Value = 'Active', 2, 3)) + + If Thisform.ck_datai.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrord.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + If Thisform.ck_asigurator.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_asigurator.filtru + ENDIF + + If Thisform.ck_inspector.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_inspector.filtru + ENDIF + + If Thisform.ck_nr_dosar.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nr_dosar.filtru + Endif + + If Thisform.ck_facturat.Value = 1 + lcFiltru = lcFiltru + [ and a.facturat=1 ] + Endif + + If Thisform.ck_series.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_series.filtru + ENDIF + + If Thisform.cbtip_deviz._combobox1.Value!= "" + lcFiltru = lcFiltru + [ and a.id_tip = ] + Alltrim(Str(lista_tipuri.id_tip)) + Endif + + Do Case + Case lnOptiune = 2 + lcFiltru = lcFiltru + [ and a.validat = 1] + Case lnOptiune = 3 + lcFiltru = lcFiltru + [ and a.validat = 0] + Endcase + + Do Case + Case lnOptiuneArhivat = 2 && Active (nearhivate) + lcFiltru = lcFiltru + [ and a.inchis_fortat = 0] + Case lnOptiuneArhivat = 3 && arhivate + lcFiltru = lcFiltru + [ and a.inchis_fortat = 1] + ENDCASE + + If Thisform.ck_referinta.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_referinta.filtru + ENDIF + + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crscomenzi') = 0 + amessagebox('Cautarea nu a intors rezultate!', 0 + 48, 'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_excel + If Reccount('crscomenzi')=0 + amessagebox("Nu exista date pentru export!",0+48,"Atentie") + Return + Endif + + DO ExportExcelXml WITH this.grdcomenzi IN excelxml.prg + ENDPROC + + PROCEDURE do_executa + If Reccount('crscomenzi')>0 + *!* modificare v 2.0.35 + Select crscomenzi + Scatter Name ocomanda + vizualizeaza_detalii_comanda(Thisform,ocomanda,.T.) + *!* Private porul,pooper,podevest + *!* Store '' To porul,pooper,podevest + *!* Do ccsectii in update_devize.prg + *!* Select crscomenzi + *!* Scatter Name ocomanda + *!* pcschema=['ID_ORDL n(10),CODOP c(10),TIMPN n(9,3),PRET n(20,4),VALIDAT n(1),DENOP c(100),SECTIE c(100),DATAI d,ID_OPER N(20)'] + *!* pcselect=['select id_ordl,codop,timpn,pret,validat,denop,sectie,datai,id_oper from ] + gcS + [.dev_voper where 1=2'] + *!* *!* modificare 09.06 + *!* *!* pcorder=[validat desc,dataora,datai,denop,sectie] + *!* pcorder=[datai,id_oper] + *!* *!* ^ + *!* *!* modificare 27.01 + *!* *!* pcschema=['ID_ORDL n(10),CODOP c(10),TIMPN n(9,3),PRET n(20,4),VALIDAT n(1),DENOP c(100),SECTIE c(30),DATAORA D'] + *!* *!* pcselect=['select id_ordl,codop,timpn,pret,validat,denop,sectie,dataora from ] + gcS + [.dev_voper where 1=2'] + *!* *!* pcorder=[dataora,sectie,denop] + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('pooper','oper',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + *!* pooper.ca_baza1.afisare() + *!* pooper.ca_baza1.cfiltru = [id_ordl = ]+Alltrim(Str(ocomanda.id_ordl))+[ and ] + ; + *!* [extract(month from datai)+extract (year from datai)*12<=?gnLuna+?gnAn*12] + *!* *!* modificare 27.01 + *!* *!* [extract(month from dataora)+extract (year from dataora)*12<=?gnLuna+?gnAn*12] + *!* pcschema=['DENUMIRE v(100),COD v(10),UM v(10),CANTITATE n(20,4),PRETFTVA n(20,4),PRETCTVA n(20,4),COTA_TVA n(10),VALOARE n(20,4),ID_DEV_ESTIMARE_REP n(20),ID_LUCRARE n(10),NRORD v(50),ID_NORME n(5),ID_ARTICOL n(20),PRET_CU_TVA n(1),VALFTVA n(20,4),VALTVA n(20,4)'] + *!* pcselect=['select denumire,cod,um,cantitate,pretftva,pretctva,cota_tva,valoare,id_dev_estimare_rep,id_lucrare,nrord,id_norme,id_articol,pret_cu_tva,valftva,valtva from ] + gcS + [.dev_vestimari_rep where 1=2'] + *!* pcorder=[id_dev_estimare_rep] + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('podevest','v_devizest',pcselect,pcfiltru,pcschema,pcorder) + *!* podevest.ca_baza1.afisare() + *!* podevest.ca_baza1.cfiltru = [id_lucrare = ] + ALLTRIM(STR(ocomanda.id_lucrare)) + *!* *!* modificare v 2.0.22 : am adaugat tva + *!* pcschema=['CODMAT c(50),DENUMIRE c(100),PRETV n(20,4),CANTE n(18,3),DATAACT D,ID_RUL n(20),COTA_DIFERITA n(1),TVA n(20,4)'] + *!* pcselect=[select codmat,denumire,pretv,cante,dataact,id_rul,decode(proc_tvav,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0,1) as cota_diferita,] + ; + *!* [pack_sesiune.calculeaza_pret_tva(pretv,1,pack_def.GetIdMonedaNationala(),pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0) as tva ] + ; + *!* [from ] + gcS + [.vrul where 1=2'] + *!* pcorder=[dataact,id_rul] + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('porul','rul',pcselect,pcfiltru,pcschema,pcorder) + *!* porul.ca_baza1.afisare() + *!* porul.ca_baza1.cfiltru = [id_lucrare = ]+Alltrim(Str(ocomanda.id_lucrare))+[ and ]+; + *!* [luna+an*12<=?gnLuna+?gnAn*12] + *!* + *!* + *!* + *!* Thisform.AlwaysOnTop=.F. + *!* ofrmvizualizare = Createobject('frm_vizcomanda',2,ocomanda.Validat) && 2 = vizualizare + *!* ofrmvizualizare.Show(1) + *!* Thisform.AlwaysOnTop=.T. + *!* *!* modificare v 2.0.5 + *!* If Used('oper') + *!* Use In oper + *!* Endif + *!* If Used('rul') + *!* Use In rul + *!* Endif + *!* *!* modificare v 2.0.5 ^ + *!* modificare v 2.0.35 ^ + Else + amessagebox("Nu exista inregistrari pentru care sa vizualizati manopera si materialele!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_listare + Local lnIdOrdl, lnOptiune, lnRecno + PRIVATE ocomanda + lnOptiune = xmenu('Listare deviz;Listare raport comanda') + If Empty(m.lnOptiune) + Return + Endif + + If m.lnOptiune = 1 + If Reccount('crscomenzi') > 0 + Private porul, pooper, pcschema1, pcselect1, poFirma + Store '' To porul, pooper, poFirma + + Select crscomenzi + lnRecno = Recno() + Use In (Select('crsdevize')) + *!* Calculate Sum(ales) To lnAlese + *!* If lnAlese = 0 + Select * From crscomenzi Where Recno() = lnRecno Into Cursor crsdevize + *!* Else + *!* Select * From crscomenzi With (Buffering = .T.) Where ales = 1 Into Cursor crsdevize + *!* Endif + + Select crsdevize + Scan + Scatter Name ocomanda + *!* If ocomanda.Validat=1 + listare_comanda_deviz(Thisform, ocomanda) + *!* Else + *!* amessagebox("Nu puteti lista deviz pentru comanda " + Alltrim(ocomanda.nrord)+ ", deoarece nu este validata!",0+48,"Atentie") + *!* Endif + Endscan + Use In (Select('crsdevize')) + *!* Use In (Select('crsFirma')) && modificare v 2.0.35 + Select crscomenzi + Go lnRecno + Thisform.grdcomenzi.SetFocus() + Else + amessagebox("Nu ati selectat nici o comanda!", 0 + 48, "Atentie") + Thisform.grdcomenzi.SetFocus() + Endif + Else + If Reccount('crscomenzi') > 0 + Thisform.AlwaysOnTop = .F. + lnIdOrdl = crscomenzi.id_ordl + Do listare_precomanda With m.lnIdOrdl + Thisform.AlwaysOnTop = .T. + Endif + Endif + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.cbtip_deviz.do_reset() + thisform.cbvalidat.do_reset() + thisform.cbarhivat.do_reset() + Thisform.ck_nrord.SetFocus() + ENDPROC + + PROCEDURE do_sterge + SELECT crsComenzi + SCATTER NAME ocom + + lcSql = [update ] + gcS + [.dev_ordl set sters = 1, dataoras = sysdate , id_utils = ] + ALLTRIM(STR(gnIdUtil)) + [where id_ordl = ]+ALLTRIM(STR(ocom.id_ordl)) + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Return + ENDIF + + lcSql = [update ] + gcS + [.dev_oper set sters = 1, dataoras = sysdate , id_utils = ] + ALLTRIM(STR(gnIdUtil)) + [where id_ordl = ]+ALLTRIM(STR(ocom.id_ordl)) + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Return + ENDIF + + lcSql = [select * from ] + gcS + [.dev_oper where id_ordl = ]+ALLTRIM(STR(ocom.id_ordl)) + lcCursor = 'crsOper' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Return + ENDIF + + SELECT &lcCursor + + IF _tally <= 0 + RETURN + ENDIF + + SCAN + SCATTER NAME oop + lcSql = [update ] + gcS + [.dev_oper_mecanici set sters = 1 where id_oper = ]+ALLTRIM(STR(oop.id_oper)) + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,"Eroare") + Return + ENDIF + RELEASE oop + ENDSCAN + SELECT &lcCursor + USE + thisform.do_cauta + + ENDPROC + + PROCEDURE Init + DODEFAULT() + this.gridextra1.setup() + ENDPROC + + PROCEDURE cbArhivat._combobox1.Destroy + Use In (SELECT('lista_arhivat')) + ENDPROC + + PROCEDURE cbArhivat._combobox1.Init + Create Cursor lista_arhivat (denumire C(50),id N(5)) + Select lista_arhivat + INSERT INTO lista_arhivat (denumire, id) VALUES ('', 0) + INSERT INTO lista_arhivat (denumire, id) VALUES ('Active', 1) + INSERT INTO lista_arhivat (denumire, id) VALUES ('Arhivate', 2) + + + This.RowSourceType= 2 + This.RowSource="lista_arhivat" + This.Value="Active" + this.Parent.cdefault="Active" + ENDPROC + + PROCEDURE cbValidat._combobox1.Destroy + Use In (SELECT('lista_validat')) + ENDPROC + + PROCEDURE cbValidat._combobox1.Init + Create Cursor lista_validat(denumire C(50),id N(5)) + Select lista_validat + INSERT INTO lista_validat(denumire, id) VALUES ('', 0) + INSERT INTO lista_validat(denumire, id) VALUES ('Validate', 1) + INSERT INTO lista_validat(denumire, id) VALUES ('Nevalidate', 2) + + + This.RowSourceType= 2 + This.RowSource="lista_validat" + This.Value="" + this.Parent.cdefault="" + ENDPROC + + PROCEDURE grdcomenzi.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + DoDefault() + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_modificare_mc 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="grdclienti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cPartener.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cPartener.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cAdresa.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cAdresa.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cMarca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cMarca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cMasina.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cMasina.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cCuloare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cCuloare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cKmint.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cKmint.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cSeries.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cSeries.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cSeriem.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdclienti.cSeriem.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_mesaj" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grdclienti + DoCreate = .T. + Height = 421 + Name = "frm_modificare_mc" + Width = 684 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 684 + _shape2.Height = 29 + _shape2.Left = 620 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 73 + Lb_titlu_alb_b121.Caption = "MODIFICARE CLIENT COMAND" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 3 + BUT_TERMIN1.Left = 654 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 0 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 324 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 624, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdclienti' AS _grdrow WITH ; + ColumnCount = 9, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 276, ; + Left = 36, ; + Name = "grdclienti", ; + Panel = 1, ; + RecordSource = "crsclienti", ; + TabIndex = 5, ; + Top = 120, ; + Width = 612, ; + Column1.ControlSource = "partener", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cPartener", ; + Column1.Width = 127, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "cod_fiscal", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cCod_fiscal", ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "adresa", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cAdresa", ; + Column3.Width = 139, ; + Column4.ControlSource = "marca", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cMarca", ; + Column5.ControlSource = "masina", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cMasina", ; + Column6.ControlSource = "culoare", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "cCuloare", ; + Column7.ControlSource = "kmint", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cKmint", ; + Column7.Width = 88, ; + Column8.ControlSource = "series", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cSeries", ; + Column8.Width = 137, ; + Column9.ControlSource = "seriem", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "cSeriem", ; + Column9.Width = 164 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdclienti.cAdresa.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Adresa", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cAdresa.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 'grdclienti.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.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 'grdclienti.cCuloare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Culoare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cCuloare.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 'grdclienti.cKmint.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Km int.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cKmint.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 'grdclienti.cMarca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Marca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cMarca.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 'grdclienti.cMasina.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Model", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cMasina.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 'grdclienti.cPartener.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cPartener.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 'grdclienti.cSeriem.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie motor", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cSeriem.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 'grdclienti.cSeries.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie sasiu", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdclienti.cSeries.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_client' AS lb_simplu WITH ; + Caption = "Client", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 29, ; + Name = "Lb_client", ; + TabIndex = 6, ; + Top = 63, ; + Width = 46 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_mesaj' AS lb_simplu WITH ; + Caption = "Alegei clientul pe care dorii s mutai comanda:", ; + Left = 22, ; + Name = "Lb_mesaj", ; + TabIndex = 7, ; + Top = 95 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_nrord' AS lb_simplu WITH ; + Caption = "Comand", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 29, ; + Name = "Lb_nrord", ; + TabIndex = 6, ; + Top = 39, ; + Width = 76 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE inainte_de_do_termin + Local llReturn + Store .T. To llReturn + Select crsclienti + pnIdMasiniClient=id_masiniclient + lcNumeNou=Alltrim(Nvl(partener,[---])) + lcNumeVechi=Alltrim(Substr(Thisform.lb_client.Caption,8)) + If Empty(pnIdMasiniClient) + amessagebox("Nu ati ales clientul pe care doriti sa mutati comanda!",0+48,"Atentie") + llReturn=.F. + Else + If amessagebox("Doriti sa treceti comanda de pe clientul "+lcNumeVechi+; + " pe clientul "+lcNumeNou+" ?",4+32+256,"Confirmare")==6 + llReturn=.T. + Else + llReturn=.F. + Endif + Endif + Return llReturn + + ENDPROC + + PROCEDURE Init + Lparameters tcComanda,tcClient + DoDefault() + Thisform.lb_nrord.Caption=[Comand: ]+Alltrim(Nvl(tcComanda,[---])) + Thisform.lb_client.Caption=[Client: ]+Alltrim(Nvl(tcClient,[---])) + Select crsclienti + Go Top + Thisform.AutoCenter=.T. + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_normare_salarii 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="grdmanopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTimpN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTimpN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cPret.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cPret.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cFacturat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cFacturat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cUtil.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cUtil.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDataora.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDataora.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cIncasat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cIncasat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatafactura.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatafactura.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cSectie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cSectie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTip_comanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTip_comanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datafact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_mecanic" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_denumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totalore" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totalvaloare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrinreg" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_totalore" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic._cbbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic._textbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cOre.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cOre.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_timpn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_timpn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_normare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_totalore" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbtip_deviz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_ore_mecanic" UniqueID="" Timestamp="" /> + + * + *p: lsalvat && Arata daca modificarile facute asupra datelor din grid au fost salvate in baza de date. + *p: lvalidat && Arata daca inregistrarea modificata a fost validata sau nu inainte de iesirea din forma. + *p: norainitiala && Ora initiala. + *p: noramodificata && Ora modificata. + *p: ntimpnedistribuit && Specifica cat timp a ramas nedistribuit pentru operatia selectata. + * + + * + cgridsortlist = grdmanopera,grdmecanici + DoCreate = .T. + Height = 566 + lactiv4 = .T. + lsalvat = .T. + lvalidat = .T. + Name = "frm_normare_salarii" + ntimpnedistribuit = 0.000 + Width = 793 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 1 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 756 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = -1 + _shape2.Width = 38 + _shape2.ZOrderSet = 9 + Lb_titlu_alb_b121.Caption = "MANOPER - SALARIZARE" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 15 + Lb_titlu_alb_b121.ZOrderSet = 2 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Comment = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Left = 762 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 14 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 14 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 13, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 240, ; + Left = 428, ; + Name = "_shape3", ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 167, ; + Width = 345, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 723, ; + Name = "But_nou1", ; + TabIndex = 11, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 152, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 753, ; + Name = "But_sterge1", ; + TabIndex = 12, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 152, ; + Visible = .T., ; + ZOrderSet = 23 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbtip_deviz' AS ctip_deviz WITH ; + Anchor = 8, ; + Left = 511, ; + Name = "cbtip_deviz", ; + TabIndex = 8, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 111, ; + ZOrderSet = 26, ; + _combobox1.Name = "_combobox1" + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_datafact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datafact, ; + Caption = "Dat factur", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_datafact", ; + TabIndex = 6, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + tip = D, ; + Top = 123, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_denumire' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = b.denop, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_denumire", ; + TabIndex = 3, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 61, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_mecanic' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = nume||CHR(32)||prenume, ; + Caption = "Mecanic", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_mecanic", ; + TabIndex = 5, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 103, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comand", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_nrord", ; + TabIndex = 2, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 42, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_sectie' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = b.sectie, ; + Caption = "Secie", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_sectie", ; + TabIndex = 4, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 82, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_nrinreg' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 490, ; + Name = "Clb_nrinreg", ; + TabIndex = 18, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 524, ; + ZOrderSet = 13, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.InputMask = "999 999 999 999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Nr. nregistrri", ; + Lb_simplu1.Left = 3, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_ore_mecanic' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 489, ; + Name = "clb_ore_mecanic", ; + TabIndex = 26, ; + Tag = "MOVABLE", ; + Top = 421, ; + Visible = .F., ; + Text_simplu1.Alignment = 1, ; + Text_simplu1.InputMask = "999 999 999.999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Ore mecanic", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalore' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 490, ; + Name = "Clb_totalore", ; + TabIndex = 17, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 453, ; + ZOrderSet = 11, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.InputMask = "999 999 999.999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0.00, ; + Lb_simplu1.Caption = "Total timp normat", ; + Lb_simplu1.Left = 3, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalvaloare' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 490, ; + Name = "Clb_totalvaloare", ; + TabIndex = 19, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 481, ; + ZOrderSet = 12, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total valoare lei", ; + Lb_simplu1.Left = 3, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Left = 610, ; + Name = "Cmd_cauta1", ; + TabIndex = 9, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 42, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_normare' AS cmd_executa WITH ; + Anchor = 8, ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Left = 610, ; + Name = "Cmd_reset1", ; + TabIndex = 16, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 78, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdmanopera' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 516, ; + Left = 20, ; + Name = "grdmanopera", ; + Panel = 1, ; + RecordSource = "crsmanopera", ; + RowHeight = 23, ; + TabIndex = 1, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 388, ; + ZOrderSet = 3, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Width = 90, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDatai", ; + Column2.ReadOnly = .T., ; + Column2.Width = 65, ; + Column3.ControlSource = "denop", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cDenumire", ; + Column3.ReadOnly = .T., ; + Column3.Width = 160, ; + Column4.ControlSource = "timpn", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "R", ; + Column4.InputMask = "99 999.999", ; + Column4.Name = "cTimpN", ; + Column4.ReadOnly = .T., ; + Column4.Width = 58, ; + Column5.ControlSource = "pret", ; + Column5.FontName = "Arial Narrow", ; + Column5.Format = "R", ; + Column5.InputMask = (get_mask(12,gnPPretV)), ; + Column5.Name = "cPret", ; + Column5.ReadOnly = .T., ; + Column5.Width = 85, ; + Column6.ControlSource = "ROUND(pret*timpn,gnPc)", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPc)), ; + Column6.Name = "cValoare", ; + Column6.ReadOnly = .T., ; + Column6.Width = 108, ; + Column7.Alignment = 2, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "IIF(facturat=1,'Da','Nu')", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cFacturat", ; + Column7.ReadOnly = .T., ; + Column7.Width = 43, ; + Column8.ColumnOrder = 11, ; + Column8.ControlSource = "util", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cUtil", ; + Column8.ReadOnly = .T., ; + Column8.Width = 115, ; + Column9.ColumnOrder = 12, ; + Column9.ControlSource = "dataora", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "cDataora", ; + Column9.ReadOnly = .T., ; + Column9.Width = 93, ; + Column10.ColumnOrder = 9, ; + Column10.ControlSource = "incasat", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "cIncasat", ; + Column10.ReadOnly = .T., ; + Column10.Width = 38, ; + Column11.ColumnOrder = 10, ; + Column11.ControlSource = "datafact", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "cDatafactura", ; + Column11.ReadOnly = .T., ; + Column11.Width = 58, ; + Column12.ColumnOrder = 7, ; + Column12.ControlSource = "sectie", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "cSectie", ; + Column12.Width = 132, ; + Column13.ControlSource = "tip_comanda", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "cTip_comanda" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdmanopera.cDatafactura.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDatafactura.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 'grdmanopera.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDatai.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 'grdmanopera.cDataora.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data si ora validarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDataora.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 'grdmanopera.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDenumire.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 'grdmanopera.cFacturat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Facturat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cFacturat.Text1' AS textbox WITH ; + Alignment = 2, ; + 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 'grdmanopera.cIncasat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cIncasat.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 'grdmanopera.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cNrord.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 'grdmanopera.cPret.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cPret.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 'grdmanopera.cSectie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cSectie.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 'grdmanopera.cTimpN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Timp normat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cTimpN.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 'grdmanopera.cTip_comanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cTip_comanda.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 'grdmanopera.cUtil.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validata de catre", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cUtil.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 'grdmanopera.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cValoare.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 'grdmecanici' AS _grdrow WITH ; + Anchor = 13, ; + ColumnCount = 2, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 208, ; + Left = 439, ; + Name = "grdmecanici", ; + Panel = 1, ; + RecordSource = "crsmecanici", ; + RowHeight = 27, ; + TabIndex = 10, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 183, ; + Width = 324, ; + ZOrderSet = 18, ; + Column1.ControlSource = "nume", ; + Column1.DynamicCurrentControl = "IIF(glLunaInchisa,'_textbox1','_cbbase1')", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cMecanic", ; + Column1.Sparse = .F., ; + Column1.Width = 227, ; + Column2.ControlSource = "ore", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "R", ; + Column2.InputMask = "99 999.999", ; + Column2.Name = "cOre", ; + Column2.Width = 65 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdmecanici.cMecanic._cbbase1' AS _cbbase WITH ; + FontName = "Arial Narrow", ; + Left = 35, ; + Name = "_cbbase1", ; + RowSource = "v_mecanici.nume,id_mecanic", ; + RowSourceType = 6, ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\_cb_base.vcx" BaseClass="combobox" /> + + ADD OBJECT 'grdmecanici.cMecanic._textbox1' AS _textbox WITH ; + Left = 114, ; + Name = "_textbox1", ; + Top = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'grdmecanici.cMecanic.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mecanic", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmecanici.cOre.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. ore", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmecanici.cOre.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_nrord' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Nr. comand : ", ; + FontName = "Arial Narrow", ; + Left = 441, ; + Name = "lb_nrord", ; + TabIndex = 20, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 160, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Tip comand", ; + FontName = "Arial Narrow", ; + Left = 507, ; + Name = "Lb_simplu1", ; + TabIndex = 7, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 94, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_timpn' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Timp normat :", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 596, ; + Name = "Lb_timpn", ; + TabIndex = 21, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 160, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_totalore' AS lb_simplu WITH ; + Anchor = 12, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total ore:", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 665, ; + Name = "Lb_totalore", ; + TabIndex = 22, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 397, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'tx_nrord' AS _textbox WITH ; + Anchor = 8, ; + FontName = "Arial Narrow", ; + Height = 23, ; + Left = 506, ; + Name = "tx_nrord", ; + ReadOnly = .T., ; + TabIndex = 25, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 156, ; + Width = 86, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'tx_timpn' AS _textbox WITH ; + Alignment = 3, ; + Anchor = 8, ; + FontBold = .T., ; + Format = "R", ; + Height = 23, ; + InputMask = "99 999.999", ; + Left = 657, ; + Name = "tx_timpn", ; + ReadOnly = .T., ; + TabIndex = 24, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 156, ; + Value = 0.000, ; + Width = 60, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'tx_totalore' AS _textbox WITH ; + Alignment = 3, ; + Anchor = 12, ; + FontBold = .T., ; + Format = "R", ; + Height = 23, ; + InputMask = "99 999.999", ; + Left = 708, ; + Name = "tx_totalore", ; + ReadOnly = .T., ; + TabIndex = 23, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 393, ; + Value = 0.000, ; + Width = 60, ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + If Reccount('crsmanopera')>0 + Select Sum(ROUND(Pret*timpn,gnPc)) As totalval,Sum(timpn) As totalore From crsmanopera Into Cursor crstotal + Select crstotal + Thisform.clb_totalvaloare.text_simplu1.Value=totalval + Thisform.clb_totalore.text_simplu1.Value=totalore + Use In crstotal + + Thisform.cmd_normare.Enabled=IIF(!glLunaInchisa,.T.,.F.) + Thisform.grdmanopera.SetFocus() + Else + Thisform.cmd_normare.Enabled=.F. + Endif + *!* If This.WindowState= 2 And Type('this.xresize1')='O' + *!* This.xresize1.rearrange() + *!* Endif + ENDPROC + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pomanopera.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.grdmanopera) + pomanopera.ca_baza1.cfiltru = lcFiltru + pomanopera.ca_baza1.afisare() + restore_grid_comment(Thisform.grdmanopera) + + If Reccount('crsmanopera')>0 + Select Sum(ROUND(Pret*timpn,gnPc)) As totalval,Sum(timpn) As totalore From crsmanopera Into Cursor crstotal + Select crstotal + Thisform.clb_totalvaloare.text_simplu1.Value=totalval + Thisform.clb_totalore.text_simplu1.Value=totalore + Thisform.clb_totalvaloare.refresh + Thisform.clb_totalore.refresh + Use In crstotal + + Thisform.cmd_normare.Enabled=IIF(!glLunaInchisa,.T.,.F.) + Thisform.grdmanopera.SetFocus() + Else + Thisform.clb_totalvaloare.text_simplu1.Value=0 + Thisform.clb_totalore.text_simplu1.Value=0 + Thisform.clb_totalvaloare.refresh + Thisform.clb_totalore.refresh + + Thisform.cmd_normare.Enabled=.F. + Endif + + IF thisform.ck_mecanic.Value=1 + IF USED('crssumamec') + USE IN crssumamec + ENDIF + *!* modificare 27.01 + *!* [join ] + gcS + [.dev_voper b on a.id_ordl=b.id_ordl ]+ + lcSql=[select SUM(c.ore) as total ]+; + [from ] + gcS + [.auto_normare_comenzi a ]+; + [join ] + gcS + [.auto_voper_simplu b on a.id_ordl=b.id_ordl ]+; + [join ] + gcS + [.auto_voper_mecanici c on b.id_oper=c.id_oper ]+; + [where ] + lcFiltru + [ and c.nume||CHR(32)||c.prenume like '] + thisform.ck_mecanic.cvaloare1 +[%' ] + + lnSucces = goExecutor.oExecute(lcSql,'crssumamec') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + ENDIF + SELECT crssumamec + thisform.clb_ore_mecanic.text_simplu1.Value=crssumamec.total + thisform.clb_ore_mecanic.Visible=.T. + ELSE + thisform.clb_ore_mecanic.Visible=.F. + ENDIF + + + Thisform.clb_nrinreg.text_simplu1.Value=Reccount('crsmanopera') + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE actualizeaza_grid2 + Parameters tcFiltru + Local lcFiltru,lnTimpn + If Empty(tcFiltru) + lcFiltru = pomecanici.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + Select crsmanopera + lnTimpn=timpn + + save_grid_comment(Thisform.grdmecanici) + pomecanici.ca_baza1.cfiltru = lcFiltru + pomecanici.ca_baza1.afisare() + restore_grid_comment(Thisform.grdmecanici) + + If Used('crstotalore') + Use In crstotalore + Endif + Select Nvl(Sum(ore),0) As Total From crsmecanici Into Cursor crstotalore + Select crstotalore + Thisform.tx_totalore.Value=Total + Thisform.ntimpnedistribuit=lnTimpn-Total + Use In crstotalore + Thisform.grdmecanici.nrecno=1 + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + ENDPROC + + PROCEDURE do_adauga + If Reccount('crsmanopera')>0 AND !glLunaInchisa + Private pnIesire,pcselect,pcfiltru,pcorder,pnid_mecanic,pnid_sectie,pnid_oper,oCautare + Local lnTimpn,lnSumaOre + Store "" To oCautare + pnIesire=0 + pnid_mecanic=0 + Select crsmanopera + pnid_oper=id_oper + + If Thisform.nTimpnedistribuit=0.000 + lcMesaj=Space(6)+"Nu mai puteti adauga inca un mecanic"+Space(6)+Chr(10)+Chr(13)+"deoarece nu mai exista timp normat nedistribuit!" + amessagebox(lcMesaj,0+48,"Atentie") + Return + Endif + + pcselect=['select id_mecanic,nume||CHR(32)||prenume as nume,sectie from ] + gcS + [.auto_vmecanici where inactiv=0'] + *!* pcfiltru = [2=2] + pcfiltru = [inactiv=0] + pcordine = [nume] + oCautare=cauta_alfa(pcselect,pcfiltru,[''],pcordine,'nume,sectie','Alegeti mecanicul','Mecanic,Sectie') + pnid_mecanic=oCautare.id_mecanic + If pnIesire != 1 Or Empty(pnid_mecanic) + Return + Endif + + lcSql=[INSERT INTO ] + gcS + [.DEV_OPER_MECANICI(ID_OPER,ID_MECANIC,ORE) VALUES(]+Alltrim(Str(pnid_oper))+[,]+Alltrim(Str(pnid_mecanic))+[,]+Alltrim(Str(Thisform.nTimpnedistribuit,9,3))+[)] + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + Thisform.actualizeaza_grid2() + Select crsmecanici + Locate For id_mecanic=pnid_mecanic + Thisform.grdmecanici.SetFocus() + Release oCautare + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + *!* lcFiltru = [(extract(month from a.datafact) = ] + Alltrim(Str(gnLuna)) + [ and extract(year from a.datafact) = ]+Alltrim(Str(gnAn))+[ and a.facturat=1)] + *!* lcFiltru = gcCondLuna && + [and a.facturat = 1] + lcFiltru = '' + If Thisform.ck_datafact.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datafact.filtru + Endif + + If Thisform.ck_denumire.Value=1 + lcFiltru = lcFiltru + Thisform.ck_denumire.filtru + Endif + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_sectie.Value=1 + lcFiltru = lcFiltru + Thisform.ck_sectie.filtru + Endif + + If Thisform.ck_mecanic.Value=1 + lcFiltru = lcFiltru + [ and (b.id_oper in (select id_oper from ]+Alltrim(gcS)+[.auto_voper_detalii_m where ]+Substr(Thisform.ck_mecanic.filtru,5)+[))] + Endif + + If Thisform.cbtip_deviz._combobox1.Value!="" + lcFiltru = lcFiltru + [ and a.id_tip = ] + Alltrim(Str(lista_tipuri.id_tip)) + Endif + + If !Empty(lcFiltru) + lcFiltru = Substr(lcFiltru,5) + [ and ] + Endif + + *!* lcFiltru = lcFiltru + [((a.id_tip=1 and (a.facturat=1 and (extract(month from a.datafact)=?gnLuna ] + ; + *!* [and extract(year from a.datafact) =?gnAn ))) or ] + ; + *!* [(a.id_tip>1 and (a.validat=1 and (extract (month from a.dataoravalid)= ?gnLuna ] + ; + *!* [and extract(year from a.dataoravalid)=?gnAn)))) ]+; + *!* [and (extract(month from b.dataora)+extract(year from b.dataora)*12<=?gnLuna+?gnAn*12)] + lcFiltru = lcFiltru + [((a.inch_validare = 0 and (a.facturat=1 and (extract(month from a.datafact)=?gnLuna ] + ; + [and extract(year from a.datafact) =?gnAn ))) or ] + ; + [(a.inch_validare = 1 and (a.validat=1 and (extract (month from a.dataoravalid)= ?gnLuna ] + ; + [and extract(year from a.dataoravalid)=?gnAn)))) ]+; + [and (extract(month from b.dataora)+extract(year from b.dataora)*12<=?gnLuna+?gnAn*12)] + + Thisform.grdmanopera.nrecno=0 + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crsmanopera')=0 + Thisform.tx_nrord.Value="" + Thisform.tx_timpn.Value=0.000 + lcFiltru=[1=2] + Thisform.actualizeaza_grid2(lcFiltru) + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_executa + If Reccount('crsmanopera')>0 AND thisform.cmd_normare.enabled + lcMesaj=format_msg('Doriti sa distribuiti in mod egal timpul normat'+CHR(13)+CHR(10)+; + 'pentru comenzile din selectie care nu il au distribuit in totalitate?') + If amessagebox(lcMesaj,4+32+256,'Distribuire timp normat')==6 + Local lcFiltru,lcSql,lnSucces + *!* *!* lcFiltru=Strtran(pomanopera.ca_baza1.cfiltru,Chr(39),Chr(63)) + *!* lcFiltru = STRTRAN(gcCondLuna,CHR(39),CHR(63)) + *!* lcSql=[begin pack_devize.dev_distribuie_timp_n('] + Alltrim(gcS) + [',']+Alltrim(lcFiltru)+['); end;] + *!* lnSucces=goExecutor.oExecute(lcSql) + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + distribuire_timp_normat() + Thisform.grdmanopera.nrecno=0 + Thisform.actualizeaza_grid1() + Thisform.grdmanopera.SetFocus() + Endif + Endif + ENDPROC + + PROCEDURE do_modifica + Lparameters tnTip && daca nu exista,atunci procedura a fost apelata din KeyPress + Local lnTimpN,lnOraI + If glLunaInchisa OR Empty(tnTip) + Return + Endif + Thisform.lsalvat=.T. + lnOraI=Thisform.norainitiala + lnTimpN=Thisform.ntimpnedistribuit+lnOraI + Select crsmecanici + pnid_opermecanic=id_opermecanic + Do Case + Case Thisform.noramodificata<=0 + amessagebox("Numarul de ore introdus trebuie sa fie mai mare decat 0!",0+48,"Atentie") + Update crsmecanici Set ore=lnOraI Where id_opermecanic=pnid_opermecanic + Thisform.grdmecanici.cOre.text1.Refresh() + Thisform.lvalidat=.F. + Return + Case Thisform.noramodificata>lnTimpN + amessagebox("Numarul maxim de ore pe care il puteti introduce este "+Alltrim(Str(lnTimpN,9,3))+"!",0+48,"Atentie") + Update crsmecanici Set ore=lnOraI Where id_opermecanic=pnid_opermecanic + Thisform.grdmecanici.cOre.text1.Refresh() + Thisform.lvalidat=.F. + Return + Endcase + lcSql=[UPDATE ] + gcS + [.DEV_OPER_MECANICI SET ORE=]+Alltrim(Str(Thisform.noramodificata,9,3))+[ WHERE ID_OPERMECANIC=]+Alltrim(Str(pnid_opermecanic)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Update crsmecanici Set ore=lnOraI Where id_opermecanic=pnid_opermecanic + Thisform.grdmecanici.cOre.text1.Refresh() + Thisform.lvalidat=.F. + Return + Endif + Thisform.ntimpnedistribuit=lnTimpN-Thisform.noramodificata + Thisform.tx_totalore.Value=Thisform.tx_timpn.Value-Thisform.ntimpnedistribuit + Thisform.lvalidat=.T. + + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.cbtip_deviz.do_reset() + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE do_sterge + If Used('crsmecanici') And Reccount('crsmecanici')>0 AND !glLunaInchisa + Private pnid_opermecanic,pcnume + Select crsmecanici + pnid_opermecanic=id_opermecanic + pcnume=nume + If AMessagebox('Doriti sa stergeti mecanicul '+Alltrim(pcnume)+' ?',4+32+256,'Stergere')==6 + lcSql=[UPDATE ] + gcS + [.DEV_OPER_MECANICI SET STERS=1 WHERE ID_OPERMECANIC=]+Alltrim(Str(pnid_opermecanic)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Thisform.actualizeaza_grid2() + Thisform.grdmanopera.SetFocus() + Endif + Endif + + ENDPROC + + PROCEDURE inainte_de_do_renunt + Local llReturn + Thisform.lvalidat=.T. + If Thisform.lsalvat=.F. + If amessagebox("Doriti sa salvati ultima modificare facuta?",4+32+256,"Modificare ore")==6 + Thisform.do_modifica(3) + Endif + Endif + Return Thisform.lvalidat + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn + Thisform.lvalidat=.T. + If Thisform.lsalvat=.F. + If amessagebox("Doriti sa salvati ultima modificare facuta?",4+32+256,"Modificare ore")==6 + Thisform.do_modifica(2) + Endif + Endif + Return Thisform.lvalidat + + ENDPROC + + PROCEDURE Init + DODEFAULT() + If glLunaInchisa + Thisform.RemoveObject([but_nou1]) + Thisform.RemoveObject([but_sterge1]) + Thisform.cmd_normare.Enabled=.F. + Thisform.grdmecanici.ReadOnly=.T. + Endif + ENDPROC + + PROCEDURE grdmanopera.AfterRowColChange + Lparameters nColIndex + If This.RowColChange != 2 And This.nrecno!=Recno() + DoDefault() + Local lnid_oper + Select crsmanopera + lnid_oper=id_oper + Thisform.tx_nrord.Value=Alltrim(nrord) + Thisform.tx_timpn.Value=timpn + lcFiltru=[id_oper=]+Alltrim(Str(lnid_oper)) + Thisform.actualizeaza_grid2(lcFiltru) + Endif + + ENDPROC + + PROCEDURE grdmecanici.cMecanic._cbbase1.GotFocus + This.Tag=Alltrim(Str(v_mecanici.id_mecanic)) + + ENDPROC + + PROCEDURE grdmecanici.cMecanic._cbbase1.Valid + pnid_mecanic=v_mecanici.id_mecanic + If Int(Val(This.Tag))!=pnid_mecanic + pnid_opermecanic=crsmecanici.id_opermecanic + lcSql=[UPDATE ] + gcS + [.DEV_OPER_MECANICI SET ID_MECANIC=]+Alltrim(Str(pnid_mecanic))+[ WHERE ID_OPERMECANIC=]+Alltrim(Str(pnid_opermecanic)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Endif + + ENDPROC + + PROCEDURE grdmecanici.cOre.Text1.GotFocus + Thisform.norainitiala=This.Value + Thisform.noramodificata=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE grdmecanici.cOre.Text1.InteractiveChange + Thisform.noramodificata=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE grdmecanici.cOre.Text1.Valid + If Thisform.norainitiala!=Thisform.noramodificata And Thisform.lsalvat=.F. + Thisform.do_modifica(1) + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_norme_sectii 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_operatie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 134 + Name = "frm_norme_sectii" + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 312 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 64 + LB_TITLU_ALB_B121.Caption = "ALEGEI OPERAIA" + LB_TITLU_ALB_B121.FontBold = .T. + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 315, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_operatie' AS cb_tx_simplu WITH ; + Left = 41, ; + Name = "Cb_operatie", ; + Top = 49, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_denop.denop,id_norme", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Operaie", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_sectie' AS cb_tx_simplu WITH ; + Left = 41, ; + Name = "Cb_sectie", ; + Top = 77, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_nom_sectii.sectie,id_sectie", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Secie", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE inainte_de_do_termin + pnid_sectie=v_nom_sectii.id_sectie + pnid_norma=v_denop.id_norme + pcsectie=v_nom_sectii.sectie + If Empty(thisform.cb_operatie._CBBASE1.value) + amessagebox("Nu ati ales operatia!",0+48,"Atentie") + Thisform.cb_operatie.SetFocus() + Return .F. + Endif + If Empty(thisform.cb_sectie._CBBASE1.value) + amessagebox("Nu ati ales sectia!",0+48,"Atentie") + Thisform.cb_sectie.SetFocus() + Return .F. + Endif + Return .T. + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_raport_salarizare AS _frmbase OF "..\..\roacomenzi\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="grdsalarii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cOreLucrate.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cOreLucrate.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cOreRegie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cOreRegie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cManoperaRegie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cManoperaRegie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cBrutManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cBrutManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cBrutRegie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cBrutRegie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTotalBrut.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTotalBrut.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTarifar.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTarifar.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTarifarOrar.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTarifarOrar.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTotalManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdsalarii.cTotalManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_coef_man" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_coef_man_reg" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grdsalarii + DoCreate = .T. + Height = 535 + lactiv2 = .T. + Name = "frm_raport_salarizare" + Width = 793 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 731 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = 0 + _shape2.Width = 67 + _shape2.ZOrderSet = 4 + Lb_titlu_alb_b121.Caption = "RAPORT DE SALARIZARE" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 763 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 7 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 733, ; + Name = "But_listare1", ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_coef_man' AS clb_tx_simplu WITH ; + Anchor = 4, ; + Height = 48, ; + Left = 13, ; + Name = "Clb_coef_man", ; + TabIndex = 1, ; + TabStop = .F., ; + Top = 432, ; + Width = 132, ; + Text_simplu1.ControlSource = "gnCoefMan", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "99.999", ; + Text_simplu1.Left = 72, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 22, ; + Text_simplu1.Width = 56, ; + Lb_simplu1.Caption = "Coeficient manoper", ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_coef_man_reg' AS clb_tx_simplu WITH ; + Anchor = 4, ; + Height = 48, ; + Left = 13, ; + Name = "Clb_coef_man_reg", ; + TabIndex = 1, ; + TabStop = .F., ; + Top = 479, ; + Width = 132, ; + Text_simplu1.ControlSource = "gnCoefManReg", ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "99.999", ; + Text_simplu1.Left = 72, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 22, ; + Text_simplu1.Width = 56, ; + Lb_simplu1.Caption = "Coeficient regie", ; + Lb_simplu1.Height = 17, ; + Lb_simplu1.Left = 8, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 5, ; + Lb_simplu1.Width = 86, ; + Lb_simplu1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 144, ; + Name = "Clb_tx_simplu1", ; + Tag = "MOVABLE", ; + Top = 432, ; + ZOrderSet = 3, ; + Text_simplu1.InputMask = "99 999.999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Total ore post gr.", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Height = 29, ; + Left = 433, ; + Name = "Clb_tx_simplu2", ; + Tag = "MOVABLE", ; + Top = 432, ; + Width = 347, ; + ZOrderSet = 5, ; + Text_simplu1.InputMask = (get_mask(14,gnPc)), ; + Text_simplu1.Left = 158, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Lb_simplu1.Caption = "Total manoper post gr.", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 144, ; + Name = "Clb_tx_simplu3", ; + Tag = "MOVABLE", ; + Top = 488, ; + ZOrderSet = 3, ; + Text_simplu1.InputMask = "99 999.999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Total ore", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Height = 29, ; + Left = 433, ; + Name = "Clb_tx_simplu4", ; + Tag = "MOVABLE", ; + Top = 460, ; + Width = 347, ; + ZOrderSet = 8, ; + Text_simplu1.InputMask = (get_mask(14,gnPc)), ; + Text_simplu1.Left = 158, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Lb_simplu1.Caption = "Total manoper regie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Height = 29, ; + Left = 433, ; + Name = "Clb_tx_simplu5", ; + Tag = "MOVABLE", ; + Top = 488, ; + Width = 347, ; + ZOrderSet = 9, ; + Text_simplu1.InputMask = (get_mask(14,gnPc)), ; + Text_simplu1.Left = 158, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Lb_simplu1.Caption = "Total manoper", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 144, ; + Name = "Clb_tx_simplu6", ; + Tag = "MOVABLE", ; + Top = 460, ; + ZOrderSet = 3, ; + Text_simplu1.InputMask = "99 999.999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Total ore regie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'grdsalarii' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 11, ; + DeleteMark = .F., ; + Height = 384, ; + Left = 15, ; + Name = "grdsalarii", ; + Panel = 1, ; + RecordSource = "crssalarii", ; + Tag = "RESIZABLE", ; + Top = 42, ; + Width = 763, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNume", ; + Column1.Width = 175, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "ore", ; + Column2.FontName = "Arial Narrow", ; + Column2.InputMask = "9 999.999", ; + Column2.Name = "cOreLucrate", ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "ore_reg", ; + Column3.FontName = "Arial Narrow", ; + Column3.InputMask = "9 999.999", ; + Column3.Name = "cOreRegie", ; + Column4.ControlSource = "manopera", ; + Column4.FontName = "Arial Narrow", ; + Column4.InputMask = (get_mask(14,gnPc)), ; + Column4.Name = "cManopera", ; + Column4.Width = 90, ; + Column5.ControlSource = "manopera_reg", ; + Column5.FontName = "Arial Narrow", ; + Column5.InputMask = (get_mask(14,gnPc)), ; + Column5.Name = "cManoperaRegie", ; + Column5.Width = 96, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "ROUND(manopera*gnCoefMan,gnPc)", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(14,gnPc)), ; + Column6.Name = "cBrutManopera", ; + Column6.Width = 91, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "ROUND(manopera_reg*gnCoefManReg,gnPc)", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(14,gnPc)), ; + Column7.Name = "cBrutRegie", ; + Column7.Width = 90, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "ROUND(manopera*gnCoefMan,gnPC)+ROUND(manopera_reg*gnCoefManReg,gnPc)", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(14,gnPc)), ; + Column8.Name = "cTotalBrut", ; + Column8.Width = 98, ; + Column9.ControlSource = "tarifar", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(14,gnPa)), ; + Column9.Name = "cTarifar", ; + Column9.Visible = .F., ; + Column9.Width = 92, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "tarifarorar", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(14,gnPa)), ; + Column10.Name = "cTarifarOrar", ; + Column10.Visible = .F., ; + Column10.Width = 93, ; + Column11.ColumnOrder = 6, ; + Column11.ControlSource = "manopera+manopera_reg", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(14,gnPc)), ; + Column11.Name = "cTotalManopera", ; + Column11.Width = 92 + *< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdsalarii.cBrutManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Brut manopera", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cBrutManopera.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdsalarii.cBrutRegie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Brut regie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cBrutRegie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdsalarii.cManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera post gr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cManopera.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 'grdsalarii.cManoperaRegie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera regie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cManoperaRegie.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 'grdsalarii.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cNume.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 'grdsalarii.cOreLucrate.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ore lucrate", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cOreLucrate.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 'grdsalarii.cOreRegie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ore regie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cOreRegie.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 'grdsalarii.cTarifar.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tarifar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cTarifar.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdsalarii.cTarifarOrar.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tarifar orar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cTarifarOrar.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdsalarii.cTotalBrut.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total brut", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cTotalBrut.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdsalarii.cTotalManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total manopera", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdsalarii.cTotalManopera.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" /> + + PROCEDURE do_listare + Private pcDataOra, pcTitlu + *!* gofundal.AlwaysOnTop=.F. + If Reccount('crssalarii')>0 + Thisform.AlwaysOnTop=.F. + pcTitlu = [RAPORT DE SALARIZARE - ] + *!* modificare v 2.1.9 + *!* pcDataOra=Ttoc(get_ora()) + *!* Select crssalarii + *!* Report Form salarii To Printer Prompt Preview + goExport.export2frx([crssalarii],[salarii],.F., , , , , .T.) + *!* modificare v 2.1.9 ^ + *!* gofundal.AlwaysOnTop=.T. + Thisform.AlwaysOnTop=.T. + Else + amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie") + Endif + Release pcDataOra,pcTitlu + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.lb_titlu_alb_b121.Caption = Thisform.lb_titlu_alb_b121.Caption + Iif(!Empty(pcPerioada),[ - ] + pcPerioada,[]) + Select crssalarii + Calculate Sum(ore+ore_reg) To lnSuma1 + Calculate Sum(ore) To lnSuma2 + Calculate Sum(ore_reg) To lnSuma6 + *!* CALCULATE sum(manopera*gnCoefMan+manopera_reg*gnCoefManReg) TO lnSuma2 + Calculate Sum(manopera) To lnSuma3 + Calculate Sum(manopera_reg) To lnSuma4 + Go Top + lnSuma5=lnSuma3+lnSuma4 + Thisform.clb_tx_simplu1.text_simplu1.Value=lnSuma2 + Thisform.clb_tx_simplu2.text_simplu1.Value=lnSuma3 + *!* thisform.clb_tx_simplu3.text_SIMPLU1.Value=lnSuma3 + Thisform.clb_tx_simplu4.text_simplu1.Value=lnSuma4 + Thisform.clb_tx_simplu5.text_simplu1.Value=lnSuma5 + Thisform.clb_tx_simplu6.text_simplu1.Value=lnSuma6 + Thisform.clb_tx_simplu3.text_simplu1.Value=lnSuma1 + Thisform.Refresh() + ENDPROC + + PROCEDURE grdsalarii.AfterRowColChange + LPARAMETERS nColIndex + If This.RowColChange!=2 + DoDefault() + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_rezultate_verificari 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="lb_titlu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_titlu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_avans" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_comanda" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_incasat" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 350 + Name = "frm_rezultate_verificari" + Width = 432 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 432 + _shape2.Height = 29 + _shape2.Left = 370 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 69 + Lb_titlu_alb_b121.Caption = "VERIFICRI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 402 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + Height = 0, ; + Left = 12, ; + Name = "_shape3", ; + Top = 204, ; + Width = 408 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 372, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 2, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLines = 0, ; + Height = 102, ; + Left = 48, ; + Name = "grdcomenzi", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsverificari", ; + ScrollBars = 2, ; + Top = 83, ; + Width = 336, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.Width = 142, ; + Column2.Alignment = 2, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDatai", ; + Column2.Width = 173 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Din data de", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.Text1' AS textbox WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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_avans' AS lb_simplu WITH ; + Alignment = 2, ; + Caption = "Suma avans", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 144, ; + Name = "Lb_avans", ; + Top = 261, ; + Width = 96 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_client' AS lb_simplu WITH ; + Caption = "Client", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 12, ; + Name = "Lb_client", ; + Top = 38, ; + Width = 46 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_comanda' AS lb_simplu WITH ; + Caption = "Comand", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 10, ; + Name = "Lb_comanda", ; + Top = 213, ; + Width = 76 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_incasat' AS lb_simplu WITH ; + Alignment = 2, ; + Caption = "Suma avans", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 144, ; + Name = "lb_incasat", ; + Top = 310, ; + Width = 96 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Caption = "Din care s-a ncasat suma de ", ; + Left = 12, ; + Name = "Lb_simplu1", ; + Top = 286 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_titlu1' AS lb_simplu WITH ; + Caption = "Comenzi deschise i nefacturate pentru maina", ; + Left = 12, ; + Name = "lb_titlu1", ; + Top = 60 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_titlu2' AS lb_simplu WITH ; + Caption = "Pe aceasta comand s-a facturat avans suma de", ; + Left = 12, ; + Name = "Lb_titlu2", ; + Top = 237 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE Init + Lparameters tnAvans,tnIncasat + Local lnCropH,lnDif,lnDif1 + DoDefault() + lnCropH=0 + If Reccount('crsverificari')=0 + Thisform.lb_titlu1.Caption="Nu exist comenzi deschise i nefacturate pentru maina " + Thisform.grdcomenzi.Visible=.F. + lnDif=Thisform._shape3.Top-Thisform.grdcomenzi.Top + lnCropH=lnCropH+lnDif + Thisform._shape3.Top=Thisform.grdcomenzi.Top + Thisform.lb_comanda.Top=Thisform.lb_comanda.Top-lnDif + Thisform.lb_titlu2.Top=Thisform.lb_titlu2.Top-lnDif + Thisform.lb_avans.Top=Thisform.lb_avans.Top-lnDif + *!* modificare v 2.0.21 + Thisform.lb_simplu1.Top = Thisform.lb_simplu1.Top-lnDif + Thisform.lb_incasat.Top = Thisform.lb_incasat.Top-lnDif + *!* modificare v 2.0.21 ^ + *!* lnDif=Thisform.lb_comanda.Top-Thisform._shape3.Top + *!* Thisform._shape3.Top=Thisform.grdcomenzi.Top + *!* lnDif1=Thisform.lb_titlu2.Top-Thisform.lb_comanda.Top + *!* Thisform.lb_comanda.Top=Thisform._shape3.Top+lnDif + *amessageboxThisform.lb_avans.Top-Thisform.lb_titlu2.Top + *!* Thisform.lb_titlu2.Top=Thisform.lb_comanda.Top+lnDif1 + *!* Thisform.lb_avans.Top=Thisform.lb_titlu2.Top+lnDif + Endif + If tnAvans>0.000 + *!* modificare v 2.0.21 + *!* Thisform.lb_avans.Caption=Alltrim(transform(tnavans,get_mask(12,gnPA)))+" lei" + Thisform.lb_avans.Caption = formateaza(tnAvans,12,gnPc)+" lei" + Thisform.lb_incasat.Caption = formateaza(tnIncasat,12,gnPc) + " lei" + Thisform.lb_avans.Visible=.T. + Thisform.lb_simplu1.Visible = .T. + Thisform.lb_incasat.Visible = .T. + *!* modificare v 2.0.21 ^ + *!* Thisform.lb_avans.Caption=Alltrim(Str(tnavans,18,2))+" lei" + Else + Thisform.lb_titlu2.Caption="Pe aceast comand nu s-a facturat avans." + *!* modificare v 2.0.21 + Thisform.lb_avans.Visible=.F. + Thisform.lb_simplu1.Visible = .F. + Thisform.lb_incasat.Visible = .F. + *!* modificare v 2.0.21 ^ + lnCropH=lnCropH+40 + Endif + Thisform.Height=Thisform.Height-lnCropH + Thisform.AutoCenter=.T. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_rezultate_verificari_part 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="lb_titlu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_titlu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdavansuri" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdavansuri.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdavansuri.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdavansuri.cAvans.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdavansuri.cAvans.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdavansuri.cIncasat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdavansuri.cIncasat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_total_avans" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_total_incasat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_total" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 370 + Name = "frm_rezultate_verificari_part" + Width = 430 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 432 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 368 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 69 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "VERIFICRI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Left = 400 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + Height = 0, ; + Left = 12, ; + Name = "_shape3", ; + Top = 195, ; + Width = 408, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_shape4' AS _shape WITH ; + BackStyle = 0, ; + Height = 32, ; + Left = 120, ; + Name = "_shape4", ; + Top = 328, ; + Width = 252, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 370, ; + Name = "But_renunt1", ; + Top = 1, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdavansuri' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 3, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLines = 0, ; + Height = 102, ; + Left = 48, ; + Name = "grdavansuri", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsavansuri", ; + ScrollBars = 2, ; + Top = 222, ; + Width = 336, ; + ZOrderSet = 12, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.Width = 142, ; + Column2.Alignment = 2, ; + Column2.ControlSource = "avans", ; + Column2.FontName = "Arial Narrow", ; + Column2.InputMask = (get_mask(14,gnPc)), ; + Column2.Name = "cAvans", ; + Column2.Width = 92, ; + Column3.Alignment = 2, ; + Column3.ControlSource = "incasat", ; + Column3.FontName = "Arial Narrow", ; + Column3.InputMask = (get_mask(14,gnPc)), ; + Column3.Name = "cIncasat", ; + Column3.Width = 79 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdavansuri.cAvans.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma avans", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdavansuri.cAvans.Text1' AS textbox WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdavansuri.cIncasat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Incasat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdavansuri.cIncasat.Text1' AS textbox WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdavansuri.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdavansuri.cNrord.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 'grdcomenzi' AS _grdrow WITH ; + AllowHeaderSizing = .F., ; + ColumnCount = 2, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLines = 0, ; + Height = 102, ; + Left = 48, ; + Name = "grdcomenzi", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "crsverificari", ; + ScrollBars = 2, ; + Top = 83, ; + Width = 336, ; + ZOrderSet = 9, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.Width = 142, ; + Column2.Alignment = 2, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDatai", ; + Column2.Width = 173 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Din data de", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.Text1' AS textbox WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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_client' AS lb_simplu WITH ; + Caption = "Client", ; + FontBold = .T., ; + FontSize = 12, ; + Height = 22, ; + Left = 12, ; + Name = "Lb_client", ; + Top = 38, ; + Width = 46, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_titlu1' AS lb_simplu WITH ; + Caption = "Comenzi deschise i nefacturate pentru acest client", ; + Left = 12, ; + Name = "lb_titlu1", ; + Top = 60, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_titlu2' AS lb_simplu WITH ; + Caption = "Pentru comenzile selectate s-au facturat n avans sumele:", ; + Left = 12, ; + Name = "Lb_titlu2", ; + Top = 201, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_total' AS _lbbase WITH ; + Caption = "Total", ; + Left = 127, ; + Name = "lb_total", ; + Top = 335, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> + + ADD OBJECT 'tx_total_avans' AS _txbase WITH ; + Height = 23, ; + InputMask = (get_mask(10,gnPc)), ; + Left = 200, ; + Name = "tx_total_avans", ; + ReadOnly = .T., ; + Top = 332, ; + Width = 79, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + ADD OBJECT 'tx_total_incasat' AS _txbase WITH ; + Height = 23, ; + InputMask = (get_mask(10,gnPc)), ; + Left = 287, ; + Name = "tx_total_incasat", ; + ReadOnly = .T., ; + Top = 332, ; + Width = 79, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" /> + + PROCEDURE Init + Local lnAvans + Local lnCropH,lnDif,lnDif1 + DoDefault() + lnCropH = 0 + If Reccount('crsverificari')=0 + Thisform.lb_titlu1.Caption = "Nu exist comenzi deschise i nefacturate pentru acest client!" + Thisform.grdcomenzi.Visible = .F. + lnDif = Thisform._shape3.Top - Thisform.grdcomenzi.Top + lnCropH = lnCropH + lnDif + Thisform._shape3.Top = Thisform.grdcomenzi.Top + Thisform.lb_titlu2.Top = Thisform.lb_titlu2.Top - lnDif + Thisform.grdavansuri.Top = Thisform.grdavansuri.Top - lnDif + Thisform._shape4.Top = Thisform._shape4.Top - lnDif + Thisform.lb_total.Top = Thisform.lb_total.Top - lnDif + Thisform.tx_total_incasat.Top = Thisform.tx_total_incasat.Top - lnDif + Thisform.tx_total_avans.Top = Thisform.tx_total_avans.Top - lnDif + Endif + + If Reccount('crsavansuri') > 0 + Select crsavansuri + Calculate Sum(Nvl(avans,0)),SUM(NVL(incasat,0)) To lnAvans,lnIncasat + Go Top + Thisform.tx_total_avans.Value = lnAvans + Thisform.tx_total_incasat.Value = lnIncasat + Else + Thisform.lb_titlu2.Caption = "Nu au fost facturate avansuri pe comenzile selectate!" + Thisform.grdavansuri.Visible=.F. + lnCropH = lnCropH + Thisform.grdavansuri.Height + Endif + Thisform.Height = Thisform.Height - lnCropH + Thisform.AutoCenter = .T. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_val_comenzi 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="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAsigurator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cAsigurator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cInspector.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cInspector.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cMateriale.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cUtil_valid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNr_dosar.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNr_dosar.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cArhivat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cArhivat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cSeries.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cSeries.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cKmint.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cKmint.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreFunctionare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreFunctionare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_vizualizare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmd_arhivare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_validare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_anulare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbValidat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbArhivat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbtip_deviz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbValidat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbArhivat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_series" UniqueID="" Timestamp="" /> + + * + *m: do_anuleaza + *m: do_inchide_fortat + *p: ntiplistare && 1 - toate comenzile; 2 - comenzile validate;3 - comenzile nevalidate; + * + + * + cgridsortlist = grdcomenzi + DoCreate = .T. + Height = 445 + lactiv1 = .T. + lactiv2 = .T. + Name = "frm_val_comenzi" + ntiplistare = 1 + Width = 793 + WindowState = 2 + _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 = 703 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 104 + _shape2.ZOrderSet = 12 + Lb_titlu_alb_b121.Caption = "VALIDARE COMENZI" + 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 = 1 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 763 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 13 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 13 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 704, ; + Name = "But_excel1", ; + TabIndex = 16, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 734, ; + Name = "But_listare1", ; + TabIndex = 17, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbArhivat' AS ctip_deviz WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 674, ; + Name = "cbArhivat", ; + TabIndex = 6, ; + Top = 221, ; + Width = 115, ; + _combobox1.Name = "_combobox1", ; + _combobox1.Width = 111 + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'cbtip_deviz' AS ctip_deviz WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 675, ; + Name = "cbtip_deviz", ; + TabIndex = 6, ; + Top = 129, ; + Width = 115, ; + _combobox1.Height = 24, ; + _combobox1.Left = 1, ; + _combobox1.Name = "_combobox1", ; + _combobox1.Top = 2, ; + _combobox1.Width = 111 + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'cbValidat' AS ctip_deviz WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 675, ; + Name = "cbValidat", ; + TabIndex = 6, ; + Top = 176, ; + Width = 115, ; + _combobox1.Name = "_combobox1", ; + _combobox1.Width = 111 + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + Height = 18, ; + Left = 675, ; + Name = "Ck_datai", ; + TabIndex = 3, ; + tip = D, ; + Top = 63, ; + Width = 102, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + Height = 18, ; + Left = 675, ; + Name = "Ck_nrinmat", ; + TabIndex = 4, ; + Top = 78, ; + Width = 114, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comanda", ; + Height = 18, ; + Left = 675, ; + Name = "Ck_nrord", ; + TabIndex = 1, ; + Top = 35, ; + Width = 93, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + Height = 18, ; + Left = 675, ; + Name = "Ck_nume", ; + TabIndex = 2, ; + Top = 49, ; + Width = 88, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_series' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.series, ; + Caption = "Serie sasiu", ; + Height = 18, ; + Left = 675, ; + Name = "ck_series", ; + TabIndex = 4, ; + Top = 93, ; + Width = 84, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_anulare' AS cmd_sterge WITH ; + Anchor = 12, ; + caction = do_anuleaza, ; + Caption = "\ + + ADD OBJECT 'cmd_arhivare' AS cmd_adauga WITH ; + Anchor = 8, ; + BackColor = 0,128,192, ; + caction = do_inchide_fortat, ; + Caption = "A\ + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 674, ; + Name = "Cmd_cauta1", ; + TabIndex = 9, ; + Top = 249, ; + Width = 116, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 674, ; + Name = "Cmd_reset1", ; + TabIndex = 15, ; + Top = 277, ; + Width = 116, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_validare' AS cmd_adauga WITH ; + Anchor = 12, ; + Caption = "\ + + ADD OBJECT 'Cmd_vizualizare' AS cmd_executa WITH ; + Anchor = 12, ; + Caption = "Vi\ + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 16, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 396, ; + Left = 17, ; + Name = "grdcomenzi", ; + Panel = 1, ; + Partition = 0, ; + RecordSource = "crscomenzi", ; + RowHeight = 19, ; + TabIndex = 8, ; + Top = 36, ; + Width = 649, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNrord", ; + Column1.Width = 108, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDatai", ; + Column2.Width = 88, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNume", ; + Column3.Width = 224, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "asigurator", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cAsigurator", ; + Column4.Width = 85, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "inspector", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cInspector", ; + Column5.Width = 85, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "IIF(validat=1,'Da','Nu')", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cValidat", ; + Column6.Width = 43, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "manopera", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "R", ; + Column7.InputMask = (get_mask(12,gnPc)), ; + Column7.Name = "cManopera", ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "materiale", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "R", ; + Column8.InputMask = (get_mask(12,gnPc)), ; + Column8.Name = "cMateriale", ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "util_valid", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cUtil_valid", ; + Column9.Width = 115, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "dataoravalid", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "cDataoravalid", ; + Column10.Width = 113, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "tip_comanda", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "cTip_comanda", ; + Column11.Width = 78, ; + Column12.ColumnOrder = 6, ; + Column12.ControlSource = "nr_dosar", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "cNr_dosar", ; + Column12.Width = 90, ; + Column13.ColumnOrder = 16, ; + Column13.ControlSource = "IIF(inchis_fortat=1,'Da','Nu')", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.Name = "cArhivat", ; + Column13.Width = 43, ; + Column14.ColumnOrder = 13, ; + Column14.ControlSource = "series", ; + Column14.FontSize = 10, ; + Column14.Name = "cSeries", ; + Column14.Width = 151, ; + Column15.ColumnOrder = 14, ; + Column15.ControlSource = "kmint", ; + Column15.FontSize = 10, ; + Column15.Name = "cKmint", ; + Column16.ColumnOrder = 15, ; + Column16.ControlSource = "ore_functionare", ; + Column16.FontSize = 10, ; + Column16.Name = "cOreFunctionare" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cArhivat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Arhivat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cArhivat.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 'grdcomenzi.cAsigurator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asigurator", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cAsigurator.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 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.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 'grdcomenzi.cDataoravalid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data si ora validarii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDataoravalid.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 'grdcomenzi.cInspector.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inspector", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cInspector.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 'grdcomenzi.cKmint.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Km. la bord", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cKmint.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 'grdcomenzi.cManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cManopera.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 'grdcomenzi.cMateriale.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Materiale", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cMateriale.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 'grdcomenzi.cNr_dosar.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. dosar", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNr_dosar.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 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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 'grdcomenzi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNume.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 'grdcomenzi.cOreFunctionare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ore motor", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cOreFunctionare.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 'grdcomenzi.cSeries.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie sasiu", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cSeries.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 'grdcomenzi.cTip_comanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cTip_comanda.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 'grdcomenzi.cUtil_valid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validata de catre", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cUtil_valid.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 'grdcomenzi.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValidat.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 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.grdcomenzi, ; + Left = 648, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 420 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Tip comanda", ; + Height = 18, ; + Left = 672, ; + Name = "Lb_simplu1", ; + TabIndex = 5, ; + Top = 109, ; + Width = 76, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lbArhivat' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Arhivate", ; + Height = 18, ; + Left = 675, ; + Name = "lbArhivat", ; + TabIndex = 5, ; + Top = 205, ; + Width = 48, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lbValidat' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Validate", ; + Height = 18, ; + Left = 676, ; + Name = "lbValidat", ; + TabIndex = 5, ; + Top = 160, ; + Width = 49, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pocomenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_tag(Thisform.grdcomenzi) + pocomenzi.ca_baza1.cfiltru = lcFiltru + pocomenzi.ca_baza1.afisare() + restore_grid_tag(Thisform.grdcomenzi) + + If Reccount('crscomenzi')>0 + Thisform.cmd_vizualizare.Enabled=.T. + Thisform.grdcomenzi.SetFocus() + Else + Thisform.cmd_anulare.Enabled=.F. + Thisform.cmd_validare.Enabled=.F. + Thisform.cmd_vizualizare.Enabled=.F. + Endif + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE do_adauga + Private pnvalidat,pnid_ordl,pnid_lucrare,pnrecno,pnfacturat + Local lnProcTvav, lcMesaj + Select crscomenzi + pcnrord=nrord + pnvalidat=Validat + pnid_ordl=id_ordl + pnfacturat=facturat + pnid_lucrare=id_lucrare + pnrecno=Recno() + *!* modificare v 2.0.35 + lnProcTvav = proc_tvav + lcMesaj = [] + *!* modificare v 2.0.35 ^ + If pnvalidat=0 And pnfacturat=0 + *!* modificare v 2.0.35 + lnRaspuns = 6 + If !INLIST(lnProcTvav,1,gnCotaTVAStandard) + lcMesaj = "Cota TVA de la crearea comenzii difera de cea standard din luna curenta!" + CRLF + Endif + lcMesaj = lcMesaj + "Sunteti sigur ca doriti sa validati comanda "+Alltrim(pcnrord)+" ?" + If amessagebox(lcMesaj,4+32+256,"Confirmare validare") =6 + *!* modificare v 2.0.35 ^ + Thisform.LockScreen=.T. + Thisform.MousePointer= 11 + lcSql=[begin pack_auto.dev_valideaza_comanda('] + Alltrim(gcS) + [',] + Alltrim(Str(pnid_ordl)) + ; + [,] + Alltrim(Str(gnIdutil)) + [,] + ALLTRIM(STR(m.gnAn)) + [,] + ALLTRIM(STR(gnLuna)) + [); end;] + lnSucces=goExecutor.oExecute(lcSql) + Thisform.MousePointer= 0 + Thisform.LockScreen=.F. + + If lnSucces < 0 + amessagebox(goExecutor.oPrelucrareEroare(),0+16,'Eroare') + Return + Endif + Thisform.actualizeaza_grid1() + If pnrecno > Reccount('crscomenzi') + Go Top + Else + Go pnrecno + Endif + Endif + Else + amessagebox("Aceasta comanda este deja validata!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_anuleaza + Private pnvalidat,pnid_ordl,pcnrord,pnrecno,pnfacturat + Select crscomenzi + pnvalidat=Validat + pnid_ordl=id_ordl + pnfacturat=facturat + pcnrord=nrord + pnrecno=Recno() + If pnvalidat>0 And pnfacturat=0 + If amessagebox("Sunteti sigur ca doriti sa anulati validarea comenzii "+Alltrim(pcnrord)+" ?",4+32+256,"Confirmare")==6 + Thisform.LockScreen=.T. + Thisform.MousePointer= 11 + lcSql=[begin pack_auto.dev_invalideaza_comanda('] + Alltrim(gcS) + [',] + Alltrim(Str(pnid_ordl)) + [,] + Alltrim(Str(gnIdutil)) + [); end;] + lnSucces=goExecutor.oExecute(lcSql) + Thisform.MousePointer= 0 + Thisform.LockScreen=.F. + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Thisform.actualizeaza_grid1() + If pnrecno > Reccount('crscomenzi') + Go Top + Else + Go pnrecno + Endif + Endif + Else + amessagebox("Aceasta comanda nu este validata!",0+48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + Local lnOptiune, lnOptiuneArhivat + *!* lcFiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn)) + *!* lcfiltru=[((extract(month from datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from datafact) =]+Alltrim(Str(gnAn))+pcFiltruOra +[) or (datafact is null ))] + lcFiltru = gcCondLuna + + lnOptiune = Iif(Thisform.cbValidat._combobox1.Value = '', 1, Iif(Thisform.cbValidat._combobox1.Value = 'Validate', 2, 3)) + lnOptiuneArhivat = Iif(Thisform.cbArhivat._combobox1.Value = '', 1, Iif(Thisform.cbArhivat._combobox1.Value = 'Active', 2, 3)) + If Thisform.ck_datai.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrord.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + If Thisform.ck_series.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_series.filtru + Endif + + If Thisform.cbtip_deviz._combobox1.Value!= "" + lcFiltru = lcFiltru + [ and a.id_tip = ] + Alltrim(Str(lista_tipuri.id_tip)) + Endif + + + Do Case + Case lnOptiune = 2 + lcFiltru = lcFiltru + [ and a.validat = 1] + Case lnOptiune = 3 + lcFiltru = lcFiltru + [ and a.validat = 0] + Endcase + Thisform.ntiplistare = lnOptiune + + Do Case + Case lnOptiuneArhivat = 2 && Active (nearhivate) + lcFiltru = lcFiltru + [ and a.inchis_fortat = 0] + Case lnOptiuneArhivat = 3 && arhivate + lcFiltru = lcFiltru + [ and a.inchis_fortat = 1] + ENDCASE + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crscomenzi') = 0 + amessagebox('Cautarea nu a intors rezultate!', 0 + 48, 'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_excel + If Reccount('crscomenzi')=0 + amessagebox("Nu exista date pentru export!",0+48,"Atentie") + Return + Endif + + Try + poExcel = Createobject("Excel.Application") + Catch + export_xls('crscomenzi') + amessagebox("Fisierul XLS a fost creat!",0+48,"Atentie") + *!* Return + Endtry + + If Type('poExcel') <> 'U' + Thisform.MousePointer = 11 + Thisform.LockScreen = .T. + + Local llIntrerupt + llIntrerupt = .F. + loTherm = Newobject("_thermometer","_therm","","Export date in Excel...") + loTherm.AlwaysOnTop=.T. + loTherm.Show() + + lnPercent = 0 + lcTask= Thisform.lb_titlu_alb_b121.Caption + loTherm.Update(lnPercent, lcTask) + + poExcel.WorkBooks.Add + poExcel.Sheets(1).Select + poExcel.Sheets(1).Name=[Comenzi] + poExcel.Cells(2,2).Font.Bold=.T. + poExcel.Cells(2,2).Font.Size = 16 + poExcel.Cells(2,2) = Thisform.lb_titlu_alb_b121.Caption + + lnRandStart=5 + lnColoanaI=2 + + lnRow=lnRandStart + Set Cursor Off + With Thisform.grdcomenzi + lcCursor=.RecordSource + lnNrRanduri=Reccount(lcCursor) + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + lcTask = [Completare cap de tabel...] + loTherm.Update(lnPercent, lcTask) + + For nCol=1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption + lcColoana=Alltrim(.Columns(nCol).ControlSource) + Do Case + Case Type(lcColoana)='C' + poExcel.Columns(nColumn).NumberFormat=[@] + Case Type(lcColoana)='D' + poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@] + Endcase + poExcel.Cells(lnRow,nColumn).Font.Bold = .T. + poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16 + Endfor + + lcTask = [Completare randuri...] + Select (lcCursor) + Scan + lnRow = lnRow + 1 + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + loTherm.Update(lnPercent, lcTask) + If Inkey()=27 + amessagebox("Exportul a fost intrerupt!",0+48,"Atentie") + llIntrerupt = .T. + Exit + Endif + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource) + Endfor + Endscan + + loTherm.Complete() + loTherm.AlwaysOnTop=.F. + Release loTherm + Endwith + Set Cursor On + If llIntrerupt + poExcel.DisplayAlerts = .F. + poExcel.Quit + Else + poExcel.Visible=.T. + Endif + Release poExcel + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + Endif + ENDPROC + + PROCEDURE do_executa + If Reccount('crscomenzi')>0 + *!* modificare v 2.0.35 + Select crscomenzi + Scatter Name ocomanda + vizualizeaza_detalii_comanda(Thisform,ocomanda,.T.) + *!* Private porul,pooper,podevest + *!* Store '' To porul,pooper,podevest + *!* Do ccsectii in update_devize.prg + *!* Select crscomenzi + *!* Scatter Name ocomanda + *!* pcschema=['ID_ORDL n(10),CODOP c(10),TIMPN n(9,3),PRET n(20,4),VALIDAT n(1),DENOP c(100),DATAI D,ID_OPER N(20),SECTIE c(100)'] + *!* pcselect=['select id_ordl,codop,timpn,pret,validat,denop,datai,id_oper,sectie from ] + gcS + [.dev_voper where 1=2'] + *!* *!* modificat + *!* *!* pcorder=[validat desc,dataora,datai,sectie,denop] + *!* pcorder=[datai,id_oper] + *!* *!* ^ + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('pooper','oper',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + *!* pooper.ca_baza1.afisare() + *!* pooper.ca_baza1.cfiltru = [id_ordl = ]+Alltrim(Str(ocomanda.id_ordl))+[ and ]+; + *!* [extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12] + *!* *!* modificare 09.06 + *!* *!* [extract(month from dataora)+extract(year from dataora)*12<=?gnLuna+?gnAn*12] + *!* *!* ^ + *!* pcschema=['DENUMIRE v(100),COD v(10),UM v(10),CANTITATE n(20,4),PRETFTVA n(20,4),PRETCTVA n(20,4),COTA_TVA n(10),VALOARE n(20,4),ID_DEV_ESTIMARE_REP n(20),ID_LUCRARE n(10),NRORD v(50),ID_NORME n(5),ID_ARTICOL n(20),PRET_CU_TVA n(1),VALFTVA n(20,4),VALTVA n(20,4)'] + *!* pcselect=['select denumire,cod,um,cantitate,pretftva,pretctva,cota_tva,valoare,id_dev_estimare_rep,id_lucrare,nrord,id_norme,id_articol,pret_cu_tva,valftva,valtva from ] + gcS + [.dev_vestimari_rep where 1=2'] + *!* pcorder=[id_dev_estimare_rep] + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('podevest','v_devizest',pcselect,pcfiltru,pcschema,pcorder) + *!* podevest.ca_baza1.afisare() + *!* podevest.ca_baza1.cfiltru = [id_lucrare = ] + ALLTRIM(STR(ocomanda.id_lucrare)) + *!* *!* modificare v 2.0.22 : am adaugat tva + *!* pcschema=['CODMAT c(50),DENUMIRE c(100),PRETV n(20,4),CANTE n(18,3),DATAACT D,ID_RUL n(20),COTA_DIFERITA n(1),TVA n(20,4)'] + *!* pcselect=[select codmat,denumire,pretv,cante,dataact,id_rul,decode(proc_tvav,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0,1) as cota_diferita,] + ; + *!* [pack_sesiune.calculeaza_pret_tva(pretv,1,pack_def.GetIdMonedaNationala(),pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0) as tva ] + ; + *!* [from ] + gcS + [.vrul where 1=2] + *!* pcorder=[dataact,id_rul] + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('porul','rul',pcselect,pcfiltru,pcschema,pcorder) + *!* porul.ca_baza1.afisare() + *!* porul.ca_baza1.cfiltru = [id_lucrare = ]+Alltrim(Str(ocomanda.id_lucrare))+[ and ]+; + *!* [luna+an*12<=?gnLuna+?gnAn*12] + *!* Thisform.AlwaysOnTop=.F. + *!* ofrmvizualizare = Createobject('frm_vizcomanda',2,ocomanda.Validat) && 2 = vizualizare + *!* ofrmvizualizare.Show(1) + *!* Thisform.AlwaysOnTop=.T. + *!* *!* modificare v 2.0.5 + *!* If Used('oper') + *!* Use In oper + *!* Endif + *!* If Used('rul') + *!* Use In rul + *!* Endif + *!* *!* modificare v 2.0.5 ^ + *!* modificare v 2.0.35 ^ + Else + amessagebox("Nu exista inregistrari pentru care sa vizualizati manopera si materialele!",48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_inchide_fortat + Local lcMesaj, lcSql, llSucces + PRIVATE pcnrord, pnArhivat, pnid_ordl, pnrecno + Select crscomenzi + pcnrord = nrord + pnid_ordl = id_ordl + pnrecno = Recno() + pnArhivat = inchis_fortat + lcMesaj = [] + + If pnArhivat = 0 + lcMesaj = lcMesaj + "Sunteti sigur ca doriti sa arhivati comanda " + Alltrim(pcnrord) + " ?" + If amessagebox(lcMesaj, 4 + 32 + 256, "Confirmare arhivare") = 6 + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + lcSql = [begin pack_auto.dev_arhiveaza_comanda(] + Alltrim(Str(pnid_ordl)) + ; + [,] + Alltrim(Str(gnIdutil)) + [); end;] + llSucces = goExecutor.oExecuta(lcSql) + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + If !m.llSucces + Return + Endif + Thisform.actualizeaza_grid1() + If pnrecno > Reccount('crscomenzi') + Go Top + Else + Go pnrecno + Endif + Endif + Else + lcMesaj = lcMesaj + "Sunteti sigur ca doriti sa dezarhivati comanda " + Alltrim(pcnrord) + " ?" + If amessagebox(lcMesaj, 4 + 32 + 256, "Confirmare dezarhivare") = 6 + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + lcSql = [begin pack_auto.dev_dezarhiveaza_comanda(] + Alltrim(Str(pnid_ordl)) + [); end;] + llSucces = goExecutor.oExecuta(lcSql) + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + If !m.llSucces + Return + Endif + Thisform.actualizeaza_grid1() + If pnrecno > Reccount('crscomenzi') + Go Top + Else + Go pnrecno + Endif + Endif + Endif + ENDPROC + + PROCEDURE do_listare + If Reccount('crscomenzi')>0 + Private pcTitlu,pcDataOra + pcDataOra=get_ora(2) + pcTitlu=[CENTRALIZATOR COMENZI] + Do Case + Case Thisform.ntiplistare=2 + pcTitlu = pcTitlu +[ VALIDATE] + Case Thisform.ntiplistare=3 + pcTitlu = pcTitlu + [ NEVALIDATE] + Endcase + Thisform.AlwaysOnTop= .F. + Select crscomenzi + Report Form centralizator_devize To Printer Prompt Preview + Thisform.AlwaysOnTop=.T. + Else + amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie") + Endif + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.cbtip_deviz.do_reset() + thisform.cbArhivat.do_reset() + thisform.cbValidat.do_reset() + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE Init + DODEFAULT() + + this.cmd_validare.Visible= this.lActiv5 + this.cmd_anulare.Visible = this.lActiv5 + this.cmd_arhivare.Visible = this.lActiv6 + + this.gridextra1.setup() + ENDPROC + + PROCEDURE cbArhivat._combobox1.Destroy + Use In (SELECT('lista_arhivat')) + ENDPROC + + PROCEDURE cbArhivat._combobox1.Init + Create Cursor lista_arhivat (denumire C(50),id N(5)) + Select lista_arhivat + INSERT INTO lista_arhivat (denumire, id) VALUES ('', 0) + INSERT INTO lista_arhivat (denumire, id) VALUES ('Active', 1) + INSERT INTO lista_arhivat (denumire, id) VALUES ('Arhivate', 2) + + + This.RowSourceType= 2 + This.RowSource="lista_arhivat" + This.Value="Active" + this.Parent.cdefault="Active" + ENDPROC + + PROCEDURE cbValidat._combobox1.Destroy + Use In (SELECT('lista_validat')) + ENDPROC + + PROCEDURE cbValidat._combobox1.Init + Create Cursor lista_validat(denumire C(50),id N(5)) + Select lista_validat + INSERT INTO lista_validat(denumire, id) VALUES ('', 0) + INSERT INTO lista_validat(denumire, id) VALUES ('Validate', 1) + INSERT INTO lista_validat(denumire, id) VALUES ('Nevalidate', 2) + + + This.RowSourceType= 2 + This.RowSource="lista_validat" + This.Value="" + this.Parent.cdefault="" + ENDPROC + + PROCEDURE grdcomenzi.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + Select crscomenzi + DoDefault() + Do Case + Case facturat=1 + Thisform.cmd_anulare.Enabled=.F. + Thisform.cmd_validare.Enabled=.F. + Case Validat=0 + Thisform.cmd_anulare.Enabled=.F. + Thisform.cmd_validare.Enabled=.T. + Case Validat=1 + Thisform.cmd_anulare.Enabled=.T. + Thisform.cmd_validare.Enabled=.F. + ENDCASE + + IF inchis_fortat = 0 + thisform.cmd_arhivare.Caption ='A\ + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grdcomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cTip_comanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cValidat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDataoravalid.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cFacturat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatafact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cDatafact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cPartRef.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cPartRef.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cSeries.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cSeries.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cKmint.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cKmint.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreFunctionare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdcomenzi.cOreFunctionare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_series" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_vizualizare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbtip_deviz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbValidat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbArhivat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nr_inreg" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbValidat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbArhivat" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grdcomenzi + DoCreate = .T. + Height = 551 + lactiv1 = .T. + lactiv2 = .T. + Name = "frm_viz_comenzi" + Width = 792 + WindowState = 2 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Height = 29 + _shape2.Left = 755 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = -1 + _shape2.Width = 38 + _shape2.ZOrderSet = 9 + Lb_titlu_alb_b121.Caption = "VIZUALIZARE COMENZI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 760 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 11 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 699, ; + Name = "But_excel1", ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 728, ; + Name = "But_listare1", ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbArhivat' AS ctip_deviz WITH ; + Anchor = 8, ; + Left = 693, ; + Name = "cbArhivat", ; + TabIndex = 6, ; + Top = 251, ; + _combobox1.Name = "_combobox1" + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'cbtip_deviz' AS ctip_deviz WITH ; + Left = 693, ; + Name = "cbtip_deviz", ; + TabIndex = 6, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 162, ; + _combobox1.Name = "_combobox1" + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'cbValidat' AS ctip_deviz WITH ; + Anchor = 8, ; + Left = 693, ; + Name = "cbValidat", ; + TabIndex = 6, ; + Top = 206, ; + _combobox1.Name = "_combobox1" + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "Ck_datai", ; + TabIndex = 3, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + tip = D, ; + Top = 66, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. inmatriculare", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "Ck_nrinmat", ; + TabIndex = 4, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 81, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = a.nrord, ; + Caption = "Nr. comanda", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "Ck_nrord", ; + TabIndex = 1, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 36, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "Ck_nume", ; + TabIndex = 2, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 51, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_series' AS ck_filtru_text WITH ; + Alignment = 0, ; + camp_nume = a.series, ; + Caption = "Serie sasiu", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "ck_series", ; + TabIndex = 4, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 96, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_nr_inreg' AS clb_tx_simplu WITH ; + Left = 492, ; + Name = "Clb_nr_inreg", ; + Tag = "MOVABLE", ; + Top = 516, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Nr. nregistrari", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 696, ; + Name = "Cmd_cauta1", ; + TabIndex = 7, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 325, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Height = 27, ; + Left = 696, ; + Name = "Cmd_reset1", ; + TabIndex = 12, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 361, ; + Width = 84, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_vizualizare' AS cmd_executa WITH ; + Caption = "Vi\ + + ADD OBJECT 'grdcomenzi' AS _grdrow WITH ; + ColumnCount = 13, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 468, ; + Left = 17, ; + Name = "grdcomenzi", ; + Panel = 1, ; + RecordSource = "crscomenzi", ; + RowHeight = 19, ; + TabIndex = 8, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 667, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontSize = 10, ; + Column1.Name = "cNrord", ; + Column1.Width = 83, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "IIF(TYPE('datai')=='D',datai,TTOD(datai))", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDatai", ; + Column2.Width = 88, ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNume", ; + Column3.Width = 195, ; + Column4.ControlSource = "tip_comanda", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cTip_comanda", ; + Column4.Width = 99, ; + Column5.ControlSource = "IIF(validat=1,'DA','NU')", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cValidat", ; + Column5.Width = 44, ; + Column6.ControlSource = "dataoravalid", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cDataoravalid", ; + Column6.Width = 77, ; + Column7.ControlSource = "IIF(facturat=1,'DA','NU')", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "cFacturat", ; + Column7.Width = 52, ; + Column8.ControlSource = "IIF(TYPE('datafact')=='D',datafact,TTOD(datafact))", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Name = "cDatafact", ; + Column8.Width = 74, ; + Column9.ControlSource = "nrfact", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.InputMask = (get_mask(14,0)), ; + Column9.Name = "cNrFact", ; + Column9.Width = 87, ; + Column10.ControlSource = "part_ref", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "cPartRef", ; + Column10.Width = 137, ; + Column11.ControlSource = "series", ; + Column11.FontSize = 10, ; + Column11.Name = "cSeries", ; + Column11.ReadOnly = .T., ; + Column11.Width = 211, ; + Column12.ControlSource = "kmint", ; + Column12.FontSize = 10, ; + Column12.Name = "cKmint", ; + Column12.ReadOnly = .T., ; + Column13.ControlSource = "ore_functionare", ; + Column13.FontSize = 10, ; + Column13.Name = "cOreFunctionare", ; + Column13.ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdcomenzi.cDatafact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatafact.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 'grdcomenzi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDatai.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 'grdcomenzi.cDataoravalid.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data validarii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cDataoravalid.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 'grdcomenzi.cFacturat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Facturat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cFacturat.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 'grdcomenzi.cKmint.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Km. la bord", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cKmint.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 'grdcomenzi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrFact.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 'grdcomenzi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNrord.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 'grdcomenzi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cNume.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 'grdcomenzi.cOreFunctionare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ore motor", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cOreFunctionare.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 'grdcomenzi.cPartRef.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Referinta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cPartRef.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 'grdcomenzi.cSeries.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie sasiu", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cSeries.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 'grdcomenzi.cTip_comanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cTip_comanda.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 'grdcomenzi.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdcomenzi.cValidat.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 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.grdComenzi, ; + Left = 700, ; + Name = "Gridextra1", ; + Top = 445 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Tip comanda", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "Lb_simplu1", ; + TabIndex = 5, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 144, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lbArhivat' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Arhivate", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "lbArhivat", ; + TabIndex = 5, ; + Top = 235, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lbValidat' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + Caption = "Validate", ; + FontName = "Arial Narrow", ; + Left = 693, ; + Name = "lbValidat", ; + TabIndex = 5, ; + Top = 190, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Xresize1' AS xresize WITH ; + Left = 348, ; + Name = "Xresize1", ; + Top = 528 + *< END OBJECT: ClassLib="..\comun\clase\xresize.vcx" BaseClass="custom" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pocomenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + save_grid(Thisform.grdcomenzi) + pocomenzi.ca_baza1.cfiltru = lcFiltru + pocomenzi.ca_baza1.afisare() + restore_grid(Thisform.grdcomenzi) + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + If Reccount('crscomenzi')>0 + thisform.clb_nr_inreg.text_simplu1.Value=RECCOUNT('crscomenzi') + Select crscomenzi + Go Top + Thisform.cmd_vizualizare.Enabled=.T. + Thisform.grdcomenzi.SetFocus() + Else + thisform.clb_nr_inreg.text_simplu1.Value=0 + Thisform.cmd_vizualizare.Enabled=.F. + Endif + + ENDPROC + + PROCEDURE do_cauta + *!* 24.08.2015 + *!* marius.mutu + *!* se afiseaza doar comenzile active (nearhivate) + + Local lcFiltru + *!* lcfiltru=[((extract(month from datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from datafact) =]+Alltrim(Str(gnAn))+[) or (datafact is null ))] + + lnOptiune = Iif(Thisform.cbValidat._combobox1.Value = '', 1, Iif(Thisform.cbValidat._combobox1.Value = 'Validate', 2, 3)) + lnOptiuneArhivat = Iif(Thisform.cbArhivat._combobox1.Value = '', 1, Iif(Thisform.cbArhivat._combobox1.Value = 'Active', 2, 3)) + + lcFiltru = gcCondLuna + + If Thisform.ck_datai.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + If Thisform.ck_series.Value=1 + lcFiltru = lcFiltru + Thisform.ck_series.filtru + ENDIF + + If Thisform.cbtip_deviz._combobox1.Value!="" + lcFiltru = lcFiltru + [ and a.id_tip = ] + Alltrim(Str(lista_tipuri.id_tip)) + Endif + + Do Case + Case lnOptiune = 2 + lcFiltru = lcFiltru + [ and a.validat = 1] + Case lnOptiune = 3 + lcFiltru = lcFiltru + [ and a.validat = 0] + Endcase + + Do Case + Case lnOptiuneArhivat = 2 && Active (nearhivate) + lcFiltru = lcFiltru + [ and a.inchis_fortat = 0] + Case lnOptiuneArhivat = 3 && arhivate + lcFiltru = lcFiltru + [ and a.inchis_fortat = 1] + ENDCASE + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crscomenzi')=0 + aMessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_excel + If Reccount('crscomenzi')=0 + amessagebox("Nu exista date pentru export!",0+48,"Atentie") + Return + Endif + + Try + poExcel = Createobject("Excel.Application") + Catch + export_xls('crscomenzi') + amessagebox("Fisierul XLS a fost creat!",0+48,"Atentie") + *!* amessagebox("Nu aveti instalata aplicatia Excel!",0+48,"Atentie") + *!* Return + Endtry + + If Type('poExcel') <> 'U' + Thisform.MousePointer = 11 + Thisform.LockScreen = .T. + + Local llIntrerupt + llIntrerupt = .F. + loTherm = Newobject("_thermometer","_therm","","Export date in Excel...") + loTherm.AlwaysOnTop=.T. + loTherm.Show() + + lnPercent = 0 + lcTask= Thisform.lb_titlu_alb_b121.Caption + loTherm.Update(lnPercent, lcTask) + + poExcel.WorkBooks.Add + poExcel.Sheets(1).Select + poExcel.Sheets(1).Name=[Comenzi] + poExcel.Cells(2,2).Font.Bold=.T. + poExcel.Cells(2,2).Font.Size = 16 + poExcel.Cells(2,2) = Thisform.lb_titlu_alb_b121.Caption + + lnRandStart=5 + lnColoanaI=2 + + Set Cursor Off + lnRow=lnRandStart + With Thisform.grdcomenzi + lcCursor=.RecordSource + lnNrRanduri=Reccount(lcCursor) + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + lcTask = [Completare cap de tabel...] + loTherm.Update(lnPercent, lcTask) + + For nCol=1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption + lcColoana=Alltrim(.Columns(nCol).ControlSource) + Do Case + Case Type(lcColoana)='C' + poExcel.Columns(nColumn).NumberFormat=[@] + Case Type(lcColoana)='D' + poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@] + Endcase + poExcel.Cells(lnRow,nColumn).Font.Bold = .T. + poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16 + Endfor + + lcTask = [Completare randuri...] + Select (lcCursor) + Scan + lnRow = lnRow + 1 + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + loTherm.Update(lnPercent, lcTask) + If Inkey()=27 + amessagebox("Exportul a fost intrerupt!",0+48,"Atentie") + llIntrerupt = .T. + Exit + Endif + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource) + Endfor + Endscan + + loTherm.Complete() + loTherm.AlwaysOnTop=.F. + Release loTherm + Endwith + Set Cursor On + If llIntrerupt + poExcel.DisplayAlerts = .F. + poExcel.Quit + Else + poExcel.Visible=.T. + Endif + Release poExcel + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + Endif + ENDPROC + + PROCEDURE do_executa + If Reccount('crscomenzi')>0 + *!* modificare v 2.0.35 + Select crscomenzi + Scatter Name ocomanda + vizualizeaza_detalii_comanda(Thisform,ocomanda,.T.) + *!* Private porul,pooper,podevest,pcschema1,pcselect1 + *!* Store '' To porul,pooper,podevest + *!* Do ccsectii in update_devize.prg + *!* Select crscomenzi + *!* Scatter Name ocomanda + *!* *!* modificare pentru script4 -- neaplicata + *!* *!* pcschema=['ID_ORDL n(10),CODOP c(10),TIMPN n(9,3),PRET n(20,4),VALIDAT n(1),DENOP c(100),SECTIE c(30)'] + *!* *!* pcselect=['select id_ordl,codop,timpn,pret,validat,denop,sectie from ] + gcS + [.dev_voper where 1=2'] + *!* *!* pcorder=[datai,denop,sectie] + *!* pcschema=['ID_ORDL n(10),CODOP c(10),TIMPN n(9,3),PRET n(20,4),VALIDAT n(1),DENOP c(100),SECTIE c(100),DATAI D,ID_OPER N(20)'] + *!* pcselect=['select id_ordl,codop,timpn,pret,validat,denop,sectie,datai,id_oper from ] + gcS + [.dev_voper where 1=2'] + *!* *!* modificat 09.06 + *!* *!* pcorder=[validat desc,dataora,datai,sectie,denop] + *!* pcorder=[datai,id_oper] + *!* *!* ^ + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('pooper','oper',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + *!* pooper.ca_baza1.afisare() + *!* pooper.ca_baza1.cfiltru = [id_ordl = ]+Alltrim(Str(ocomanda.id_ordl))+[ and ]+; + *!* [extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12] + *!* *!* modificare 09.06 + *!* *!* [extract(month from dataora)+extract(year from dataora)*12<=?gnLuna+?gnAn*12] + *!* *!* *!* [extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12] + *!* *!* ^ + *!* pcschema=['DENUMIRE v(100),COD v(10),UM v(10),CANTITATE n(20,4),PRETFTVA n(20,4),PRETCTVA n(20,4),COTA_TVA n(10),VALOARE n(20,4),ID_DEV_ESTIMARE_REP n(20),ID_LUCRARE n(10),NRORD v(50),ID_NORME n(5),ID_ARTICOL n(20),PRET_CU_TVA n(1),VALFTVA n(20,4),VALTVA n(20,4)'] + *!* pcselect=['select denumire,cod,um,cantitate,pretftva,pretctva,cota_tva,valoare,id_dev_estimare_rep,id_lucrare,nrord,id_norme,id_articol,pret_cu_tva,valftva,valtva from ] + gcS + [.dev_vestimari_rep where 1=2'] + *!* pcorder=[id_dev_estimare_rep] + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('podevest','v_devizest',pcselect,pcfiltru,pcschema,pcorder) + *!* podevest.ca_baza1.afisare() + *!* podevest.ca_baza1.cfiltru = [id_lucrare = ] + ALLTRIM(STR(ocomanda.id_lucrare)) + *!* + *!* *!* modificare v 2.0.22 : am adaugat tva + *!* pcschema=['CODMAT c(50),DENUMIRE c(100),PRETV n(20,4),CANTE n(18,3),DATAACT D,ID_RUL N(20),COTA_DIFERITA N(1),TVA n(20,4)'] + *!* *!* modificare v 2.0.35 : am adaugat decode(proc_tvav,1,1,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn)) + *!* pcselect=[select codmat,denumire,pretv,cante,dataact,id_rul,decode(proc_tvav,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn),0,1) as cota_diferita,] + ; + *!* [pack_sesiune.calculeaza_pret_tva(pretv,1,pack_def.GetIdMonedaNationala(),] + ; + *!* [decode(proc_tvav,1,1,pack_contafin.getCotaTVAStandard(?gnLuna,?gnAn)),0) as tva ] + ; + *!* [from ] + gcS + [.vrul where 1=2] + *!* pcorder=[dataact,id_rul] + *!* pcfiltru=[1=2] + *!* llAfiseaza=.F. + *!* gencursor('porul','rul',pcselect,pcfiltru,pcschema,pcorder) + *!* porul.ca_baza1.afisare() + *!* porul.ca_baza1.cfiltru = [id_lucrare = ]+Alltrim(Str(ocomanda.id_lucrare))+[ and ]+; + *!* [luna+an*12<=?gnLuna+?gnAn*12] + *!* + *!* + *!* + *!* Thisform.AlwaysOnTop=.F. + *!* ofrmvizualizare = Createobject('frm_vizcomanda',2,ocomanda.Validat) && 2 = vizualizare + *!* ofrmvizualizare.Show(1) + *!* Thisform.AlwaysOnTop=.T. + *!* *!* modificare v 2.0.5 + *!* If Used('oper') + *!* Use In oper + *!* Endif + *!* If Used('rul') + *!* Use In rul + *!* Endif + *!* *!* modificare v 2.0.5 ^ + *!* modificare v 2.0.35 ^ + Else + amessagebox("Nu exista inregistrari pentru care sa vizualizati manopera si materialele!",48,"Atentie") + Endif + + ENDPROC + + PROCEDURE do_listare + Local lnOptiune, lnRecno + Local lnIdOrdl + Private ocomanda + + lnOptiune = xmenu('Listare deviz;Listare raport comanda') + If Empty(m.lnOptiune) + Return + Endif + + If m.lnOptiune = 1 + If Reccount('crscomenzi') > 0 + Private porul, pooper, pcschema1, pcselect1, poFirma + Store '' To porul, pooper, poFirma + + Select crscomenzi + lnRecno = Recno() + Use In (Select('crsdevize')) + Select * From crscomenzi Where Recno() = lnRecno Into Cursor crsdevize + + Select crsdevize + Scan + Scatter Name ocomanda + listare_comanda_deviz(Thisform, ocomanda) + Endscan + Use In (Select('crsdevize')) + Select crscomenzi + Go lnRecno + Thisform.grdcomenzi.SetFocus() + Else + amessagebox("Nu ati selectat nici o comanda!", 0 + 48, "Atentie") + Thisform.grdcomenzi.SetFocus() + Endif + Else + If Reccount('crscomenzi') > 0 + lnIdOrdl = crscomenzi.id_ordl + Do listare_precomanda With m.lnIdOrdl + Endif + Endif + + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.cbtip_deviz.do_reset() + thisform.cbvalidat.do_reset() + thisform.cbarhivat.do_reset() + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE Init + DODEFAULT() + thisform.clb_nr_inreg.text_simplu1.Value=RECCOUNT('crscomenzi') + this.gridextra1.setup() + ENDPROC + + PROCEDURE cbArhivat._combobox1.Destroy + Use In (SELECT('lista_arhivat')) + ENDPROC + + PROCEDURE cbArhivat._combobox1.Init + Create Cursor lista_arhivat (denumire C(50),id N(5)) + Select lista_arhivat + INSERT INTO lista_arhivat (denumire, id) VALUES ('', 0) + INSERT INTO lista_arhivat (denumire, id) VALUES ('Active', 1) + INSERT INTO lista_arhivat (denumire, id) VALUES ('Arhivate', 2) + + + This.RowSourceType= 2 + This.RowSource="lista_arhivat" + This.Value="Active" + this.Parent.cdefault="Active" + ENDPROC + + PROCEDURE cbValidat._combobox1.Destroy + Use In (SELECT('lista_validat')) + ENDPROC + + PROCEDURE cbValidat._combobox1.Init + Create Cursor lista_validat(denumire C(50),id N(5)) + Select lista_validat + INSERT INTO lista_validat(denumire, id) VALUES ('', 0) + INSERT INTO lista_validat(denumire, id) VALUES ('Validate', 1) + INSERT INTO lista_validat(denumire, id) VALUES ('Nevalidate', 2) + + + This.RowSourceType= 2 + This.RowSource="lista_validat" + This.Value="" + this.Parent.cdefault="" + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_viz_comenzi_regie 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="grdfacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cMateriale.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cMateriale.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDataFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDataFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cValctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cValctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrfact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_materiale" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totalftva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_manopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grdfacturi + DoCreate = .T. + Height = 497 + lactiv1 = .T. + Name = "frm_viz_comenzi_regie" + Width = 793 + WindowState = 2 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Height = 29 + _shape2.Left = 732 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = -1 + _shape2.Width = 62 + _shape2.ZOrderSet = 8 + Lb_titlu_alb_b121.Caption = "VIZUALIZARE COMENZI DE REGIE NCHISE N LUNA " + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Left = 762 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 11 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 732, ; + Name = "But_excel1", ; + TabIndex = 17, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comenzii", ; + FontName = "Arial Narrow", ; + Left = 696, ; + Name = "Ck_datai", ; + TabIndex = 3, ; + tip = D, ; + Top = 85, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrfact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nract, ; + Caption = "Nr. act", ; + FontName = "Arial Narrow", ; + Left = 696, ; + Name = "Ck_nrfact", ; + TabIndex = 5, ; + Top = 121, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + FontName = "Arial Narrow", ; + Left = 696, ; + Name = "Ck_nrinmat", ; + TabIndex = 4, ; + Top = 104, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comand", ; + FontName = "Arial Narrow", ; + Left = 696, ; + Name = "Ck_nrord", ; + TabIndex = 1, ; + Top = 48, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Left = 696, ; + Name = "Ck_nume", ; + TabIndex = 2, ; + Top = 66, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_manopera' AS clb_tx_simplu WITH ; + Left = 21, ; + Name = "Clb_manopera", ; + TabIndex = 16, ; + TabStop = .F., ; + Tag = "MOVABLE,NOHORIZONTAL_MOVE", ; + Top = 431, ; + ZOrderSet = 14, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "R", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total manoper", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_materiale' AS clb_tx_simplu WITH ; + Left = 21, ; + Name = "Clb_materiale", ; + TabIndex = 14, ; + TabStop = .F., ; + Tag = "MOVABLE,NOHORIZONTAL_MOVE", ; + Top = 459, ; + ZOrderSet = 12, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "R", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total materiale", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalftva' AS clb_tx_simplu WITH ; + Height = 58, ; + Left = 588, ; + Name = "Clb_totalftva", ; + TabIndex = 15, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 431, ; + Width = 194, ; + ZOrderSet = 13, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "R", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 5, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 31, ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total valoare (fr TVA)", ; + Lb_simplu1.Left = 18, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 7 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 696, ; + Name = "Cmd_cauta1", ; + TabIndex = 9, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 218, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 696, ; + Name = "Cmd_reset1", ; + TabIndex = 13, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 254, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdfacturi' AS _grdrow WITH ; + ColumnCount = 8, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 384, ; + Left = 17, ; + Name = "grdfacturi", ; + Panel = 1, ; + RecordSource = "crsfacturi", ; + TabIndex = 10, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 667, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.Width = 90, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDatai", ; + Column2.Width = 65, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cNume", ; + Column3.Width = 160, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "manopera", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "R", ; + Column4.InputMask = (get_mask(12,gnPc)), ; + Column4.Name = "cManopera", ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "materiale", ; + Column5.FontName = "Arial Narrow", ; + Column5.Format = "R", ; + Column5.InputMask = (get_mask(12,gnPc)), ; + Column5.Name = "cMateriale", ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "nract", ; + Column6.FontName = "Arial Narrow", ; + Column6.InputMask = (get_mask(14,0)), ; + Column6.Name = "cNrFact", ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "dataact", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cDataFact", ; + Column7.Width = 53, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "totalftva", ; + Column8.FontName = "Arial Narrow", ; + Column8.Format = "R", ; + Column8.InputMask = (get_mask(12,gnPc)), ; + Column8.Name = "cValctva" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdfacturi.cDataFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cDataFact.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 'grdfacturi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cDatai.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 'grdfacturi.cManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cManopera.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 'grdfacturi.cMateriale.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Materiale", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cMateriale.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 'grdfacturi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.act", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNrFact.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 'grdfacturi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNrord.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 'grdfacturi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNume.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 'grdfacturi.cValctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total fara TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cValctva.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 'Xresize1' AS xresize WITH ; + Left = 480, ; + Name = "Xresize1", ; + Top = 444 + *< END OBJECT: ClassLib="..\comun\clase\xresize.vcx" BaseClass="custom" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pofacturi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.grdfacturi) + pofacturi.ca_baza1.cfiltru = lcFiltru + pofacturi.ca_baza1.afisare() + restore_grid_comment(Thisform.grdfacturi) + + If Reccount('crsfacturi')>0 + If Used('crstotal') + Use In crstotal + Endif + Select Sum(totalftva) As stotalftva From crsfacturi ; + into Cursor crstotal + Select crstotal + Thisform.clb_totalftva.text_simplu1.Value=stotalftva + Use In crstotal + + Select Sum(manopera) As smanopera,Sum(materiale) As smateriale From crsfacturi WHERE nrcrt=1 ; + into Cursor crstotal + Thisform.clb_manopera.text_simplu1.Value=smanopera + Thisform.clb_materiale.text_simplu1.Value=smateriale + Use In crstotal + Else + Thisform.clb_manopera.text_simplu1.Value=0.000 + Thisform.clb_materiale.text_simplu1.Value=0.000 + Thisform.clb_totalftva.text_simplu1.Value=0.000 + Endif + DoDefault() + + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[(extract(month from dataact) =]+Alltrim(Str(gnLuna))+[ and extract(year from dataact) =]+Alltrim(Str(gnAn))+[) and id_set = 31006] + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + If Thisform.ck_datai.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrfact.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrfact.filtru + Endif + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crsfacturi')=0 + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_excel + If Reccount('crsfacturi')=0 + amessagebox("Nu exista date pentru export!",0+48,"Atentie") + Return + Endif + + Try + poExcel = Createobject("Excel.Application") + Catch + export_xls('crsfacturi') + amessagebox("Fisierul XLS a fost creat!",0+48,"Atentie") + *!* amessagebox("Nu aveti instalata aplicatia Excel!",0+48,"Atentie") + *!* Return + Endtry + + If Type('poExcel') <> 'U' + Thisform.MousePointer = 11 + Thisform.LockScreen = .T. + + Local llIntrerupt + llIntrerupt = .F. + + loTherm = Newobject("_thermometer","_therm","","Export date in Excel...") + loTherm.AlwaysOnTop=.T. + loTherm.Show() + + lnPercent = 0 + lcTask= Thisform.lb_titlu_alb_b121.Caption + loTherm.Update(lnPercent, lcTask) + + poExcel.WorkBooks.Add + poExcel.Sheets(1).Select + poExcel.Sheets(1).Name=[Facturi] + poExcel.Cells(2,2).Font.Bold=.T. + poExcel.Cells(2,2).Font.Size = 16 + poExcel.Cells(2,2) = Thisform.lb_titlu_alb_b121.Caption + + lnRandStart=5 + lnColoanaI=2 + + lnRow=lnRandStart + Set Cursor Off + With Thisform.grdfacturi + lcCursor=.RecordSource + lnNrRanduri=Reccount(lcCursor) + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + lcTask = [Completare cap de tabel...] + loTherm.Update(lnPercent, lcTask) + + For nCol=1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption + lcColoana=Alltrim(.Columns(nCol).ControlSource) + Do Case + Case Type(lcColoana)='C' + poExcel.Columns(nColumn).NumberFormat=[@] + Case Type(lcColoana)='D' + poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@] + Endcase + poExcel.Cells(lnRow,nColumn).Font.Bold = .T. + poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16 + Endfor + + lcTask = [Completare randuri...] + Select (lcCursor) + Scan + lnRow = lnRow + 1 + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + loTherm.Update(lnPercent, lcTask) + If Inkey()=27 + amessagebox("Exportul a fost intrerupt!",0+48,"Atentie") + llIntrerupt = .T. + Exit + Endif + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource) + Endfor + Endscan + + loTherm.Complete() + loTherm.AlwaysOnTop=.F. + Release loTherm + Endwith + Set Cursor On + If llIntrerupt + poExcel.DisplayAlerts = .F. + poExcel.Quit + Else + poExcel.Visible=.T. + Endif + Release poExcel + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + Endif + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE Init + DoDefault() + Thisform.lb_titlu_alb_b121.Caption=Thisform.lb_titlu_alb_b121.Caption+[ ]+Alltrim(Str(gnLuna))+[/]+Alltrim(Str(gnAn)) + + ENDPROC + + PROCEDURE grdfacturi.AfterRowColChange + Lparameters nColIndex + If This.RowColChange!=2 + DoDefault() + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_viz_date_comenzi 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="Gridtreeview1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.ColumnTV.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.ColumnTV.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.ColumnTV.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.ColumnTV.Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column3.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Afficherniveau1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtArticol" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtMasina" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" /> + + * + *m: refreshdata + *p: cclient + * + + * + Caption = "Form" + cclient = .NULL. + cgridsortlist = + DoCreate = .T. + Height = 497 + lactiv1 = .T. + Name = "frm_viz_date_comenzi" + Width = 793 + WindowState = 2 + _memberdata = + + + + + + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 732 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = -1 + _shape2.Width = 62 + _shape2.ZOrderSet = 6 + Lb_titlu_alb_b121.Caption = "Vizualizare date: Client - Masina / Comanda / Articol" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + Lb_titlu_alb_b121.ZOrderSet = 2 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 762 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 10 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 9 + Gridsort1.Left = 775 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 468 + * + + ADD OBJECT '_label1' AS _label WITH ; + Caption = "Client", ; + FontBold = .T., ; + Left = 16, ; + Name = "_label1", ; + TabIndex = 13, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label2' AS _label WITH ; + Caption = "Articol", ; + FontBold = .T., ; + Left = 348, ; + Name = "_label2", ; + TabIndex = 14, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label3' AS _label WITH ; + Caption = "Perioada comanda", ; + FontBold = .T., ; + Left = 511, ; + Name = "_label3", ; + TabIndex = 16, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label4' AS _label WITH ; + Caption = "-", ; + FontBold = .T., ; + FontSize = 11, ; + Left = 586, ; + Name = "_label4", ; + TabIndex = 17, ; + Top = 54 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_label5' AS _label WITH ; + Caption = "Masina", ; + FontBold = .T., ; + Height = 17, ; + Left = 228, ; + Name = "_label5", ; + TabIndex = 15, ; + Top = 36, ; + Width = 43 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'Afficherniveau1' AS afficherniveau WITH ; + Left = 15, ; + Name = "Afficherniveau1", ; + TabIndex = 8, ; + Top = 85, ; + ZOrderSet = 11, ; + CmdN0.Name = "CmdN0", ; + CmdN1.Name = "CmdN1", ; + CmdN2.Name = "CmdN2" + *< END OBJECT: ClassLib="..\comun\clase\gridtreeview.vcx" BaseClass="container" /> + + ADD OBJECT 'But_cautare1' AS but_cautare WITH ; + Anchor = 0, ; + cpicturedown = find_jos.bmp, ; + cpictureup = find_sus.bmp, ; + Height = 27, ; + Left = 705, ; + Name = "But_cautare1", ; + Picture = ..\comun\grafice\find_sus.bmp, ; + TabIndex = 6, ; + Top = 50, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 8, ; + Left = 732, ; + Name = "But_excel1", ; + TabIndex = 11, ; + Top = 0, ; + Visible = .T., ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset1' AS but_reset WITH ; + Anchor = 0, ; + Left = 676, ; + Name = "But_reset1", ; + TabIndex = 7, ; + Top = 50 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Gridextra1' AS gridextra WITH ; + gridexpression = thisform.gridtreeview1, ; + Left = 768, ; + Name = "Gridextra1", ; + Top = 72 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridtreeview1' AS gridtreeview WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + FontName = "Arial Narrow", ; + GridLines = 3, ; + HeaderHeight = 35, ; + Height = 381, ; + Left = 12, ; + Name = "Gridtreeview1", ; + niveau0 = cle1, ; + niveau1 = cle2, ; + niveau2 = cle3, ; + Panel = 1, ; + RecordMark = .T., ; + RecordSource = "commandes", ; + RecordSourceType = 1, ; + ScrollBars = 3, ; + TabIndex = 9, ; + Top = 108, ; + Width = 768, ; + ZOrderSet = 0, ; + ColumnTV.ControlSource = "", ; + ColumnTV.FontName = "Arial Narrow", ; + ColumnTV.HeaderTV.Caption = "Client - Masina / Comanda / Articol", ; + ColumnTV.HeaderTV.FontName = "Arial Narrow", ; + ColumnTV.HeaderTV.Name = "HeaderTV", ; + ColumnTV.Name = "ColumnTV", ; + ColumnTV.Width = 260, ; + Column2.Bound = .F., ; + Column2.CurrentControl = "Text1", ; + Column2.DynamicCurrentControl = 'iif(niveau=0,"label1",iif(niveau=1,"text2",iif(niveau=2,"text3","")))', ; + Column2.DynamicInputMask = "", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.Sparse = .F., ; + Column2.Width = 109, ; + Column3.Bound = .F., ; + Column3.ColumnOrder = 4, ; + Column3.DynamicCurrentControl = 'iif(niveau=0,"label1",iif(niveau=2,"text2",""))', ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column4", ; + Column3.Sparse = .F., ; + Column4.Bound = .F., ; + Column4.ColumnOrder = 5, ; + Column4.DynamicCurrentControl = 'iif(niveau=2,"text1","label1")', ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column3", ; + Column4.Sparse = .F., ; + Column5.ColumnOrder = 3, ; + Column5.ControlSource = "cante", ; + Column5.DynamicCurrentControl = 'iif(niveau=2, "text1", "")', ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column1", ; + Column5.ReadOnly = .T., ; + Column5.Width = 55 + *< END OBJECT: ClassLib="..\comun\clase\gridtreeview.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridtreeview1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.Column1.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 'Gridtreeview1.Column2.Header1' AS header WITH ; + Caption = "Data Comanda / Cod Material", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.Column2.Label1' AS label WITH ; + Caption = "", ; + Height = 17, ; + Left = 76, ; + Name = "Label1", ; + Top = 107, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Gridtreeview1.Column2.Text1' AS textbox WITH ; + Alignment = 3, ; + BorderStyle = 0, ; + ControlSource = "cod_fiscal", ; + FontName = "Arial Narrow", ; + Format = "!K", ; + Height = 10, ; + Left = 26, ; + Margin = 1, ; + Name = "Text1", ; + Top = 29, ; + Width = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column2.Text2' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "datai", ; + Format = "!KD", ; + Height = 10, ; + InputMask = "", ; + Left = 38, ; + Name = "Text2", ; + Top = 29, ; + Width = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column2.Text3' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "codmat", ; + Format = "!K", ; + Height = 23, ; + Left = 40, ; + Name = "Text3", ; + Top = 83, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.Column3.Label1' AS label WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + Caption = "", ; + Height = 17, ; + Left = 31, ; + Name = "Label1", ; + Top = 83, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Gridtreeview1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "data", ; + DateFormat = 11, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Format = "DZK", ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.Column4.Label1' AS label WITH ; + Caption = "", ; + Height = 17, ; + Left = 11, ; + Name = "Label1", ; + Top = 95, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Gridtreeview1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "telefon1", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Format = "RK", ; + InputMask = "UUUUUUUUUUUUUUUU", ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column4.Text2' AS textbox WITH ; + Alignment = 1, ; + BorderStyle = 0, ; + ControlSource = "pret", ; + Format = "RK", ; + Height = 23, ; + InputMask = "999 999 999.99", ; + Left = 23, ; + Name = "Text2", ; + Top = 71, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.ColumnTV.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 'Gridtreeview1.ColumnTV.Text2' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text2" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.ColumnTV.Text3' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text3" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.ColumnTV.Text4' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text4" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtArticol' AS _textbox WITH ; + Format = "!K", ; + Height = 23, ; + Left = 348, ; + Name = "txtArticol", ; + TabIndex = 3, ; + Top = 54, ; + Width = 152 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtClient' AS _textbox WITH ; + Format = "!K", ; + Height = 23, ; + Left = 16, ; + Name = "txtClient", ; + TabIndex = 1, ; + Top = 54, ; + Width = 202 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtData1' AS _textbox WITH ; + Alignment = 3, ; + Format = "K", ; + Height = 23, ; + Left = 511, ; + Name = "txtData1", ; + TabIndex = 4, ; + Top = 54, ; + Value = {}, ; + Width = 73 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtData2' AS _textbox WITH ; + Alignment = 3, ; + Format = "K", ; + Height = 23, ; + Left = 594, ; + Name = "txtData2", ; + TabIndex = 5, ; + Top = 54, ; + Value = {}, ; + Width = 73 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'txtMasina' AS _textbox WITH ; + Format = "!K", ; + Height = 23, ; + Left = 228, ; + Name = "txtMasina", ; + TabIndex = 2, ; + Top = 54, ; + Width = 111 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = poDateComenzi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.Gridtreeview1) + + poDateComenzi.ca_baza1.cfiltru = lcFiltru + poDateComenzi.ca_baza1.afisare() + + *** Actualizare arbore + This.RefreshData() + + restore_grid_comment(Thisform.gridtreeview1) + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + ENDPROC + + PROCEDURE do_cauta + PRIVATE pcClient, pcArticol, pdData1, pdData2, pcMasina + Local lcFiltru + lcFiltru = "" + pcClient = [%] + ALLTRIM(this.txtClient.Value) + [%] + pcArticol = [%] + ALLTRIM(this.txtArticol.Value) + [%] + pcMasina = [%] + ALLTRIM(this.txtMasina.Value) + [%] + + pdData1 = this.txtData1.Value + pdData2 = this.txtData2.Value + IF !EMPTY(m.pdData1) AND (EMPTY(m.pdData2) OR m.pdData2 < m.pdData1) + pdData2 = m.pdData1 + ENDIF + + IF !EMPTY(ALLTRIM(this.txtClient.Value)) + lcFiltru = lcFiltru + [ and nume LIKE ?pcClient] + ENDIF + IF !EMPTY(ALLTRIM(this.txtArticol.Value)) + lcFiltru = lcFiltru + [ and denumire LIKE ?pcArticol] + ENDIF + IF !EMPTY(ALLTRIM(this.txtMasina.Value)) + lcFiltru = lcFiltru + [ and nrinmat LIKE ?pcMasina] + ENDIF + IF !EMPTY(m.pdData1) + lcFiltru = lcFiltru + [ and datai between ?pdData1 and ?pdData2] + ENDIF + + IF !EMPTY(m.lcFiltru) + lcFiltru = SUBSTR(m.lcFiltru, 6) + ENDIF + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('crsDateComenzi') = 0 + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Endif + + ENDPROC + + PROCEDURE do_excel + If Reccount('crsDateComenzi')=0 + amessagebox("Nu exista date pentru export!",0+48,"Atentie") + Return + Endif + + export_xls('crsDateComenzi') + amessagebox("Fisierul XLS a fost creat!",0+48,"Atentie") + ENDPROC + + PROCEDURE do_reset + WITH thisform + .txtClient.value = "" + .txtMasina.value = "" + .txtArticol.value = "" + .txtData1.value = {} + .txtData2.value = {} + ENDWITH + + ENDPROC + + PROCEDURE Init + DODEFAULT() + THIS.Gridtreeview1.SetAll("DynamicForeColor", "IIF(SEMN = 'A', RGB(0,200,100), IIF(SEMN = 'B', RGB(0,100,250), RGB(0,0,0)))", "Column") + this.gridextra1.setup() + ENDPROC + + PROCEDURE Load + This.RefreshData(.T.) + ENDPROC + + PROCEDURE refreshdata + Lparameters tlEmpty + Local lnTip, lcWhere + + If m.tlEmpty + lcWhere = "where 1=2" + Else + lcWhere = "where .T." + Endif + + lnTip = 2 && client-masina/comanda/articol + Do Case + Case lnTip = 1 && client/comanda/articol + Select nume As cle1, nrord As cle2, denumire As cle3, 2 As niveau, "" As expanded, .F. As Visible, ; + cod_fiscal, email, telefon1, ; + Ttod(datai) As datai, nrinmat, ; + semn, codmat, cante, Pret, Ttod(Data) As Data ; + From crsDateComenzi ; + &lcWhere ; + Order By nume, datai, semn, denumire ; + Into Cursor Commandes Readwrite + + Select Distinct cle1, 0 As niveau, "N" As expanded, .T. As Visible, ; + cod_fiscal, email, telefon1 ; + From Commandes Into Cursor c0 + + Select Distinct cle1, cle2, 1 As niveau, "N" As expanded, .F. As Visible, ; + datai, nrinmat ; + From Commandes Into Cursor c1 + + Case lnTip = 2 && client-masina/comanda/articol + Select Padr(Alltrim(nume) + ' - ' + Alltrim(nrinmat), 70, ' ') As cle1, nrord As cle2, denumire As cle3, 2 As niveau, "" As expanded, .F. As Visible, ; + cod_fiscal, email, telefon1, ; + Ttod(datai) As datai, ; + semn, codmat, cante, Pret, Ttod(Data) As Data ; + From crsDateComenzi ; + &lcWhere ; + Order By nume, datai, semn, denumire ; + Into Cursor Commandes Readwrite + + Select Distinct cle1, 0 As niveau, "N" As expanded, .T. As Visible, ; + cod_fiscal, email, telefon1 ; + From Commandes Into Cursor c0 + + Select Distinct cle1, cle2, 1 As niveau, "N" As expanded, .F. As Visible, ; + datai ; + From Commandes Into Cursor c1 + + Otherwise && client/masina/articol + Select nume As cle1, nrinmat As cle2, denumire As cle3, 2 As niveau, "" As expanded, .F. As Visible, ; + cod_fiscal, email, telefon1, ; + Ttod(datai) As datai, nrord, ; + semn, codmat, cante, Pret, Ttod(Data) As Data ; + From crsDateComenzi ; + &lcWhere ; + Order By nume, nrinmat, semn, Data, denumire ; + Into Cursor Commandes Readwrite + + Select Distinct cle1, 0 As niveau, "N" As expanded, .T. As Visible, ; + cod_fiscal, email, telefon1 ; + From Commandes Into Cursor c0 + + Select Distinct cle1, cle2, 1 As niveau, "N" As expanded, .F. As Visible, ; + datai, nrord ; + From Commandes Into Cursor c1 + + Endcase + Select Commandes + Append From Dbf("c0") + Append From Dbf("c1") + Index On cle1 + cle2 + semn + cle3 Tag Id + Use In (Select('c0')) + Use In (Select('c1')) + Select Commandes + SET FILTER TO visible + GO top + ENDPROC + + PROCEDURE txtData1.LostFocus + Local ldData1, ldData2 + ldData1 = This.Value + ldData2 = Thisform.txtData2.Value + + Do Case + Case !Empty(m.ldData1) And (Empty(m.ldData2) Or m.ldData2 < m.ldData1) + Thisform.txtData2.Value = m.ldData1 + Case Empty(m.ldData1) And !Empty(m.ldData2) + Thisform.txtData2.Value = {} + Endcase + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_viz_facturi 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="grdfacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cAsigurator.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cAsigurator.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cInspector.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cInspector.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cManopera.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cManopera.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cMateriale.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cMateriale.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNrFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDataFact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cDataFact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cValctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cValctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNr_dosar.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cNr_dosar.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cPartRef.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdfacturi.cPartRef.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_dosar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_asigurator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrfact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_inspector" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_materiale" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_valctva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_manopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datafact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Xresize1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + + * + *m: refreshdata + * + + * + cgridsortlist = grdfacturi + DoCreate = .T. + Height = 497 + lactiv1 = .T. + Name = "frm_viz_facturi" + Width = 793 + WindowState = 2 + _memberdata = + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Height = 29 + _shape2.Left = 731 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = -1 + _shape2.Width = 62 + _shape2.ZOrderSet = 8 + Lb_titlu_alb_b121.Caption = "VIZUALIZARE FACTURI EMISE N LUNA " + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 12 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Left = 762 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 11 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 703, ; + Name = "But_excel1", ; + TabIndex = 17, ; + 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 = 733, ; + Name = "But_listare1", ; + TabIndex = 12, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 0, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_asigurator' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.asigurator, ; + Caption = "Asigurator", ; + Left = 678, ; + Name = "Ck_asigurator", ; + TabIndex = 6, ; + Top = 140, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_datafact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.dataact, ; + Caption = "Data factura", ; + Left = 678, ; + Name = "Ck_datafact", ; + TabIndex = 3, ; + tip = D, ; + Top = 39, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_datai' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datai, ; + Caption = "Data comanda", ; + Left = 678, ; + Name = "Ck_datai", ; + TabIndex = 3, ; + tip = D, ; + Top = 104, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_inspector' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.inspector, ; + Caption = "Inspector", ; + Left = 678, ; + Name = "Ck_inspector", ; + TabIndex = 7, ; + Top = 157, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_dosar' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nr_dosar, ; + Caption = "Nr.dosar", ; + Left = 678, ; + Name = "Ck_nr_dosar", ; + TabIndex = 8, ; + Top = 174, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrfact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nract, ; + Caption = "Nr. factura", ; + Left = 678, ; + Name = "Ck_nrfact", ; + TabIndex = 5, ; + Top = 55, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrinmat, ; + Caption = "Nr. nmatriculare", ; + Left = 678, ; + Name = "Ck_nrinmat", ; + TabIndex = 4, ; + Top = 122, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comanda", ; + Left = 678, ; + Name = "Ck_nrord", ; + TabIndex = 1, ; + Top = 87, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nume, ; + Caption = "Nume client", ; + Left = 678, ; + Name = "Ck_nume", ; + TabIndex = 2, ; + Top = 70, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_manopera' AS clb_tx_simplu WITH ; + Left = 7, ; + Name = "Clb_manopera", ; + TabIndex = 16, ; + TabStop = .F., ; + Tag = "MOVABLE,NOHORIZONTAL_MOVE", ; + Top = 431, ; + ZOrderSet = 14, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "R", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total manopera", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_materiale' AS clb_tx_simplu WITH ; + Left = 7, ; + Name = "Clb_materiale", ; + TabIndex = 14, ; + TabStop = .F., ; + Tag = "MOVABLE,NOHORIZONTAL_MOVE", ; + Top = 459, ; + ZOrderSet = 12, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "R", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total materiale", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_valctva' AS clb_tx_simplu WITH ; + Height = 58, ; + Left = 479, ; + Name = "Clb_valctva", ; + TabIndex = 15, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 431, ; + Width = 194, ; + ZOrderSet = 13, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.Format = "R", ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Left = 5, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 31, ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total valoare facturi (cu TVA)", ; + Lb_simplu1.Left = 18, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 7 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Height = 27, ; + Left = 678, ; + Name = "Cmd_cauta1", ; + TabIndex = 9, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 218, ; + Width = 109, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Height = 27, ; + Left = 678, ; + Name = "Cmd_reset1", ; + TabIndex = 13, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 254, ; + Width = 109, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdfacturi' AS _grdrow WITH ; + ColumnCount = 12, ; + DeleteMark = .F., ; + FontSize = 10, ; + Height = 384, ; + Left = 7, ; + Name = "grdfacturi", ; + Panel = 1, ; + RecordSource = "crsfacturi", ; + RowHeight = 19, ; + TabIndex = 10, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 665, ; + ZOrderSet = 2, ; + Column1.ColumnOrder = 4, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNrord", ; + Column1.Width = 108, ; + Column2.ColumnOrder = 5, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDatai", ; + Column2.Width = 88, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "nume", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNume", ; + Column3.Width = 190, ; + Column4.ColumnOrder = 9, ; + Column4.ControlSource = "asigurator", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cAsigurator", ; + Column4.Width = 127, ; + Column5.ColumnOrder = 10, ; + Column5.ControlSource = "inspector", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Name = "cInspector", ; + Column5.Width = 117, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "manopera", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPc)), ; + Column6.Name = "cManopera", ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "materiale", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "R", ; + Column7.InputMask = (get_mask(12,gnPc)), ; + Column7.Name = "cMateriale", ; + Column8.ColumnOrder = 2, ; + Column8.ControlSource = "nract", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.InputMask = (get_mask(14,0)), ; + Column8.Name = "cNrFact", ; + Column8.Width = 90, ; + Column9.ColumnOrder = 1, ; + Column9.ControlSource = "dataact", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cDataFact", ; + Column9.Width = 74, ; + Column10.ColumnOrder = 8, ; + Column10.ControlSource = "valctva", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Format = "R", ; + Column10.InputMask = (get_mask(12,gnPc)), ; + Column10.Name = "cValctva", ; + Column10.Width = 95, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "nr_dosar", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "cNr_dosar", ; + Column12.ColumnOrder = 12, ; + Column12.ControlSource = "part_ref", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "cPartRef", ; + Column12.Width = 95 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdfacturi.cAsigurator.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Asigurator", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cAsigurator.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 'grdfacturi.cDataFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cDataFact.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 'grdfacturi.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cDatai.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 'grdfacturi.cInspector.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inspector", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cInspector.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 'grdfacturi.cManopera.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Manopera", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cManopera.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 'grdfacturi.cMateriale.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Materiale", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cMateriale.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 'grdfacturi.cNr_dosar.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. dosar", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNr_dosar.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 'grdfacturi.cNrFact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. factura", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNrFact.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 'grdfacturi.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cNrord.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 'grdfacturi.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + 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", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grdfacturi.cPartRef.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Referinta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cPartRef.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 'grdfacturi.cValctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdfacturi.cValctva.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 'Gridextra1' AS gridextra WITH ; + gridexpression = Thisform.grdFacturi, ; + Left = 684, ; + Name = "Gridextra1", ; + Top = 396 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Xresize1' AS xresize WITH ; + Left = 778, ; + Name = "Xresize1", ; + Top = 480 + *< END OBJECT: ClassLib="..\comun\clase\xresize.vcx" BaseClass="custom" /> + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pofacturi.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.grdfacturi) + pofacturi.ca_baza1.cfiltru = lcFiltru + pofacturi.ca_baza1.afisare() + restore_grid_comment(Thisform.grdfacturi) + + This.RefreshData() + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + *!* lcFiltru=[b.luna=]+Alltrim(Str(gnLuna))+[ and b.an=]+Alltrim(Str(gnAn)) + + lcFiltru=[(extract(month from dataact) =]+Alltrim(Str(gnLuna))+[ and extract(year from dataact) =]+Alltrim(Str(gnAn))+[)] + *!* lcFiltru = gcCondLuna + [ and a.facturat=1] -- modificare 27.01 + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_nume.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + Endif + + If Thisform.ck_datai.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datai.filtru + Endif + + If Thisform.ck_nrinmat.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru + Endif + + If Thisform.ck_nrfact.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrfact.filtru + Endif + + If Thisform.ck_datafact.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datafact.filtru + ENDIF + + If Thisform.ck_asigurator.Value=1 + lcFiltru = lcFiltru + Thisform.ck_asigurator.filtru + Endif + + If Thisform.ck_inspector.Value=1 + lcFiltru = lcFiltru + Thisform.ck_inspector.filtru + Endif + + If Thisform.ck_nr_dosar.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nr_dosar.filtru + Endif + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crsfacturi')=0 + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_excel + If Reccount('crsfacturi')=0 + amessagebox("Nu exista date pentru export!",0+48,"Atentie") + Return + Endif + + Try + poExcel = Createobject("Excel.Application") + Catch + export_xls('crsfacturi') + amessagebox("Fisierul XLS a fost creat!",0+48,"Atentie") + *!* amessagebox("Nu aveti instalata aplicatia Excel!",0+48,"Atentie") + *!* Return + Endtry + + If Type('poExcel') <> 'U' + Thisform.MousePointer = 11 + Thisform.LockScreen = .T. + + Local llIntrerupt + llIntrerupt = .F. + + loTherm = Newobject("_thermometer","_therm","","Export date in Excel...") + loTherm.AlwaysOnTop=.T. + loTherm.Show() + + lnPercent = 0 + lcTask= Thisform.lb_titlu_alb_b121.Caption + loTherm.Update(lnPercent, lcTask) + + poExcel.WorkBooks.Add + poExcel.Sheets(1).Select + poExcel.Sheets(1).Name=[Facturi] + poExcel.Cells(2,2).Font.Bold=.T. + poExcel.Cells(2,2).Font.Size = 16 + poExcel.Cells(2,2) = Thisform.lb_titlu_alb_b121.Caption + + lnRandStart=5 + lnColoanaI=2 + + lnRow=lnRandStart + Set Cursor Off + With Thisform.grdfacturi + lcCursor=.RecordSource + lnNrRanduri=Reccount(lcCursor) + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + lcTask = [Completare cap de tabel...] + loTherm.Update(lnPercent, lcTask) + + For nCol=1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption + lcColoana=Alltrim(.Columns(nCol).ControlSource) + Do Case + Case Type(lcColoana)='C' + poExcel.Columns(nColumn).NumberFormat=[@] + Case Type(lcColoana)='D' + poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@] + Endcase + poExcel.Cells(lnRow,nColumn).Font.Bold = .T. + poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16 + Endfor + + lcTask = [Completare randuri...] + Select (lcCursor) + Scan + lnRow = lnRow + 1 + lnPercent = (lnRow - lnRandStart + 1) * 100 / (lnNrRanduri + 1) + loTherm.Update(lnPercent, lcTask) + If Inkey()=27 + amessagebox("Exportul a fost intrerupt!",0+48,"Atentie") + llIntrerupt = .T. + Exit + Endif + For nCol = 1 To .ColumnCount + nColumn = .Columns(nCol).ColumnOrder+lnColoanaI + poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource) + Endfor + Endscan + + loTherm.Complete() + loTherm.AlwaysOnTop=.F. + Release loTherm + Endwith + Set Cursor On + If llIntrerupt + poExcel.DisplayAlerts = .F. + poExcel.Quit + Else + poExcel.Visible=.T. + Endif + Release poExcel + Thisform.LockScreen=.F. + Thisform.MousePointer=0 + Endif + ENDPROC + + PROCEDURE do_listare + Local lnOptiune + + lnOptiune = xmenu('Relistare \0 + If Used('crstotal') + Use In crstotal + Endif + Select Sum(valctva) As svalctva From crsfacturi ; + into Cursor crstotal + Select crstotal + Thisform.clb_valctva.text_simplu1.Value=svalctva + Use In crstotal + + Select Sum(manopera) As smanopera,Sum(materiale) As smateriale From crsfacturi WHERE nrcrt=1; + into Cursor crstotal + Thisform.clb_manopera.text_simplu1.Value=smanopera + Thisform.clb_materiale.text_simplu1.Value=smateriale + Use In crstotal + + Thisform.grdfacturi.SetFocus() + Else + Thisform.clb_manopera.text_simplu1.Value=0.000 + Thisform.clb_materiale.text_simplu1.Value=0.000 + Thisform.clb_valctva.text_simplu1.Value=0.000 + Endif + + ENDPROC + + PROCEDURE But_listare1.Click + Local lnOptiune + + lnOptiune = xmenu('Relistare \ + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grdmanopera" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatai.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatai.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTimpN.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTimpN.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cPret.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cPret.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cSectie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cSectie._cbbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cSectie._textbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cFacturat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cFacturat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cUtil.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cUtil.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDataora.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDataora.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cNrfact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cNrfact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatafactura.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cDatafactura.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTip_comanda.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmanopera.cTip_comanda.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_datafact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_mecanic" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_denumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totalore" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_nrinreg" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_totalvaloare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_totalore" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_timpn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic._cbbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cMecanic._textbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cOre.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdmecanici.cOre.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_dataora" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_timpn" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_nrord" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_normare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="tx_totalore" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbtip_deviz" UniqueID="" Timestamp="" /> + + * + *p: lsalvat && Arata daca modificarile facute asupra datelor din grid au fost salvate in baza de date. + *p: lvalidat && Arata daca inregistrarea modificata a fost validata sau nu inainte de iesirea din forma. + *p: norainitiala && Ora initiala. + *p: noramodificata && Ora modificata. + *p: ntimpnedistribuit && Specifica cat timp a ramas nedistribuit pentru operatia selectata. + * + + * + cgridsortlist = grdmanopera,grdmecanici + DoCreate = .T. + Height = 530 + lactiv2 = .T. + lactiv4 = .T. + lsalvat = .T. + lvalidat = .T. + Name = "frm_viz_manopera" + ntimpnedistribuit = 0.000 + Width = 793 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Tag = "RESIZABLE,NOVERTICAL_RESIZE" + _shape1.Top = 0 + _shape1.Width = 792 + _shape1.ZOrderSet = 0 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 731 + _shape2.Name = "_shape2" + _shape2.Tag = "MOVABLE,NOVERTICAL_MOVE" + _shape2.Top = 0 + _shape2.Width = 67 + _shape2.ZOrderSet = 10 + Lb_titlu_alb_b121.Caption = "MANOPER" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 17 + Lb_titlu_alb_b121.ZOrderSet = 1 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Comment = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Left = 763 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 15 + BUT_TERMIN1.Tag = "MOVABLE,NOVERTICAL_MOVE" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 13 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 13, ; + BackColor = 255,255,255, ; + BackStyle = 0, ; + BorderColor = 128,128,128, ; + Height = 242, ; + Left = 435, ; + Name = "_shape3", ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 143, ; + Width = 345, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 8, ; + Left = 733, ; + Name = "But_listare1", ; + TabIndex = 16, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + 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 = 730, ; + Name = "But_nou1", ; + TabIndex = 12, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 128 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 760, ; + Name = "But_sterge1", ; + TabIndex = 13, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 128, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cbtip_deviz' AS ctip_deviz WITH ; + Anchor = 8, ; + Height = 27, ; + Left = 521, ; + Name = "cbtip_deviz", ; + TabIndex = 9, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 88, ; + Width = 84, ; + _combobox1.Height = 24, ; + _combobox1.Left = 1, ; + _combobox1.Name = "_combobox1", ; + _combobox1.Top = 2, ; + _combobox1.Width = 83 + *< END OBJECT: ClassLib="oviz_devize.vcx" BaseClass="container" /> + + ADD OBJECT 'Ck_datafact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.datafact, ; + Caption = "Dat factur", ; + FontName = "Arial Narrow", ; + Left = 516, ; + Name = "Ck_datafact", ; + TabIndex = 7, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + tip = D, ; + Top = 39, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_dataora' AS ck_filtru_numar WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = b.dataora, ; + Caption = "Data efecturii", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_dataora", ; + TabIndex = 6, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + tip = D, ; + Top = 109, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_denumire' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = b.denop, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_denumire", ; + TabIndex = 3, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 57, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_mecanic' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = nume||CHR(32)||prenume, ; + Caption = "Mecanic", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_mecanic", ; + TabIndex = 5, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 91, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nrord' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = a.nrord, ; + Caption = "Nr. comand", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_nrord", ; + TabIndex = 2, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 39, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_sectie' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 8, ; + camp_nume = b.sectie, ; + Caption = "Secie", ; + FontName = "Arial Narrow", ; + Left = 432, ; + Name = "Ck_sectie", ; + TabIndex = 4, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 75, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Clb_nrinreg' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 492, ; + Name = "Clb_nrinreg", ; + TabIndex = 18, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 487, ; + ZOrderSet = 12, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.InputMask = "999 999 999 999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Nr. nregistrri", ; + Lb_simplu1.Left = 3, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalore' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 492, ; + Name = "Clb_totalore", ; + TabIndex = 20, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 408, ; + ZOrderSet = 11, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.InputMask = "999 999 999.999", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total timp normat", ; + Lb_simplu1.Left = 3, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_totalvaloare' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Left = 492, ; + Name = "Clb_totalvaloare", ; + TabIndex = 21, ; + TabStop = .F., ; + Tag = "MOVABLE", ; + Top = 436, ; + ZOrderSet = 12, ; + Text_simplu1.Alignment = 3, ; + Text_simplu1.InputMask = (get_mask(12,gnPc)), ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Value = 0, ; + Lb_simplu1.Caption = "Total valoare lei", ; + Lb_simplu1.Left = 4, ; + Lb_simplu1.Name = "Lb_simplu1", ; + Lb_simplu1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 8, ; + Left = 612, ; + Name = "Cmd_cauta1", ; + TabIndex = 10, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 49, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_normare' AS cmd_executa WITH ; + Anchor = 8, ; + Caption = "\ + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 8, ; + Left = 612, ; + Name = "Cmd_reset1", ; + TabIndex = 19, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 85, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grdmanopera' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 468, ; + Left = 17, ; + Name = "grdmanopera", ; + Panel = 1, ; + RecordSource = "crsmanopera", ; + RowHeight = 23, ; + TabIndex = 1, ; + Tag = "RESIZABLE", ; + Top = 36, ; + Width = 403, ; + ZOrderSet = 2, ; + Column1.ControlSource = "nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNrord", ; + Column1.ReadOnly = .T., ; + Column1.Width = 90, ; + Column2.ControlSource = "datai", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDatai", ; + Column2.ReadOnly = .T., ; + Column2.Width = 65, ; + Column3.ControlSource = "denop", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cDenumire", ; + Column3.ReadOnly = .T., ; + Column3.Width = 160, ; + Column4.ControlSource = "timpn", ; + Column4.FontName = "Arial Narrow", ; + Column4.Format = "R", ; + Column4.InputMask = "99 999.999", ; + Column4.Name = "cTimpN", ; + Column4.ReadOnly = .T., ; + Column4.Width = 58, ; + Column5.ControlSource = "pret", ; + Column5.FontName = "Arial Narrow", ; + Column5.Format = "R", ; + Column5.InputMask = (get_mask(12,gnPPretV)), ; + Column5.Name = "cPret", ; + Column5.ReadOnly = .T., ; + Column5.Width = 85, ; + Column6.ControlSource = "pret*timpn", ; + Column6.FontName = "Arial Narrow", ; + Column6.Format = "R", ; + Column6.InputMask = (get_mask(12,gnPc)), ; + Column6.Name = "cValoare", ; + Column6.ReadOnly = .T., ; + Column6.Width = 108, ; + Column7.ControlSource = "sectie", ; + Column7.DynamicCurrentControl = "IIF(glLunaInchisa,'_textbox1',IIF(facturat=1,'_textbox1','_cbbase1'))", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cSectie", ; + Column7.Sparse = .F., ; + Column7.Width = 132, ; + Column8.Alignment = 2, ; + Column8.ControlSource = "IIF(facturat=1,'Da','Nu')", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cFacturat", ; + Column8.ReadOnly = .T., ; + Column8.Width = 38, ; + Column9.ColumnOrder = 11, ; + Column9.ControlSource = "util", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "cUtil", ; + Column9.ReadOnly = .T., ; + Column9.Width = 115, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "dataora", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "cDataora", ; + Column10.ReadOnly = .T., ; + Column10.Width = 93, ; + Column11.ColumnOrder = 9, ; + Column11.ControlSource = "nrfact", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(14,0)), ; + Column11.Name = "cNrfact", ; + Column11.ReadOnly = .T., ; + Column12.ColumnOrder = 10, ; + Column12.ControlSource = "datafact", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "cDatafactura", ; + Column12.ReadOnly = .T., ; + Column13.ControlSource = "tip_comanda", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "cTip_comanda" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdmanopera.cDatafactura.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDatafactura.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 'grdmanopera.cDatai.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDatai.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 'grdmanopera.cDataora.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data si ora validarii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDataora.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 'grdmanopera.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cDenumire.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 'grdmanopera.cFacturat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Facturat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cFacturat.Text1' AS textbox WITH ; + Alignment = 2, ; + 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 'grdmanopera.cNrfact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.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 'grdmanopera.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cNrord.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 'grdmanopera.cPret.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cPret.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 'grdmanopera.cSectie._cbbase1' AS _cbbase WITH ; + FontName = "Arial Narrow", ; + Left = 41, ; + Name = "_cbbase1", ; + RowSource = "v_nom_sectii.sectie,id_sectie", ; + RowSourceType = 6, ; + Top = 23 + *< END OBJECT: ClassLib="..\comun\clase\_cb_base.vcx" BaseClass="combobox" /> + + ADD OBJECT 'grdmanopera.cSectie._textbox1' AS _textbox WITH ; + Enabled = .F., ; + Left = 55, ; + Name = "_textbox1", ; + ReadOnly = .T., ; + Top = 23 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'grdmanopera.cSectie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cTimpN.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Timp normat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cTimpN.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 'grdmanopera.cTip_comanda.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cTip_comanda.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 'grdmanopera.cUtil.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validata de catre", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cUtil.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 'grdmanopera.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmanopera.cValoare.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 'grdmecanici' AS _grdrow WITH ; + Anchor = 13, ; + ColumnCount = 2, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 208, ; + Left = 446, ; + Name = "grdmecanici", ; + Panel = 1, ; + RecordSource = "crsmecanici", ; + RowHeight = 27, ; + TabIndex = 11, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 159, ; + Width = 324, ; + ZOrderSet = 17, ; + Column1.ControlSource = "nume", ; + Column1.DynamicCurrentControl = "IIF(glLunaInchisa,'_textbox1','_cbbase1')", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cMecanic", ; + Column1.Sparse = .F., ; + Column1.Width = 227, ; + Column2.ControlSource = "ore", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "R", ; + Column2.InputMask = "99 999.999", ; + Column2.Name = "cOre", ; + Column2.Width = 65 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdmecanici.cMecanic._cbbase1' AS _cbbase WITH ; + FontName = "Arial Narrow", ; + Left = 35, ; + Name = "_cbbase1", ; + RowSource = "v_mecanici.nume,id_mecanic", ; + RowSourceType = 6, ; + Top = 27 + *< END OBJECT: ClassLib="..\comun\clase\_cb_base.vcx" BaseClass="combobox" /> + + ADD OBJECT 'grdmecanici.cMecanic._textbox1' AS _textbox WITH ; + Left = 131, ; + Name = "_textbox1", ; + Top = 80 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'grdmecanici.cMecanic.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mecanic", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmecanici.cOre.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. ore", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdmecanici.cOre.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_nrord' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Nr. comand : ", ; + FontName = "Arial Narrow", ; + Left = 448, ; + Name = "lb_nrord", ; + TabIndex = 22, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 136, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Tip comand", ; + FontName = "Arial Narrow", ; + Left = 516, ; + Name = "Lb_simplu1", ; + TabIndex = 8, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 71, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_timpn' AS lb_simplu WITH ; + Anchor = 8, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Timp normat :", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 603, ; + Name = "Lb_timpn", ; + TabIndex = 23, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 136, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_totalore' AS lb_simplu WITH ; + Anchor = 12, ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Total ore:", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 672, ; + Name = "Lb_totalore", ; + TabIndex = 24, ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 376, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'tx_nrord' AS _textbox WITH ; + Anchor = 8, ; + FontName = "Arial Narrow", ; + Height = 23, ; + Left = 513, ; + Name = "tx_nrord", ; + ReadOnly = .T., ; + TabIndex = 27, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 132, ; + Width = 86 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'tx_timpn' AS _textbox WITH ; + Anchor = 8, ; + FontBold = .T., ; + Format = "R", ; + Height = 23, ; + InputMask = "99 999.999", ; + Left = 664, ; + Name = "tx_timpn", ; + ReadOnly = .T., ; + TabIndex = 25, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 132, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'tx_totalore' AS _textbox WITH ; + Anchor = 12, ; + FontBold = .T., ; + Format = "R", ; + Height = 23, ; + InputMask = "99 999.999", ; + Left = 715, ; + Name = "tx_totalore", ; + ReadOnly = .T., ; + TabIndex = 26, ; + TabStop = .F., ; + Tag = "MOVABLE,NOVERTICAL_MOVE", ; + Top = 372, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + PROCEDURE Activate + If Reccount('crsmanopera')>0 + Select Sum(ROUND(Pret*timpn,gnPc)) As totalval,Sum(timpn) As totalore From crsmanopera Into Cursor crstotal + Select crstotal + Thisform.clb_totalvaloare.text_simplu1.Value=totalval + Thisform.clb_totalore.text_simplu1.Value=totalore + Use In crstotal + + Thisform.cmd_normare.Enabled=IIF(!glLunaInchisa,.T.,.F.) + Thisform.grdmanopera.SetFocus() + Else + Thisform.cmd_normare.Enabled=.F. + Endif + *!* If This.WindowState= 2 And Type('this.xresize1')='O' + *!* This.xresize1.rearrange() + *!* Endif + ENDPROC + + PROCEDURE actualizeaza_grid1 + Parameters tcFiltru + Local lcFiltru + If Empty(tcFiltru) + lcFiltru = pomanopera.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + save_grid_comment(Thisform.grdmanopera) + pomanopera.ca_baza1.cfiltru = lcFiltru + pomanopera.ca_baza1.afisare() + restore_grid_comment(Thisform.grdmanopera) + + If Reccount('crsmanopera')>0 + Select Sum(ROUND(Pret*timpn,gnPc)) As totalval,Sum(timpn) As totalore From crsmanopera Into Cursor crstotal + Select crstotal + Thisform.clb_totalvaloare.text_simplu1.Value=totalval + Thisform.clb_totalore.text_simplu1.Value=totalore + Thisform.clb_totalvaloare.refresh + Thisform.clb_totalore.refresh + Use In crstotal + + Thisform.cmd_normare.Enabled=IIF(!glLunaInchisa,.T.,.F.) + Thisform.grdmanopera.SetFocus() + + Select crsmecanici + Go Top + Else + Thisform.clb_totalvaloare.text_simplu1.Value=0 + Thisform.clb_totalore.text_simplu1.Value=0 + Thisform.clb_totalvaloare.refresh + Thisform.clb_totalore.refresh + Thisform.cmd_normare.Enabled=.F. + Endif + + Thisform.clb_nrinreg.text_simplu1.Value=Reccount('crsmanopera') + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE actualizeaza_grid2 + Parameters tcFiltru + Local lcFiltru,lnTimpn + If Empty(tcFiltru) + lcFiltru = pomecanici.ca_baza1.cfiltru + Else + lcFiltru = tcFiltru + Endif + + Thisform.LockScreen = .T. + Thisform.MousePointer = 11 + + Select crsmanopera + lnTimpn=timpn + + save_grid_tag(Thisform.grdmecanici) + pomecanici.ca_baza1.cfiltru = lcFiltru + pomecanici.ca_baza1.afisare() + restore_grid_tag(Thisform.grdmecanici) + + If Used('crstotalore') + Use In crstotalore + Endif + Select Nvl(Sum(ore),0) As Total From crsmecanici Into Cursor crstotalore + Select crstotalore + Thisform.tx_totalore.Value=Total + Thisform.ntimpnedistribuit=lnTimpn-Total + Use In crstotalore + Thisform.grdmecanici.nrecno=1 + + Thisform.MousePointer = 0 + Thisform.LockScreen = .F. + + ENDPROC + + PROCEDURE do_adauga + If Reccount('crsmanopera')>0 AND !glLunaInchisa + Private pnIesire,pcselect,pcfiltru,pcorder,pnid_mecanic,pnid_sectie,pnid_oper,oCautare + Local lnTimpn,lnSumaOre + Store "" To oCautare + pnIesire=0 + pnid_mecanic=0 + Select crsmanopera + pnid_oper=id_oper + + If Thisform.nTimpnedistribuit=0.000 + lcMesaj=Space(6)+"Nu mai puteti adauga inca un mecanic"+Space(6)+Chr(10)+Chr(13)+"deoarece nu mai exista timp normat nedistribuit!" + amessagebox(lcMesaj,0+48,"Atentie") + Return + Endif + + pcselect=['select id_mecanic,nume||CHR(32)||prenume as nume,sectie from ] + gcS + [.auto_vmecanici where inactiv=0'] + *!* pcfiltru = [2=2] && modificare 27.01 + pcfiltru = [inactiv=0] + pcordine = [nume] + oCautare=cauta_alfa(pcselect,pcfiltru,[''],pcordine,'nume,sectie','Alegeti mecanicul','Mecanic,Sectie') + pnid_mecanic=oCautare.id_mecanic + If pnIesire != 1 Or Empty(pnid_mecanic) + Return + Endif + + lcSql=[INSERT INTO ] + gcS + [.DEV_OPER_MECANICI(ID_OPER,ID_MECANIC,ORE) VALUES(]+Alltrim(Str(pnid_oper))+[,]+Alltrim(Str(pnid_mecanic))+[,]+Alltrim(Str(Thisform.nTimpnedistribuit,9,3))+[)] + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + Thisform.actualizeaza_grid2() + Select crsmecanici + Locate For id_mecanic=pnid_mecanic + Thisform.grdmecanici.SetFocus() + Release oCautare + Endif + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + Store '' To lcFiltru + *!* lcFiltru = [(extract(month from a.datafact) = ] + Alltrim(Str(gnLuna)) + [ and extract(year from a.datafact) = ]+Alltrim(Str(gnAn)) + [ or a.datafact is null)] + + If Thisform.ck_datafact.Value=1 + lcFiltru = lcFiltru + Thisform.ck_datafact.filtru + Endif + + IF thisform.ck_denumire.Value=1 + lcFiltru = lcFiltru + thisform.ck_denumire.filtru + endif + + If Thisform.ck_dataora.Value=1 + lcFiltru = lcFiltru + Thisform.ck_dataora.filtru + Endif + + If Thisform.ck_nrord.Value=1 + lcFiltru = lcFiltru + Thisform.ck_nrord.filtru + Endif + + If Thisform.ck_sectie.Value=1 + lcFiltru = lcFiltru + Thisform.ck_sectie.filtru + Endif + + If Thisform.ck_mecanic.Value=1 + lcFiltru = lcFiltru + [ and (b.id_oper in (select id_oper from ]+Alltrim(gcS)+[.auto_voper_detalii_m where ]+Substr(Thisform.ck_mecanic.filtru,5)+[))] + Endif + + IF thisform.cbtip_deviz._combobox1.value!='' + lcFiltru = lcFiltru + [ and a.id_tip = ] + ALLTRIM(STR(lista_tipuri.id_tip)) + ENDIF + + IF !EMPTY(lcFiltru) + lcFiltru = SUBSTR(lcFiltru,5) + [ and ] + ENDIF + + lcFiltru = lcFiltru + gcCondLuna + ; + [and (extract(month from b.dataora)+extract(year from b.dataora)*12<=?gnLuna+?gnAn*12)] + *!* With Thisform.opt_tip_comanda + *!* Do Case + *!* Case .Value=2 + *!* lcFiltru = lcFiltru + [ and a.id_tip=1] + *!* Case .Value=3 + *!* lcFiltru = lcFiltru + [ and a.id_tip=2] + *!* Case .Value=4 + *!* lcFiltru = lcFiltru + [ and a.id_tip=3] + *!* Case .Value=5 + *!* lcFiltru = lcFiltru + [ and a.id_tip=4] + *!* Endcase + *!* Endwith + + Thisform.grdmanopera.nrecno=0 + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crsmanopera')=0 + Thisform.tx_nrord.Value="" + Thisform.tx_timpn.Value=0.000 + lcFiltru=[1=2] + Thisform.actualizeaza_grid2(lcFiltru) + amessagebox('Cautarea nu a intors rezultate!',0+48,'Info cautare') + Thisform.ck_nrord.SetFocus() + Endif + ENDPROC + + PROCEDURE do_executa + If Reccount('crsmanopera')>0 And Thisform.cmd_normare.Enabled + lcMesaj=format_msg('Doriti sa distribuiti in mod egal timpul normat'+Chr(13)+Chr(10)+; + 'pentru comenzile din selectie care nu il au distribuit in totalitate?') + If amessagebox(lcMesaj,4+32+256,'Distribuire timp normat')==6 + Local lcFiltru,lcSql,lnSucces + *!* *!* lcFiltru=Strtran(pomanopera.ca_baza1.cfiltru,Chr(39),Chr(63)) + *!* lcFiltru = Strtran(gcCondLuna,Chr(39),Chr(63)) + *!* lcSql=[begin pack_devize.dev_distribuie_timp_n('] + Alltrim(gcS) + [',']+Alltrim(lcFiltru)+['); end;] + *!* lnSucces=goExecutor.oExecute(lcSql) + *!* If lnSucces < 0 + *!* amessagebox(goExecutor.cEroare,0+16,'Eroare') + *!* Return + *!* Endif + distribuire_timp_normat() + Thisform.grdmanopera.nrecno=0 + Thisform.actualizeaza_grid1() + Thisform.grdmanopera.SetFocus() + Endif + Endif + + ENDPROC + + PROCEDURE do_listare + If Reccount('crsmanopera')>0 + Private pcdataora,pntotaltn,pntotalval + If Used('crslistare') + Use In crslistare + Endif + + *!* inlocuire dev_vvalid_comenzi + lcSql=[select a.nrord,a.datai,b.id_oper,b.timpn,b.pret,b.id_sectie,b.sectie,b.denop,b.util,b.dataora,]+; + [a.facturat,a.nrfact,a.datafact,a.tip_comanda,]+; + [c.ore,c.nume||CHR(32)||c.prenume as nume ]+; + [from ] + gcS + [.auto_normare_comenzi a ]+; + [join ] + gcS + [.auto_voper b on a.id_ordl=b.id_ordl ]+; + [left join ] + gcS + [.auto_voper_detalii_m c on b.id_oper=c.id_oper] + + *!* lcSql=[select a.nrord,a.datai,b.id_oper,b.timpn,b.pret,b.id_sectie,b.sectie,b.denop,b.util,b.dataora,]+; + *!* [(case when c.id_set in (31003,31004,31005,31011,31012) then 1 else 0 end) as facturat,c.nract as nrfact,c.dataact as datafact,]+; + *!* [d.ore,d.nume||CHR(32)||d.prenume as nume ]+; + *!* [from ] + gcS + [.dev_vordl a ]+; + *!* [join ] + gcS + [.dev_voper b on a.id_ordl=b.id_ordl ]+; + *!* [left join ] + gcS + [.dev_vordl_facturi c on a.id_ordl=c.id_ordl ]+; + *!* [left join ] + gcS + [.dev_voper_detalii_m d on b.id_oper=d.id_oper] + lcSql=lcSql+[ where ]+pomanopera.ca_baza1.cfiltru+[ order by ]+pomanopera.ca_baza1.corder + lnSucces=goExecutor.oExecute(lcSql,'crslistare') + If lnSucces<0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + + pcdataora=get_ora(2) + If Used('crstotallist') + Use In crstotallist + Endif + Select Distinct id_oper,timpn,Pret From crslistare Into Cursor crstotallist + Calculate Sum(timpn),Sum(ROUND(Pret*timpn,gnPc)) To pntotaltn,pntotalval + Use In crstotallist + Thisform.visible=.F. + gofundal.visible=.F. + Select crslistare + KEYBOARD "{ctrl+f10}" + Report Form rap_oper To Printer Prompt PREVIEW + gofundal.visible=.T. + Thisform.visible=.T. + Use In crslistare + Endif + + ENDPROC + + PROCEDURE do_modifica + Lparameters tnTip && daca nu exista,atunci procedura a fost apelata din KeyPress + Local lnTimpN,lnOraI + IF glLunaInchisa OR Empty(tnTip) + Return + Endif + Thisform.lsalvat=.T. + lnOraI=Thisform.norainitiala + lnTimpN=Thisform.ntimpnedistribuit+lnOraI + Select crsmecanici + pnid_opermecanic=id_opermecanic + Do Case + *!* Case Thisform.noramodificata<=0 + *!* amessagebox("Numarul de ore introdus trebuie sa fie mai mare decat 0!",0+48,"Atentie") + *!* Update crsmecanici Set ore=lnOraI Where id_opermecanic=pnid_opermecanic + *!* Thisform.grdmecanici.cOre.text1.Refresh() + *!* Thisform.lvalidat=.F. + *!* Return + Case Thisform.noramodificata>lnTimpN + amessagebox("Numarul maxim de ore pe care il puteti introduce este "+Alltrim(Str(lnTimpN,9,3))+"!",0+48,"Atentie") + Update crsmecanici Set ore=lnOraI Where id_opermecanic=pnid_opermecanic + Thisform.grdmecanici.cOre.text1.Refresh() + Thisform.lvalidat=.F. + Return + Endcase + lcSql=[UPDATE ] + gcS + [.DEV_OPER_MECANICI SET ORE=]+Alltrim(Str(Thisform.noramodificata,9,3))+[ WHERE ID_OPERMECANIC=]+Alltrim(Str(pnid_opermecanic)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Update crsmecanici Set ore=lnOraI Where id_opermecanic=pnid_opermecanic + Thisform.grdmecanici.cOre.text1.Refresh() + Thisform.lvalidat=.F. + Return + Endif + Thisform.ntimpnedistribuit=lnTimpN-Thisform.noramodificata + Thisform.tx_totalore.Value=Thisform.tx_timpn.Value-Thisform.ntimpnedistribuit + Thisform.lvalidat=.T. + + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + Endwith + Thisform.cbtip_deviz.do_reset() + Thisform.ck_nrord.SetFocus() + + ENDPROC + + PROCEDURE do_sterge + If Used('crsmecanici') And Reccount('crsmecanici')>0 AND !glLunaInchisa + Private pnid_opermecanic,pcnume + Select crsmecanici + pnid_opermecanic=id_opermecanic + pcnume=nume + If amessagebox('Doriti sa stergeti mecanicul '+Alltrim(pcnume)+' ?',4+32+256,'Stergere')==6 + lcSql=[UPDATE ] + gcS + [.DEV_OPER_MECANICI SET STERS=1 WHERE ID_OPERMECANIC=]+Alltrim(Str(pnid_opermecanic)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Thisform.actualizeaza_grid2() + Thisform.grdmanopera.SetFocus() + Endif + Endif + + ENDPROC + + PROCEDURE inainte_de_do_renunt + Local llReturn + Thisform.lvalidat=.T. + If Thisform.lsalvat=.F. + If amessagebox("Doriti sa salvati ultima modificare facuta?",4+32+256,"Modificare ore")==6 + Thisform.do_modifica(3) + Endif + Endif + Return Thisform.lvalidat + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn + Thisform.lvalidat=.T. + If Thisform.lsalvat=.F. + If amessagebox("Doriti sa salvati ultima modificare facuta?",4+32+256,"Modificare ore")==6 + Thisform.do_modifica(2) + Endif + Endif + Return Thisform.lvalidat + + ENDPROC + + PROCEDURE Init + DoDefault() + If glLunaInchisa + Thisform.RemoveObject([but_nou1]) + Thisform.RemoveObject([but_sterge1]) + Thisform.cmd_normare.Enabled=.F. + Thisform.grdmecanici.ReadOnly=.T. + Endif + ENDPROC + + PROCEDURE grdmanopera.AfterRowColChange + Lparameters nColIndex + If This.RowColChange != 2 And This.nrecno!=Recno() + DoDefault() + Local lnid_oper + Select crsmanopera + lnid_oper=id_oper + *!* modificare v 2.0.4 + If facturat = 0 + Thisform.grdmecanici.core.ReadOnly = .F. + Else + Thisform.grdmecanici.core.ReadOnly = .T. + Endif + *!* modificare v 2.0.4 ^ + Thisform.tx_nrord.Value=Alltrim(nrord) + Thisform.tx_timpn.Value=timpn + lcFiltru=[id_oper=]+Alltrim(Str(lnid_oper)) + Thisform.actualizeaza_grid2(lcFiltru) + Endif + ENDPROC + + PROCEDURE grdmanopera.cSectie._cbbase1.GotFocus + This.Tag=Alltrim(Str(v_nom_sectii.id_sectie)) + ENDPROC + + PROCEDURE grdmanopera.cSectie._cbbase1.Valid + pnid_sectie=v_nom_sectii.id_sectie + If Int(Val(This.Tag))!=pnid_sectie + pnid_oper=crsmanopera.id_oper + lcSql=[UPDATE ] + gcS + [.DEV_OPER SET ID_SECTIE=]+Alltrim(Str(pnid_sectie))+[ WHERE ID_OPER=]+Alltrim(Str(pnid_oper)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Endif + + ENDPROC + + PROCEDURE grdmecanici.cMecanic._cbbase1.GotFocus + This.Tag=Alltrim(Str(v_mecanici.id_mecanic)) + + ENDPROC + + PROCEDURE grdmecanici.cMecanic._cbbase1.Valid + pnid_mecanic=v_mecanici.id_mecanic + If Int(Val(This.Tag))!=pnid_mecanic + pnid_opermecanic=crsmecanici.id_opermecanic + lcSql=[UPDATE ] + gcS + [.DEV_OPER_MECANICI SET ID_MECANIC=]+Alltrim(Str(pnid_mecanic))+[ WHERE ID_OPERMECANIC=]+Alltrim(Str(pnid_opermecanic)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Endif + + ENDPROC + + PROCEDURE grdmecanici.cOre.Text1.GotFocus + Thisform.norainitiala=This.Value + Thisform.noramodificata=This.Value + Thisform.lvalidat=.T. + ENDPROC + + PROCEDURE grdmecanici.cOre.Text1.InteractiveChange + Thisform.noramodificata=This.Value + Thisform.lsalvat=.F. + ENDPROC + + PROCEDURE grdmecanici.cOre.Text1.Valid + If Thisform.norainitiala!=Thisform.noramodificata And Thisform.lsalvat=.F. + Thisform.do_modifica(1) + Endif + + ENDPROC + + PROCEDURE grdmecanici.Init + DoDefault() + This.core.ReadOnly = .F. + ENDPROC + +ENDDEFINE + +DEFINE CLASS optiuni_frm 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="_pgfrmbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1._shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1._shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1._shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Cb_sectie_itp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Cb_sectie_sp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Cb_casa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Lb_explicatie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Lb_simplu7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Lb_explicatie2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Lb_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Lb_simplu10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.opt_avans" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.opt_discount" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.opt_cui" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_garantie_facturare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_garantie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_postgarantie_facturare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_postgarantie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_constatare_validare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_regie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_productie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.opt_regie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.opt_productie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.lb_constatare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_clb_operatie_itp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.ct_articolcumulat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_bonfiscal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Lb_explicatie3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_clb_operatie_sp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_incasare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_facturaasig" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_factura" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.ct_disp_plata" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_inchprod" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE1.Ct_inchreg" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE2._shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE2.Clb_coef_man" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE2.Clb_coef_man_regie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE2.Lb_explicatie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.PAGE2.Ct_manoperaspec" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.opt_cnp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.opt_formatfactura" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.opt_bondetmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.txtFooterFact1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.txtFooterFact2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.txtFooterFact3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.txtFooterFact4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.txtFooterFact5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.opt_precomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.opt_factlinii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.opt_facturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.opt_cgarantie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page3.Lb_simplu8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_articol + *m: do_cauta_fdoc + *m: do_cauta_operatie + *p: ccasa + *p: cdenop1 + *p: cdenop2 + *p: csectie1 + *p: csectie2 + *p: nidarticol + *p: nidbonfiscal + *p: niddispplata + *p: nidfactura + *p: nidfacturaasig + *p: nidincasare + *p: nidinchprod + *p: nidinchreg + *p: nid_norme_itp + *p: nid_norme_spalare + *p: nid_norme_spec + * + + * + BorderStyle = 3 + ccasa = + cdenop1 = + cdenop2 = + csectie1 = + csectie2 = + DoCreate = .T. + Height = 570 + Name = "optiuni_frm" + nidarticol = 0 + nidbonfiscal = 0 + niddispplata = 0 + nidfactura = -1 + nidfacturaasig = 0 + nidincasare = -1 + nidinchprod = 0 + nidinchreg = -1 + nid_norme_itp = -1 + nid_norme_spalare = -1 + nid_norme_spec = 0 + Width = 783 + _memberdata = + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 783 + _shape1.ZOrderSet = 1 + _shape2.Height = 29 + _shape2.Left = 720 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 36 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "OPIUNI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 3 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 752 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_pgfrmbase1' AS _pgfrmbase WITH ; + ErasePage = .T., ; + Height = 516, ; + Left = 12, ; + Name = "_pgfrmbase1", ; + PageCount = 3, ; + TabIndex = 1, ; + Top = 48, ; + Width = 761, ; + PAGE1.BackColor = 255,255,255, ; + PAGE1.Caption = "Setri comenzi i facturare", ; + PAGE1.Name = "PAGE1", ; + PAGE2.BackColor = 255,255,255, ; + PAGE2.Caption = "Setri manoper", ; + PAGE2.Name = "PAGE2", ; + Page3.Caption = "Listare factura si alte setari", ; + Page3.Name = "Page3" + *< END OBJECT: ClassLib="..\comun\clase\_frm_base.vcx" BaseClass="pageframe" /> + + ADD OBJECT '_pgfrmbase1.PAGE1._shape1' AS _shape WITH ; + BackStyle = 0, ; + Height = 136, ; + Left = 7, ; + Name = "_shape1", ; + Top = 11, ; + Width = 328, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pgfrmbase1.PAGE1._shape2' AS _shape WITH ; + BackStyle = 0, ; + Height = 222, ; + Left = 6, ; + Name = "_shape2", ; + Top = 158, ; + Width = 328, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pgfrmbase1.PAGE1._shape3' AS _shape WITH ; + BackStyle = 0, ; + Height = 220, ; + Left = 351, ; + Name = "_shape3", ; + Top = 158, ; + Width = 389, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Cb_casa' AS cb_tx_simplu WITH ; + Left = 11, ; + Name = "Cb_casa", ; + TabIndex = 5, ; + Top = 169, ; + ZOrderSet = 7, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_nom_casa.nume,id_part", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Casa", ; + _LBBASE1.Left = 6, ; + _LBBASE1.Name = "_LBBASE1", ; + _LBBASE1.Top = 6 + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Cb_sectie_itp' AS cb_tx_simplu WITH ; + Left = 12, ; + Name = "Cb_sectie_itp", ; + TabIndex = 1, ; + Top = 23, ; + ZOrderSet = 3, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_sectii1.sectie,id_sectie", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Secie ITP", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Cb_sectie_sp' AS cb_tx_simplu WITH ; + Left = 12, ; + Name = "Cb_sectie_sp", ; + TabIndex = 3, ; + Top = 79, ; + ZOrderSet = 4, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_sectii2.sectie,id_sectie", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Secie splare", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.ct_articolcumulat' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + cprocedura = thisform.do_cauta_articol, ; + Height = 31, ; + Left = 10, ; + Name = "ct_articolcumulat", ; + TabIndex = 11, ; + Top = 336, ; + Width = 324, ; + ZOrderSet = 25, ; + img_cautare.Left = 297, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Articol Reparatii", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Lb_simplu1.ToolTipText = "Articolul Reparatii Auto care se va lista in loc de MATERIALE si MANOPERA pe factura.", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Height = 23, ; + clb_tx_cautare.Text_simplu1.Left = 101, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Text_simplu1.Width = 184, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_bonfiscal' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 7, ; + cprocedura = thisform.do_cauta_fdoc, ; + Height = 31, ; + Left = 10, ; + Name = "Ct_bonfiscal", ; + TabIndex = 9, ; + Top = 280, ; + Width = 324, ; + ZOrderSet = 25, ; + img_cautare.Left = 297, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Doc. bon fiscal", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 101, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_clb_operatie_itp' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 1, ; + cprocedura = thisform.do_cauta_operatie, ; + Height = 31, ; + Left = 11, ; + Name = "Ct_clb_operatie_itp", ; + TabIndex = 2, ; + Top = 50, ; + Width = 324, ; + ZOrderSet = 24, ; + img_cautare.Left = 297, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Operaie ITP", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 101, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_clb_operatie_sp' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 2, ; + cprocedura = thisform.do_cauta_operatie, ; + Height = 31, ; + Left = 11, ; + Name = "Ct_clb_operatie_sp", ; + TabIndex = 4, ; + Top = 106, ; + Width = 324, ; + ZOrderSet = 25, ; + img_cautare.Left = 297, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Operaie splare", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 101, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.ct_disp_plata' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 5, ; + cprocedura = thisform.do_cauta_fdoc, ; + Height = 31, ; + Left = 10, ; + Name = "ct_disp_plata", ; + TabIndex = 10, ; + Top = 308, ; + Width = 324, ; + ZOrderSet = 25, ; + IMG_CAUTARE.Left = 297, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Doc. disp. plat", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 101, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_factura' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 1, ; + cprocedura = thisform.do_cauta_fdoc, ; + Height = 31, ; + Left = 10, ; + Name = "Ct_factura", ; + TabIndex = 6, ; + Top = 196, ; + Width = 324, ; + ZOrderSet = 25, ; + IMG_CAUTARE.Left = 297, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Doc.factur", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 101, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_facturaasig' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 6, ; + cprocedura = thisform.do_cauta_fdoc, ; + Height = 31, ; + Left = 10, ; + Name = "Ct_facturaasig", ; + TabIndex = 7, ; + Top = 224, ; + Width = 324, ; + ZOrderSet = 25, ; + img_cautare.Left = 297, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Doc.factur asig.", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 101, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_incasare' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 2, ; + cprocedura = thisform.do_cauta_fdoc, ; + Height = 31, ; + Left = 10, ; + Name = "Ct_incasare", ; + TabIndex = 8, ; + Top = 252, ; + Width = 324, ; + ZOrderSet = 25, ; + IMG_CAUTARE.Left = 297, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Doc. chitan", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 101, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 290 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_inchprod' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 4, ; + cprocedura = thisform.do_cauta_fdoc, ; + Height = 31, ; + Left = 359, ; + Name = "Ct_inchprod", ; + TabIndex = 13, ; + Top = 336, ; + Width = 372, ; + ZOrderSet = 26, ; + IMG_CAUTARE.Left = 346, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Doc. nchidere com. prod.", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Left = 3, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Top = 6, ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 144, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 335 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Ct_inchreg' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 3, ; + cprocedura = thisform.do_cauta_fdoc, ; + Height = 31, ; + Left = 359, ; + Name = "Ct_inchreg", ; + TabIndex = 12, ; + Top = 308, ; + Width = 372, ; + ZOrderSet = 26, ; + IMG_CAUTARE.Left = 346, ; + IMG_CAUTARE.Name = "IMG_CAUTARE", ; + IMG_CAUTARE.Top = 5, ; + CLB_TX_CAUTARE.Height = 29, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Doc. nchidere com. regie", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Left = 3, ; + CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + CLB_TX_CAUTARE.LB_SIMPLU1.Top = 6, ; + CLB_TX_CAUTARE.Left = 1, ; + CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 144, ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ; + CLB_TX_CAUTARE.Top = 1, ; + CLB_TX_CAUTARE.Width = 335 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_constatare' AS lb_simplu WITH ; + Caption = "Inchidere com. constatare", ; + Left = 359, ; + Name = "lb_constatare", ; + TabIndex = 21, ; + Top = 246, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_constatare_validare' AS lb_simplu WITH ; + Caption = "Validare", ; + FontBold = .T., ; + Left = 536, ; + Name = "lb_constatare_validare", ; + TabIndex = 21, ; + Top = 246, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Lb_explicatie1' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Setri secii i operaii facturare", ; + Left = 14, ; + Name = "Lb_explicatie1", ; + TabIndex = 19, ; + Top = 3, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Lb_explicatie2' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Setri facturare", ; + Left = 13, ; + Name = "Lb_explicatie2", ; + TabIndex = 17, ; + Top = 150, ; + ZOrderSet = 16 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Lb_explicatie3' AS lb_simplu WITH ; + BackColor = 255,255,255, ; + BackStyle = 1, ; + Caption = "Setri comenzi", ; + Left = 361, ; + Name = "Lb_explicatie3", ; + TabIndex = 18, ; + Top = 150, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_garantie' AS lb_simplu WITH ; + Caption = "Inchidere com. garantie", ; + Left = 359, ; + Name = "lb_garantie", ; + TabIndex = 21, ; + Top = 188, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_garantie_facturare' AS lb_simplu WITH ; + Caption = "Facturare", ; + FontBold = .T., ; + Left = 536, ; + Name = "lb_garantie_facturare", ; + TabIndex = 21, ; + Top = 188, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_postgarantie' AS lb_simplu WITH ; + Caption = "Inchidere com. post-garantie", ; + Left = 359, ; + Name = "lb_postgarantie", ; + TabIndex = 21, ; + Top = 170, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_postgarantie_facturare' AS lb_simplu WITH ; + Caption = "Facturare", ; + FontBold = .T., ; + Left = 536, ; + Name = "lb_postgarantie_facturare", ; + TabIndex = 21, ; + Top = 170, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_productie' AS lb_simplu WITH ; + Caption = "Inchidere com. productie", ; + Left = 359, ; + Name = "lb_productie", ; + TabIndex = 21, ; + Top = 227, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.lb_regie' AS lb_simplu WITH ; + Caption = "Inchidere com. regie", ; + Left = 359, ; + Name = "lb_regie", ; + TabIndex = 21, ; + Top = 207, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Lb_simplu10' AS lb_simplu WITH ; + Caption = "Este obligatoriu CUI/CNP la introducerea clientilor?", ; + Left = 347, ; + Name = "Lb_simplu10", ; + TabIndex = 21, ; + Top = 92, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Lb_simplu6' AS lb_simplu WITH ; + Caption = "La discount factur deviz se folosete contul:", ; + Left = 347, ; + Name = "Lb_simplu6", ; + TabIndex = 20, ; + Top = 51, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.Lb_simplu7' AS lb_simplu WITH ; + Caption = "La avans materiale se folosete contul:", ; + Left = 347, ; + Name = "Lb_simplu7", ; + TabIndex = 22, ; + Top = 11, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.opt_avans' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 347, ; + Name = "opt_avans", ; + TabIndex = 14, ; + Top = 24, ; + Width = 128, ; + ZOrderSet = 20, ; + Option1.AutoSize = .T., ; + Option1.Caption = "419", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "707", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.opt_cui' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 347, ; + Name = "opt_cui", ; + TabIndex = 16, ; + Top = 107, ; + Value = 2, ; + Width = 123, ; + ZOrderSet = 21, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Da", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 0, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nu", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option2.Value = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.opt_discount' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 347, ; + Name = "opt_discount", ; + TabIndex = 15, ; + Top = 66, ; + Width = 128, ; + ZOrderSet = 21, ; + Option1.AutoSize = .T., ; + Option1.Caption = "4111", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "667", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.opt_productie' AS _optiongrup WITH ; + AutoSize = .T., ; + BorderStyle = 0, ; + Height = 27, ; + Left = 530, ; + Name = "opt_productie", ; + TabIndex = 16, ; + Top = 223, ; + Value = 2, ; + Width = 196, ; + ZOrderSet = 21, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Validare", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 0, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nota inchidere", ; + Option2.Left = 93, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option2.Value = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.PAGE1.opt_regie' AS _optiongrup WITH ; + AutoSize = .T., ; + BorderStyle = 0, ; + Height = 27, ; + Left = 530, ; + Name = "opt_regie", ; + TabIndex = 16, ; + Top = 203, ; + Value = 2, ; + Width = 196, ; + ZOrderSet = 21, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Validare", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 0, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nota inchidere", ; + Option2.Left = 93, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option2.Value = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.PAGE2._shape3' AS _shape WITH ; + BackStyle = 0, ; + Height = 49, ; + Left = 17, ; + Name = "_shape3", ; + Top = 91, ; + Width = 390, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT '_pgfrmbase1.PAGE2.Clb_coef_man' AS clb_tx_simplu WITH ; + Left = 22, ; + Name = "Clb_coef_man", ; + TabIndex = 1, ; + Top = 14, ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "99.999", ; + Text_simplu1.Left = 229, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 56, ; + Lb_simplu1.Caption = "Coeficient brut manoper", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE2.Clb_coef_man_regie' AS clb_tx_simplu WITH ; + Left = 22, ; + Name = "Clb_coef_man_regie", ; + TabIndex = 2, ; + Top = 42, ; + Text_simplu1.Height = 23, ; + Text_simplu1.InputMask = "99.999", ; + Text_simplu1.Left = 229, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 56, ; + Lb_simplu1.Caption = "Coeficient brut regie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE2.Ct_manoperaspec' AS ct_clb_cautare WITH ; + cconditie = 1=2, ; + clista_parametri = 3, ; + cprocedura = thisform.do_cauta_operatie, ; + Height = 31, ; + Left = 22, ; + Name = "Ct_manoperaspec", ; + TabIndex = 3, ; + Top = 102, ; + Width = 384, ; + ZOrderSet = 26, ; + img_cautare.Left = 356, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + clb_tx_cautare.Height = 29, ; + clb_tx_cautare.Lb_simplu1.Caption = "Operaie manoper special", ; + clb_tx_cautare.Lb_simplu1.Left = 3, ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Lb_simplu1.Top = 6, ; + clb_tx_cautare.Left = 1, ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.Text_simplu1.Left = 160, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Top = 1, ; + clb_tx_cautare.Width = 347 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT '_pgfrmbase1.PAGE2.Lb_explicatie1' AS lb_simplu WITH ; + BackStyle = 1, ; + Caption = "Setri raport facturi pe secii", ; + Left = 27, ; + Name = "Lb_explicatie1", ; + TabIndex = 4, ; + Top = 83, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu11' AS lb_simplu WITH ; + Caption = "Se afiseaza CNP persoane fizice in factura?", ; + Left = 347, ; + Name = "Lb_simplu11", ; + TabIndex = 15, ; + Top = 88, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu12' AS lb_simplu WITH ; + Caption = "Text subsol factura (maxim 5 linii)", ; + Height = 17, ; + Left = 11, ; + Name = "Lb_simplu12", ; + TabIndex = 17, ; + Top = 181, ; + Width = 185, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu2' AS lb_simplu WITH ; + Caption = "Se folosesc formulare tipizate pentru precomenzi?", ; + Left = 11, ; + Name = "Lb_simplu2", ; + TabIndex = 19, ; + Top = 6, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu3' AS lb_simplu WITH ; + Caption = "Formularele personalizate de facturi sunt cu chitan?", ; + Left = 11, ; + Name = "Lb_simplu3", ; + TabIndex = 20, ; + Top = 130, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu4' AS lb_simplu WITH ; + Caption = "Se folosesc formulare tipizate pentru facturi?", ; + Left = 11, ; + Name = "Lb_simplu4", ; + TabIndex = 18, ; + Top = 47, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu5' AS lb_simplu WITH ; + Caption = "Certificatul de garanie trebuie completat pe factur?", ; + Left = 347, ; + Name = "Lb_simplu5", ; + TabIndex = 13, ; + Top = 6, ; + ZOrderSet = 17 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu8' AS lb_simplu WITH ; + Caption = "Pe bonul fiscal, materialele se listeaz detaliat :", ; + Left = 347, ; + Name = "Lb_simplu8", ; + TabIndex = 16, ; + Top = 47, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.Lb_simplu9' AS lb_simplu WITH ; + Caption = "Alegei formatul implicit pentru facturile netipizate :", ; + Left = 11, ; + Name = "Lb_simplu9", ; + TabIndex = 14, ; + Top = 88, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT '_pgfrmbase1.Page3.opt_bondetmat' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 347, ; + Name = "opt_bondetmat", ; + TabIndex = 6, ; + Top = 61, ; + Value = 2, ; + Width = 123, ; + ZOrderSet = 21, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Da", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 0, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nu", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option2.Value = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.Page3.opt_cgarantie' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 347, ; + Name = "opt_cgarantie", ; + TabIndex = 5, ; + Top = 19, ; + Width = 123, ; + ZOrderSet = 18, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Da", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nu", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.Page3.opt_cnp' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 347, ; + Name = "opt_cnp", ; + TabIndex = 7, ; + Top = 103, ; + Value = 2, ; + Width = 123, ; + ZOrderSet = 21, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Da", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 0, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nu", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5, ; + Option2.Value = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.Page3.opt_factlinii' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 11, ; + Name = "opt_factlinii", ; + TabIndex = 2, ; + Top = 61, ; + Width = 123, ; + ZOrderSet = 13, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Da", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nu", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.Page3.opt_facturi' AS _optiongrup WITH ; + AutoSize = .F., ; + BorderStyle = 0, ; + ButtonCount = 3, ; + Height = 27, ; + Left = 11, ; + Name = "opt_facturi", ; + TabIndex = 4, ; + Top = 143, ; + Width = 186, ; + ZOrderSet = 15, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Da", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.TabIndex = 1, ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nu", ; + Option2.Left = 60, ; + Option2.Name = "Option2", ; + Option2.TabIndex = 2, ; + Option2.Top = 5, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Dup caz", ; + Option3.FontCharSet = 238, ; + Option3.Height = 17, ; + Option3.Left = 112, ; + Option3.Name = "Option3", ; + Option3.Top = 5, ; + Option3.Width = 69 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.Page3.opt_formatfactura' AS _optiongrup WITH ; + BorderStyle = 0, ; + ButtonCount = 3, ; + Height = 27, ; + Left = 11, ; + Name = "opt_formatfactura", ; + TabIndex = 3, ; + Top = 103, ; + Value = 1, ; + Width = 150, ; + ZOrderSet = 21, ; + Option1.AutoSize = .T., ; + Option1.Caption = "A4", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.TabIndex = 1, ; + Option1.Top = 5, ; + Option1.Value = 1, ; + Option2.AutoSize = .T., ; + Option2.Caption = "A5", ; + Option2.Left = 45, ; + Option2.Name = "Option2", ; + Option2.TabIndex = 2, ; + Option2.Top = 5, ; + Option2.Value = 0, ; + Option3.BackStyle = 0, ; + Option3.Caption = "A4 i A5", ; + Option3.FontCharSet = 238, ; + Option3.Height = 17, ; + Option3.Left = 84, ; + Option3.Name = "Option3", ; + Option3.TabIndex = 3, ; + Option3.Top = 5, ; + Option3.Width = 61 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.Page3.opt_precomenzi' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 27, ; + Left = 11, ; + Name = "opt_precomenzi", ; + TabIndex = 1, ; + Top = 19, ; + Width = 123, ; + ZOrderSet = 13, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Da", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Nu", ; + Option2.Left = 84, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + ADD OBJECT '_pgfrmbase1.Page3.txtFooterFact1' AS _textbox WITH ; + Height = 23, ; + Left = 13, ; + MaxLength = 250, ; + Name = "txtFooterFact1", ; + TabIndex = 8, ; + Top = 199, ; + Width = 620 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pgfrmbase1.Page3.txtFooterFact2' AS _textbox WITH ; + Height = 23, ; + Left = 13, ; + MaxLength = 250, ; + Name = "txtFooterFact2", ; + TabIndex = 9, ; + Top = 221, ; + Width = 620 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pgfrmbase1.Page3.txtFooterFact3' AS _textbox WITH ; + Height = 23, ; + Left = 13, ; + MaxLength = 250, ; + Name = "txtFooterFact3", ; + TabIndex = 10, ; + Top = 243, ; + Width = 620 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pgfrmbase1.Page3.txtFooterFact4' AS _textbox WITH ; + Height = 23, ; + Left = 13, ; + MaxLength = 250, ; + Name = "txtFooterFact4", ; + TabIndex = 11, ; + Top = 265, ; + Width = 620 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_pgfrmbase1.Page3.txtFooterFact5' AS _textbox WITH ; + Height = 23, ; + Left = 13, ; + MaxLength = 250, ; + Name = "txtFooterFact5", ; + TabIndex = 12, ; + Top = 287, ; + Width = 620 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 720, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + PROCEDURE Destroy + Use In v_sectii1 + Use In v_sectii2 + Use In v_nom_casa + ENDPROC + + PROCEDURE do_cauta_articol + Lparameters tnTip + Local loCauta, lcXMLArticole + loCauta = NULL + lcXMLArticole = cauta_nom_articole([denumire like 'REPARATII AUTO%']) + lcCursorArt = [crstmpart] + SET STEP ON + If gnButon = 1 + Xmltocursor(m.lcXMLArticole, m.lcCursorArt) + Select (m.lcCursorArt) + GO TOP + Scatter Name loCauta + ENDIF + USE IN (SELECT(m.lcCursorArt)) + + If !Isnull(loCauta) + Thisform.nIdArticol = loCauta.id_articol + Thisform._pgfrmbase1.page1.ct_articolcumulat.clb_tx_cautare.text_simplu1.value = NVL(loCauta.denumire, '') + ENDIF + + + + ENDPROC + + PROCEDURE do_cauta_fdoc + Lparameters tnTip + Local loCauta + loCauta = caut_fdoc() + If !Isnull(loCauta) And !Empty(loCauta.id_fdoc) + Do Case + Case tnTip = 1 + Thisform.nidfactura = loCauta.id_fdoc + Thisform._pgfrmbase1.page1.ct_factura.clB_TX_CAUTARE.texT_SIMPLU1.Value = loCauta.fel_document + Case tnTip = 2 + Thisform.nidincasare = loCauta.id_fdoc + Thisform._pgfrmbase1.page1.ct_incasare.clB_TX_CAUTARE.texT_SIMPLU1.Value = loCauta.fel_document + Case tnTip = 3 + Thisform.nidinchreg = loCauta.id_fdoc + Thisform._pgfrmbase1.page1.ct_inchreg.clB_TX_CAUTARE.texT_SIMPLU1.Value = loCauta.fel_document + Case tnTip = 4 + Thisform.nidinchprod = loCauta.id_fdoc + Thisform._pgfrmbase1.page1.ct_inchprod.clB_TX_CAUTARE.texT_SIMPLU1.Value = loCauta.fel_document + CASE tnTip = 5 + Thisform.niddispplata = loCauta.id_fdoc + Thisform._pgfrmbase1.page1.ct_disp_plata.clb_TX_CAUTARE.teXT_SIMPLU1.Value = loCauta.fel_document + Case tnTip = 6 + Thisform.nidfacturaasig = loCauta.id_fdoc + Thisform._pgfrmbase1.page1.ct_facturaasig.clB_TX_CAUTARE.texT_SIMPLU1.Value = loCauta.fel_document + *!* modificare v 2.0.29 + CASE tnTip = 7 + Thisform.nidbonfiscal = loCauta.id_fdoc + Thisform._pgfrmbase1.page1.ct_bonfiscal.clb_tx_cautare.text_simplu1.value = loCauta.fel_document + *!* modificare v 2.0.29 ^ + Otherwise + amessagebox("Eroare la copierea optiunii!",0+16,"Eroare") + Endcase + Endif + ENDPROC + + PROCEDURE do_cauta_operatie + Lparameters tnTip + Local loCauta + loCauta = caut_norme() + If !Isnull(loCauta) And !Empty(loCauta.id_norme) + Do Case + Case tnTip = 1 + Thisform.nid_norme_itp = loCauta.id_norme + Thisform._pgfrmbase1.page1.ct_clb_operatie_itp.clb_tx_cautare.text_simplu1.Value = Alltrim(loCauta.denop) + Case tnTip = 2 + Thisform.nid_norme_spalare = loCauta.id_norme + Thisform._pgfrmbase1.page1.ct_clb_operatie_sp.clb_tx_cautare.text_simplu1.Value = Alltrim(loCauta.denop) + Case tnTip = 3 + Thisform.nid_norme_spec = loCauta.id_norme + Thisform._pgfrmbase1.page2.ct_manoperaspec.clb_tx_cautare.text_simplu1.Value = Alltrim(loCauta.denop) + Otherwise + amessagebox("Eroare la copierea optiunii!",0+16,"Eroare") + Endcase + Endif + + ENDPROC + + PROCEDURE inainte_de_do_termin + *!* 02.03.2016 + *!* marius.mutu + *!* + optiune glCuiClientObligatoriu + + *!* 19.11.2018 + *!* marius.mutu + *!* + optiune gnCNPFactura, gcTextFooterFact1..5 + + Local lcSql,lcOptiuni,lcValori,lnIdSectieITP,lnIdSectieSp,lnIdDenopITP,lnIdDenopSp,lnIdNormeSpec, lnIdArticolReparatii, llSucces + Local lnCNPFactura + Local lnInchidereValidareProductie, lnInchidereValidareRegie, lcSeparator, llAutoBonDet + Local llCuiClientObligatoriu, lnCoefMan, lnCoefManReg, lnFormatFactura, lnIdBonFiscal, lnIdCasa + Local lnIdFactura, lnIdFacturaAsig, lnIdIncasare, lnIdInchProd, lnIdInchReg, lnIdNormeITP + Local lnIdNormeSp, lnSucces + *:Global gcTextFooterFact1, gcTextFooterFact2, gcTextFooterFact3, gcTextFooterFact4 + *:Global gcTextFooterFact5, glAutoBonDet, glCuiClientObligatoriu, gnAUTOIdArticolReparatii + *:Global gnAvans419, gnCNPFactura, gnCgarantie, gnCoefMan, gnCoefManReg, gnDiscount411 + *:Global gnFormatFactura, gnTip_LFactura, gnTip_LFactura_Linii, gnTip_LPrecomanda, gnid_casa_achit + *:Global gnid_fdoc_bonfiscal, gnid_fdoc_chitanta, gnid_fdoc_dispplata, gnid_fdoc_fact + *:Global gnid_fdoc_factasig, gnid_fdoc_inchprod, gnid_fdoc_inchreg, gnid_norme_itp + *:Global gnid_norme_spalare, gnid_norme_spec, gnid_sectie_itp, gnid_sectie_spalare + + + llSucces = .T. + lcOptiuni = [] + lcValori = [] + lcSeparator = [|] + lnIdSectieITP = v_sectii1.id_sectie + lnIdSectieSp = v_sectii2.id_sectie + lnIdNormeITP = Thisform.nid_norme_itp + lnIdNormeSp = Thisform.nid_norme_spalare + lnIdNormeSpec = Thisform.nid_norme_spec + lnIdCasa = v_nom_casa.id_part + lnCoefMan = Thisform._pgfrmbase1.page2.Clb_coef_man.text_simplu1.Value + lnCoefManReg = Thisform._pgfrmbase1.page2.clb_coef_man_regie.text_simplu1.Value + lnIdFactura = Nvl(Thisform.nidfactura,-1) + lnIdFacturaAsig = Nvl(Thisform.nidfacturaasig,-1) + lnIdIncasare = Nvl(Thisform.nidincasare,-1) + lnIdInchReg = Nvl(Thisform.nidinchreg,-1) + lnIdInchProd = Nvl(Thisform.nidinchprod,-1) + + + With Thisform._pgfrmbase1.page1 + lnIdArticolReparatii = Nvl(Thisform.nIdarticol, 0) + If lnIdArticolReparatii != Nvl(m.gnAUTOIdArticolReparatii, 0) + lcOptiuni = lcOptiuni + [AUTOIDARTICOLREPARATII] + lcSeparator + lcValori = lcValori + Iif(Empty(m.lnIdArticolReparatii), '', Alltrim(Str(lnIdArticolReparatii))) + lcSeparator + Endif + If lnIdSectieITP!=Nvl(gnid_sectie_itp,-1) And Thisform.csectie1!=Alltrim(.cb_sectie_itp._cbbase1.Value) + lcOptiuni = lcOptiuni + [ID_SECTIE_ITP] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdSectieITP)) + lcSeparator + Endif + If lnIdNormeITP!=Nvl(gnid_norme_itp,-1) + lcOptiuni = lcOptiuni + [ID_NORME_ITP] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdNormeITP)) + lcSeparator + Endif + If lnIdSectieSp!=Nvl(gnid_sectie_spalare,-1) And Thisform.csectie2!=Alltrim(.cb_sectie_sp._cbbase1.Value) + lcOptiuni = lcOptiuni + [ID_SECTIE_SPALARE] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdSectieSp)) + lcSeparator + Endif + If lnIdNormeSp!=Nvl(gnid_norme_spalare,-1) + lcOptiuni = lcOptiuni + [ID_NORME_SPALARE] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdNormeSp)) + lcSeparator + Endif + If lnIdNormeSpec!=Nvl(gnid_norme_spec,-1) + lcOptiuni = lcOptiuni + [ID_NORME_SPEC] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdNormeSpec)) + lcSeparator + Endif + + If lnIdCasa!=Nvl(gnid_casa_achit,-1) And Thisform.ccasa!=Alltrim(.cb_casa._cbbase1.Value) + lcOptiuni = lcOptiuni + [ID_CASA_ACHIT] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdCasa)) + lcSeparator + Endif + + If lnIdFactura!=Nvl(gnid_fdoc_fact,-1) + lcOptiuni = lcOptiuni + [ID_FDOC_FACT] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdFactura)) + lcSeparator + Endif + If lnIdFacturaAsig!=Nvl(gnid_fdoc_factasig,-1) + lcOptiuni = lcOptiuni + [ID_FDOC_FACTASIG] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdFacturaAsig)) + lcSeparator + Endif + + If lnIdIncasare!=Nvl(gnid_fdoc_chitanta,-1) + lcOptiuni = lcOptiuni + [ID_FDOC_CHITANTA] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdIncasare)) + lcSeparator + Endif + + lnIdBonFiscal = Nvl(Thisform.nidbonfiscal,-1) + If lnIdBonFiscal!=Nvl(gnid_fdoc_bonfiscal,-1) + lcOptiuni = lcOptiuni + [ID_FDOC_BONFISCAL] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdBonFiscal)) + lcSeparator + Endif + + If Nvl(Thisform.niddispplata,-1)!=Nvl(gnid_fdoc_dispplata,-1) + lcOptiuni = lcOptiuni + [ID_FDOC_DISPPLATA] + lcSeparator + lcValori = lcValori + Alltrim(Str(Thisform.niddispplata)) + lcSeparator + Endif + + If gnAvans419!=.opt_avans.Value + lcOptiuni = lcOptiuni + [AVANS419] + lcSeparator + lcValori = lcValori + Alltrim(Str(.opt_avans.Value)) + lcSeparator + Endif + If gnDiscount411!=.opt_discount.Value + lcOptiuni = lcOptiuni + [DISCOUNT411] + lcSeparator + lcValori = lcValori + Alltrim(Str(.opt_discount.Value)) + lcSeparator + Endif + + + If lnIdInchReg !=Nvl(gnid_fdoc_inchreg,-1) + lcOptiuni = lcOptiuni + [ID_FDOC_INCHREG] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdInchReg)) + lcSeparator + Endif + If lnIdInchProd !=Nvl(gnid_fdoc_inchprod,-1) + lcOptiuni = lcOptiuni + [ID_FDOC_INCHPROD] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnIdInchProd)) + lcSeparator + Endif + If lnCoefMan <> gnCoefMan + lcOptiuni = lcOptiuni + [COEFMAN] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnCoefMan,8,3)) + lcSeparator + Endif + If lnCoefManReg <> gnCoefManReg + lcOptiuni = lcOptiuni + [COEFMANREG] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnCoefManReg,8,3)) + lcSeparator + Endif + + llCuiClientObligatoriu = Iif(.opt_cui.Value = 1, .T., .F.) + If m.llCuiClientObligatoriu != m.glCuiClientObligatoriu + lcOptiuni = lcOptiuni + [CUICLIENTOBLIGATORIU] + lcSeparator + lcValori = lcValori + Iif(m.llCuiClientObligatoriu,[T],[F]) + lcSeparator + Endif + + Endwith + + With Thisform._pgfrmbase1.page3 + If gnTip_LPrecomanda!=.opt_precomenzi.Value + lcOptiuni = lcOptiuni + [TIP_LPRECOMANDA] + lcSeparator + lcValori = lcValori + Alltrim(Str(.opt_precomenzi.Value)) + lcSeparator + Endif + If gnTip_LFactura_Linii!=.opt_factlinii.Value + lcOptiuni = lcOptiuni + [TIP_LFACTURA_LINII] + lcSeparator + lcValori = lcValori + Alltrim(Str(.opt_factlinii.Value)) + lcSeparator + Endif + + lnFormatFactura = .opt_formatfactura.Value + If lnFormatFactura <> gnFormatFactura + lcOptiuni = lcOptiuni + [FORMATFACTURA] + lcSeparator + lcValori = lcValori + Alltrim(Str(lnFormatFactura )) + lcSeparator + Endif + + If gnTip_LFactura!=.opt_facturi.Value + lcOptiuni = lcOptiuni + [TIP_LFACTURA] + lcSeparator + lcValori = lcValori + Alltrim(Str(.opt_facturi.Value)) + lcSeparator + Endif + + If gnCgarantie!=.opt_cgarantie.Value + lcOptiuni = lcOptiuni + [CGARANTIE] + lcSeparator + lcValori = lcValori + Alltrim(Str(.opt_cgarantie.Value)) + lcSeparator + ENDIF + + llAutoBonDet = Iif(.opt_bondetmat.Value=1,.T.,.F.) + If llAutoBonDet!= glAutoBonDet + lcOptiuni = lcOptiuni + [AUTOBONDET] + lcSeparator + lcValori = lcValori + Iif(llAutoBonDet,[T],[F]) + lcSeparator + Endif + + lnCNPFactura = Iif(.opt_cnp.Value = 1, 1, 0) + If m.lnCNPFactura != m.gnCNPFactura + lcOptiuni = lcOptiuni + [CNPFACTURA] + lcSeparator + lcValori = lcValori + Iif(m.lnCNPFactura = 1,[1],[0]) + lcSeparator + ENDIF + + If .txtFooterFact1.Value != NVL(m.gcTextFooterFact1, '') + lcOptiuni = lcOptiuni + [TEXTFOOTERFACT1] + lcSeparator + lcValori = lcValori + ALLTRIM(.txtFooterFact1.Value) + lcSeparator + ENDIF + If .txtFooterFact2.Value != NVL(m.gcTextFooterFact2, '') + lcOptiuni = lcOptiuni + [TEXTFOOTERFACT2] + lcSeparator + lcValori = lcValori + ALLTRIM(.txtFooterFact2.Value) + lcSeparator + ENDIF + If .txtFooterFact3.Value != NVL(m.gcTextFooterFact3, '') + lcOptiuni = lcOptiuni + [TEXTFOOTERFACT3] + lcSeparator + lcValori = lcValori + ALLTRIM(.txtFooterFact3.Value) + lcSeparator + ENDIF + If .txtFooterFact4.Value != NVL(m.gcTextFooterFact4, '') + lcOptiuni = lcOptiuni + [TEXTFOOTERFACT4] + lcSeparator + lcValori = lcValori + ALLTRIM(.txtFooterFact4.Value) + lcSeparator + ENDIF + If .txtFooterFact5.Value != NVL(m.gcTextFooterFact5, '') + lcOptiuni = lcOptiuni + [TEXTFOOTERFACT5] + lcSeparator + lcValori = lcValori + ALLTRIM(.txtFooterFact5.Value) + lcSeparator + ENDIF + + ENDWITH + + lnInchidereValidareRegie = IIF(this._pgfrmbase1.page1.opt_regie.Value = 1, 1, 0) + lnInchidereValidareProductie = IIF(this._pgfrmbase1.page1.opt_productie.Value = 1, 1, 0) + llModificareValidare = lnInchidereValidareRegie <> gnInchidereValidare3 or lnInchidereValidareProductie <> gnInchidereValidare6 + + If (!Empty(lcOptiuni) And !Empty(lcValori)) or m.llModificareValidare + If amessagebox("Sunteti sigur ca doriti sa salvati modificarile facute?",4+32,"Confirmare")==6 + lcSql = [begin ] + If (!Empty(lcOptiuni) And !Empty(lcValori)) + lcSql = lcSql + [actualizeaza_optiuni(?gcNumeProgram,'] + lcOptiuni + [','] + lcValori + [','] + lcSeparator +[');] + ENDIF + IF m.llModificareValidare + lcSql = lcSql + [pack_auto.setOptiuneInchidere(3, ] + ALLTRIM(STR(m.lnInchidereValidareRegie)) + [);] + ; + [pack_auto.setOptiuneInchidere(6, ] + ALLTRIM(STR(m.lnInchidereValidareProductie)) + [);] + ENDIF + lcSql = lcSql + [ end;] + + llSucces = goExecutor.oExecuta(lcSql) + IF m.llSucces + amessagebox("Modificarile au fost salvate in baza de date!",0+48,"Info salvare optiuni") + gnid_sectie_itp = lnIdSectieITP + gnid_norme_itp = lnIdNormeITP + gnid_sectie_spalare = lnIdSectieSp + gnid_norme_spalare = lnIdNormeSp + gnid_norme_spec = lnIdNormeSpec + + gnid_casa_achit = lnIdCasa + gnid_fdoc_fact = Iif(lnIdFactura=-1,Null,lnIdFactura) + gnid_fdoc_factasig = Iif(lnIdFacturaAsig=-1,Null,lnIdFacturaAsig) + gnid_fdoc_chitanta = Iif(lnIdIncasare=-1,Null,lnIdIncasare) + gnAvans419 = Thisform._pgfrmbase1.page1.opt_avans.Value + gnDiscount411 = Thisform._pgfrmbase1.page1.opt_discount.Value + gnCoefManReg = lnCoefManReg + gnCoefMan = lnCoefMan + gnid_fdoc_inchreg = Iif(lnIdInchReg=-1,Null,lnIdInchReg) + gnid_fdoc_inchprod = Iif(lnIdInchProd=-1,Null,lnIdInchProd) + + glAutoBonDet = llAutoBonDet + glCuiClientObligatoriu = m.llCuiClientObligatoriu + gnid_fdoc_dispplata = This.niddispplata + + gnFormatFactura = lnFormatFactura + gnid_fdoc_bonfiscal = Iif(lnIdBonFiscal=-1,Null,lnIdBonFiscal) + gnAUTOIdArticolReparatii = m.lnIdArticolReparatii + gnCNPFactura = m.lnCNPFactura + WITH Thisform._pgfrmbase1.page3 + gnTip_LPrecomanda = .opt_precomenzi.Value + gnTip_LFactura = .opt_facturi.Value + gnTip_LFactura_Linii = .opt_factlinii.Value + gnCgarantie = .opt_cgarantie.Value + gcTextFooterFact1 = ALLTRIM(.txtFooterFact1.Value) + gcTextFooterFact2 = ALLTRIM(.txtFooterFact2.Value) + gcTextFooterFact3 = ALLTRIM(.txtFooterFact3.Value) + gcTextFooterFact4 = ALLTRIM(.txtFooterFact4.Value) + gcTextFooterFact5 = ALLTRIM(.txtFooterFact5.Value) + ENDWITH + + gnInchidereValidare3 = m.lnInchidereValidareRegie + gnInchidereValidare6 = m.lnInchidereValidareProductie + + ENDIF && llSucces + ENDIF + + Endif + Return m.llSucces + + ENDPROC + + PROCEDURE Init + DoDefault() + With Thisform._pgfrmbase1.page1 + Select v_sectii1 + Locate For id_sectie=gnid_sectie_itp + If Found() + Thisform.csectie1=Alltrim(sectie) + .cb_sectie_itp._cBBASE1.Value=sectie + Endif + + Select v_sectii2 + Locate For id_sectie=gnid_sectie_spalare + If Found() + Thisform.csectie2=Alltrim(sectie) + .cb_sectie_sp._cBBASE1.Value=sectie + Endif + + lcSql=[select id_articol, denumire from vnom_articole where id_articol = ?gnAUTOIdArticolReparatii] + lnSucces=goExecutor.oExecute(lcSql,'crsoptArt') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Else + Select crsoptArt + IF RECCOUNT('crsoptArt') = 1 + Thisform.nIdarticol = id_articol + Thisform._pgfrmbase1.page1.ct_articolcumulat.clb_tx_cautare.text_simplu1.Value = ALLTRIM(NVL(denumire, '')) + Else + Thisform.nIdarticol = Null + ENDIF + USE IN (SELECT('crsoptArt')) + ENDIF + + lcSql=[select id_norme,denop from ] + gcS + [.auto_vnorme where id_norme in (?gnid_norme_spalare,?gnid_norme_itp,?gnid_norme_spec)] + lnSucces=goExecutor.oExecute(lcSql,'crsoptnorme') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Else + Select crsoptnorme + *!* id_norme operatie spalare + Locate For id_norme = Nvl(gnid_norme_spalare,0) + If Found() + Thisform.nid_norme_spalare = id_norme + Thisform._pgfrmbase1.page1.ct_clb_operatie_sp.clb_tx_cautare.text_simplu1.Value = denop + Else + Thisform.nid_norme_spalare = Null + Endif + *!* id_norme operatie ITP + Locate For id_norme = Nvl(gnid_norme_itp,0) + If Found() + Thisform.nid_norme_itp = id_norme + Thisform._pgfrmbase1.page1.ct_clb_operatie_itp.clb_tx_cautare.text_simplu1.Value = denop + Else + Thisform.nid_norme_itp = Null + Endif + *!* id_norme operatie manopera speciala + Locate For id_norme = Nvl(gnid_norme_spec,0) + If Found() + Thisform.nid_norme_spec = id_norme + Thisform._pgfrmbase1.page2.ct_manoperaspec.clb_tx_cautare.text_simplu1.Value = denop + Else + Thisform.nid_norme_spec = Null + Endif + Use In crsoptnorme + Endif + + Select v_nom_casa + Locate For id_part=gnid_casa_achit + If Found() + Thisform.ccasa=Alltrim(nume) + .cb_casa._cBBASE1.Value=nume + Endif + + *!* modificare v 2.0.28 : am inlocuit gnid_fdoc_factura cu gnid_fdoc_fact si am adaugat gnid_fdoc_factasig + lcSql=[select id_fdoc,fel_document from ] + gcS + [.vnom_fdoc where id_fdoc in (?gnid_fdoc_fact,?gnid_fdoc_factasig,?gnid_fdoc_chitanta,?gnid_fdoc_bonfiscal,?gnid_fdoc_inchreg,?gnid_fdoc_inchprod,?gnid_fdoc_dispplata)] + && modificare v 2.0.29 : am inlocuit gnid_fdoc_incasare, am adaugat gnid_fdoc_bonfiscal + *!* modificare v 2.0.28 ^ + lnSucces=goExecutor.oExecute(lcSql,'crsoptfdoc') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Else + Select crsoptfdoc + *!* modificare v 2.0.28 : am inlocuit gnid_fdoc_factura cu gnid_fdoc_fact si am adaugat gnid_fdoc_factasig + Locate For id_fdoc=gnid_fdoc_fact + If Found() + Thisform.nidfactura = id_fdoc + .ct_factura.clb_tx_cautare.text_simplu1.Value = fel_document + ENDIF + + Locate For id_fdoc=gnid_fdoc_factasig + If Found() + Thisform.nidfacturaasig = id_fdoc + .ct_facturaasig.clb_tx_cautare.text_simplu1.Value = fel_document + Endif + *!* modificare v 2.0.28 ^ + Locate For id_fdoc=gnid_fdoc_chitanta && modificare v 2.0.29 : am inlocuit gnid_fdoc_incasare + If Found() + Thisform.nidincasare = id_fdoc + .ct_incasare.clb_tx_cautare.text_simplu1.Value = fel_document + Endif + *!* modificare v 2.0.29 + Locate For id_fdoc = gnId_fdoc_bonfiscal + If Found() + Thisform.nidbonfiscal = id_fdoc + .ct_bonfiscal.clb_tx_cautare.text_simplu1.Value = fel_document + Endif + *!* modificare v 2.0.29 ^ + Locate For id_fdoc=gnid_fdoc_inchreg + If Found() + Thisform.nidinchreg = id_fdoc + .ct_inchreg.clb_tx_cautare.text_simplu1.Value = fel_document + Endif + + Locate For id_fdoc=gnid_fdoc_inchprod + If Found() + Thisform.nidinchprod = id_fdoc + .ct_inchprod.clb_tx_cautare.text_simplu1.Value = fel_document + Endif + + *!* modificare v 2.0.21 + Locate For id_fdoc = gnid_fdoc_dispplata + If Found() + Thisform.niddispplata = id_fdoc + .ct_disp_plata.clb_tx_cautare.text_simplu1.Value = fel_document + Endif + *!* modificare v 2.0.21 ^ + Use In crsoptfdoc + Endif + + + .opt_avans.Value=gnAvans419 + .opt_discount.Value=gnDiscount411 + .opt_cui.Value = IIF(m.glCUIClientObligatoriu, 1, 2) + + *!* modificare v 2.0.28 + *!* .opt_atasamenteauto.Value = IIF(glAtasamenteAuto,1,2) + *!* modificare v 2.0.28 ^ + *!* .opt_bonuri.Value=gnSerie_bf-1 + *!* .opt_regie.Value=Iif(Nvl(gnDev_valregie,-1)<>1,2,1) + Endwith + With Thisform._pgfrmbase1.page2 + .clb_coef_man.text_simplu1.Value = gnCoefMan + .clb_coef_man_regie.text_simplu1.Value = gnCoefManReg + ENDWITH + + WITH Thisform._pgfrmbase1.page3 + .opt_precomenzi.Value=gnTip_LPrecomanda + .opt_factlinii.Value=gnTip_LFactura_Linii + .opt_formatfactura.Value = gnFormatFactura + .opt_facturi.Value=gnTip_LFactura + .opt_cgarantie.Value=gnCgarantie + .opt_bondetmat.Value = IIF(m.glAutoBonDet,1,2) + .opt_cnp.Value = IIF(m.gnCNPFactura = 1, 1, 2) + .txtFooterFact1.value = ALLTRIM(NVL(m.gcTextFooterFact1, '')) + .txtFooterFact2.value = ALLTRIM(NVL(m.gcTextFooterFact2, '')) + .txtFooterFact3.value = ALLTRIM(NVL(m.gcTextFooterFact3, '')) + .txtFooterFact4.value = ALLTRIM(NVL(m.gcTextFooterFact4, '')) + .txtFooterFact5.value = ALLTRIM(NVL(m.gcTextFooterFact5, '')) + ENDWITH + + * Inchidere prin validare comenzi regie si productie + this._pgfrmbase1.page1.opt_regie.Value = IIF(m.gnInchidereValidare3 = 1, 1, 2) + this._pgfrmbase1.page1.opt_productie.Value = IIF(m.gnInchidereValidare6 = 1, 1, 2) + ENDPROC + + PROCEDURE Load + If Used('v_sectii1') + Use In v_sectii1 + Endif + If Used('v_sectii2') + Use In v_sectii2 + Endif + Do ccsectii in update_devize.prg + Select * From v_nom_sectii Into Cursor v_sectii1 + Select * From v_nom_sectii Into Cursor v_sectii2 + Use In v_nom_sectii + + If Used('v_nom_casa') + Use In v_nom_casa + Endif + lcSql=[select id_part,nume from ] + gcS + [.vcoresp_tip_part where tip_partener='CASA LEI'] + lnSucces=goExecutor.oExecute(lcSql,'v_nom_casa') + If lnSucces < 0 + amessagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_autopass.sc2 b/Ferestre/frm_autopass.sc2 new file mode 100644 index 0000000..a70f866 --- /dev/null +++ b/Ferestre/frm_autopass.sc2 @@ -0,0 +1,1380 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_autopass.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_autopass1 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="ShpBadgeMediu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LblBadgeMediu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LblPerioada1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="TxtDataInceput1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LblPerioadaLinie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="TxtDataSfarsit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButActualizeaza1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LblAcoperire1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButConfigurare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.LblUrl1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.TxtUrl1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.LblCheie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.TxtCheie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.ButAratacheie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.LblMediu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.CboMediu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.ButTestConexiune1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.ButSalveazaConfig1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="PnlConfigurare1.LblConfigMesaj1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column1.Chk1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GrdComenzi1.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LblMotivTitlu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="TxtMotivRand1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButSelecteazaTot1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButValideazaDryrun1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButTransmite1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButActualizeazaStatusuri1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButDeschideDashboard1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ButRenuntaActiuni1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="LblProgres1" UniqueID="" Timestamp="" /> + + * + *m: col_bifa_when && When() pe coloana de bifa a gridului - randurile invalide/netransmisibile nu se pot bifa (grid VFP nu are readonly per celula) + *m: culoare_status && Culoarea (RGB) asociata unui status brut din gateway, pt DynamicForeColor in grid + *m: do_actualizeaza_perioada && Reincarca cursoarele US-002 pentru perioada curenta din forma + *m: do_actualizeaza_statusuri && Re-apeleaza autopass_situatie() + coreleaza si reimprospateaza gridul (US-005) + *m: do_deschide_dashboard && Deschide in browser URL-ul gateway-ului din configurare + *m: do_test_conexiune && GET /v1/ping - actualizeaza badge-ul de mediu si starea butoanelor + *m: do_toggle_arata_cheie + *m: do_toggle_configurare + *m: do_transmite && POST /v1/prezentari in loturi de max nMaxLot, cu progres si Renunta intre loturi + *m: do_valideaza_dryrun && POST /v1/prezentari/valideaza in loturi - completeaza doar coloana Verdict validare + *m: eticheta_status && Traduce statusul brut din gateway (queued/sent/...) in eticheta romaneasca (vocabular US-004) + *m: incarca_date && Construieste crs_autopass_comenzi + crs_autopass_operatii, aplica situatia gateway si reimprospateaza gridul + *m: incarca_lot_din_grid && Construieste array de obiecte {vin,nrinmat,data_prestatie,odometru_final,prestatii[],obs,id_ordl} pt un lot de max nMaxLot randuri bifate + *m: obtine_id_bifate && Array cu id_ordl ale randurilor bifate din crs_autopass_comenzi + *m: recalculeaza_acoperire && Recalculeaza N/M/K si actualizeaza LblAcoperire1 + *m: salveaza_config + *p: ccursordetaliu && Numele cursorului temporar cu operatiile (crs_autopass_operatii) + *p: ccursorheader && Numele cursorului temporar cu comenzile (crs_autopass_comenzi) + *p: ddatainceput + *p: ddatasfarsit + *p: lanulare && Setat de ButRenuntaActiuni1 in timpul unei transmiteri/dry-run in curs - verificat intre loturi + *p: lconfigok + *p: loperatieincurs && .T. cat timp o transmitere/dry-run e in desfasurare (guard dubla-apasare + tine ButRenuntaActiuni1 in modul "opreste") + *p: lpingok + * + + * + AutoCenter = .T. + Caption = "Trimitere operatii facturate la RAR AUTOPASS" + ccursordetaliu = "crs_autopass_operatii" + ccursorheader = "crs_autopass_comenzi" + ddatainceput = {} + ddatasfarsit = {} + DoCreate = .T. + Height = 700 + lanulare = .F. + lconfigok = .F. + loperatieincurs = .F. + lpingok = .F. + MaxButton = .F. + MinButton = .F. + Name = "Frm_autopass1" + Width = 1020 + WindowType = 1 + _shape1.Width = 1017 + _shape2.Left = 962 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 984 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.ToolTipText = "Inchide fereastra (ESC)" + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'ButActualizeaza1' AS _commandbutton WITH ; + Caption = "Actualizeaza", ; + Height = 24, ; + Left = 332, ; + Name = "ButActualizeaza1", ; + Top = 60, ; + Width = 96 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ButActualizeazaStatusuri1' AS _commandbutton WITH ; + Anchor = 10, ; + Caption = "Actualizeaza statusuri", ; + Height = 28, ; + Left = 664, ; + Name = "ButActualizeazaStatusuri1", ; + Top = 566, ; + Width = 170 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ButConfigurare1' AS _commandbutton WITH ; + Anchor = 9, ; + Caption = "Configurare >>", ; + Height = 24, ; + Left = 904, ; + Name = "ButConfigurare1", ; + Top = 60, ; + Width = 108 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ButDeschideDashboard1' AS _commandbutton WITH ; + Anchor = 10, ; + BackColor = 0,90,160, ; + Caption = "Dashboard AutoPass", ; + FontBold = .T., ; + ForeColor = 255,255,255, ; + Height = 28, ; + Left = 851, ; + Name = "ButDeschideDashboard1", ; + Top = 566, ; + Width = 150 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ButRenuntaActiuni1' AS _commandbutton WITH ; + Anchor = 6, ; + BackColor = 180,0,0, ; + Caption = "Renunta", ; + FontBold = .T., ; + ForeColor = 255,255,255, ; + Height = 28, ; + Left = 494, ; + Name = "ButRenuntaActiuni1", ; + Top = 566, ; + Visible = .F., ; + Width = 140 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ButSelecteazaTot1' AS cmd_select_adv WITH ; + Anchor = 6, ; + ccoloana = "lbifat", ; + cFiltruSuplimentar = "lvalid AND !INLIST(status_autopass,'queued','sent','deduped','held','needs_mapping','needs_data')", ; + cgrid = "thisform.GrdComenzi1", ; + Left = 8, ; + Name = "ButSelecteazaTot1", ; + Top = 566, ; + Width = 160 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ButTransmite1' AS _commandbutton WITH ; + Anchor = 6, ; + BackColor = 0,120,40, ; + Caption = "Transmite", ; + FontBold = .T., ; + FontSize = 11, ; + ForeColor = 255,255,255, ; + Height = 30, ; + Left = 348, ; + Name = "ButTransmite1", ; + Top = 565, ; + Width = 140 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ButValideazaDryrun1' AS _commandbutton WITH ; + Anchor = 6, ; + Caption = "Valideaza (dry-run)", ; + Height = 28, ; + Left = 188, ; + Name = "ButValideazaDryrun1", ; + Top = 566, ; + Width = 150 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'GrdComenzi1' AS _grid WITH ; + Anchor = 15, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 370, ; + lcamptextneeditabil = .T., ; + Left = 8, ; + Name = "GrdComenzi1", ; + ReadOnly = .F., ; + RecordSource = "", ; + RowHeight = 18, ; + Top = 118, ; + Width = 1001, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "crs_autopass_comenzi.lbifat", ; + Column1.CurrentControl = "Chk1", ; + Column1.Name = "Column1", ; + Column1.Sparse = .F., ; + Column1.When = "Thisform.col_bifa_when()", ; + Column1.Width = 30, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "crs_autopass_comenzi.nrord", ; + Column2.Name = "Column2", ; + Column2.Width = 60, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "crs_autopass_comenzi.dataoravalid", ; + Column3.Name = "Column3", ; + Column3.Width = 66, ; + Column4.ColumnOrder = 4, ; + Column4.ControlSource = "crs_autopass_comenzi.nrfact", ; + Column4.Name = "Column4", ; + Column4.Width = 60, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "crs_autopass_comenzi.datafact", ; + Column5.Name = "Column5", ; + Column5.Width = 66, ; + Column6.ColumnOrder = 6, ; + Column6.ControlSource = "crs_autopass_comenzi.nrinmat", ; + Column6.Name = "Column6", ; + Column6.Width = 74, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "crs_autopass_comenzi.series", ; + Column7.Name = "Column7", ; + Column7.Width = 130, ; + Column8.ColumnOrder = 8, ; + Column8.ControlSource = "crs_autopass_comenzi.kmint", ; + Column8.Name = "Column8", ; + Column8.Width = 55, ; + Column9.ColumnOrder = 9, ; + Column9.ControlSource = "crs_autopass_comenzi.nume", ; + Column9.Name = "Column9", ; + Column9.Width = 140, ; + Column10.Alignment = 1, ; + Column10.ColumnOrder = 10, ; + Column10.ControlSource = "crs_autopass_comenzi.ncntop", ; + Column10.Name = "Column10", ; + Column10.Width = 40, ; + Column11.ColumnOrder = 11, ; + Column11.ControlSource = "crs_autopass_comenzi.cstatusro", ; + Column11.DynamicForeColor = "Thisform.culoare_status(status_autopass)", ; + Column11.FontBold = .T., ; + Column11.Name = "Column11", ; + Column11.Width = 140, ; + Column12.ColumnOrder = 12, ; + Column12.ControlSource = "crs_autopass_comenzi.cverdict", ; + Column12.Name = "Column12", ; + Column12.Width = 160, ; + Column13.ColumnOrder = 13, ; + Column13.ControlSource = "crs_autopass_comenzi.motiv_invalid", ; + Column13.Name = "Column13", ; + Column13.Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'GrdComenzi1.Column1.Chk1' AS _checkbox WITH ; + Alignment = 2, ; + AutoSize = .F., ; + Caption = "", ; + ControlSource = "crs_autopass_comenzi.lbifat", ; + Height = 16, ; + Name = "Chk1", ; + Width = 22 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'GrdComenzi1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column10.Header1' AS header WITH ; + Caption = "Op.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column10.Text1' AS _textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column11.Header1' AS header WITH ; + Caption = "Status transmitere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column11.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + DynamicForeColor = "Thisform.culoare_status(status_autopass)", ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column12.Header1' AS header WITH ; + Caption = "Verdict validare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column12.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 120,80,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column13.Header1' AS header WITH ; + Caption = "Motiv (pre-validare)", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column13.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 160,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column2.Header1' AS header WITH ; + Caption = "Nr.cmd", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column2.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column3.Header1' AS header WITH ; + Caption = "Data inch.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column3.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column4.Header1' AS header WITH ; + Caption = "Nr.fact.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column4.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column5.Header1' AS header WITH ; + Caption = "Data fact.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column5.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column6.Header1' AS header WITH ; + Caption = "Nr.inmat.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column6.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column7.Header1' AS header WITH ; + Caption = "VIN", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column7.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column8.Header1' AS header WITH ; + Caption = "Km", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column8.Text1' AS _textbox WITH ; + Alignment = 1, ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'GrdComenzi1.Column9.Header1' AS header WITH ; + Caption = "Client", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GrdComenzi1.Column9.Text1' AS _textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + DynamicBackColor = "IIF(!lvalid,RGB(224,224,224),RGB(255,255,255))", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'LblAcoperire1' AS _label WITH ; + Anchor = 13, ; + AutoSize = .F., ; + Caption = "Declarabile in perioada: - | Transmise: - | Blocate/nedeclarabile: -", ; + FontBold = .T., ; + Height = 18, ; + Left = 8, ; + Name = "LblAcoperire1", ; + Top = 88, ; + Width = 1001 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'LblBadgeMediu1' AS _label WITH ; + Alignment = 2, ; + Anchor = 13, ; + AutoSize = .F., ; + BackStyle = 0, ; + Caption = "Se verifica mediul...", ; + FontBold = .T., ; + FontSize = 11, ; + ForeColor = 255,255,255, ; + Height = 20, ; + Left = 8, ; + Name = "LblBadgeMediu1", ; + Top = 33, ; + Width = 1001 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'LblMotivTitlu1' AS _label WITH ; + Anchor = 6, ; + Caption = "Motiv (rand curent):", ; + Height = 18, ; + Left = 8, ; + Name = "LblMotivTitlu1", ; + Top = 492, ; + Width = 160 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'LblPerioada1' AS _label WITH ; + AutoSize = .F., ; + Caption = "Perioada (data facturii):", ; + Height = 18, ; + Left = 8, ; + Name = "LblPerioada1", ; + Top = 64, ; + Width = 140 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'LblPerioadaLinie1' AS _label WITH ; + Alignment = 2, ; + Caption = "-", ; + Height = 18, ; + Left = 232, ; + Name = "LblPerioadaLinie1", ; + Top = 64, ; + Width = 12 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'LblProgres1' AS _label WITH ; + Anchor = 14, ; + AutoSize = .F., ; + Caption = "", ; + Height = 18, ; + Left = 8, ; + Name = "LblProgres1", ; + Top = 642, ; + Width = 1001 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'PnlConfigurare1' AS _container WITH ; + Anchor = 13, ; + BackColor = 245,245,245, ; + Height = 92, ; + Left = 4, ; + Name = "PnlConfigurare1", ; + SpecialEffect = 1, ; + Top = 112, ; + Visible = .F., ; + Width = 1009 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="container" /> + + ADD OBJECT 'PnlConfigurare1.ButAratacheie1' AS _commandbutton WITH ; + Anchor = 8, ; + Caption = "Arata", ; + Height = 22, ; + Left = 945, ; + Name = "ButAratacheie1", ; + Top = 4, ; + Width = 56 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'PnlConfigurare1.ButSalveazaConfig1' AS _commandbutton WITH ; + Anchor = 8, ; + Caption = "Salveaza", ; + FontBold = .T., ; + Height = 24, ; + Left = 881, ; + Name = "ButSalveazaConfig1", ; + Top = 34, ; + Width = 120 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'PnlConfigurare1.ButTestConexiune1' AS _commandbutton WITH ; + Anchor = 8, ; + Caption = "Test conexiune", ; + Height = 24, ; + Left = 721, ; + Name = "ButTestConexiune1", ; + Top = 34, ; + Width = 150 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'PnlConfigurare1.CboMediu1' AS _combobox WITH ; + Height = 24, ; + Left = 100, ; + Name = "CboMediu1", ; + RowSource = "Testare,Productie,Implicit cont (gol)", ; + RowSourceType = 1, ; + Style = 2, ; + Top = 34, ; + Width = 160 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'PnlConfigurare1.LblCheie1' AS _label WITH ; + Caption = "Cheie API:", ; + Height = 18, ; + Left = 410, ; + Name = "LblCheie1", ; + Top = 8, ; + Width = 78 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'PnlConfigurare1.LblConfigMesaj1' AS _label WITH ; + Anchor = 12, ; + AutoSize = .F., ; + Caption = "", ; + ForeColor = 180,0,0, ; + Height = 18, ; + Left = 8, ; + Name = "LblConfigMesaj1", ; + Top = 66, ; + Width = 990 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'PnlConfigurare1.LblMediu1' AS _label WITH ; + Caption = "Mediu RAR:", ; + Height = 18, ; + Left = 8, ; + Name = "LblMediu1", ; + Top = 38, ; + Width = 90 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'PnlConfigurare1.LblUrl1' AS _label WITH ; + Caption = "URL gateway:", ; + Height = 18, ; + Left = 8, ; + Name = "LblUrl1", ; + Top = 8, ; + Width = 90 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'PnlConfigurare1.TxtCheie1' AS _textbox WITH ; + Height = 22, ; + Left = 492, ; + Name = "TxtCheie1", ; + PasswordChar = "*", ; + Top = 4, ; + Width = 220 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'PnlConfigurare1.TxtUrl1' AS _textbox WITH ; + Height = 22, ; + Left = 100, ; + Name = "TxtUrl1", ; + Top = 4, ; + Width = 300 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'ShpBadgeMediu1' AS _shape WITH ; + Anchor = 13, ; + BackColor = 160,160,160, ; + Height = 26, ; + Left = 0, ; + Name = "ShpBadgeMediu1", ; + Top = 30, ; + Width = 1017 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'TxtDataInceput1' AS _textbox WITH ; + ControlSource = "Thisform.ddatainceput", ; + Format = "D", ; + Height = 22, ; + Left = 152, ; + Name = "TxtDataInceput1", ; + Top = 60, ; + Width = 76 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'TxtDataSfarsit1' AS _textbox WITH ; + ControlSource = "Thisform.ddatasfarsit", ; + Format = "D", ; + Height = 22, ; + Left = 248, ; + Name = "TxtDataSfarsit1", ; + Top = 60, ; + Width = 76 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'TxtMotivRand1' AS _editbox WITH ; + Anchor = 14, ; + BackColor = 245,245,245, ; + Height = 48, ; + Left = 8, ; + Name = "TxtMotivRand1", ; + ReadOnly = .T., ; + Top = 510, ; + Width = 1001 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="editbox" /> + + PROCEDURE col_bifa_when && When() pe coloana de bifa a gridului - randurile invalide/netransmisibile nu se pot bifa (grid VFP nu are readonly per celula) + * Randurile fara operatii de manopera valide sau cu date invalide (VIN/nrinmat/data/km) nu + * pot fi bifate - gridul VFP nu are readonly per celula, se foloseste When()=.F. + RETURN crs_autopass_comenzi.lvalid + ENDPROC + + PROCEDURE culoare_status && Culoarea (RGB) asociata unui status brut din gateway, pt DynamicForeColor in grid + LPARAMETERS tcStatus + LOCAL lcStatus + lcStatus = LOWER(ALLTRIM(NVL(tcStatus,''))) + DO CASE + CASE lcStatus == 'sent' + RETURN RGB(0,120,40) + CASE lcStatus == 'queued' + RETURN RGB(180,140,0) + CASE INLIST(lcStatus,'needs_mapping','needs_data') + RETURN RGB(200,110,0) + CASE INLIST(lcStatus,'held','error') + RETURN RGB(180,0,0) + CASE lcStatus == 'deduped' + RETURN RGB(120,120,120) + OTHERWISE + RETURN RGB(0,0,0) + ENDCASE + ENDPROC + + PROCEDURE do_actualizeaza_perioada && Reincarca cursoarele US-002 pentru perioada curenta din forma + IF EMPTY(Thisform.ddatainceput) OR EMPTY(Thisform.ddatasfarsit) OR Thisform.ddatainceput > Thisform.ddatasfarsit + MESSAGEBOX('Perioada introdusa este invalida.', 48, 'AUTOPASS') + RETURN + ENDIF + Thisform.incarca_date() + ENDPROC + + PROCEDURE do_actualizeaza_statusuri && Re-apeleaza autopass_situatie() + coreleaza si reimprospateaza gridul (US-005) + LOCAL llOk + llOk = autopass_situatie(Thisform.ddatainceput, Thisform.ddatasfarsit) + IF USED(Thisform.ccursorheader) + autopass_coreleaza_situatie(Thisform.ccursorheader) + Thisform.GrdComenzi1.Refresh() + ENDIF + Thisform.recalculeaza_acoperire() + IF !llOk + Thisform.LblProgres1.Caption = 'Status necunoscut - situatia gateway indisponibila (vezi LOG.txt).' + Thisform.LblProgres1.ForeColor = RGB(180,0,0) + ELSE + Thisform.LblProgres1.Caption = 'statusuri actualizate' + Thisform.LblProgres1.ForeColor = RGB(0,100,0) + ENDIF + ENDPROC + + PROCEDURE do_deschide_dashboard && Deschide in browser URL-ul gateway-ului din configurare + LOCAL loConfig, lcUrl + DECLARE INTEGER ShellExecute IN shell32.dll ; + INTEGER hndWin, STRING cAction, STRING cFileName, ; + STRING cParameters, STRING cDirectory, INTEGER nShowWindow + loConfig = autopass_get_config() + lcUrl = ALLTRIM(loConfig.cUrlGateway) + IF EMPTY(lcUrl) + RETURN + ENDIF + ShellExecute(0, "Open", lcUrl, "", "", 1) + ENDPROC + + PROCEDURE do_test_conexiune && GET /v1/ping - actualizeaza badge-ul de mediu si starea butoanelor + LOCAL loRez + WAIT WINDOW 'Se verifica conexiunea la gateway-ul AUTOPASS...' NOWAIT + loRez = autopass_test_conexiune(ALLTRIM(Thisform.PnlConfigurare1.TxtUrl1.Value), ; + ALLTRIM(Thisform.PnlConfigurare1.TxtCheie1.Value)) + WAIT CLEAR + Thisform.lpingok = loRez.lSucces + IF loRez.lSucces + Thisform.cMediuActual = loRez.cMediu + IF UPPER(ALLTRIM(loRez.cMediu)) == 'PROD' OR UPPER(ALLTRIM(loRez.cMediu)) == 'PRODUCTIE' + Thisform.ShpBadgeMediu1.BackColor = RGB(180,0,0) + Thisform.LblBadgeMediu1.Caption = 'MEDIU: PRODUCTIE - autentificat cu cheie: ' + IIF(loRez.lAutentificatCuCheie,'DA','NU') + ELSE + Thisform.ShpBadgeMediu1.BackColor = RGB(120,120,120) + Thisform.LblBadgeMediu1.Caption = 'MEDIU: TESTARE - autentificat cu cheie: ' + IIF(loRez.lAutentificatCuCheie,'DA','NU') + ENDIF + Thisform.PnlConfigurare1.LblConfigMesaj1.Caption = '' + Thisform.ButTransmite1.Enabled = .T. + Thisform.ButValideazaDryrun1.Enabled = .T. + ELSE + Thisform.ShpBadgeMediu1.BackColor = RGB(160,160,160) + Thisform.LblBadgeMediu1.Caption = 'Conexiune indisponibila' + Thisform.PnlConfigurare1.LblConfigMesaj1.Caption = loRez.cEroare + Thisform.ButTransmite1.Enabled = .F. + Thisform.ButValideazaDryrun1.Enabled = .F. + IF !Thisform.PnlConfigurare1.Visible + Thisform.do_toggle_configurare() + ENDIF + Thisform.PnlConfigurare1.TxtCheie1.SetFocus() + ENDIF + ENDPROC + + PROCEDURE do_toggle_arata_cheie + IF Thisform.PnlConfigurare1.TxtCheie1.PasswordChar == '*' + Thisform.PnlConfigurare1.TxtCheie1.PasswordChar = '' + Thisform.PnlConfigurare1.ButAratacheie1.Caption = 'Ascunde' + ELSE + Thisform.PnlConfigurare1.TxtCheie1.PasswordChar = '*' + Thisform.PnlConfigurare1.ButAratacheie1.Caption = 'Arata' + ENDIF + ENDPROC + + PROCEDURE do_toggle_configurare + Thisform.PnlConfigurare1.Visible = !Thisform.PnlConfigurare1.Visible + IF Thisform.PnlConfigurare1.Visible + Thisform.ButConfigurare1.Caption = 'Configurare <<' + Thisform.GrdComenzi1.Top = 210 + Thisform.GrdComenzi1.Height = 278 + ELSE + Thisform.ButConfigurare1.Caption = 'Configurare >>' + Thisform.GrdComenzi1.Top = 118 + Thisform.GrdComenzi1.Height = 370 + ENDIF + ENDPROC + + PROCEDURE do_transmite && POST /v1/prezentari in loturi de max nMaxLot, cu progres si Renunta intre loturi + * Transmitere reala (enqueue) in loturi de max oClient.nMaxLot. Sincron (WinHTTP) - se + * verifica Thisform.lanulare intre loturi (singurul punct de anulare posibil), cu + * DOEVENTS ca sa lase interfata sa raspunda la clicul pe Renunta. + LOCAL laIdBifate(1), lnTotal, oClient, lnLoturi, i, lnStart, lnEnd, laLot(1), j + LOCAL loRez, loItem, lcMediuConfirm, lnRasp, lnTransmise, lnAsteptare, lnErori + + IF Thisform.loperatieincurs + RETURN + ENDIF + + lnTotal = Thisform.obtine_id_bifate(@laIdBifate) + IF lnTotal = 0 + MESSAGEBOX('Nu exista nicio comanda bifata.', 48, 'AUTOPASS') + RETURN + ENDIF + + lcMediuConfirm = IIF(UPPER(ALLTRIM(Thisform.cMediuActual)) == 'PROD' OR UPPER(ALLTRIM(Thisform.cMediuActual)) == 'PRODUCTIE', 'PRODUCTIE', 'TESTARE') + + lnRasp = MESSAGEBOX('Se transmit ' + TRANSFORM(lnTotal) + ' comenzi in mediul ' + lcMediuConfirm + '.' + CHR(13) + ; + IIF(lcMediuConfirm == 'PRODUCTIE', 'ATENTIE: declararea la RAR pe PRODUCTIE este ireversibila.' + CHR(13), '') + ; + 'Continuati?', 4 + 48 + 256, 'Confirmare transmitere AUTOPASS') + IF lnRasp <> 6 + RETURN + ENDIF + + IF lnTotal > 200 + lnRasp = MESSAGEBOX('Ati bifat ' + TRANSFORM(lnTotal) + ' comenzi (peste pragul de 200).' + CHR(13) + ; + 'Confirmati din nou transmiterea?', 4 + 48 + 256, 'Confirmare suplimentara AUTOPASS') + IF lnRasp <> 6 + RETURN + ENDIF + ENDIF + + Thisform.loperatieincurs = .T. + Thisform.lanulare = .F. + Thisform.ButTransmite1.Enabled = .F. + Thisform.ButValideazaDryrun1.Enabled = .F. + Thisform.ButRenuntaActiuni1.Caption = '\ eticheta romaneasca (US-004) - NU se afiseaza tokenii + * englezesti bruti in grid. + LPARAMETERS tcStatus + LOCAL lcStatus + lcStatus = LOWER(ALLTRIM(NVL(tcStatus,''))) + DO CASE + CASE EMPTY(lcStatus) + RETURN 'Netransmis' + CASE lcStatus == 'queued' + RETURN 'In asteptare la RAR' + CASE lcStatus == 'sent' + RETURN 'Transmis' + CASE lcStatus == 'needs_mapping' + RETURN 'Cod fara mapare RAR' + CASE lcStatus == 'needs_data' + RETURN 'Date incomplete' + CASE lcStatus == 'held' + RETURN 'Retinut (Auto OFF)' + CASE lcStatus == 'error' + RETURN 'Eroare' + CASE lcStatus == 'deduped' + RETURN 'Deja transmis' + OTHERWISE + RETURN ALLTRIM(tcStatus) + ENDCASE + ENDPROC + + PROCEDURE incarca_date && Construieste crs_autopass_comenzi + crs_autopass_operatii, aplica situatia gateway si reimprospateaza gridul + * US-002 + US-005: extrage comenzile+operatiile facturate din perioada, aplica + * pre-validarea locala (deja facuta in autopass_cursor_comenzi/operatii), calculeaza + * nr. de operatii per comanda si coreleaza cu situatia gateway-ului. + LOCAL lcHeader, lcDetaliu, lcCount + + WAIT WINDOW 'Se incarca comenzile facturate din perioada...' NOWAIT + + lcHeader = autopass_cursor_comenzi(Thisform.ddatainceput, Thisform.ddatasfarsit) + IF EMPTY(lcHeader) + WAIT CLEAR + MESSAGEBOX('Nu s-au putut extrage comenzile pentru perioada aleasa (vezi LOG.txt).', 48, 'AUTOPASS') + RETURN + ENDIF + + lcDetaliu = autopass_cursor_operatii(lcHeader) + + *-- lbifat/ncntop/cstatusro/cverdict sunt incluse direct la crearea cursorului in + *-- autopass_cursor_comenzi() - cursorul ramane "remote"-tainted, ALTER TABLE pica. + + IF !EMPTY(lcDetaliu) AND USED(lcDetaliu) + lcCount = 'crs_autopass_nrop' + IF USED(lcCount) + USE IN (lcCount) + ENDIF + SELECT id_ordl, COUNT(*) AS ncnt FROM (lcDetaliu) WHERE lvalid_op GROUP BY id_ordl INTO CURSOR (lcCount) READWRITE + INDEX ON id_ordl TAG id_ordl + SET ORDER TO id_ordl IN (lcCount) + + SELECT (lcHeader) + SCAN + IF SEEK(id_ordl, lcCount) + REPLACE ncntop WITH &lcCount..ncnt + ELSE + REPLACE ncntop WITH 0 + ENDIF + ENDSCAN + USE IN (lcCount) + ENDIF + + SELECT (lcHeader) + REPLACE ALL lbifat WITH .F., cstatusro WITH 'Netransmis', cverdict WITH '' + GO TOP + + WAIT CLEAR + + *-- situatia gateway-ului (US-005), auto-refresh la incarcarea perioadei + LOCAL lcEroareSituatie + lcEroareSituatie = '' + IF autopass_situatie(Thisform.ddatainceput, Thisform.ddatasfarsit, @lcEroareSituatie) + autopass_coreleaza_situatie(lcHeader) + SELECT (lcHeader) + SCAN + REPLACE cstatusro WITH Thisform.eticheta_status(status_autopass) + ENDSCAN + SELECT (lcHeader) + GO TOP + ELSE + Thisform.LblProgres1.Caption = 'Situatia gateway indisponibila: ' + ; + IIF(EMPTY(lcEroareSituatie), 'motiv necunoscut (vezi LOG.txt).', lcEroareSituatie) + Thisform.LblProgres1.ForeColor = RGB(180,0,0) + ENDIF + + Thisform.GrdComenzi1.RecordSource = lcHeader + Thisform.GrdComenzi1.Refresh() + Thisform.ButSelecteazaTot1.Setup() + Thisform.ButSelecteazaTot1.nselectate = 0 + Thisform.ButSelecteazaTot1.schimba_caption() + + IF RECCOUNT(lcHeader) = 0 + Thisform.LblProgres1.Caption = 'Nu exista comenzi facturate in perioada aleasa.' + Thisform.ButTransmite1.Enabled = .F. + Thisform.ButValideazaDryrun1.Enabled = .F. + ELSE + Thisform.ButTransmite1.Enabled = Thisform.lpingok + Thisform.ButValideazaDryrun1.Enabled = Thisform.lpingok + ENDIF + + Thisform.recalculeaza_acoperire() + ENDPROC + + PROCEDURE incarca_lot_din_grid && Construieste array de obiecte {vin,nrinmat,data_prestatie,odometru_final,prestatii[],obs,id_ordl} pt un lot de max nMaxLot randuri bifate + * Construieste array de obiecte {vin,nrinmat,data_prestatie,odometru_final,prestatii[],obs,id_ordl} + * pentru AutopassClient.TrimiteLot()/Valideaza(), pe baza id_ordl-urilor primite (un lot, + * max nMaxLot elemente - impartirea pe loturi e responsabilitatea formei). + LPARAMETERS taIdLot + LOCAL lnCount, i, loComanda, lcDataPrest, laPrestatii(1), lnNrOp + LOCAL ARRAY laLot(1) + + lnCount = ALEN(taIdLot,1) + DIMENSION laLot(lnCount) + + FOR i = 1 TO lnCount + SELECT (Thisform.ccursorheader) + LOCATE FOR id_ordl = taIdLot(i) + + loComanda = CREATEOBJECT('empty') + ADDPROPERTY(loComanda, 'id_ordl', id_ordl) + ADDPROPERTY(loComanda, 'vin', ALLTRIM(series)) + ADDPROPERTY(loComanda, 'nrinmat', ALLTRIM(nrinmat)) + + DO CASE + CASE VARTYPE(dataoravalid) = 'T' + lcDataPrest = STR(YEAR(TTOD(dataoravalid)),4) + '-' + PADL(MONTH(TTOD(dataoravalid)),2,'0') + '-' + PADL(DAY(TTOD(dataoravalid)),2,'0') + CASE VARTYPE(dataoravalid) = 'D' + lcDataPrest = STR(YEAR(dataoravalid),4) + '-' + PADL(MONTH(dataoravalid),2,'0') + '-' + PADL(DAY(dataoravalid),2,'0') + OTHERWISE + lcDataPrest = '' + ENDCASE + ADDPROPERTY(loComanda, 'data_prestatie', lcDataPrest) + ADDPROPERTY(loComanda, 'odometru_final', kmint) + ADDPROPERTY(loComanda, 'obs', autopass_obs(nrord, nrfact)) + + lnNrOp = 0 + IF USED(Thisform.ccursordetaliu) + SELECT (Thisform.ccursordetaliu) + SCAN FOR id_ordl = taIdLot(i) AND lvalid_op + lnNrOp = lnNrOp + 1 + DIMENSION laPrestatii(lnNrOp) + laPrestatii(lnNrOp) = CREATEOBJECT('empty') + ADDPROPERTY(laPrestatii(lnNrOp), 'cod_op_service', ALLTRIM(codop)) + ADDPROPERTY(laPrestatii(lnNrOp), 'denumire', ALLTRIM(denop)) + ENDSCAN + ENDIF + IF lnNrOp = 0 + DIMENSION laPrestatii(1) + ENDIF + loComanda.AddProperty('prestatii') + loComanda.prestatii = laPrestatii + + laLot(i) = loComanda + ENDFOR + + RETURN laLot + ENDPROC + + PROCEDURE Init + LOCAL loConfig + + DODEFAULT() + + This.WindowState = 2 + + Thisform.ddatainceput = GOMONTH(DATE(), -1*(DAY(DATE())-1)) + Thisform.ddatasfarsit = DATE() + + Thisform.AddProperty('cMediuActual', '') + + loConfig = autopass_get_config() + Thisform.PnlConfigurare1.TxtUrl1.Value = loConfig.cUrlGateway + Thisform.PnlConfigurare1.TxtCheie1.Value = loConfig.cApiKey + DO CASE + CASE LOWER(ALLTRIM(loConfig.cRarEnv)) == 'test' + Thisform.PnlConfigurare1.CboMediu1.Value = 'Testare' + CASE LOWER(ALLTRIM(loConfig.cRarEnv)) == 'prod' + Thisform.PnlConfigurare1.CboMediu1.Value = 'Productie' + OTHERWISE + Thisform.PnlConfigurare1.CboMediu1.Value = 'Implicit cont (gol)' + ENDCASE + + Thisform.lconfigok = loConfig.lconfigok + IF !Thisform.lconfigok + Thisform.do_toggle_configurare() + Thisform.PnlConfigurare1.LblConfigMesaj1.Caption = 'Completeaza cheia API (si URL-ul, daca e nevoie) si apasa Salveaza.' + ENDIF + + *-- fail-closed pana raspunde ping-ul (US-004) + Thisform.ButTransmite1.Enabled = .F. + Thisform.ButValideazaDryrun1.Enabled = .F. + + Thisform.do_test_conexiune() + + Thisform.incarca_date() + ENDPROC + + PROCEDURE Load + * Precreeaza crs_autopass_comenzi INAINTE ca GrdComenzi1 sa fie instantiat (Load + * ruleaza inaintea obiectelor continute) - altfel coloanele cu ControlSource + * alias-calificat arunca "Alias not found" la deschiderea formei (Column1 are + * Sparse=.F., care forteaza rezolvarea eager a alias-ului la creare). + LOCAL lcHeader + + Thisform.ddatainceput = GOMONTH(DATE(), -1*(DAY(DATE())-1)) + Thisform.ddatasfarsit = DATE() + + lcHeader = autopass_cursor_comenzi(Thisform.ddatainceput, Thisform.ddatasfarsit) + IF !EMPTY(lcHeader) + autopass_cursor_operatii(lcHeader) + *-- lbifat/ncntop/cstatusro/cverdict sunt incluse direct la crearea cursorului in + *-- autopass_cursor_comenzi() - cursorul ramane "remote"-tainted, ALTER TABLE pica. + ENDIF + ENDPROC + + PROCEDURE obtine_id_bifate && Array cu id_ordl ale randurilor bifate din crs_autopass_comenzi + LPARAMETERS taId + LOCAL lnCount + + lnCount = 0 + IF USED(Thisform.ccursorheader) + SELECT (Thisform.ccursorheader) + SCAN FOR lbifat + lnCount = lnCount + 1 + DIMENSION taId(lnCount) + taId(lnCount) = id_ordl + ENDSCAN + ENDIF + + RETURN lnCount + ENDPROC + + PROCEDURE recalculeaza_acoperire && Recalculeaza N/M/K si actualizeaza LblAcoperire1 + * "Declarabile in perioada: N | Transmise (sent): M | Blocate/nedeclarabile: K" - + * singura metrica ce raspunde la "suntem conformi?" (US-004). + LOCAL lnDeclarabile, lnTransmise, lnBlocate + + lnDeclarabile = 0 + lnTransmise = 0 + lnBlocate = 0 + + IF USED(Thisform.ccursorheader) + SELECT (Thisform.ccursorheader) + COUNT FOR lvalid TO lnDeclarabile + COUNT FOR status_autopass == 'sent' TO lnTransmise + COUNT FOR !lvalid OR INLIST(status_autopass,'error','held','needs_mapping','needs_data') TO lnBlocate + ENDIF + + Thisform.LblAcoperire1.Caption = 'Declarabile in perioada: ' + TRANSFORM(lnDeclarabile) + ; + ' | Transmise: ' + TRANSFORM(lnTransmise) + ; + ' | Blocate/nedeclarabile: ' + TRANSFORM(lnBlocate) + Thisform.LblAcoperire1.ForeColor = IIF(lnBlocate > 0, RGB(180,0,0), RGB(0,0,0)) + ENDPROC + + PROCEDURE salveaza_config + LOCAL lcEnv, llOk + + DO CASE + CASE Thisform.PnlConfigurare1.CboMediu1.Value == 'Testare' + lcEnv = 'test' + CASE Thisform.PnlConfigurare1.CboMediu1.Value == 'Productie' + lcEnv = 'prod' + OTHERWISE + lcEnv = '' + ENDCASE + + llOk = autopass_salveaza_config(ALLTRIM(Thisform.PnlConfigurare1.TxtUrl1.Value), ; + ALLTRIM(Thisform.PnlConfigurare1.TxtCheie1.Value), lcEnv) + + IF !llOk + MESSAGEBOX('Salvarea configurarii AUTOPASS a esuat.', 48, 'AUTOPASS') + RETURN + ENDIF + + *-- config-ul se reciteste, ping-ul se reia automat, badge-ul si starea butoanelor + *-- se actualizeaza fara a inchide fereastra + Thisform.do_test_conexiune() + IF Thisform.lpingok + Thisform.do_actualizeaza_statusuri() + ENDIF + ENDPROC + + PROCEDURE ButActualizeaza1.Click + Thisform.do_actualizeaza_perioada() + ENDPROC + + PROCEDURE ButActualizeazaStatusuri1.Click + Thisform.do_actualizeaza_statusuri() + ENDPROC + + PROCEDURE ButConfigurare1.Click + Thisform.do_toggle_configurare() + ENDPROC + + PROCEDURE ButDeschideDashboard1.Click + Thisform.do_deschide_dashboard() + ENDPROC + + PROCEDURE ButRenuntaActiuni1.Click + * In timpul unei transmiteri/dry-run: opreste dupa lotul curent. Altfel: inchide fereastra + * (acelasi comportament ca BUT_TERMIN1 din titlu, mostenit din _frmbase). + IF Thisform.loperatieincurs + Thisform.lanulare = .T. + ELSE + Thisform.do_termin() + ENDIF + ENDPROC + + PROCEDURE ButTransmite1.Click + Thisform.do_transmite() + ENDPROC + + PROCEDURE ButValideazaDryrun1.Click + Thisform.do_valideaza_dryrun() + ENDPROC + + PROCEDURE GrdComenzi1.AfterRowColChange + LPARAMETERS nColIndex + IF USED(Thisform.ccursorheader) AND RECCOUNT(Thisform.ccursorheader) > 0 + SELECT (Thisform.ccursorheader) + Thisform.TxtMotivRand1.Value = ALLTRIM(motiv_invalid) + ; + IIF(!EMPTY(motiv_autopass), IIF(!EMPTY(motiv_invalid),' | ','') + ALLTRIM(motiv_autopass), '') + ENDIF + ENDPROC + + PROCEDURE PnlConfigurare1.ButAratacheie1.Click + Thisform.do_toggle_arata_cheie() + ENDPROC + + PROCEDURE PnlConfigurare1.ButSalveazaConfig1.Click + Thisform.salveaza_config() + ENDPROC + + PROCEDURE PnlConfigurare1.ButTestConexiune1.Click + Thisform.do_test_conexiune() + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_date_comenzi.sc2 b/Ferestre/frm_date_comenzi.sc2 new file mode 100644 index 0000000..53bedbd --- /dev/null +++ b/Ferestre/frm_date_comenzi.sc2 @@ -0,0 +1,1339 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_date_comenzi.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 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="grdCrsdatecomenzi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column19.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column19.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column21.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column21.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column25.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column25.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column26.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column26.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column27.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column27.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column28.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column28.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column29.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column29.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column30.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column30.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column31.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column31.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column32.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column32.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column33.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grdCrsdatecomenzi.Column33.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.ColumnTV.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.ColumnTV.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.ColumnTV.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column2.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column4.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column3.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Afficherniveau1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.ColumnTV.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.ColumnTV.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.ColumnTV.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.ColumnTV.Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column2.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column2.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column3.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column3.Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column4.Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Gridtreeview2.Column5.Label1" UniqueID="" Timestamp="" /> + + * + Caption = "Form1" + DoCreate = .T. + Height = 501 + Left = 0 + Name = "Form1" + Top = 0 + Width = 800 + * + + ADD OBJECT 'Afficherniveau1' AS afficherniveau WITH ; + Left = 13, ; + Name = "Afficherniveau1", ; + Top = 18, ; + CmdN0.Name = "CmdN0", ; + CmdN1.Name = "CmdN1", ; + CmdN2.Name = "CmdN2" + *< END OBJECT: ClassLib="..\comun\clase\gridtreeview.vcx" BaseClass="container" /> + + ADD OBJECT 'grdCrsdatecomenzi' AS _grdrow WITH ; + Anchor = 14, ; + ColumnCount = 33, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 87, ; + Left = 0, ; + Name = "grdCrsdatecomenzi", ; + RecordSource = "crsdatecomenzi", ; + RecordSourceType = 1, ; + TabIndex = 7, ; + Top = 408, ; + Width = 768, ; + ZOrderSet = 6, ; + Column1.ControlSource = "crsdatecomenzi.nrord", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column2.ControlSource = "crsdatecomenzi.id_part", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column3.ControlSource = "crsdatecomenzi.nume", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column4.ControlSource = "crsdatecomenzi.cod_fiscal", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column5.ControlSource = "crsdatecomenzi.datai", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column6.ControlSource = "crsdatecomenzi.asigurator", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "crsdatecomenzi.inspector", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "crsdatecomenzi.banca", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "Column8", ; + Column9.ControlSource = "crsdatecomenzi.cont_banca", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "Column9", ; + Column10.ControlSource = "crsdatecomenzi.adresa", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column11.ControlSource = "crsdatecomenzi.email", ; + Column11.FontName = "Arial Narrow", ; + Column11.Name = "Column11", ; + Column12.ControlSource = "crsdatecomenzi.telefon1", ; + Column12.FontName = "Arial Narrow", ; + Column12.Name = "Column12", ; + Column13.ControlSource = "crsdatecomenzi.telefon2", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "Column13", ; + Column14.ControlSource = "crsdatecomenzi.nr_dosar", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "Column14", ; + Column15.ControlSource = "crsdatecomenzi.validat", ; + Column15.FontName = "Arial Narrow", ; + Column15.Name = "Column15", ; + Column16.ControlSource = "crsdatecomenzi.id_masiniclient", ; + Column16.FontName = "Arial Narrow", ; + Column16.Name = "Column16", ; + Column17.ControlSource = "crsdatecomenzi.nrinmat", ; + Column17.FontName = "Arial Narrow", ; + Column17.Name = "Column17", ; + Column18.ControlSource = "crsdatecomenzi.series", ; + Column18.FontName = "Arial Narrow", ; + Column18.Name = "Column18", ; + Column19.ControlSource = "crsdatecomenzi.seriem", ; + Column19.FontName = "Arial Narrow", ; + Column19.Name = "Column19", ; + Column20.ControlSource = "crsdatecomenzi.culoare", ; + Column20.FontName = "Arial Narrow", ; + Column20.Name = "Column20", ; + Column21.ControlSource = "crsdatecomenzi.kmint", ; + Column21.FontName = "Arial Narrow", ; + Column21.Name = "Column21", ; + Column22.ControlSource = "crsdatecomenzi.id_masina", ; + Column22.FontName = "Arial Narrow", ; + Column22.Name = "Column22", ; + Column23.ControlSource = "crsdatecomenzi.id_marca", ; + Column23.FontName = "Arial Narrow", ; + Column23.Name = "Column23", ; + Column24.ControlSource = "crsdatecomenzi.marca", ; + Column24.FontName = "Arial Narrow", ; + Column24.Name = "Column24", ; + Column25.ControlSource = "crsdatecomenzi.masina", ; + Column25.FontName = "Arial Narrow", ; + Column25.Name = "Column25", ; + Column26.ControlSource = "crsdatecomenzi.semn", ; + Column26.FontName = "Arial Narrow", ; + Column26.Name = "Column26", ; + Column27.ControlSource = "crsdatecomenzi.id_lucrare", ; + Column27.FontName = "Arial Narrow", ; + Column27.Name = "Column27", ; + Column28.ControlSource = "crsdatecomenzi.codmat", ; + Column28.FontName = "Arial Narrow", ; + Column28.Name = "Column28", ; + Column29.ControlSource = "crsdatecomenzi.denumire", ; + Column29.FontName = "Arial Narrow", ; + Column29.Name = "Column29", ; + Column30.ControlSource = "crsdatecomenzi.cante", ; + Column30.FontName = "Arial Narrow", ; + Column30.Name = "Column30", ; + Column31.ControlSource = "crsdatecomenzi.pret", ; + Column31.FontName = "Arial Narrow", ; + Column31.Name = "Column31", ; + Column32.ControlSource = "crsdatecomenzi.data", ; + Column32.FontName = "Arial Narrow", ; + Column32.Name = "Column32", ; + Column33.ControlSource = "crsdatecomenzi.id", ; + Column33.FontName = "Arial Narrow", ; + Column33.Name = "Column33" + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column1.Header1' AS header WITH ; + Caption = "nrord", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column10.Header1' AS header WITH ; + Caption = "adresa", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column11.Header1' AS header WITH ; + Caption = "email", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column12.Header1' AS header WITH ; + Caption = "telefon1", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column13.Header1' AS header WITH ; + Caption = "telefon2", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column13.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 'grdCrsdatecomenzi.Column14.Header1' AS header WITH ; + Caption = "nr_dosar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column14.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 'grdCrsdatecomenzi.Column15.Header1' AS header WITH ; + Caption = "validat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column15.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 'grdCrsdatecomenzi.Column16.Header1' AS header WITH ; + Caption = "id_masinic", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column17.Header1' AS header WITH ; + Caption = "nrinmat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column17.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 'grdCrsdatecomenzi.Column18.Header1' AS header WITH ; + Caption = "series", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column18.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 'grdCrsdatecomenzi.Column19.Header1' AS header WITH ; + Caption = "seriem", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column19.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 'grdCrsdatecomenzi.Column2.Header1' AS header WITH ; + Caption = "id_part", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column20.Header1' AS header WITH ; + Caption = "culoare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column20.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 'grdCrsdatecomenzi.Column21.Header1' AS header WITH ; + Caption = "kmint", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column21.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 'grdCrsdatecomenzi.Column22.Header1' AS header WITH ; + Caption = "id_masina", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column22.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 'grdCrsdatecomenzi.Column23.Header1' AS header WITH ; + Caption = "id_marca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column23.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 'grdCrsdatecomenzi.Column24.Header1' AS header WITH ; + Caption = "marca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column24.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 'grdCrsdatecomenzi.Column25.Header1' AS header WITH ; + Caption = "masina", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column25.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 'grdCrsdatecomenzi.Column26.Header1' AS header WITH ; + Caption = "semn", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column26.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 'grdCrsdatecomenzi.Column27.Header1' AS header WITH ; + Caption = "id_lucrare", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column27.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 'grdCrsdatecomenzi.Column28.Header1' AS header WITH ; + Caption = "codmat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column28.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 'grdCrsdatecomenzi.Column29.Header1' AS header WITH ; + Caption = "denumire", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column29.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 'grdCrsdatecomenzi.Column3.Header1' AS header WITH ; + Caption = "nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column30.Header1' AS header WITH ; + Caption = "cante", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column30.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 'grdCrsdatecomenzi.Column31.Header1' AS header WITH ; + Caption = "pret", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column31.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 'grdCrsdatecomenzi.Column32.Header1' AS header WITH ; + Caption = "data", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column32.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 'grdCrsdatecomenzi.Column33.Header1' AS header WITH ; + Caption = "id", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.Column33.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 'grdCrsdatecomenzi.Column4.Header1' AS header WITH ; + Caption = "cod_fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column5.Header1' AS header WITH ; + Caption = "datai", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column6.Header1' AS header WITH ; + Caption = "asigurator", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column7.Header1' AS header WITH ; + Caption = "inspector", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column8.Header1' AS header WITH ; + Caption = "banca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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 'grdCrsdatecomenzi.Column9.Header1' AS header WITH ; + Caption = "cont_banca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grdCrsdatecomenzi.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.gridtreeview1, ; + Left = 179, ; + Name = "Gridextra1", ; + Top = 11 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Gridtreeview1' AS gridtreeview WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + FontName = "Arial", ; + GridLines = 3, ; + HeaderHeight = 35, ; + Height = 240, ; + Left = 12, ; + Name = "Gridtreeview1", ; + niveau0 = cle1, ; + niveau1 = cle2, ; + niveau2 = cle3, ; + Panel = 1, ; + RecordMark = .T., ; + RecordSource = "commandes", ; + RecordSourceType = 1, ; + ScrollBars = 3, ; + Top = 36, ; + Width = 768, ; + ColumnTV.ControlSource = "", ; + ColumnTV.FontName = "Arial", ; + ColumnTV.HeaderTV.Caption = "Client - Masina / Comanda / Articol", ; + ColumnTV.HeaderTV.FontName = "Arial", ; + ColumnTV.HeaderTV.Name = "HeaderTV", ; + ColumnTV.Name = "ColumnTV", ; + ColumnTV.Width = 260, ; + Column2.Bound = .F., ; + Column2.CurrentControl = "Text1", ; + Column2.DynamicCurrentControl = 'iif(niveau=0,"label1",iif(niveau=1,"text2",iif(niveau=2,"text3","")))', ; + Column2.DynamicInputMask = "", ; + Column2.FontName = "Arial", ; + Column2.Name = "Column2", ; + Column2.Sparse = .F., ; + Column2.Width = 109, ; + Column3.Bound = .F., ; + Column3.ColumnOrder = 4, ; + Column3.DynamicCurrentControl = 'iif(niveau=0,"label1",iif(niveau=2,"text2",""))', ; + Column3.FontName = "Arial", ; + Column3.Name = "Column4", ; + Column3.Sparse = .F., ; + Column4.Bound = .F., ; + Column4.ColumnOrder = 5, ; + Column4.DynamicCurrentControl = 'iif(niveau=2,"text1","label1")', ; + Column4.FontName = "Arial", ; + Column4.Name = "Column3", ; + Column4.Sparse = .F., ; + Column5.ColumnOrder = 3, ; + Column5.ControlSource = "cante", ; + Column5.DynamicCurrentControl = 'iif(niveau=2, "text1", "")', ; + Column5.FontName = "Arial", ; + Column5.Name = "Column1", ; + Column5.ReadOnly = .T., ; + Column5.Width = 55 + *< END OBJECT: ClassLib="..\comun\clase\gridtreeview.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridtreeview1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.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 'Gridtreeview1.Column2.Header1' AS header WITH ; + Caption = "Data Comanda / Cod Material", ; + FontName = "Arial", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.Column2.Label1' AS label WITH ; + Caption = "", ; + Height = 17, ; + Left = 76, ; + Name = "Label1", ; + Top = 107, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Gridtreeview1.Column2.Text1' AS textbox WITH ; + Alignment = 3, ; + BorderStyle = 0, ; + ControlSource = "cod_fiscal", ; + FontName = "Arial", ; + Format = "!K", ; + Height = 10, ; + Left = 26, ; + Margin = 1, ; + Name = "Text1", ; + Top = 29, ; + Width = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column2.Text2' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "datai", ; + Format = "!KD", ; + Height = 10, ; + InputMask = "", ; + Left = 38, ; + Name = "Text2", ; + Top = 29, ; + Width = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column2.Text3' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "codmat", ; + Format = "!K", ; + Height = 23, ; + Left = 40, ; + Name = "Text3", ; + Top = 83, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.Column3.Label1' AS label WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + Caption = "", ; + Height = 17, ; + Left = 31, ; + Name = "Label1", ; + Top = 83, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Gridtreeview1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "data", ; + DateFormat = 11, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Format = "DZK", ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview1.Column4.Label1' AS label WITH ; + Caption = "", ; + Height = 17, ; + Left = 11, ; + Name = "Label1", ; + Top = 95, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Gridtreeview1.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "telefon1", ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Format = "RK", ; + InputMask = "UUUUUUUUUUUUUUUU", ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.Column4.Text2' AS textbox WITH ; + Alignment = 1, ; + BorderStyle = 0, ; + ControlSource = "pret", ; + Format = "RK", ; + Height = 23, ; + InputMask = "999 999 999.99", ; + Left = 23, ; + Name = "Text2", ; + Top = 71, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.ColumnTV.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.ColumnTV.Text2' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text2" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview1.ColumnTV.Text3' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text3" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2' AS gridtreeview WITH ; + Anchor = 14, ; + ColumnCount = 5, ; + FontName = "Arial", ; + GridLines = 3, ; + HeaderHeight = 35, ; + Height = 112, ; + Left = 12, ; + Name = "Gridtreeview2", ; + niveau0 = cle1, ; + niveau1 = cle2, ; + niveau2 = cle3, ; + Panel = 1, ; + RecordMark = .T., ; + RecordSource = "commandes", ; + RecordSourceType = 1, ; + ScrollBars = 3, ; + Top = 288, ; + Width = 768, ; + ColumnTV.ControlSource = "", ; + ColumnTV.FontName = "Arial", ; + ColumnTV.HeaderTV.Caption = "Client / Comanda / Articol", ; + ColumnTV.HeaderTV.FontName = "Arial", ; + ColumnTV.HeaderTV.Name = "HeaderTV", ; + ColumnTV.Name = "ColumnTV", ; + ColumnTV.Width = 260, ; + Column2.Bound = .F., ; + Column2.CurrentControl = "Text1", ; + Column2.DynamicCurrentControl = 'iif(niveau=0,"text1",iif(niveau=1,"text2",iif(niveau=2,"text3","")))', ; + Column2.DynamicInputMask = "", ; + Column2.FontName = "Arial", ; + Column2.Name = "Column2", ; + Column2.Sparse = .F., ; + Column2.Width = 109, ; + Column3.Bound = .F., ; + Column3.CurrentControl = "Text1", ; + Column3.DynamicCurrentControl = 'iif(niveau=0,"text1",iif(niveau=1,"text2",iif(niveau=2,"text3","")))', ; + Column3.DynamicInputMask = "", ; + Column3.FontName = "Arial", ; + Column3.Name = "Column3", ; + Column3.Sparse = .F., ; + Column3.Width = 86, ; + Column4.Bound = .F., ; + Column4.DynamicCurrentControl = 'iif(niveau=0,"text1",iif(niveau=2,"text2",""))', ; + Column4.FontName = "Arial", ; + Column4.Name = "Column4", ; + Column4.Sparse = .F., ; + Column5.Bound = .F., ; + Column5.DynamicCurrentControl = 'iif(niveau=2,"text1","label1")', ; + Column5.FontName = "Arial", ; + Column5.Name = "Column5", ; + Column5.Sparse = .F. + *< END OBJECT: ClassLib="..\comun\clase\gridtreeview.vcx" BaseClass="grid" /> + + ADD OBJECT 'Gridtreeview2.Column2.Header1' AS header WITH ; + Caption = "Cod fiscal / Data Com. / Cod Mat.", ; + FontName = "Arial", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview2.Column2.Text1' AS textbox WITH ; + Alignment = 3, ; + BorderStyle = 0, ; + ControlSource = "cod_fiscal", ; + FontName = "Arial", ; + Format = "!K", ; + Height = 10, ; + Left = 26, ; + Margin = 1, ; + Name = "Text1", ; + Top = 29, ; + Width = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column2.Text2' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "datai", ; + Format = "!KD", ; + Height = 10, ; + InputMask = "", ; + Left = 38, ; + Name = "Text2", ; + Top = 29, ; + Width = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column2.Text3' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "codmat", ; + Format = "!K", ; + Height = 23, ; + Left = 40, ; + Name = "Text3", ; + Top = 83, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column3.Header1' AS header WITH ; + Caption = "Email / Nr. inmatr. / Cantitate", ; + FontName = "Arial", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview2.Column3.Text1' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "email", ; + FontName = "Arial", ; + Format = "RK", ; + InputMask = "WWWWWWWWWWWWWWWWWWWWWW", ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column3.Text2' AS textbox WITH ; + BorderStyle = 0, ; + ControlSource = "nrinmat", ; + Format = "RK", ; + Height = 23, ; + InputMask = "UUUUUUUUUUUUUUUUUUUU", ; + Left = 26, ; + Name = "Text2", ; + Top = 95, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column3.Text3' AS textbox WITH ; + Alignment = 1, ; + BorderStyle = 0, ; + ControlSource = "cante", ; + Format = "RK", ; + Height = 10, ; + InputMask = "999 999 999.99", ; + Left = 26, ; + Name = "Text3", ; + Top = 95, ; + Width = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon / Pret", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview2.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "telefon1", ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Format = "RK", ; + InputMask = "UUUUUUUUUUUUUUUU", ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column4.Text2' AS textbox WITH ; + Alignment = 1, ; + BorderStyle = 0, ; + ControlSource = "pret", ; + Format = "RK", ; + Height = 23, ; + InputMask = "999 999 999.99", ; + Left = 23, ; + Name = "Text2", ; + Top = 71, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Gridtreeview2.Column5.Label1' AS label WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + Caption = "", ; + Height = 17, ; + Left = 31, ; + Name = "Label1", ; + Top = 83, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Gridtreeview2.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "data", ; + DateFormat = 11, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Format = "DZK", ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.ColumnTV.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.ColumnTV.Text2' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text2" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.ColumnTV.Text3' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text3" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Gridtreeview2.ColumnTV.Text4' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text4" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Init + THIS.Gridtreeview1.SetAll("DynamicForeColor", "IIF(SEMN = 'A', RGB(0,200,100), IIF(SEMN = 'B', RGB(0,100,250), RGB(0,0,0)))", "Column") + this.gridextra1.setup() + ENDPROC + + PROCEDURE Load + SET PATH TO "d:\roa\roaauto\comun\clase\" addi + TEXT TO lcSql NOSHOW + select nrord, + id_part, + nume, + cod_fiscal, + datai, + asigurator, + inspector, + banca, + cont_banca, + adresa, + email, + telefon1, + telefon2, + nr_dosar, + validat, + id_masiniclient, + nrinmat, + series, + seriem, + culoare, + kmint, + id_masina, + id_marca, + marca, + masina, + semn, + id_lucrare, + codmat, + denumire, + cante, + pret, + data, + id + from auto_analiza_comenzi + WHERE UPPER(nume) LIKE '%ROM%' + ORDER BY NUME, DATAI, NRORD, SEMN, DENUMIRE + ENDTEXT + + * AND DENUMIRE LIKE '%ULEI%' + + lnHandle = SQLConnect("roa_central","mariusm_auto", "romfastsoft") + lnSucces = SQLExec(lnHandle, lcSql, "crsDateComenzi") + + lnTip = 2 && client-masina/comanda/articol + Do Case + Case lnTip = 1 && client/comanda/articol + Select nume As cle1, nrord As cle2, denumire As cle3, 2 As niveau, "" As expanded, .F. As Visible, ; + cod_fiscal, email, telefon1, ; + TTOD(datai) As datai, nrinmat, ; + semn, codmat, cante, Pret, Ttod(Data) As Data ; + FROM crsDateComenzi ; + order By nume, datai, semn, denumire ; + into Cursor Commandes Readwrite + + Select Distinct cle1, 0 As niveau, "N" As expanded, .T. As Visible, ; + cod_fiscal, email, telefon1 ; + from Commandes Into Cursor c0 + + Select Distinct cle1, cle2, 1 As niveau, "N" As expanded, .F. As Visible, ; + datai, nrinmat ; + from Commandes Into Cursor c1 + + Case lnTip = 2 && client-masina/comanda/articol + Select PADR(ALLTRIM(nume) + ' - ' + ALLTRIM(nrinmat), 70, ' ') As cle1, nrord As cle2, denumire As cle3, 2 As niveau, "" As expanded, .F. As Visible, ; + cod_fiscal, email, telefon1, ; + TTOD(datai) As datai, ; + semn, codmat, cante, Pret, Ttod(Data) As Data ; + FROM crsDateComenzi ; + order By nume, datai, semn, denumire ; + into Cursor Commandes Readwrite + + Select Distinct cle1, 0 As niveau, "N" As expanded, .T. As Visible, ; + cod_fiscal, email, telefon1 ; + from Commandes Into Cursor c0 + + Select Distinct cle1, cle2, 1 As niveau, "N" As expanded, .F. As Visible, ; + datai ; + from Commandes Into Cursor c1 + + Otherwise && client/masina/articol + Select nume As cle1, nrinmat As cle2, denumire As cle3, 2 As niveau, "" As expanded, .F. As Visible, ; + cod_fiscal, email, telefon1, ; + TTOD(datai) As datai, nrord, ; + semn, codmat, cante, Pret, Ttod(Data) As Data ; + FROM crsDateComenzi ; + order By nume, nrinmat, semn, Data, denumire ; + into Cursor Commandes Readwrite + + Select Distinct cle1, 0 As niveau, "N" As expanded, .T. As Visible, ; + cod_fiscal, email, telefon1 ; + from Commandes Into Cursor c0 + + Select Distinct cle1, cle2, 1 As niveau, "N" As expanded, .F. As Visible, ; + datai, nrord ; + from Commandes Into Cursor c1 + + Endcase + Select Commandes + Append From Dbf("c0") + Append From Dbf("c1") + Index On cle1+cle2+semn+cle3 Tag Id + Use In (Select('c0')) + Use In (Select('c1')) + Select Commandes + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/fundal.sc2 b/Ferestre/fundal.sc2 new file mode 100644 index 0000000..637e2b0 --- /dev/null +++ b/Ferestre/fundal.sc2 @@ -0,0 +1,477 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS form1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine03" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine04" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine05" UniqueID="" Timestamp="" /> + + * + *m: arata_meniu_fluna + *m: statusbarclick + *p: ostatusbar + * + + * + AlwaysOnBottom = .T. + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 0 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Enabled = .T. + FillColor = 0,0,0 + HalfHeightCaption = .F. + Height = 429 + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "Form1" + ostatusbar = + Picture = ..\..\ + ShowTips = .T. + Themes = .F. + Width = 797 + WindowState = 2 + * + + ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ; + ErasePage = .T., ; + Height = 457, ; + Left = -2, ; + Name = "_pgfrmbase1", ; + Top = 60, ; + Page1.Cw1.Label_item1.Name = "Label_item1", ; + Page1.Cw1.Name = "Cw1", ; + Page1.Cw10.Label_item1.Name = "Label_item1", ; + Page1.Cw10.Name = "Cw10", ; + Page1.Cw11.Label_item1.Name = "Label_item1", ; + Page1.Cw11.Name = "Cw11", ; + Page1.Cw12.Label_item1.Name = "Label_item1", ; + Page1.Cw12.Name = "Cw12", ; + Page1.Cw13.Label_item1.Name = "Label_item1", ; + Page1.Cw13.Name = "Cw13", ; + Page1.Cw2.Label_item1.Name = "Label_item1", ; + Page1.Cw2.Name = "Cw2", ; + Page1.Cw3.Label_item1.Name = "Label_item1", ; + Page1.Cw3.Name = "Cw3", ; + Page1.Cw4.Label_item1.Name = "Label_item1", ; + Page1.Cw4.Name = "Cw4", ; + Page1.Cw5.Label_item1.Name = "Label_item1", ; + Page1.Cw5.Name = "Cw5", ; + Page1.Cw7.Label_item1.Name = "Label_item1", ; + Page1.Cw7.Name = "Cw7", ; + Page1.Cw8.Label_item1.Name = "Label_item1", ; + Page1.Cw8.Name = "Cw8", ; + Page1.Cw9.Label_item1.Name = "Label_item1", ; + Page1.Cw9.Name = "Cw9", ; + Page1.Name = "Page1", ; + Page1.Pict_liniuta1.Name = "Pict_liniuta1", ; + Page1.Pict_liniuta2.Name = "Pict_liniuta2", ; + Page1.Pict_meniu1.Name = "Pict_meniu1", ; + Page2.Cw1.Label_item1.Name = "Label_item1", ; + Page2.Cw1.Name = "Cw1", ; + Page2.Cw2.Label_item1.Name = "Label_item1", ; + Page2.Cw2.Name = "Cw2", ; + Page2.Cw3.Label_item1.Name = "Label_item1", ; + Page2.Cw3.Name = "Cw3", ; + Page2.Cw4.Label_item1.Name = "Label_item1", ; + Page2.Cw4.Name = "Cw4", ; + Page2.Cw5.Label_item1.Name = "Label_item1", ; + Page2.Cw5.Name = "Cw5", ; + Page2.Cw6.Label_item1.Name = "Label_item1", ; + Page2.Cw6.Name = "Cw6", ; + Page2.Cw7.Label_item1.Name = "Label_item1", ; + Page2.Cw7.Name = "Cw7", ; + Page2.Cw8.Label_item1.Name = "Label_item1", ; + Page2.Cw8.Name = "Cw8", ; + Page2.Name = "Page2", ; + Page2.Pict_liniuta1.Name = "Pict_liniuta1", ; + Page2.Pict_liniuta2.Name = "Pict_liniuta2", ; + Page2.Pict_liniuta3.Name = "Pict_liniuta3", ; + Page2.Pict_liniuta4.Name = "Pict_liniuta4", ; + Page2.Pict_meniu1.Name = "Pict_meniu1", ; + Page3.Cw1.Label_item1.Name = "Label_item1", ; + Page3.Cw1.Name = "Cw1", ; + Page3.Cw2.Label_item1.Name = "Label_item1", ; + Page3.Cw2.Name = "Cw2", ; + Page3.Cw3.Label_item1.Name = "Label_item1", ; + Page3.Cw3.Name = "Cw3", ; + Page3.Cw4.Label_item1.Name = "Label_item1", ; + Page3.Cw4.Name = "Cw4", ; + Page3.Cw5.Label_item1.Name = "Label_item1", ; + Page3.Cw5.Name = "Cw5", ; + Page3.Cw6.Label_item1.Name = "Label_item1", ; + Page3.Cw6.Name = "Cw6", ; + Page3.Cw7.Label_item1.Name = "Label_item1", ; + Page3.Cw7.Name = "Cw7", ; + Page3.Cw8.Label_item1.Name = "Label_item1", ; + Page3.Cw8.Name = "Cw8", ; + Page3.Cw9.Label_item1.Name = "Label_item1", ; + Page3.Cw9.Name = "Cw9", ; + Page3.Name = "Page3", ; + Page3.Pict_liniuta1.Name = "Pict_liniuta1", ; + Page3.Pict_liniuta2.Name = "Pict_liniuta2", ; + Page3.Pict_liniuta3.Name = "Pict_liniuta3", ; + Page3.Pict_meniu1.Name = "Pict_meniu1", ; + Page4.Cw1.Label_item1.Name = "Label_item1", ; + Page4.Cw1.Name = "Cw1", ; + Page4.Cw2.Label_item1.Name = "Label_item1", ; + Page4.Cw2.Name = "Cw2", ; + Page4.Cw3.Label_item1.Name = "Label_item1", ; + Page4.Cw3.Name = "Cw3", ; + Page4.Cw4.Label_item1.Name = "Label_item1", ; + Page4.Cw4.Name = "Cw4", ; + Page4.Cw5.Label_item1.Name = "Label_item1", ; + Page4.Cw5.Name = "Cw5", ; + Page4.Cw6.Label_item1.Name = "Label_item1", ; + Page4.Cw6.Name = "Cw6", ; + Page4.Name = "Page4", ; + Page4.Pict_liniuta1.Name = "Pict_liniuta1", ; + Page4.Pict_meniu1.Name = "Pict_meniu1", ; + Page5.Cw1.Label_item1.Name = "Label_item1", ; + Page5.Cw1.Name = "Cw1", ; + Page5.Cw2.Label_item1.Name = "Label_item1", ; + Page5.Cw2.Name = "Cw2", ; + Page5.Cw3.Label_item1.Name = "Label_item1", ; + Page5.Cw3.Name = "Cw3", ; + Page5.Name = "Page5", ; + Page5.Pict_meniu1.Name = "Pict_meniu1" + *< END OBJECT: ClassLib="..\clase\ofundal_dev.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'Image1' AS image WITH ; + Height = 220, ; + Left = 228, ; + Name = "Image1", ; + Picture = ..\grafice\roaauto.bmp, ; + Stretch = 0, ; + Top = 205, ; + Width = 556 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + Height = 63, ; + Left = -11, ; + Name = "Image2", ; + Picture = ..\comun\grafice\f1.jpg, ; + Stretch = 2, ; + Top = -1, ; + Width = 851 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Imagine01' AS imagine WITH ; + ccod = A01, ; + Height = 48, ; + Left = 13, ; + Name = "Imagine01", ; + nid_img = 1, ; + ntip = 0, ; + picturedown = clie2.bmp, ; + pictureup = clie1.bmp, ; + ToolTipText = "Clienti", ; + Top = 7, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine02' AS imagine WITH ; + ccod = B01, ; + Height = 48, ; + Left = 74, ; + Name = "Imagine02", ; + nid_img = 2, ; + ntip = 0, ; + picturedown = gene2.bmp, ; + pictureup = gene1.bmp, ; + ToolTipText = "Generare (F5)", ; + Top = 7, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine03' AS imagine WITH ; + ccod = B02, ; + Height = 48, ; + Left = 136, ; + Name = "Imagine03", ; + nid_img = 3, ; + ntip = 0, ; + picturedown = norm2.bmp, ; + pictureup = norm1.bmp, ; + ToolTipText = "Normare (F6)", ; + Top = 7, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine04' AS imagine WITH ; + ccod = B03, ; + Height = 48, ; + Left = 198, ; + Name = "Imagine04", ; + nid_img = 4, ; + ntip = 0, ; + picturedown = valid2.bmp, ; + pictureup = valid1.bmp, ; + ToolTipText = "Validare (F7)", ; + Top = 7, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine05' AS imagine WITH ; + ccod = C01, ; + Height = 48, ; + Left = 260, ; + Name = "Imagine05", ; + nid_img = 5, ; + ntip = 0, ; + picturedown = fact2.bmp, ; + pictureup = fact1.bmp, ; + ToolTipText = "Emitere facturi (F8)", ; + Top = 7, ; + Width = 60 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label1", ; + Top = 381, ; + Width = 53 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nivel de acces:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label2", ; + Top = 401, ; + Width = 85 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ; + Anchor = 4, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Left = 142, ; + Name = "lb_utilizator", ; + Top = 379 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ; + Anchor = 4, ; + Caption = "nume_utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Left = 196, ; + Name = "lb_utilizator1", ; + Top = 379, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 62, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 380, ; + Width = 147 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "m.nivel", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 93, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 400, ; + Width = 28 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + *!* THISFORM.AUTOCENTER=.T. + Local lnScrH,lnScrW + lnScrW = _Screen.Width + lnScrH = _Screen.Height + + Thisform.image1.Top = lnScrH - Thisform.image1.Height - 50 + Thisform.image1.Left = lnScrW - Thisform.image1.Width - 30 + Thisform.image2.Width = lnScrW + 30 + Thisform._pgfrmbase1.Width = lnScrW + Thisform._pgfrmbase1.Height = Thisform.Height-Thisform.image2.Height + Thisform._pgfrmbase1.page1.Pict_meniu1.Height = Thisform._pgfrmbase1.Height + Thisform._pgfrmbase1.page2.Pict_meniu1.Height = Thisform._pgfrmbase1.Height + Thisform._pgfrmbase1.page3.Pict_meniu1.Height = Thisform._pgfrmbase1.Height + Thisform._pgfrmbase1.page4.Pict_meniu1.Height = Thisform._pgfrmbase1.Height + Thisform._pgfrmbase1.page5.Pict_meniu1.Height = Thisform._pgfrmbase1.Height + ENDPROC + + PROCEDURE arata_meniu_fluna + Do start_firma In ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + Do Case + Case nKeyCode==-1 &&F2 + Do IESIRE + Case nKeyCode = -4 && F5 + && am apelat click pentru ca utilizatorul s-ar putea sa nu aiba drepturi pe optiunea respectiva, + && iar daca nu are, atunci nu poate sa faca click + Thisform._pgfrmbase1.ActivePage = 2 + Thisform._pgfrmbase1.page2.cw1.Click() + Case nKeyCode = -5 && F6 + Thisform._pgfrmbase1.ActivePage = 2 + Thisform._pgfrmbase1.page2.cw2.Click() + Case nKeyCode = -6 && F7 + Thisform._pgfrmbase1.ActivePage = 2 + Thisform._pgfrmbase1.page2.cw3.Click() + Case nKeyCode = -7 && F8 + Thisform._pgfrmbase1.ActivePage = 3 + Thisform._pgfrmbase1.page3.cw1.Click() + Otherwise + DoDefault(nKeyCode, nShiftAltCtrl) + Endcase + + + ENDPROC + + PROCEDURE RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE Show + Lparameters nStyle + DoDefault(nStyle) + This.AlwaysOnBottom = .T. + + *!* modificare v 2.0.5 + If Not Pemstatus(_Screen,"StatusBar", 5) Then + _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 2) + Endif + Thisform.oStatusBar = _Screen.StatusBar + Thisform.oStatusBar.ctlIcon="roaautomic.ico" + Thisform.oStatusBar.ctlMessage = _Screen.Caption + Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick]) + *!* modificare v 2.0.5 ^ + + Thisform.arata_meniu_fluna() + primadata = .F. + Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp) + Thisform.lb_utilizator1.Visible=.T. + Do lansare_toolbar In oproceduri_comune.prg + DO lansare_help IN oproceduri_comune.prg + ENDPROC + + PROCEDURE statusbarclick + Thisform.oStatusBar.newtooltip() + ENDPROC + + PROCEDURE Image1.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE Imagine01.do_actiune + DO viz_clienti IN onom_devize.prg + ENDPROC + + PROCEDURE Imagine02.do_actiune + DO generare_com IN oproceduri_devize.prg + ENDPROC + + PROCEDURE Imagine03.do_actiune + DO normare_comanda IN oproceduri_devize.prg + ENDPROC + + PROCEDURE Imagine04.do_actiune + DO validare_comenzi IN oproceduri_vizualizare.prg + ENDPROC + + PROCEDURE Imagine05.do_actiune + DO emitere_facturi IN oproceduri_vizualizare.prg + ENDPROC + + PROCEDURE lb_utilizator.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE lb_utilizator1.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page1.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page2.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page3.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page4.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page5.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + +ENDDEFINE diff --git a/Formulare/AUTOHAUS/20070911/sigla.jpg b/Formulare/AUTOHAUS/20070911/sigla.jpg new file mode 100644 index 0000000000000000000000000000000000000000..e5c97e99c5fe8fe822c600b55c2dc27cc43b30c5 GIT binary patch literal 6067 zcmc(DXHe7IxAqU|3WO>kB?|F?(xi$UAR>n@MHE6uMWqQy4>i&|2nZ-hk=`RxrGxY$ zCG;XD^qx=yq+HH_-g)PKd*3g2?%w;unptc1Gi$GT_B?BmXUKm5W^HvXb%26`0(gG8 z0rEVc3eeHe(9%%T(bCe=)6-pLU}t2wc8!6Xl?}wscLU7NcY~MrCPZB5rhup*FR$?Z zJEHd_Wn^T)LJySWr4+@bWu(aMz%@D`2gstJU;)To02lx$s4pS@MfpFA;tC}dH4QBt z{ncxi0kzD)6$(nqD^!%!)KpZL(E*o!fQp5h^_HXx4cn6!v;wZ|QbCDd=>#8Db#NGt zVIk5l-Gb?_UgzZEzH$36A>liBWn|^<%Rf+1{YOn*LsLup=`$l^n2D*G&8ydMZ0+nF z+&w(Kyx~5+A)#U65s^{RNy#5mQqw+tPS4HDFDNW3E-C$9T~k|E-|(Zc^JiCgPj6rU zz&L7Ra%y^Jb`FhMURhmR-`L#39ULAVpPb^)&dGBC-M{%jf&9Js`8DUFmivAPpEia2 z^`{w!dH+LZ$#btm(9oii0}Lh0xJwH1oFD^(*U7+D{heV|lD~M{{vaX@JewXtz*{1g zQZF6QYFW@3wvi09iILb5ZydmfXiqW_Xig9&4NXATJGV)Mdi)dO=VHW2*fjCX1)Fyv zZ9oRHuOTlEme3j}Z@!WNWlrnU)wa%r|4ob}Mmd6}`wLGL30{wfjj}&c`|pQiCF^f| zM*tdp-NJ6v{`$0JS7fKg=Z~2KpobzEWFS0z61rhsO$OS-FP~&$tj$iuzA{P7QQgtb z^Aw?+ZYsnV=B>wB zzkQdj?qdDo9F~dr`4FD*YmxZ5z{lqzW{`&WSlm!))iHTyBznO)L@3r1#=& zHY&Dv5N7-P`xPF8^!vy+nqoPR4m8)pt~B4bBIZck*j&bv(yo|?gry&fj_lX4By^>R zXcBWgO^S@BWMa%Cr4MDxxE2DbJ|MJDvKjH&I=DAUjq%A3Qu*fjOucHH7EQbqr#RzV z|FY+&GpbKCJ2Xu6zMcP=W^CpMiRC<7`=A722V#|(&mBLiiGjL?R1r==tCq-MlAQfH zamUQ7+M&^DAz#$6Y%gr)h+DDb9Jg2jREnE}GUJ2@<3<&{ixtcGIomIJLSA-hxWx>%X+Jzj)fZZ};f>EfItf z^a$HC{x@GwG8-=Rvw!VdHq0lyg$2Vy)LO6!QF|Vf-MBb3p?3J{;_hZ*1Nf(J!gw2Fwt|E^{(A$<18ScFF_@%@Si*GQe? ztgL^JCLSea(jX{hG5}HM>oC;ZT(H4a{uXhP?g(T{dHcuYt;dCT^7E~E6-e^J z7f)o8v$!mX1D;s;;d3pc`X7qq$xnYkIe!AE1Lz9~OxVo2)DI3U`aW>jX&S$~(D0HS zEfC;tv6|3MH{F$7yH_}pD@YT@7L^ZPv>9_n2`29vwb==$QlcB4{w)~)+9FAhreos3 zA-lcBTWbt#p-@=hXuB5a-==JkQPn0tVwKw{5t}7E>WQErrs++IR<2)I=&t^hs(x-O zbfrN*7<^!uLk5thZ6AnD&d9rG%tah zpK`)@6ZV}(4g^|Y=)y3k3IbQ{__1beYJH#=O#Y@%1QmZ5OQO}kl?;TS3KMIhZcgmF zX~$t6JUpch4h(P5iIHH2Lk;y6cy>5y+m3AO>th*0If>RN6c|IMRr z3VD(sdo_uNzfFYl=oAUT^5V?l7Z1~4QaSqZYi&rqgBptL+!g6;vr9N8fysauf|%5t zr;4qt$Jjtmz-sY#Ag4Bl2J23-fy0h2bAREfQ z*KDQPbJ-EeyUk*~FxTtwL2XryRq`!El9o_OKhgrPf)>g~x0W!Ku-$I08Dimje&**D zLD17YzlyW8(VA@Lz`Uvb((mGDe=~_571s_|TxI4;`&fgNsSzgOm)Gl9De7;9p# z@B8Kn%s%WnP|`;}L|i=>q4$4{qm8&}uG22-c>5yPTi_Xg&{^O4T8Y0JK0zqqMnBD$ zI^&a!&nn4&)pF9wK|#IRM~EQh8(Cn`R(i@2wbQXu)j#o)t+I@%=d3ee?E{G$c)in( zEJ%9iYgcEJmV6>r;(9Qscq3rDW}Kw7eWLKv+;Vd&4b{_Ryt+}gklH65^6NTEm6aG%e2isQSK;W~2Gc3>lrPBa7AbuxckB73$|Xcx zYC3=B3+q7A*uz8~RHfo3R@GJtCcvj~S{%pH-BN*EVWTJSbDmRdK9h|DJ)Yh%8#MkN zzPE7rUF{dBSV`rSqkR|)?l>530UL(7XN!qbfJ>9lr_IqwDmbE3Q$4XL-|*YdUn|Y! zN;8KEFS_q{^V5zJUQSh%cZe3w+>3ct{%JAxXnWKUZ{2|StEpN<9b5!)!jt$E4at)ad zc0}fWuia<0=jZx%;aug%R}MjYyZs8_(0~v{f?X1_*i7rh>WatKiO+)`5@OyoSu?_W zAK{#ubn=!ULm^U++RLMkpN=e#*W2Yr3+F~3IFf;=xk+SqJ~r2EmWQS(n(~&$q1-pB zFMB;cM@ZBE1c|J<#7sK{;7luI@8m~!F7-!gt`A1Nw|%bU15NSm$-o|>>q-hmeFMV6 zR@9)=Y7cyr3xfJ&6VcfrLO-(ag!`gvo?<-r#L4 z%pH27H-ph{5y^^%j$CODmWauMPOqdQKzN4-VuFfiUI)4fFWZB%b1KW)!JM$JxtuZC zvfJM#c?6_FLlYy6I#$g?Iw}(|5;5Y^HSg_XH4E) zK!Q%K!k6e_n$Eu()jF3JnS*{Qc+l@beUx)4ej6ZoEN8f&9!^T z0L!(T8&aqb->LmzB+yW2I-kWUk_2T!+&vtj@P9f4cklWLyub#DwfZvZWa)Mhbn9syLdq7wF9E0Wia~*Uf@C+_pAj&%FO? z)?Qym#K@YL=!N8Ti7l_YBpo(@cRAWQCjFuKUT~BrWbC-iWT%#%Y35aIwzx5A4|I1a z%dreM9e+dyDDAae-QrxmABecTjiBz^(%Q+3&GtRmXchHWpAegW`VBjwUnH)#Qj>zB zL=I;K<~A)wShMXazJpX}Etqb7D?AC6TS@f$&fn}!dt6D1#wdDY2X$~A@oQRHgHNKo z#D*Mr+{l1uS_2`@N9j_Nwq4(JJDby8EtusE4>u0hpH7%6z~1k&W`nzTe}nsVxh?2B zA6C>MbE}WqXekKwW?;So=cyBrZUj`oCNi;W~j}J z0yy7|0pYX(SI0Yt6x_cxowa_s?_2yXDa3EXa32F92zo0s%c$Ixu-fX<)JMwB?)|;8 zTiJYifxIO>(taRth>?CUKNso+HrUZ^u3PMQ0U7nmpqoW+v@9!=p5SP{EEg{85>e0A z^EpG$^T%T*uXrxR5+u8`!I}}@wv$~=LV_}4GGLCvMAtigL~b&0_cxyUYe4ePw7H3> zh?b0j*hDfQiXxa~4>S;MNqUbYF6hlK#e#_WQjP3Rhs@v1nnAJE_jZQlg3hiW6pr-6 z(=7{AuooIS&kStqO;_JN@ODkoM_L4O*pQed7{P2>7$KBEfZD9JpIhlqeDD$D{#3KX za=_53HEZBddt-+ayQ@&;P8FfQvUI7}nq71^x2_(`s==Vm!s2wB;u!;=?6B4>l8bKy zMPFCgY2|LIig#Q@MefeNj04{~KeEz7=5HXc;7;;zpibrc3Y$Mtm-P(Qs?|g1BS#3; z9(*9m>deqr~b*0sX^W1W)XB+-j4u9+v zCw-a#1lDdsxd?2Ym`tYM7mp(ci|tnh4qQ-J=7W9kyL1I8HQ6;7zE%G%;hLyk*zTBgzxSWiqaIML=MrB7 z-mR%ByRQ37z>OMZMt5wR4jJ%uA#zR5FV1!Q*(&94H*zoAE%=sjL4UQ%PdL>w3K~o( zO8L<3@Lc83jd84V#j-xwU)|Dc%4bKW>ux>2>0cDA2Z8{0$Y-7RRhEeLvUd>Dllvx4 zJcaTXwtLmGn|W}TD&^hZ%Mfs9l}ExH4QWtE$4N&s{$T6&>`7R|!Rc}n1Al<485saI zTjD5t_{IH>HS1F$O|9Xj^Q_z;nA+mkeU!i#5-s zlgp+qderEdLFtv^Kfpa|G27pE3d(sB8GZ#O3;o2iim{P3HS_wq;Bgkl8p)rmN1CH| z6WX5^gx^8Es>+Y~f}UVGAMfRTm!p~ZgjVgz`#Y1@Oy_D^9nBxT`sMwp$NjjZl+Drk z&0$=#y2ZMWN)yy9y?S3pOwizyu3v$v#Q-$k(Zh?-S5~FU(X7KRneSTMnJWwg07X-; zNW7za&dOu1dG-gxU(OQV#?GE6no0H~s#o54<-KYV;ANHhF)9l&YrfV z#I{gGmdIV`Rs4l1e_-{p_0E)HjOE=$uc9jV{#<WC=BNQ>vuW&i%{KFs*Uc;D4iO7$v3^^bOr z_4JXhsQjh_k7q_C2%B8o}5El+>8 z%Asn9zxAnAY?6UgDSj?8@ZFE7Fs-k~ZfqOr8F>U^+PYDbCt^>jQ-9ILM2mSR(ti{- zag=%W=T3aZGL%~r)$en&zb=F)CV;~=Xe%I07kh!R3d@BnO!XQyv?U!wQVLuhAx%+< z@!o*@R0fU~qa1?)F)%_k8r#Cp_Hyi2<;K;jnI14a>?rn(k`>c=)HGo$0*+JUmY1?n zmpu8Tum|1wzOp=XK8@UH%r~2gvME*R@_q+t_kCpxj?ivVV~2@hBzQOH{=(lB*gJAv z{d#sef2lzfnH>zK-=Q=0+mNx(Q7(S=il)}@?W@WVcWV}`Nj#m z`7Vem4j4EEudLx#3ubNBlA8v8J6@#ehI2nYxgVk8SHUY!2&~c6eiL_$Njp zm1$~!VB1pAZJ?RLV&@lG;BC-&9-?*Wsn#WnEjc5aZA$DI zs%S3MvV4M7QAE`I8LV_8@HWa5?`@_V^?tCOpg`j5Z7BVH2kV@I*)|y`LgLrh8h`K6 z%*u#uRS-qebwx0N;ffi2j#^W@X`u?Sy1eavDci@xte1T}n;sYg)O1yum8`7O!5}IPq zall^%L)7VF80#ac6~gOdv54Q7VkqVLzaPUlL^)JDj&u>Ad;8xhAO211?^o&E{0|IP zEt%+`W=9fC1kKm8PL<*sDjp%(cxLcWpwUL^Df41`^87$j*Ye#BH%89;2Bz~Z-9!Bh z!cxE10oWIK4CbGt{kk!VI0c>}up}Aq@H$UFJbRsFZ)R$lpZLpkW+i#gzUKepJLb8# zq%>wtEXEP12*oo?i!K9k|1Yyv#?tTEsO_O>{`1gP^gC_n1mcNS`F46%lk3`&_D&8V cQTWz>Xgu`)ci(>iOHEjse;(B9Ym;aH3*)j;y#N3J literal 0 HcmV?d00001 diff --git a/Formulare/AUTOHAUS/20070911/usr_fact_cuchit.fr2 b/Formulare/AUTOHAUS/20070911/usr_fact_cuchit.fr2 new file mode 100644 index 0000000..b4db1b9 --- /dev/null +++ b/Formulare/AUTOHAUS/20070911/usr_fact_cuchit.fr2 @@ -0,0 +1,1763 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="usr_fact_cuchit.frx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + +