commit 7ae0c39d5ed615fbba535a8b1cbaa6d8a761be02 Author: Marius Mutu Date: Thu Jul 16 11:22:03 2026 +0300 Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) Co-Authored-By: Claude Fable 5 diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..05341f0 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,4 @@ +# SVN ramane autoritatea pentru line endings (rulaj paralel svn+git, vezi CLAUDE.md). +# 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..d0e761d --- /dev/null +++ b/.gitignore @@ -0,0 +1,108 @@ +# ============================================================================= +# 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 + +# --- Exceptii: meniuri in format pre-VFP9 (FoxBin2Prg nu le converteste; raman binare) --- +!Meniuri/cont2000-1.mnx +!Meniuri/cont2000-1.MNT +!Meniuri/furn.mnx +!Meniuri/furn.MNT + +# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) --- +Locale/Locale.DBF +Locale/locale.FPT +Locale/Locale_back.DBF +Locale/Locale_back.FPT +Locale/locale_lang.dbf +Locale/locale_lang.FPT +Locale/locale_source.DBF +Locale/locale_source.FPT +Locale/locale_xref.DBF + +# --- Fisiere generate/compilate Visual FoxPro --- +*.fxp +*.FXP +*.mpr +*.MPR +*.mpx +*.MPX +*.vcr +*.VCR +*.src + +# --- Backup-uri si fisiere temporare create de editorul VFP --- +*.bak +*.BAK +*.TBK +*.tmp +*.TMP +*.err +*.ERR +*.Stats +*.stackdump + +# --- Executabile compilate --- +*.exe +*.EXE + +# --- Stare locala / specifica masinii, nu proiectului --- +roagest_ref.DBF +roagest_ref.FPT +FOXUSER.DBF +FOXUSER.FPT +log.txt +LOG.txt +*.lnk +Thumbs.db +Desktop.ini +bash.exe.stackdump + +# --- Setari locale Claude Code (specifice masinii, nu proiectului) --- +.claude/ + +# --- Notite locale neversionate (credentiale, specifice masinii) --- +docs/local/ + +# --- 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..d669cb9 --- /dev/null +++ b/CLAUDE.md @@ -0,0 +1,142 @@ +# CLAUDE.md + +This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository. + +## What this is + +ROAGEST is a **Visual FoxPro 9** desktop application (Romanian-language) for **gestiune de stocuri È™i mărfuri** — goods/inventory management: purchases (`achiziÈ›ie`, NIR — *notă intrare recepÈ›ie*), sales, warehouse transfers, stock (`stoc`), consumption vouchers (`bon consum`), inventory counts (`inventar`), price changes (`schimbare preÈ›`), and cash-register (`casă de marcat`, e500/mp500) integration. It backs onto an **Oracle** database (`gcS` schema, default `CONTAFIN`) reached through the shared `goExecutor`/`goConn` SQL pass-through objects. It is one member of the larger "ROA" suite built by ROA Romfast SRL (ROAACNPRO, ROAIMOB, ROACONT, ROACASA, ROADEF, etc.) and lives alongside its siblings under `D:\ROA`. + +The code, comments, menus, and changelog are all in Romanian — match that language when editing user-facing strings, comments, and changelog entries. + +**Architecturally, ROAGEST is older-generation than ROAACNPRO/ROAIMOB**: those apps instantiate `oApp` as a subclass of the shared `RoaApp` framework class (`COMUN/programe/roa.prg`) with an ordered `initializeaza*` method pipeline. ROAGEST does **not** use `RoaApp` at all — `COMUN/programe/roa.prg` exists in this repo (vendored, shared with the other apps) but is unreferenced. Instead, `Programe/roagest.prg` is a long, monolithic startup script that manually chains `SET PATH`/`SET CLASSLIB ... ADDITIVE`/`SET PROCEDURE ... ADDITIVE` statements and instantiates `goApp = CREATEOBJECT("wzApplication")` — the classic VFP "Application Wizard" base class (defined in `COMUN/clase/appwiz.vcx`). Don't assume the `RoaApp`/`initializeaza*` conventions documented for ROAACNPRO/ROAIMOB apply here. + +## Build, run, version control + +- **Build/run requires the Visual FoxPro 9 IDE on Windows.** There is no command-line build. Open `roagest.pjx` in the VFP IDE and use *Project > Build* to produce `roagest.exe`. The startup program is `Programe/roagest.prg`. +- **`.prg` files are source; `.fxp`/`.FXP` are compiled, `.BAK` are backups.** Edit the `.prg`. The `.scx/.sct` (forms), `.vcx/.vct` (class libraries), `.frx/.frt` (reports), and `.mnx/.mnt`/`.mpr` (menus) are VFP binary/generated artifacts — **edit them in the VFP IDE, not by hand.** `.mpr`/`.mpx` are GENMENU-generated from `.mnx`; never hand-edit them. +- **SVN remains the "live" source of truth**, especially for `COMUN/` — use `svn`, not `git`, for the authoritative history. A **git** repo now runs in parallel (see "Version control: git alongside SVN" below). +- **`config.fpw`** sets the runtime environment (`CODEPAGE=1252`, `EXCLUSIVE=OFF`, `SAFETY=OFF`, `MULTILOCKS=ON`, `TALK=OFF`). Don't enable `SAFETY` — the code relies on silent overwrite. `Programe/roagest.prg` re-asserts most of these plus `SET DATE TO DMY`, `SET DECIMALS TO 4`, `SET EXACT ON`. +- `roagest.exe` refuses to start unless its own filename matches `gcNumeProgram = 'ROAGEST'` (`IF !LIKE(gcNumeProgram + '*', ...)` near the top of `roagest.prg`) — a guard against running a renamed/copied executable. +- The compiler error log is `roagest.ERR`; the runtime log is `log.txt`. `roagest.Stats` and `versiune_db.txt` (format `YYYY_MM_DD_NN`, e.g. `2026_01_21_02`) track build/DB-schema stamps checked against the update server on launch (`COMUN/programe/oupdate.prg`, `wwcodeupdate.prg`). +- `Programe/cont2000.prg` is a near-duplicate of `roagest.prg` (same startup pattern, older `CONT2000` naming) still present in the tree — treat it as legacy/reference, not the active entry point, unless you confirm otherwise from `roagest.pjx`'s main-file setting. + +## Version control: git alongside SVN + +Git rulează în paralel cu SVN-ul legacy, nu îl înlocuieÈ™te. SVN rămâne sursa "vie" pentru `COMUN/`, sincronizat manual către git; nu rula comenzi `svn` din git È™i nu presupune că git-ul e la zi cu ultimele modificări SVN dacă nu a fost sincronizat explicit. + +- Repo-ul principal (rădăcina acestui folder) e propriul lui `.git`, cu remote `git@gitea.romfast.ro:romfast/roagest.git`. `.gitignore` exclude `COMUN/` (gestionat separat, vezi mai jos), `.svn/`, artefactele VFP compilate (`*.fxp`, `*.bak`, `*.mpr`, `*.exe`, …) È™i fiÈ™ierele Windows uzuale. +- `COMUN/` are propriul `.git` separat, cu remote `git@gitea.romfast.ro:romfast/comun.git` — **acelaÈ™i repo partajat de toate aplicaÈ›iile ROA** (ROAACNPRO, ROAIMOB, etc.). O modificare împinsă acolo afectează toate proiectele. Nu face `push --force` peste `comun.git` fără aprobare explicită — ar È™terge istoric comun tuturor proiectelor. +- Căutarea în cod VFP binar (`.vcx`/`.scx`) pentru acest proiect foloseÈ™te `vcx2txt.ps1` parametrizat pentru ROAGEST (vezi secÈ›iunea de mai jos) — cache separat, `D:\ROA\_vfp_textcache\roagest`, nu-l amesteca cu cache-urile altor proiecte. + +## 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. To search method/procedure bodies, convert the binaries to their TEXT form first and grep the text, using the shared `foxbin2prg` tool already built at `D:\ROA\UTIL\foxbin2prg\FoxBin2Prg.EXE`: + +```powershell +& 'D:\ROA\UTIL\foxbin2prg\vcx2txt.ps1' -Project 'D:\ROA\ROAGEST\roagest.pjx' -ProjectRoot 'D:\ROA\ROAGEST' -CacheRoot 'D:\ROA\_vfp_textcache\roagest' -Types vcx,scx,frx,mnx +``` + +This reads the file list straight from `roagest.pjx`, so it only converts the `.vcx`/`.scx`/`.frx`/`.mnx` this project actually references — not all of `COMUN\` (most of which is unused by any one app). It's incremental and safe to re-run after IDE edits. Output lands in `D:\ROA\_vfp_textcache\roagest\` as `.vc2`/`.sc2`/`.fr2`/`.mn2` text mirrors — `Grep` those. + +For `.vcx`/`.scx`, code edits no longer require the VFP IDE — the flow is now: + +1. Refresh the cache (`vcx2txt.ps1` above), especially if a VFP IDE session ran since the last refresh (IDE changes make the cache stale). +2. Edit the `.vc2`/`.sc2` text directly (position-sensitive format — don't reflow lines; properties are alphabetized). +3. Review the diff on the text file like any other source change. +4. Write back with `txt2vcx.ps1` (`D:\ROA\UTIL\foxbin2prg\txt2vcx.ps1 -TextFile -ProjectRoot 'D:\ROA\ROAGEST' -CacheRoot 'D:\ROA\_vfp_textcache\roagest'`) — it regenerates and recompiles the binary in a staging folder, fidelity-checks it against the edited text, then copies it into the project only if that check passes. + +`.mnx`/`.frx` stay **read-only** in this flow (menus still need GENMENU in the IDE; reports are too fragile to round-trip) — edit those in the VFP IDE as before. Targets under `COMUN\` need `-AllowComun` plus explicit approval, since a change there affects every ROA app. See `D:\ROA\UTIL\foxbin2prg\CLAUDE.md` for full details, `COMUN\docs\flux-editare-vfp-text.md` for the shared per-round workflow (baseline backups, review patches, fidelity check), and `docs/flux-editare-vfp-text.md` for the ROAGEST-specific parameters. + +## The COMUN shared framework + +`COMUN/` is **shared, framework-level code used by every ROA app** — it is not specific to ROAGEST. Treat it as a vendored library: + +- A change in `COMUN/` affects all ROA applications. Prefer making app-specific changes in this repo's top-level `Programe/`, `Clase/`, `Ferestre/`, `Meniuri/`, `Rapoarte/` directories. Only touch `COMUN/` when the fix genuinely belongs to the shared framework. +- Unusually for this app, **most of the actual "gestiune" business logic lives in `COMUN/programe/`, not in this repo's own `Programe/`.** ROAGEST's own `Programe/` folder has only ~24 files (`roagest.prg`, `gestiuni.prg`, `cont2000.prg`, `oimportdinxml.prg`, `ofactureaza.prg`, `exportare.prg`, `fisa_ob_inventar.prg`, `update_nomenclator.prg`, `suma_in_vorbe.prg`, `actualizari.prg`, `cumplun-furn.prg`, `inchidere_k.prg`, `ovariabile_globale.prg`, `shutdown.prg`), while the core stock/article/movement procedures — `oproceduri_stocuri.prg`, `oproceduri_articole.prg`, `oproceduri_rulaje.prg`, `oproceduri_casademarcat.prg` (+ `_e500`/`_mp500` cash-register variants), `oproceduri_facturare.prg`, `oproceduri_obinv.prg` (fixed-asset-in-use items), `anaf_efactura.prg` (ANAF e-Factura), `osecurity.prg`, `oproceduri_configurare.prg`, `oproceduri_listari.prg`, `oproceduri_retete.prg`, `orapoarte.prg` — all resolve from `COMUN/programe/` via `SET PATH`. Likewise most class libraries used (`onomenclatoare`, `stocuri.vcx`, `rulaje.vcx`, `ointroduceri*`, `oinventar`, `orapoarte_gestiuni`, `bon_fisc`, `onom_articole`, `onom_retete`, `ferestre_oracle`, `configurare.vcx`, `serii_numere.vcx`, …) live in `COMUN/clase/`, not this repo's `Clase/`. +- ROAGEST's **own** `Clase/` folder is small: `gestiuni.vcx`, `oavize.vcx`, `oimportxml.vcx`, `orapoarte_gestiuni.vcx`, `ovizrul.vcx`, `atentie.vcx`. Its own `Ferestre/` is also small: `fundal.scx` (shell form), `accesindivid.scx`, `frm_conversii.scx`, `frm_schimbare_pret_tva.scx`. The bulk of forms actually used are `COMUN\ferestre\*` (e.g. login is `COMUN\ferestre\frm_login.scx`). +- `SET PATH` (see `Programe/roagest.prg` ~line 109) makes `COMUN\CLASE`, `COMUN\FERESTRE`, `COMUN\PROGRAME`, `COMUN\GRAFICE`, `COMUN\RAPOARTE`, `COMUN\MENIURI`, and the `COMUN\UTILE\*` helper libraries (GridExtras, ctl32, hpdf/ReportOutput, web, Excel) resolvable by bare filename, plus a sibling `..\COMUNROA\` directory (built from `gcAppPath`'s grandparent). So `SET PROCEDURE TO email.prg` resolves to `COMUN\PROGRAME\email.prg`. + +## Application architecture + +Startup flow (`Programe/roagest.prg`, procedural — no `oApp`/`RoaApp` object wraps it): + +1. Verifies the running exe is actually named `ROAGEST*`; sets `SET CENTURY/DELETED/DATE/EXACT/...` environment options. +2. Computes `gcAppPath` (own folder) and `gcDirMare`/`dirgen` (suite root, one level up — e.g. `D:\ROA\`), builds the long `SET PATH TO` string across its own folders + `COMUN\*` + `..\COMUNROA\`, then issues **dozens of ordered** `SET CLASSLIB ... ADDITIVE` and `SET PROCEDURE ... ADDITIVE` statements (order matters: later `ADDITIVE` registrations can shadow earlier same-named procedures/classes). +3. Parses the launch parameter string (`tparam`, semicolon-delimited: `host;user;password;idutil;idprogram;...;an;luna;schema;idfirma`) when launched by the central ROA launcher; otherwise falls back to hardcoded dev defaults (`JCSSERVER`/`CONTAFIN_ORACLE`). +4. Sets up cross-cutting globals: `goLog`/`poLog` (`Log_Mesaje.prg`), `goLocale` (Romanian by default, `glTraducere = .F.` — translation path largely dormant), `goExecutor`/`goConn` (Oracle SQL pass-through), `goExport`, `goMyXMLHTTP` (remote error reporting), and an optional `goKeepAlive` timer (avoids ODBC idle timeouts). +5. `NUMEPROGRAM = 'ROA - Gestiuni'`, `_program = 'gest'`; reads the actual version string from the built `.exe`'s file version resource. +6. Registers `ON SHUTDOWN ShutDown()` / `ON ERROR ErrorHandler(...)`, instantiates `goApp = CREATEOBJECT("wzApplication")`, sets `goApp.cStartupMenu` to `Meniuri\roagest.mpr` and `goApp.cStartupForm` to `COMUN\ferestre\frm_login.scx`, then `goApp.SHOW` — this is the VFP event loop entry (AppWizard's `Show`/`Run` machinery), analogous to `READ EVENTS` in the newer apps. +7. `ErrorHandler` posts errors to a remote endpoint via `goMyXMLHTTP.postError(...)` (host read from `settings.ini`'s `[errors] host` key) in addition to showing `AMESSAGEBOX`. `Cleanup()`/`ShutDown()` release class libs, procedures, and the menu stack on exit. + +### Globals convention + +Same `g`/`gc`/`gn`/`gl` Hungarian-ish prefixing as the rest of the suite (`g` = global, `gc`/`gn`/`gl` = char/numeric/logical, `m.` = memory-variable scoping), declared `PUBLIC`/`PRIVATE` directly in `roagest.prg` rather than promoted by a framework object: + +- `goApp` (AppWizard app object), `goConn`/`goExecutor` (Oracle connection + SQL executor), `goLog`/`poLog` (logger), `goLocale`, `goExport`, `goCalendar`, `goFirma`. +- `gcS` = Oracle schema (default `CONTAFIN`), `gnIdFirma`, `gnAn`/`gnLuna` (working year/month), `gcAppPath` (this app's folder), `gcDirMare`/`dirgen` (suite root, e.g. `D:\ROA\`), `gcSecurityPath`/`gcSecurityFile` (`DIRGEN + 'Security\ROA_SECURITY.TXT'`), `gcGeneralIniFile`/`gcSettingsFile` (`DIRGEN + 'settings.ini'`). +- Legacy holdovers from the pre-Oracle (`CONT2000`) codebase are still declared even though mostly unused now: `nror[65000]`, `RTVA[22,2]`, `SER_PERM`/`SER_PERI`/`VERSIUNE` (commented out), old disk-serial license-check functions (`decodare1`, `HEXDEC`, `DECTOBIN`, the commented-out `PORNIRE`/`verif_ser_perm`) — dead code kept for reference, not active. + +### Data layer + +- Backend is **Oracle**, reached via `goConn`/`goExecutor` (created from the `DECABAZA` classlib, same pattern as the sibling apps) — run queries with `SQLEXEC()`/the executor wrapper; results come back as VFP cursors. +- Domain tables/views follow Romanian/domain naming: `stoc`, `rulaje`/`rull` (stock movements), `act` (documents/NIR), `articole`/nomenclator, `gestiuni` (warehouses/locations), `casa de marcat` bon fiscal tables. Look in `COMUN/programe/oproceduri_stocuri.prg`, `oproceduri_articole.prg`, and `oproceduri_rulaje.prg` for the canonical query/view names (e.g. `viz_stocuri` filters on `an`, `luna`, `id_sucursala`, `id_gestiune`). +- `Initializari/` holds XML templates for cash-register integrations (`roagest_bon.xml(.tmpl)`, `roagest_mp500.xml(.tmpl)`, `euro500t.txt(.tmpl)`, `euro500t_erori.xml(.tmpl)`). +- `Locale/` is a full VFP database (`locale.dbc` + `.dbf`/`.cdx`) for the (largely dormant) translation feature, not just an .ini. + +## Domain quick reference + +- **No app-specific `.h` include** defines domain constants the way `roaacnpro.h` does for ROAACNPRO — `Include/CONT2000.H` is just a historical comment (a class-tree diagram from the old `CONT2000` codebase), and `Include/foxpro.h` is the stock VFP header. Domain behavior (document types, movement signs, VAT handling) is expressed directly in procedure logic in `COMUN/programe/oproceduri_*.prg`, not centralized constants — expect to trace behavior through those procedures rather than a single defines file. +- **`Rapoarte/*.frx`** (24 report layouts in this repo, more resolved from `COMUN\RAPOARTE`) name the real workflows: `rap_nirtransfer_achi` (NIR/transfer receiving), `rap_centralizator_intrari`/`_intrari2`, `rap_centralizator_iesiri`/`_iesiri2` (in/out summaries), `rap_fisa_magazie_fifo` (FIFO stock card), `rap_gest_val_subgrupe`/`_gestc` (valued stock by subgroup), `rap_vechime_stocuri` (stock aging), `rap_marfuri_lista_centr`/`_desf`/`_valoric` (goods lists), `rap_vanzari_comp_cant`/`_val`/`_web` (sales comparisons), `rap_instiintaripret` (price-change notices), `rap_inchidere_k`, `rap_stoc_obinv` (inventory-use objects), `rap_rul_consum_lucrari_articole`/`_centralizator_consum_lucrari` (consumption vouchers). +- **`Meniuri/`** menu names map to the app's top-level operations: `achi*` (achiziÈ›ii/purchases), `vanz*` (vânzări/sales), `consum*` (bon consum), `transfer*` (stock transfers), `config*` (configurare), `casademarcat`/`casamarcat` (fiscal cash registers), `obinvent` (obiecte de inventar), `stoc`, `rulaje`, `list*`/`rapoarte` (reports), `roagest.mnx`/`.mpr` (the root startup menu, referenced by `goApp.cStartupMenu`). +- **`todo.txt`** is an informal running work list (Romanian, `ok`/`OK`-prefixed = done, otherwise pending) — recent items concern store inventory (`inventar magazin`), FIFO stock cards, and VAT-rate handling during the 19%→21% transition; useful as a quick pulse on active/recent pain points but not authoritative documentation. +- **VAT/TVA** is time-sensitive here too: recent changelog entries (v2.11.0–2.11.2) explicitly prepare the app for the 21%/11% rates effective 2025-08-01 while still supporting 19%/9%/5% for prior periods — the same "rate by document period, not 'current' rate" caution as the other ROA apps applies. +- **Cash register / fiscal integration**: `oproceduri_casademarcat.prg`, `oproceduri_casa_marcat_e500.prg`, `oproceduri_casa_marcat_mp500.prg` (in `COMUN/programe/`) integrate specific fiscal printer/cash-register protocols (E500, MP500); `Initializari/roagest_bon.xml`/`roagest_mp500.xml` are their config templates. +- **ANAF e-Factura / SAFT**: `COMUN/programe/anaf_efactura.prg` provides e-invoicing against ANAF, shared with sibling apps. + +## Changelog & release convention + +`changelog_roagest.txt` is the user-facing release log (188KB, going back to v1.0.x). **Newest entry goes at the top**, in this exact HTML-comment block format (Romanian, `DD/MM/YYYY`): + +``` + +``` + +Tags in use: `:nou:` (new feature), `:modificare:` (change), `:eroare:` (bug fix), and occasionally `:adaugare:` (addition) — match this exact tag vocabulary (a lone historical `:modfiicare:` typo exists; don't repeat it). Bump the `MAJOR.MINOR.PATCH` version (currently `2.11.5`) when you add an entry. The app checks for updates on startup (`COMUN/programe/oupdate.prg`, `wwcodeupdate.prg`) against `versiune_db.txt`'s schema stamp; the runtime reads its own version from the built `.exe`'s file version resource. + +## 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. + +## Skill routing + +When the user's request matches an available skill, invoke it via the Skill tool. When in doubt, invoke the skill. + +Key routing rules: +- Product ideas/brainstorming → invoke /office-hours +- Strategy/scope → invoke /plan-ceo-review +- Architecture → invoke /plan-eng-review +- Design system/plan review → invoke /design-consultation or /plan-design-review +- Full review pipeline → invoke /autoplan +- Bugs/errors → invoke /investigate +- QA/testing site behavior → invoke /qa or /qa-only +- Code review/diff check → invoke /review +- Visual polish → invoke /design-review +- Ship/deploy/PR → invoke /ship or /land-and-deploy +- Save progress → invoke /context-save +- Resume context → invoke /context-restore + +## Project insights (docs/) + +`docs/` holds short, concrete notes discovered while working on real tasks — hidden flows, gotchas, key procedures/packages, relevant tables — that go beyond what this file covers. See `docs/README.md` for the index. **Proactively offer to update `docs/` whenever you uncover a non-obvious project insight while fixing a bug or investigating a flow** (don't wait to be asked), so future sessions can reuse it instead of re-investigating from scratch. Keep entries concise and factual — no restating what's obvious from reading the code. diff --git a/Clase/atentie.vc2 b/Clase/atentie.vc2 new file mode 100644 index 0000000..d40e24e --- /dev/null +++ b/Clase/atentie.vc2 @@ -0,0 +1,6 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="atentie.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* \ No newline at end of file diff --git a/Clase/gestiuni.vc2 b/Clase/gestiuni.vc2 new file mode 100644 index 0000000..1e74661 --- /dev/null +++ b/Clase/gestiuni.vc2 @@ -0,0 +1,2316 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="gestiuni.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS pagefr AS pageframe + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: activate_pag + *m: selectie + *p: c_deschis + *p: c_gri + *p: c_inchis + * + + * + ActivePage = 6 + c_deschis = 16777215 + c_gri = 0 + c_inchis = 8404992 + ErasePage = .T. + Height = 185 + Name = "pagefr" + PageCount = 7 + Tabs = .T. + TabStretch = 0 + TabStyle = 1 + Width = 789 + Page1.BackColor = 255,255,255 + Page1.Caption = "\ + + PROCEDURE activate_pag + PARAMETERS np + + *!* IF np=1 + *!* osetgest.tbrprim.hide + *!* osetgest.tbrprim.dock(-1,0,0) + *!* osetviz.tbrprim.dock(0,0,0) + *!* osetviz.tbrprim.visible=.t. + *!* else + *!* osetviz.tbrprim.hide + *!* osetviz.tbrprim.dock(-1,0,0) + *!* osetgest.tbrprim.dock(0,135,0) + *!* osetgest.tbrprim.visible=.t. + *!* ENDIF + + *!* FOR i=1 TO this.PageCount + *!* zi='this.p'+ALLTRIM(STR(i))+'.' + *!* IF i<>np + *!* &zi.BackColor=this.c_gri + *!* &zi.ForeColor=this.c_deschis + *!* else + *!* &zi.BackColor=this.c_deschis + *!* &zi.ForeColor=this.c_inchis + *!* ENDIF + *!* NEXT + + gnTipGest =np + *!* oprinc.tbrprim.refresh + + this.selectie(gnTipGest) + ENDPROC + + PROCEDURE Init + + *!* this.c_gri=11630087 + *!* this.c_deschis=16777215 + *!* this.c_inchis=8404992 + + this.c_gri=RGB(255,255,255) + this.c_deschis=RGB(255,255,255) + this.c_inchis=RGB(255,255,255) + + this.SetAll('backcolor',this.c_gri,'page') + + + + ENDPROC + + PROCEDURE selectie + PARAMETERS nr_g + ENDPROC + + PROCEDURE p1.Activate + TIP_GEST=THIS.CAPTION + cont_gest='-1' + this.parent.activate_pag(1) + + + + ENDPROC + + PROCEDURE p2.Activate + TIP_GEST=THIS.CAPTION + cont_gest='301,302,351' + + this.parent.activate_pag(2) + + + + ENDPROC + + PROCEDURE p2.Init + *this.BackColor=11630087 + ENDPROC + + PROCEDURE p3.Activate + TIP_GEST=THIS.CAPTION + cont_gest='303,8039' + + this.parent.activate_pag(3) + + + ENDPROC + + PROCEDURE p4.Activate + TIP_GEST=THIS.CAPTION + cont_gest='341,345,346' + + this.parent.activate_pag(4) + + + + ENDPROC + + PROCEDURE p5.Activate + TIP_GEST=THIS.CAPTION + cont_gest='371,357,471' + + this.parent.activate_pag(5) + + + + ENDPROC + + PROCEDURE p6.Activate + TIP_GEST=THIS.CAPTION + cont_gest='371,357' + + this.parent.activate_pag(6) + + + + + ENDPROC + + PROCEDURE p7.Activate + TIP_GEST=THIS.CAPTION + cont_gest='371,357' + + this.parent.activate_pag(7) + + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p4.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p5.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine05" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine04" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine03" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lstNumere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lblNumere" UniqueID="" Timestamp="" /> + + * + *m: actualizeazanumereact + *m: getcwbynumber + *m: selectie_achi + *m: selectie_vanz + *m: selenumegest + *p: npagina + *p: opaginaactiva + *a: anumeredoc[1,4] + *p: _memberdata && XML Metadata for customizable properties + * + + * + AlwaysOnTop = .F. + AutoCenter = .F. + BackColor = 255,255,255 + BorderStyle = 1 + Caption = "" + DoCreate = .T. + FontCharSet = 238 + FontSize = 10 + Height = 512 + KeyPreview = .T. + Left = 0 + Name = "princ" + npagina = 1 + opaginaactiva = Null + ShowTips = .T. + Top = 0 + Width = 800 + WindowType = 0 + _memberdata = + + + + * + + ADD OBJECT 'Container1' AS container WITH ; + Anchor = 9, ; + BackStyle = 0, ; + BorderWidth = 0, ; + Height = 26, ; + Left = 451, ; + Name = "Container1", ; + SpecialEffect = 1, ; + TabStop = .F., ; + Top = 5, ; + Width = 302, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'Container1.Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Height = 17, ; + Left = 8, ; + Name = "Label1", ; + Top = 5, ; + Width = 53 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Container1.Text1' AS label WITH ; + BackStyle = 0, ; + Caption = "Text", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Height = 17, ; + Left = 67, ; + Name = "Text1", ; + Top = 5, ; + Width = 216 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Image1' AS image WITH ; + Anchor = 12, ; + Height = 220, ; + Left = 228, ; + Name = "Image1", ; + Picture = ..\grafice\roagest.bmp, ; + Stretch = 0, ; + Top = 244, ; + Width = 556, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + Height = 63, ; + Left = 0, ; + Name = "Image2", ; + Picture = ..\comun\grafice\f1.jpg, ; + Stretch = 2, ; + Top = 0, ; + Width = 851, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Imagine01' AS imagine WITH ; + ccod = A05, ; + Height = 55, ; + Left = 8, ; + Name = "Imagine01", ; + nid_img = 1, ; + Picture = ..\comun\grafice\rj1.bmp, ; + picturedown = rj2.bmp, ; + pictureup = rj1.bmp, ; + ToolTipText = "Jurnal", ; + Top = 1, ; + Width = 52, ; + ZOrderSet = 2 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine02' AS imagine WITH ; + ccod = B01;C01;D01;E01;F01, ; + Height = 54, ; + Left = 61, ; + Name = "Imagine02", ; + nid_img = 2, ; + Picture = ..\grafice\in1_b.bmp, ; + picturedown = in2.bmp, ; + pictureup = in1.bmp, ; + ToolTipText = "NIR (intrari)", ; + Top = 1, ; + Width = 45, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine03' AS imagine WITH ; + ccod = B03;D03;E04, ; + Height = 54, ; + Left = 114, ; + Name = "Imagine03", ; + nid_img = 3, ; + Picture = ..\grafice\out1_b.bmp, ; + picturedown = out2.bmp, ; + pictureup = out1.bmp, ; + ToolTipText = "Bon (iesiri)", ; + Top = 1, ; + Width = 45, ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine04' AS imagine WITH ; + ccod = A03, ; + Height = 53, ; + Left = 168, ; + Name = "Imagine04", ; + nid_img = 4, ; + Picture = ..\grafice\rul1.bmp, ; + picturedown = rul2.bmp, ; + pictureup = rul1.bmp, ; + ToolTipText = "Rulaje", ; + Top = 1, ; + Width = 51, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine05' AS imagine WITH ; + ccod = B06;C06;D07;E07;F05, ; + Height = 53, ; + Left = 223, ; + Name = "Imagine05", ; + nid_img = 5, ; + Picture = ..\grafice\stoc1.bmp, ; + picturedown = stoc2.bmp, ; + pictureup = stoc1.bmp, ; + ToolTipText = "Stocuri", ; + Top = 1, ; + Width = 51, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'lblNumere' AS _label WITH ; + Caption = "Ultimele numere NIR/BON pentru utilizatorul curent", ; + FontItalic = .T., ; + Height = 17, ; + Left = 213, ; + Name = "lblNumere", ; + ToolTipText = "Dublu click pe o linie pentru copierea numarului", ; + Top = 128, ; + Visible = .F., ; + Width = 283 + *< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT 'lstNumere' AS _listbox WITH ; + Anchor = 15, ; + AutoHideScrollbar = 1, ; + BorderColor = 255,255,255, ; + ColumnCount = 4, ; + ColumnLines = .F., ; + ColumnWidths = "150,400,100,150", ; + Height = 170, ; + Left = 213, ; + Name = "lstNumere", ; + NumberOfElements = 4, ; + RowSource = "Thisform.aNumereDoc", ; + RowSourceType = 5, ; + SpecialEffect = 1, ; + ToolTipText = "Dublu click pe o linie pentru copierea numarului. Click dreapta pentru copierea tabelului.", ; + Top = 148, ; + Visible = .F., ; + Width = 569 + *< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="listbox" /> + + ADD OBJECT 'Pagefr1' AS pagefr WITH ; + ActivePage = 1, ; + ErasePage = .T., ; + Height = 454, ; + Left = 0, ; + Name = "Pagefr1", ; + TabStyle = 1, ; + Themes = .F., ; + Top = 62, ; + Width = 790, ; + ZOrderSet = 0, ; + p1.Name = "p1", ; + p1.PageOrder = 1, ; + p2.Name = "p2", ; + p2.PageOrder = 2, ; + p3.Name = "p3", ; + p3.PageOrder = 3, ; + p4.Name = "p4", ; + p4.PageOrder = 4, ; + p5.Name = "p5", ; + p5.PageOrder = 5, ; + p6.Name = "p6", ; + p6.PageOrder = 6, ; + p7.Name = "p7", ; + p7.PageOrder = 7 + *< END OBJECT: ClassLib="gestiuni.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'Pagefr1.p1.Cw1' AS cw WITH ; + Left = 7, ; + Name = "Cw1", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 84, ; + Width = 180, ; + ZOrderSet = 3, ; + Label_item1.Caption = "3.Configurare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw2' AS cw WITH ; + Left = 8, ; + Name = "Cw2", ; + nid_cw = 4, ; + ntip = 1, ; + TabIndex = 4, ; + Top = 157, ; + Width = 180, ; + ZOrderSet = 1, ; + Label_item1.Caption = "5.Rapoarte", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw3' AS cw WITH ; + Left = 7, ; + Name = "Cw3", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 17, ; + Visible = .T., ; + Width = 180, ; + ZOrderSet = 8, ; + Label_item1.Caption = "1.Inventar", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw4' AS cw WITH ; + Enabled = .F., ; + Left = 7, ; + Name = "Cw4", ; + nid_cw = 5, ; + ntip = 4, ; + TabIndex = 4, ; + Top = 121, ; + Visible = .T., ; + Width = 180, ; + ZOrderSet = 1, ; + LABEL_ITEM1.Caption = "4.Registru Jurnal", ; + LABEL_ITEM1.Left = 5, ; + LABEL_ITEM1.Name = "LABEL_ITEM1", ; + LABEL_ITEM1.TabIndex = 1, ; + LABEL_ITEM1.Top = 2 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw5' AS cw WITH ; + Enabled = .T., ; + Left = 9, ; + linactiv = .T., ; + Name = "Cw5", ; + nid_cw = 3, ; + ntip = 4, ; + TabIndex = 3, ; + Top = 210, ; + Visible = .F., ; + Width = 180, ; + ZOrderSet = 2, ; + Label_item1.Caption = "6.Vizualizare", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Cw6' AS cw WITH ; + Left = 7, ; + Name = "Cw6", ; + nid_cw = 6, ; + ntip = 4, ; + TabIndex = 1, ; + Top = 40, ; + Visible = .T., ; + Width = 180, ; + ZOrderSet = 8, ; + Label_item1.Caption = "2.Inventar magazin", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 70 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 107 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 7, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 233, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 7, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 271, ; + Visible = .F., ; + Width = 180 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.Pict_liniuta5' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta5", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 147 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p1.Shape1' AS pict_meniu WITH ; + Left = 1, ; + Name = "Shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p2.Cw1' AS cw WITH ; + Left = 7, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 13, ; + Width = 180, ; + ZOrderSet = 5, ; + Label_item1.Caption = "1.Achiziþie", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw2' AS cw WITH ; + Left = 7, ; + Name = "Cw2", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 103, ; + Width = 180, ; + ZOrderSet = 6, ; + Label_item1.Caption = "4.Consum", ; + Label_item1.FontSize = 9, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw3' AS cw WITH ; + Left = 7, ; + Name = "Cw3", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 128, ; + Width = 180, ; + ZOrderSet = 4, ; + Label_item1.Caption = "5.Transfer", ; + Label_item1.FontSize = 9, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw4' AS cw WITH ; + Left = 7, ; + Name = "Cw4", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 38, ; + Width = 180, ; + ZOrderSet = 3, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "2.Achiziþie din import / intern", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Height = 19, ; + Label_item1.Left = 4, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 2, ; + Label_item1.Width = 172, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw5' AS cw WITH ; + Left = 7, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 6, ; + Top = 189, ; + Width = 180, ; + ZOrderSet = 2, ; + Label_item1.Caption = "7.Stocuri materiale", ; + Label_item1.FontSize = 9, ; + Label_item1.Left = 3, ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1, ; + Label_item1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw6' AS cw WITH ; + Left = 7, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 1, ; + TabIndex = 7, ; + Top = 225, ; + Width = 180, ; + ZOrderSet = 1, ; + Label_item1.Caption = "8.Rapoarte", ; + Label_item1.FontSize = 9, ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw7' AS cw WITH ; + Left = 7, ; + Name = "Cw7", ; + nid_cw = 5, ; + TabIndex = 5, ; + Top = 153, ; + Width = 180, ; + ZOrderSet = 7, ; + Label_item1.Caption = "6.Vânzare", ; + Label_item1.FontSize = 9, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Cw8' AS cw WITH ; + Height = 35, ; + Left = 7, ; + Name = "Cw8", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 63, ; + Width = 180, ; + ZOrderSet = 3, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "3.Intrare din transfer de la gestiune valoricã", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Height = 32, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 155, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p2.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 212 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p2.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 250 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p2.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 177 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p2.Shape1' AS pict_meniu WITH ; + Height = 362, ; + Left = 1, ; + Name = "Shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + Width = 200, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p3.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 13, ; + ZOrderSet = 6, ; + Label_item1.Caption = "1.Achiziþie", ; + Label_item1.FontSize = 9, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 37, ; + ZOrderSet = 7, ; + Label_item1.Caption = "2.Consum", ; + Label_item1.FontSize = 9, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 61, ; + ZOrderSet = 5, ; + Label_item1.Caption = "3.Transfer", ; + Label_item1.FontSize = 9, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw4' AS cw WITH ; + Height = 34, ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 97, ; + ZOrderSet = 4, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "4.Rulaje ob. de inventar în folosintã", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw5' AS cw WITH ; + Height = 34, ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 183, ; + ZOrderSet = 3, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "6.Obiecte de inventar în stoc (303)", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 1, ; + TabIndex = 4, ; + Top = 232, ; + ZOrderSet = 2, ; + Label_item1.Caption = "7.Rapoarte", ; + Label_item1.FontSize = 9, ; + Label_item1.Height = 17, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1, ; + Label_item1.Top = 1, ; + Label_item1.Width = 63 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Cw7' AS cw WITH ; + Height = 34, ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 135, ; + ZOrderSet = 1, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "5.Obiecte de inventar în folosintã", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p3.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 172 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p3.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 221 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p3.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 84 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p3.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 256 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p3.Shape1' AS pict_meniu WITH ; + Left = 1, ; + Name = "Shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Cw1' AS cw WITH ; + Left = 5, ; + linactiv = .F., ; + Name = "Cw1", ; + nid_cw = 2, ; + TabIndex = 1, ; + Top = 36, ; + ZOrderSet = 7, ; + Label_item1.Caption = "2.Intrare în gestiune", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 3, ; + TabIndex = 2, ; + Top = 60, ; + ZOrderSet = 8, ; + Label_item1.Caption = "3.Consum", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 4, ; + TabIndex = 3, ; + Top = 83, ; + ZOrderSet = 5, ; + Label_item1.Caption = "4.Transfer", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 5, ; + TabIndex = 4, ; + Top = 107, ; + ZOrderSet = 4, ; + Label_item1.Caption = "5.Vânzare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 2, ; + TabIndex = 5, ; + Top = 145, ; + ZOrderSet = 6, ; + Label_item1.Caption = "6.Configurare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 182, ; + ZOrderSet = 2, ; + Label_item1.Caption = "7.Stocuri produse", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Cw7' AS cw WITH ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 8, ; + ntip = 1, ; + TabIndex = 4, ; + Top = 218, ; + ZOrderSet = 1, ; + Label_item1.Caption = "8.Rapoarte", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 12, ; + ZOrderSet = 3, ; + Label_item1.Caption = "1. Achiziþie", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p4.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 169 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 206 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 132 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 4, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 242 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p4.Shape1' AS pict_meniu WITH ; + Left = 1, ; + Name = "Shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 12, ; + ZOrderSet = 6, ; + Label_item1.Caption = "1.Achiziþie", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 101, ; + ZOrderSet = 5, ; + Label_item1.Caption = "4.Consum", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 5, ; + TabIndex = 7, ; + Top = 126, ; + ZOrderSet = 4, ; + Label_item1.Caption = "5.Transfer", ; + Label_item1.Left = 4, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Cw4' AS cw WITH ; + Left = 5, ; + linactiv = .F., ; + Name = "Cw4", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 37, ; + ZOrderSet = 3, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "2.Achiziþie din import / intern", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Height = 14, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 1, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 6, ; + TabIndex = 8, ; + Top = 152, ; + ZOrderSet = 7, ; + Label_item1.Caption = "6.Vânzare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 2, ; + TabIndex = 5, ; + Top = 187, ; + ZOrderSet = 2, ; + Label_item1.Caption = "7.Stocuri marfã", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Cw7' AS cw WITH ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 8, ; + ntip = 1, ; + TabIndex = 6, ; + Top = 223, ; + ZOrderSet = 1, ; + Label_item1.Caption = "8.Rapoarte", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Cw8' AS cw WITH ; + Height = 35, ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 62, ; + ZOrderSet = 3, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "3.Intrare din transfer de la gestiune valoricã", ; + Label_item1.Height = 32, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p5.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 212 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 247 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 176 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p5.Shape1' AS pict_meniu WITH ; + Left = 1, ; + Name = "Shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Cw1' AS cw WITH ; + Left = 7, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 12, ; + ZOrderSet = 5, ; + Label_item1.Caption = "1.Achiziþie", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw2' AS cw WITH ; + Left = 7, ; + Name = "Cw2", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 97, ; + ZOrderSet = 6, ; + Label_item1.Caption = "4.Configurare", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw3' AS cw WITH ; + Left = 7, ; + Name = "Cw3", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 36, ; + ZOrderSet = 4, ; + Label_item1.Caption = "2.Transfer", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw4' AS cw WITH ; + Left = 7, ; + Name = "Cw4", ; + nid_cw = 6, ; + ntip = 1, ; + TabIndex = 4, ; + Top = 169, ; + ZOrderSet = 2, ; + Label_item1.Caption = "6.Rapoarte", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw5' AS cw WITH ; + Left = 7, ; + Name = "Cw5", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 61, ; + ZOrderSet = 7, ; + Label_item1.Caption = "3.Vânzare", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw6' AS cw WITH ; + Left = 7, ; + Name = "Cw6", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 133, ; + ZOrderSet = 3, ; + Label_item1.Caption = "5.Stocuri marfã", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Cw7' AS cw WITH ; + Left = 7, ; + Name = "Cw7", ; + nid_cw = 7, ; + TabIndex = 4, ; + Top = 202, ; + ZOrderSet = 1, ; + Label_item1.Caption = "7.Casa de marcat", ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p6.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 122 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 157 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 85 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 192 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Pict_liniuta5' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta5", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 226 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p6.Shape1' AS pict_meniu WITH ; + Left = 1, ; + Name = "Shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Cw1' AS cw WITH ; + Left = 7, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 12, ; + ZOrderSet = 5, ; + Label_item1.Caption = "1.Achiziþie", ; + Label_item1.FontCharSet = 238, ; + Label_item1.FontName = "Arial Narrow", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Cw2' AS cw WITH ; + Left = 7, ; + linactiv = .T., ; + Name = "Cw2", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 97, ; + ZOrderSet = 6, ; + Label_item1.Caption = "4.Configurare", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Cw3' AS cw WITH ; + Left = 7, ; + Name = "Cw3", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 36, ; + ZOrderSet = 4, ; + Label_item1.Caption = "2.Transfer", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Cw4' AS cw WITH ; + Left = 7, ; + Name = "Cw4", ; + nid_cw = 6, ; + ntip = 1, ; + TabIndex = 4, ; + Top = 169, ; + ZOrderSet = 2, ; + Label_item1.Caption = "6.Rapoarte", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Cw5' AS cw WITH ; + Left = 7, ; + Name = "Cw5", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 61, ; + ZOrderSet = 7, ; + Label_item1.Caption = "3.Vânzare", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Cw6' AS cw WITH ; + Left = 7, ; + linactiv = .F., ; + Name = "Cw6", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 133, ; + ZOrderSet = 3, ; + Label_item1.Caption = "5.Stocuri marfã", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Cw7' AS cw WITH ; + Left = 7, ; + linactiv = .T., ; + Name = "Cw7", ; + nid_cw = 7, ; + TabIndex = 4, ; + Top = 202, ; + Visible = .F., ; + ZOrderSet = 1, ; + Label_item1.Caption = "7.Casa de marcat", ; + Label_item1.FontCharSet = 238, ; + Label_item1.Name = "Label_item1", ; + Label_item1.TabIndex = 1 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.p7.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 122 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 157 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 85 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 192 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Pict_liniuta5' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta5", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 226, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.p7.Shape1' AS pict_meniu WITH ; + Left = 1, ; + Name = "Shape1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 5, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + PROCEDURE Activate + *!* 31.12.2019 + *!* marius.mutu + *!* ActualizeazaNumereAct - lista cu ultimele numere NIR/BON pe gestiuni pentru utilizatorul curent + + Local E,G,h,I,J + Store .F. To E,G,h,I,J + + Thisform.container1.texT1.Caption=gcUserNameApp + + E=Iif('-1'$gcGestPermis,.T.,.F.) + G=Iif(M.NIVEL=0 Or E,.T.,.F.) + h=Iif(m.NIVEL<3,.T.,.F.) + I=Iif(!luna_inchisa,.T.,.F.) + J=(h And I) + + This.Pagefr1.P1.Enabled=G + If !G And This.Pagefr1.ActivePage=1 + This.Pagefr1.ActivePage=2 + Endif + + This.ActualizeazaNumereAct() + ENDPROC + + PROCEDURE actualizeazanumereact + * Afisare ultimele numere documente din gestiune pe utilizatorul curent (ACN) + * Nu fac nimic daca nu este configurata optiunea RG_AFISARE_NUMERE = 1 + IF !(TYPE('gnRG_AFISARE_NUMERE') = 'N' AND gnRG_AFISARE_NUMERE = 1) + RETURN .F. + ENDIF + + Local lcSql, lSucces, lcSelect + lcSelect = SELECT() + This.lblNumere.Visible = .F. + this.lstNumere.Visible = .F. + This.lstNumere.RowSource = "" + Dimension Thisform.aNumereDoc[1, 4] + Thisform.aNumereDoc = "" + + + Text To lcSql Textmerge Noshow + select distinct tipdoc, entitate, dataact, id_set, nnir, nnirmax + from (Select d.fel_document As tipdoc, + g.nume_gestiune As entitate, + r.dataact, + r.id_set, + r.nnir, + Max(r.nnir) OVER(PARTITION BY d.fel_document, g.nume_gestiune, r.id_set) As nnirmax + FROM rul r + Left Join nom_gestiuni g + On r.id_gestiune = g.id_gestiune + LEFT Join act a + On r.an = a.an + and r.luna = a.luna + and r.cod = a.cod + LEFT Join nom_fdoc d + on a.id_fdoc = d.id_fdoc + WHERE r.an = <> + and r.luna = <> + and r.id_util = <> + and r.sters = 0) + where nnir = nnirmax + Endtext + llSucces = goExecutor.oExecuta(m.lcSql, 'cNumereTemp') + + If m.llSucces + Select Distinct tipdoc, entitate, INT(nnir) as nnir, TTOD(dataact) as dataact ; + From cNumereTemp ; + Into Array Thisform.aNumereDoc + + Use In (Select('cNumereTemp')) + + If _Tally > 0 + This.lblNumere.Visible = .T. + this.lstNumere.Visible = .T. + This.lstNumere.RowSource = "Thisform.aNumereDoc" + Endif + + Endif + This.lstNumere.Refresh() + + SELECT (m.lcSelect) + ENDPROC + + PROCEDURE getcwbynumber + Lparameters tnCWNumber + LOCAL loControl, loCW, lcCaption, lnNumber, i, lnControlCount + + loCW = null + loPaginaActiva = this.oPaginaActiva + lnControlCount = this.oPaginaActiva.Controlcount + FOR i = 1 TO lnControlCount + loControl = loPaginaActiva.controls(i) + If Lower(Left(loControl.Name,2)) = 'cw' + lcCaption = loControl.label_item1.caption + lnPos = AT('.', m.lcCaption) + IF lnPos > 0 + lnNumber = VAL(LEFT(lcCaption, lnPos - 1)) + IF lnNumber = tnCWNumber + loCW = loControl + EXIT + ENDIF + ENDIF + Endif + Endfor + + RETURN loCW + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + Local lcNumber, lnNumber, loCW, lcNextCharacter, loControl + loControl = Null + + Do Case + Case nShiftAltCtrl = 0 And Between(nKeyCode, 49, 57) && 1..9 + lcNumber = Alltrim(Str(nKeyCode - 48)) + + IF .F. && se activeaza daca sunt peste 9 containere + If nKeyCode = 49 && 1 + Set Cursor Off + Wait "" To lcNextCharacter Timeout 0.5 + Set Cursor On + If Alltrim(m.lcNextCharacter)$'0123456789' + lcNumber = m.lcNumber + Alltrim(m.lcNextCharacter) && 10, 11,12,13,14,15 + Endif + ENDIF + ENDIF + lnNumber = Int(Val(m.lcNumber)) + loCW = This.Getcwbynumber(m.lnNumber) + If !Isnull(loCW) + If loCW.Enabled + loControl = loCW + Endif + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -5 && F6 Registrul Jurnal + If Pemstatus(This, "Imagine01", 5) And This.Imagine01.Visible + loControl = This.Imagine01 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -6 && F7 NIR + If Pemstatus(This, "Imagine02", 5) And This.Imagine02.Visible + loControl = This.Imagine02 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -7 && F8 Bon + If Pemstatus(This, "Imagine03", 5) And This.Imagine03.Visible + loControl = This.Imagine03 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = -8 && F9 Rulaje + If Pemstatus(This, "Imagine04", 5) And This.Imagine04.Visible + loControl = This.Imagine04 + Endif + Case nShiftAltCtrl = 0 And nKeyCode = 96 && ` = F10 Stocuri (Tratat cu ON KEY LABEL F10) + If Pemstatus(This, "Imagine05", 5) And This.Imagine05.Visible + loControl = This.Imagine05 + Endif + + Case nShiftAltCtrl = 0 And nKeyCode = 103 && G Gestiuni + This.Pagefr1.p1.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 109 && M Materii prime + This.Pagefr1.p2.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 111 && O Obiecte de inventar + This.Pagefr1.p3.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 112 && P Produse + this.pagefr1.p4.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 97 && A Marfa pret achizitie + This.Pagefr1.p5.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 118 && V Marfa pret vanzare + This.Pagefr1.p6.Activate() + Case nShiftAltCtrl = 0 And nKeyCode = 101 && E Marfa pret achizitie * + This.Pagefr1.p7.Activate() + Endcase + If !Isnull(loControl) + Nodefault + With loControl + .MouseEnter() + .Click() + .MouseLeave() + Endwith + Else + DoDefault(nKeyCode, nShiftAltCtrl) + Endif + ENDPROC + + PROCEDURE RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('oprinc','pagefr1') + + ENDPROC + + PROCEDURE selectie_achi + Local lc_cond + IF RIGHT(ALLTRIM(gcGestPermis),1)=',' + gcGestPermis=LEFT(gcGestPermis,LEN(ALLTRIM(gcGestPermis))-1) + ENDIF + *!* lc_cond=[((nrg!=6) and IIF("-1"$grupepermis,.t.,INLIST(gest,]+gcGestPermis+[)))] + ********************************************************************************** + lcCond=[nrg!=6] + lcGestPermis = gcGestPermis + lcFiltre = [] + + DO case + CASE "-1"$lcGestPermis + * + OTHERWISE + lnnr = OCCURS(",",lcGestPermis )+1 + IF lnnr>24 + lcFiltre = lcFiltre + " and (" + lngrupe = CEILING(lnnr/24) + lcgrupa = lcGestPermis + FOR i = 1 TO lngrupe + lnpos = AT(",",lcgrupa,24) + IF lnpos != 0 + lcgrupat = LEFT(lcGrupa,lnpos-1) + ELSE + lcgrupat = lcgrupa + ENDIF + lcgrupa = SUBSTR(lcgrupa,lnpos+1) + lcFiltre = lcFiltre + " INLIST(gest,"+lcgrupat+") or " + ENDFOR + lcFiltre = LEFT(lcFiltre , LEN(lcFiltre) -4) + ")" + + ELSE + lcFiltre = lcFiltre + " and INLIST(gest,"+lcGestPermis +")" + ENDIF + ENDCASE + lcCond = lcCond + lcFiltre + ******************************************************************** + *!* IF USED('NUMEGEST') + *!* Use In numegest + *!* Do des With 'numegest' + + *!* Select * From numegest Where &lccond Into Cursor nn Order By numegest NOFILTER + *!* USE IN numegest + *!* lcdbf=DBF('nn') + *!* USE (lcdbf) again IN 0 ALIAS numegest share + *!* * SELECT * from nn INTO CURSOR numegest Order By numegest + *!* USE IN nn + + *!* ENDIF + + ENDPROC + + PROCEDURE selectie_vanz + + Local lccond + IF RIGHT(ALLTRIM(gcGestPermis),1)=',' + gcGestPermis=LEFT(gcGestPermis,LEN(ALLTRIM(gcGestPermis))-1) + ENDIF + *!* lccond=[((nrg=6) and IIF("-1"$grupepermis,.t.,INLIST(gest,]+gcGestPermis+[)))] + + ******************************************************************** + lcCond=[nrg=6] + lcGestPermis = gcGestPermis + lcFiltre = [] + + DO case + CASE "-1"$lcGestPermis + * + OTHERWISE + lnnr = OCCURS(",",lcGestPermis )+1 + IF lnnr>24 + lcFiltre = lcFiltre + " and (" + lngrupe = CEILING(lnnr/24) + lcgrupa = lcGestPermis + FOR i = 1 TO lngrupe + lnpos = AT(",",lcgrupa,24) + IF lnpos != 0 + lcgrupat = LEFT(lcGrupa,lnpos-1) + ELSE + lcgrupat = lcgrupa + ENDIF + lcgrupa = SUBSTR(lcgrupa,lnpos+1) + lcFiltre = lcFiltre + " INLIST(gest,"+lcgrupat+") or " + ENDFOR + lcFiltre = LEFT(lcFiltre , LEN(lcFiltre) -4) + ")" + + ELSE + lcFiltre = lcFiltre + " and INLIST(gest,"+lcGestPermis +")" + ENDIF + ENDCASE + lcCond = lcCond + lcFiltre + ******************************************************************** + + + + *!* IF USED('NUMEGEST') + *!* *!* Use In numegest + *!* *!* Do des With 'numegest' + + *!* *!* Select * From numegest Where &cond Into Cursor nn Order By numegest + *!* *!* USE IN numegest + *!* *!* SELECT * from nn INTO CURSOR numegest Order By numegest + *!* *!* USE IN nn + *!* Use In numegest + *!* + *!* Do des With 'numegest' + *!* Select * From numegest Where &lccond Into Cursor nn Order By numegest NOFILTER + *!* USE IN numegest + *!* lcdbf=DBF('nn') + *!* USE (lcdbf) again IN 0 ALIAS numegest share + *!* * SELECT * from nn INTO CURSOR numegest Order By numegest + *!* USE IN nn + + *!* ENDIF + + ENDPROC + + PROCEDURE selenumegest + ENDPROC + + PROCEDURE Show + Lparameters nStyle + Local w,h + w=_Screen.Width + h=_Screen.Height + + This.Width=w + This.Height=h + + *!* lnTopVer = this.lbversion.Top - this.image1.Top + *!* lnLeftVer = this.lbversion.Left - this.image1.Left + This.image1.Left=w-This.image1.Width + This.image1.Top=h-This.image1.Height + This.imaGE2.Width = w + *this.container1.Left=w-this.container1.Width + This.container1.Top=h-This.container1.Height + + *!* this.Lbversion.Left=this.image1.Left + lnLeftVer + *!* this.Lbversion.Top=this.image1.Top + lnTopVer + + With This.pagefr1 + .Width=w + .Height=h + .p1.shape1.Height=h + .p2.shape1.Height=h + .p3.shape1.Height=h + .p4.shape1.Height=h + .p5.shape1.Height=h + .p6.shape1.Height=h + .p7.shape1.Height=h + Endwith + + ON KEY LABEL F10 KEYBOARD "`" && F10 activa meniul in loc sa apese pe imaginea Stocuri + KEYBOARD '{CTRL+TAB}' + + ENDPROC + + PROCEDURE Image1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Imagine01.do_actiune + DO viz_act IN ooperatii_comune + ENDPROC + + PROCEDURE Imagine02.do_actiune + *!* DO CASE + *!* CASE INLIST(gnTipGest,2,3,4,5) + *!* lans(46) + *!* CASE INLIST(gnTipGest,6) + *!* lans(49) + *!* ENDCASE + + DO CASE + CASE gnTipGest = 2 AND oprinc.pagefr1.p2.cw1.enabled + lans(46) + CASE gnTipGest = 3 AND oprinc.pagefr1.p3.cw1.enabled + lans(46) + CASE gnTipGest = 4 AND oprinc.pagefr1.p4.cw8.enabled + lans(46) + CASE gnTipGest = 5 AND oprinc.pagefr1.p5.cw1.enabled + lans(43) + CASE gnTipGest = 6 AND oprinc.pagefr1.p6.cw1.enabled + lans(49) + CASE gnTipGest = 7 AND oprinc.pagefr1.p7.cw1.enabled + lans(246) + ENDCASE + + + ENDPROC + + PROCEDURE Imagine03.do_actiune + *!* Do Case + *!* Case gnTipGest=2 + *!* lans(53) + *!* Case gnTipGest=3 + *!* && Do consum2 In procmeniu.prg + *!* Case gnTipGest=4 + *!* lans(54) + *!* Case gnTipGest=5 + *!* lans(56) + *!* ENDCASE + + DO CASE + CASE gnTipGest = 2 AND oprinc.pagefr1.p2.cw2.enabled + lans(53) + CASE gnTipGest = 3 AND oprinc.pagefr1.p3.cw2.enabled + lans(55) + CASE gnTipGest = 4 AND oprinc.pagefr1.p4.cw2.enabled + lans(54) + CASE gnTipGest = 5 AND oprinc.pagefr1.p5.cw2.enabled + lans(56) + ENDCASE + ENDPROC + + PROCEDURE Imagine04.do_actiune + Do viz_rulaje In oproceduri_rulaje.prg + + ENDPROC + + PROCEDURE Imagine05.do_actiune + LOCAL lnTipGest, lcTitlu, lcPagina + + lnTipGest = gnTipGest + lcPagina = 'p'+ALLTRIM(STR(gnTipGest)) + lcTitlu = thisform.pagefr1.&lcPagina..caption + + IF gnTipGest = 1 + lnTipGest = 0 + lcTitlu = '' + ENDIF + + + DO viz_stocuri IN oproceduri_stocuri.prg WITH lnTipGest, lcTitlu + + + ENDPROC + + PROCEDURE lstNumere.DblClick + _cliptext = This.ListItem(This.ListItemId,3) + ENDPROC + + PROCEDURE lstNumere.RightClick + Local lcSelect + lcSelect = Select() + Create Cursor cNumereTemp (tipdoc V(100), entitate V(100), nnir I, dataact D) + Select cNumereTemp + Append From Array Thisform.aNumereDoc + GO TOP + + _vfp.DataToClip('cNumereTemp',,3) + + Use In (Select('cNumereTemp')) + Select (m.lcSelect) + + ENDPROC + + PROCEDURE Pagefr1.activate_pag + LPARAMETERS tnPagina + + Local lcPagina, lnPagina + + *:Global gnTipGest + lnPagina = IIF(!EMPTY(m.tnPagina), tnPagina, 1) + lcPagina = ALLTRIM(STR(lnPagina)) + thisform.nPagina = m.lnPagina + thisform.oPaginaActiva = this.p&lcPagina + + thisform.opaginaactiva.click() + thisform.opaginaactiva.setfocus() + + gnTipGest = lnPagina + this.selectie(gnTipGest) + IF lnPagina = 1 + thisform.imagine02.picture = 'IN1_B.BMP' + thisform.imagine02.pictureup = 'IN1_B.BMP' + thisform.imagine02.picturedown = 'IN2_B.BMP' + thisform.imagine03.picture = 'OUT1_B.BMP' + thisform.imagine03.pictureup = 'OUT1_B.BMP' + thisform.imagine03.picturedown = 'OUT2_B.BMP' + ELSE + thisform.imagine02.picture = 'IN1.BMP' + thisform.imagine02.pictureup = 'IN1.BMP' + thisform.imagine02.picturedown = 'IN2.BMP' + thisform.imagine03.picture = 'OUT1.BMP' + thisform.imagine03.pictureup = 'OUT1.BMP' + thisform.imagine03.picturedown = 'OUT2.BMP' + ENDIF + ENDPROC + + PROCEDURE Pagefr1.p1.Cw1.do_actiune + DO config.mpr + ENDPROC + + PROCEDURE Pagefr1.p1.Cw2.do_actiune + *!* DO listgen.mpr + DO rapoarte.mpr + ENDPROC + + PROCEDURE Pagefr1.p1.Cw3.do_actiune + Do lista_inventar In ointroduceri.prg + ENDPROC + + PROCEDURE Pagefr1.p1.Cw4.do_actiune + DO viz_act IN ooperatii_comune + ENDPROC + + PROCEDURE Pagefr1.p1.Cw5.do_actiune + DO vizgen.mpr + ENDPROC + + PROCEDURE Pagefr1.p1.Cw6.do_actiune + *!* 24.02.2010 + *!* Do lista_inventar_magazin In ointroduceri.prg + Do lista_inventar WITH 5 In ointroduceri.prg + *!* 24.02.2010 ^ + ENDPROC + + PROCEDURE Pagefr1.p1.RightClick + this.parent.RightClick + ENDPROC + + PROCEDURE Pagefr1.p2.Cw1.do_actiune + DO achi.mpr + ENDPROC + + PROCEDURE Pagefr1.p2.Cw2.do_actiune + DO consum1.mpr + ENDPROC + + PROCEDURE Pagefr1.p2.Cw3.do_actiune + DO transfer2.mpr + ENDPROC + + PROCEDURE Pagefr1.p2.Cw4.do_actiune + LOCAL llIntern as Boolean + + x = xmenu("Achizitie din import;Achizitie interna") + + DO CASE + CASE x = 1 + llIntern = .F. + DO achizitie_import WITH 208, llIntern IN ointroduceri.prg + CASE x = 2 + llIntern = .T. + DO achizitie_import WITH 221, llIntern IN ointroduceri.prg + ENDCASE + ENDPROC + + PROCEDURE Pagefr1.p2.Cw5.do_actiune + DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption + ENDPROC + + PROCEDURE Pagefr1.p2.Cw6.do_actiune + DO list1.mpr + ENDPROC + + PROCEDURE Pagefr1.p2.Cw7.do_actiune + DO vanz2.mpr + ENDPROC + + PROCEDURE Pagefr1.p2.Cw8.do_actiune + DO achi_transfer.mpr + ENDPROC + + PROCEDURE Pagefr1.p2.RightClick + this.parent.RightClick + ENDPROC + + PROCEDURE Pagefr1.p3.Cw1.do_actiune + DO achi.mpr + ENDPROC + + PROCEDURE Pagefr1.p3.Cw2.do_actiune + DO consum2.mpr + ENDPROC + + PROCEDURE Pagefr1.p3.Cw3.do_actiune + DO transfer2.mpr + ENDPROC + + PROCEDURE Pagefr1.p3.Cw4.do_actiune + Do viz_rulaje_obinv In oproceduri_rulaje.prg + ENDPROC + + PROCEDURE Pagefr1.p3.Cw5.do_actiune + DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption + + ENDPROC + + PROCEDURE Pagefr1.p3.Cw6.do_actiune + DO list2.mpr + ENDPROC + + PROCEDURE Pagefr1.p3.Cw7.do_actiune + DO viz_stocuri_obinv IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption, .T. + + ENDPROC + + PROCEDURE Pagefr1.p3.RightClick + this.parent.RightClick + ENDPROC + + PROCEDURE Pagefr1.p4.Cw1.do_actiune + DO achi3.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Cw2.do_actiune + DO consum3.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Cw3.do_actiune + DO transfer1.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Cw4.do_actiune + DO vanz3.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Cw5.do_actiune + DO config3.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Cw6.do_actiune + DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption + + ENDPROC + + PROCEDURE Pagefr1.p4.Cw7.do_actiune + DO list3.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.Cw8.do_actiune + DO achi.mpr + ENDPROC + + PROCEDURE Pagefr1.p4.RightClick + this.parent.RightClick + ENDPROC + + PROCEDURE Pagefr1.p5.Cw1.do_actiune + DO achi4.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Cw2.do_actiune + DO consum4.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Cw3.do_actiune + DO transfer.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Cw4.do_actiune + LOCAL llIntern as Boolean + + x = xmenu("Achizitie din import;Achizitie interna") + + DO CASE + CASE x = 1 + llIntern = .F. + DO achizitie_import WITH 209, llIntern IN ointroduceri.prg + CASE x = 2 + llIntern = .T. + DO achizitie_import WITH 220, llIntern IN ointroduceri.prg + ENDCASE + ENDPROC + + PROCEDURE Pagefr1.p5.Cw5.do_actiune + DO vanz4.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Cw6.do_actiune + DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption + + ENDPROC + + PROCEDURE Pagefr1.p5.Cw7.do_actiune + DO list4.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.Cw8.do_actiune + DO achi_transfer.mpr + ENDPROC + + PROCEDURE Pagefr1.p5.RightClick + this.parent.RightClick + ENDPROC + + PROCEDURE Pagefr1.p6.Cw1.do_actiune + DO achi5.mpr + ENDPROC + + PROCEDURE Pagefr1.p6.Cw2.do_actiune + DO config5.mpr + ENDPROC + + PROCEDURE Pagefr1.p6.Cw3.do_actiune + DO transfer5.mpr + ENDPROC + + PROCEDURE Pagefr1.p6.Cw4.do_actiune + DO list5.mpr + ENDPROC + + PROCEDURE Pagefr1.p6.Cw5.do_actiune + DO vanz5.mpr + ENDPROC + + PROCEDURE Pagefr1.p6.Cw6.do_actiune + DO viz_stocuri_pretv IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption + ENDPROC + + PROCEDURE Pagefr1.p6.Cw7.do_actiune + DO casamarcat.mpr + *!* DO casademarcat IN oproceduri_casademarcat.prg + ENDPROC + + PROCEDURE Pagefr1.p6.RightClick + this.parent.RightClick + ENDPROC + + PROCEDURE Pagefr1.p7.Cw1.do_actiune + DO achi6.mpr + ENDPROC + + PROCEDURE Pagefr1.p7.Cw2.do_actiune + DO config6.mpr + ENDPROC + + PROCEDURE Pagefr1.p7.Cw3.do_actiune + DO transfer6.mpr + ENDPROC + + PROCEDURE Pagefr1.p7.Cw4.do_actiune + DO list6.mpr + ENDPROC + + PROCEDURE Pagefr1.p7.Cw5.do_actiune + DO vanz6.mpr + ENDPROC + + PROCEDURE Pagefr1.p7.Cw6.do_actiune + *!* DO viz_stocuri_pretv IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption + DO viz_stocuri IN oproceduri_stocuri.prg WITH gnTipGest,this.Parent.caption + ENDPROC + + PROCEDURE Pagefr1.p7.Cw7.do_actiune + DO casamarcat.mpr + *!* DO casademarcat IN oproceduri_casademarcat.prg + ENDPROC + + PROCEDURE Pagefr1.p7.RightClick + this.parent.RightClick + ENDPROC + + PROCEDURE Pagefr1.RightClick + thisform.imaGE1.RightClick + ENDPROC + + PROCEDURE Pagefr1.selectie + PARAMETERS n_g + + LOCAL lccond + lccond = ALLTRIM(STR(n_g)) + lnTip = n_g + + IF USED('nom_gestiuni') + USE IN nom_gestiuni + ENDIF + + *!* modificare ROAGEST v 2.0.6 + *!* DO CASE + *!* CASE "-1" $ gcGestPermis + *!* IF gnTipGest = 6 + *!* lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag = ?gnTipGest order by nume_gestiune] + *!* ELSE + *!* lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag <> 6 order by nume_gestiune] + *!* ENDIF + *!* lcCursor = [nom_gestiuni] + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + *!* IF lnSucces < 0 + *!* aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + *!* QUIT + *!* ENDIF + *!* goExecutor.oReset() + *!* OTHERWISE + IF gnTipGest = 6 + lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag = ] + lccond + [ and id_gestiune in ] + ; + [(select g.id_gestiune from vgest_coresp_grupe_gestiuni g join ] + ; + gcs + [.vgest_coresp_util_grupe u on g.id_grupe = u.id_grupe and u.id_util = ?gnIdUtil) order by nume_gestiune] + ELSE + lcSql = [select * from vnom_GESTIUNI where inactiv = 0 and nr_pag <> 6 and id_gestiune in ] + ; + [(select g.id_gestiune from vgest_coresp_grupe_gestiuni g join ] + ; + gcs + [.vgest_coresp_util_grupe u on g.id_grupe = u.id_grupe and u.id_util = ?gnIdUtil) order by nume_gestiune] + ENDIF + + lcCursor = [nom_gestiuni] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + QUIT + ENDIF + goExecutor.oReset() + *!* ENDCASE + *!* modificare ROAGEST v 2.0.6 ^ + + ENDPROC + +ENDDEFINE diff --git a/Clase/oavize.vc2 b/Clase/oavize.vc2 new file mode 100644 index 0000000..26cfa88 --- /dev/null +++ b/Clase/oavize.vc2 @@ -0,0 +1,137 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oavize.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_date_aviz 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_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_serie_act" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_altele + * + + * + DoCreate = .T. + Height = 146 + Name = "frm_date_aviz" + 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 = "Date aviz" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 344 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 132 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + But_renunt1.Left = 315 + But_renunt1.Name = "But_renunt1" + But_renunt1.Top = 1 + * + + ADD OBJECT 'Clb_serie_act' AS clb_serie_act WITH ; + cvariabila = serie_act, ; + cvariabiladoc = nract, ; + Left = 12, ; + Name = "Clb_serie_act", ; + nid_tipdoc = 6, ; + pcobj = poDate, ; + Top = 41, ; + Width = 314, ; + Text_simplu1.Name = "Text_simplu1", ; + _cbbase1.Name = "_cbbase1", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 12, ; + Name = "Clb_tx_simplu2", ; + Top = 69, ; + Width = 314, ; + Text_simplu1.ControlSource = "poDate.nract", ; + Text_simplu1.InputMask = (get_mask(14,0)), ; + Text_simplu1.Left = 125, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Lb_simplu1.Caption = "Numarul avizului", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ; + cconditie = EMPTY(NVL(poDate.listaid,'')), ; + cprocedura = thisform.do_cauta_altele, ; + cvar_afisata = poDate.descriere, ; + Left = 12, ; + Name = "Ct_clb_cautare1", ; + Top = 103, ; + img_cautare.Name = "img_cautare", ; + clb_tx_cautare.Lb_simplu1.Caption = "Gestiune destinatie", ; + 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" /> + + PROCEDURE do_cauta_altele + Local loCauta + loCauta = caut_gestiune_dest(poDate.id_client) + If !Isnull(loCauta) And !Empty(Nvl(loCauta.id_gestiune,0)) + poDate.listaid = loCauta.id_gestiune + poDate.descriere = loCauta.nume_gestiune + + poDateGestiuneDest.id_gestiune = loCauta.id_gestiune + poDateGestiuneDest.id_tipgest = loCauta.id_tipgest + poDateGestiuneDest.Cont = Nvl(loCauta.Cont,[XXXX]) + poDateGestiuneDest.acont = Nvl(loCauta.acont,[XXXX]) + + This.ct_clb_cautare1.Refresh() + Endif + + ENDPROC + + PROCEDURE inainte_de_do_termin + Local llReturn + Store .T. To llReturn + Do Case + Case Empty(Nvl(poDate.nract,0)) + amessagebox("Numarul avizului trebuie sa fie diferit de 0!",48,"Atentie") + llReturn = .F. + Thisform.clb_tx_simplu2.SetFocus() + Case Empty(Nvl(poDate.listaid,'')) + amessagebox("Nu ati ales gestiunea destinatie!",48,"Atentie") + llReturn = .F. + Thisform.ct_clb_cautare1.SetFocus() + Otherwise + llReturn = .T. + Endcase + Return llReturn + + ENDPROC + + PROCEDURE Init + DoDefault() + With Thisform + If Inlist(poDate.rezultat_serii,1,3) + Thisform.clb_serie_act.do_initializeaza(poDate.rezultat_serii) + Thisform.clb_serie_act.SetFocus() + Else + lnHeight = lnHeight - Thisform.clb_serie_act.Height + laPozitii(Thisform.clb_serie_act.TabIndex,2)=1 + Thisform.RemoveObject('clb_serie_act') + Thisform.clb_nract.SetFocus() + Endif + Endwith + ENDPROC + +ENDDEFINE diff --git a/Clase/oimportxml.vc2 b/Clase/oimportxml.vc2 new file mode 100644 index 0000000..2bf690b --- /dev/null +++ b/Clase/oimportxml.vc2 @@ -0,0 +1,490 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="oimportxml.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_atenterori AS frm_termin OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow2.Column9.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + *p: nidgestiune + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 482 + Name = "frm_atenterori" + nidgestiune = 0 + Width = 797 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 876 + _shape2.Left = 744 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Atentionari / Erori" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 764 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 276, ; + Left = 12, ; + Name = "_grdrow1", ; + Panel = 1, ; + RecordSource = "crsAtentionari ", ; + Top = 48, ; + Width = 768, ; + Column1.ControlSource = "mesaj", ; + Column1.Name = "Column1", ; + Column1.Width = 539, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "iif(afara,'Eroare','Atentionare')", ; + Column2.Name = "Column2", ; + Column3.ColumnOrder = 2, ; + Column3.ControlSource = "nrord", ; + Column3.Name = "Column3", ; + Column3.Width = 120 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mesaj", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Caption = "", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Caption = "Lucrare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2' AS _grdrow WITH ; + ColumnCount = 8, ; + DeleteMark = .F., ; + Height = 136, ; + Left = 12, ; + Name = "_grdrow2", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordSource = "v_stoc", ; + Top = 336, ; + Width = 768, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "Column2", ; + Column1.ReadOnly = .F., ; + Column1.Width = 191, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "codmat", ; + Column2.Name = "Column3", ; + Column2.ReadOnly = .F., ; + Column2.Width = 132, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "stoc", ; + Column3.Name = "Column4", ; + Column3.ReadOnly = .F., ; + Column3.Width = 98, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "pret", ; + Column4.Name = "Column5", ; + Column4.ReadOnly = .F., ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "nume_gestiune", ; + Column5.Name = "Column6", ; + Column5.ReadOnly = .F., ; + Column5.Width = 141, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "cgest", ; + Column6.Name = "Column7", ; + Column6.ReadOnly = .F., ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "id_articol", ; + Column7.Name = "Column8", ; + Column7.ReadOnly = .F., ; + Column8.ColumnOrder = 1, ; + Column8.ControlSource = "ales", ; + Column8.CurrentControl = "Check1", ; + Column8.Name = "Column9", ; + Column8.ReadOnly = .F., ; + Column8.Sparse = .F., ; + Column8.Width = 48 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow2.Column2.Header1' AS header WITH ; + Caption = "Denumire", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow2.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2.Column3.Header1' AS header WITH ; + Caption = "Codmat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow2.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2.Column4.Header1' AS header WITH ; + Caption = "Stoc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow2.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2.Column5.Header1' AS header WITH ; + Caption = "Pret", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow2.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2.Column6.Header1' AS header WITH ; + Caption = "Gestiune", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow2.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2.Column7.Header1' AS header WITH ; + Caption = "Cgest", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow2.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2.Column8.Header1' AS header WITH ; + Caption = "Id articol", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow2.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow2.Column9.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + ControlSource = "ales", ; + Height = 17, ; + Left = 11, ; + Name = "Check1", ; + Top = 47, ; + Value = 0, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_grdrow2.Column9.Header1' AS header WITH ; + Caption = "Ales", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 729, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + PROCEDURE Activate + DODEFAULT() + this._grdrow1.AfterRowColChange + + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru,lnid_coloana + + SELECT v_stoc + + + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poStoc.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._grdrow2) + poStoc.ca_baza1.cfiltru=lcFiltru + poStoc.ca_baza1.afisare() + + + restore_grid_tag(thisform._grdrow2) + *!* IF RECCOUNT('v_mecanici')>0 + IF crsAtentionari.rezolvat + SELECT v_stoc + REPLACE ales WITH 1 FOR ALLTRIM(codmat) = ALLTRIM(crsAtentionari.codmat) AND pret = crsAtentionari.pret + ENDIF + this._grdrow2.AutoFit + *!* this._grdrow2.ReadOnly = .f. + + ENDPROC + + PROCEDURE inainte_de_do_termin + SELECT crsAtentionari + LOCATE FOR afara = .f. AND rezolvat = .f. + IF FOUND() + aMESSAGEBOX('Rezolvati atentionarile!',0+16,_screen.Caption ) + RETURN .f. + ENDIF + ENDPROC + + PROCEDURE _grdrow1.AfterRowColChange + LPARAMETERS nColIndex + *!* save_grid_tag(thisform._grdrow2) + + *!* lcSql = [select a.cants+a.cant-a.cante as stoc,a.* from vstoc a where a.an = ?gnAn and a.luna = ?gnluna and a.codmat = ']+ALLTRIM(crsAtentionari.codmat)+[' ] + *!* lcCursor = [v_stoc] + + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + *!* goExecutor.oReset() + *!* IF lnSucces < 0 + *!* aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* RETURN + *!* ENDIF + *!* thisform._grdrow2.RecordSource = 'v_stoc' + *!* restore_grid_tag(thisform._grdrow2) + *!* thisform._grdrow2.AutoFit + IF afara = .f. + + lcFiltru = [ a.an = ?gnAn and a.luna = ?gnluna and a.codmat = ']+ALLTRIM(crsAtentionari.codmat)+[' and a.id_gestiune = ]+ALLTRIM(STR(thisform.nidgestiune )) + ELSE + lcFiltru = [ 1=2 ] + ENDIF + Thisform.actualizeaza_grid1(lcFiltru) + + + ENDPROC + + PROCEDURE _grdrow2.Column9.Check1.Click + LOCAL lnid_Articol + lnid_Articol = v_stoc.id_articol + lnPret = v_stoc.pret + IF this.Value = 1 + SELECT v_stoc + REPLACE ALL ales WITH 0 FOR !(id_articol = lnid_Articol AND pret = lnPret) + LOCATE FOR id_articol = lnid_Articol AND pret = lnPret + SELECT crsBonTOT + REPLACE ALL id_articol WITH lnid_Articol,pret WITH lnPret FOR ALLTRIM(codmat) = ALLTRIM(v_stoc.codmat) AND id_lucrare = crsAtentionari.id_lucrare AND time = crsAtentionari.time + SELECT crsAtentionari + REPLACE rezolvat WITH .t.,pret WITH lnPret + ELSE + SELECT v_stoc + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_lucrari_sume 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="_grdbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 262 + Name = "frm_lucrari_sume" + Width = 624 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 636 + _shape2.Left = 552 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "." + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 594 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 565 + But_renunt1.Name = "But_renunt1" + But_renunt1.Top = 1 + * + + ADD OBJECT '_grdbase1' AS _grdbase WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 200, ; + Left = 12, ; + Name = "_grdbase1", ; + Panel = 1, ; + ReadOnly = .F., ; + RecordSource = "crsIesiritot", ; + Top = 48, ; + Width = 600, ; + Column1.ControlSource = "nrord", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .F., ; + Column1.Width = 393, ; + Column2.ControlSource = "suma_imp", ; + Column2.InputMask = (get_mask(12,gnPc)), ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .F., ; + Column3.ControlSource = "suma", ; + Column3.InputMask = (get_mask(12,gnPc)), ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .F., ; + Column3.Width = 97 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ; + Caption = "Lucrare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ; + Caption = "Suma import", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ; + Caption = "Suma modificata", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + +ENDDEFINE diff --git a/Clase/orapoarte_gestiuni.vc2 b/Clase/orapoarte_gestiuni.vc2 new file mode 100644 index 0000000..b70643f --- /dev/null +++ b/Clase/orapoarte_gestiuni.vc2 @@ -0,0 +1,853 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_gestiuni.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS frm_cerere_cont_gestiune 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="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_grup" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_data_referinta" UniqueID="" Timestamp="" /> + + * + *m: do_cauta_gestiune + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 123 + Name = "frm_cerere_cont_gestiune" + Width = 353 + _shape1.Name = "_shape1" + _shape2.Left = 280 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Introduceti contul si gestiunea" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 322 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Name = "Gridsort1" + But_renunt1.Left = 293 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 5 + But_renunt1.Top = 1 + * + + ADD OBJECT 'Clb_data_referinta' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 17, ; + Name = "Clb_data_referinta", ; + TabIndex = 3, ; + Top = 89, ; + Width = 207, ; + Text_simplu1.ControlSource = "pdDataReferinta", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 118, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 85, ; + Lb_simplu1.Caption = "Data de referinta", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_grup' AS ct_clb_cautare_var WITH ; + cconditie = EMPTY(NVL(pnId_gestiune,0)), ; + cprocedura = thisform.do_cauta_gestiune, ; + cvar_afisata = pcGestiune, ; + Height = 31, ; + Left = 16, ; + Name = "Ct_clb_grup", ; + TabIndex = 2, ; + Top = 60, ; + Width = 337, ; + shape_cautare.Height = 29, ; + shape_cautare.Left = 1, ; + shape_cautare.Name = "shape_cautare", ; + shape_cautare.Top = 1, ; + shape_cautare.Width = 305, ; + img_cautare.Left = 310, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 5, ; + lb_cautare.Caption = "Gestiune", ; + lb_cautare.Name = "lb_cautare", ; + tx_cautare.Left = 119, ; + tx_cautare.Name = "tx_cautare", ; + tx_cautare.Top = 4 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Cont:", ; + Height = 17, ; + Left = 26, ; + Name = "Label1", ; + TabIndex = 7, ; + Top = 39, ; + Width = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + ControlSource = "pcCont", ; + Format = "k", ; + Height = 23, ; + Left = 136, ; + Name = "Text2", ; + TabIndex = 1, ; + Top = 36, ; + Width = 84 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE do_cauta_gestiune + Local loCauta + loCauta = caut_gestiune(0,gnidUtil,.t.) + + If gnButon <> 2 + pnid_gestiune = loCauta.id_gestiune + pcGestiune = loCauta.nume_gestiune + + Thisform.but_termin1.SetFocus() + Else + pnid_gestiune = Null + pcGestiune = [] + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_date_rapoarte_rulaje AS frm_date_rapoarte_gen OF "..\comun\clase\orapoarte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valoutvanzctva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_um2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_articol" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_lucrare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_gestiune" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_nnir" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cont" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_serie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_codmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_subgrupa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_sectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_pretach" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_pretv" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_partener" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_responsabil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_pretvtva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valinvanzctva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valadaosie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valadaosin" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valoutvz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valinvz" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valoutach" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valinach" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cante" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cant" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valtvavanzie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_valtvavanzin" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_furnizor" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cant_bax" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_an" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_luna" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + ctitluraportinitial = Rapoarte bazate pe rulaje + DoCreate = .T. + Height = 572 + Name = "frm_date_rapoarte_rulaje" + nidformularraport = 1 + Width = 696 + _memberdata = + + + + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 696 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 604 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 90 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 14 + Lb_titlu_alb_b121.ZOrderSet = 4 + GRIDSORT1.Left = 480 + GRIDSORT1.Name = "GRIDSORT1" + GRIDSORT1.Top = 36 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 9 + BUT_TERMIN1.ZOrderSet = 5 + But_listare1.Name = "But_listare1" + But_listare1.TabIndex = 8 + But_excel1.Name = "But_excel1" + But_excel1.TabIndex = 7 + But_excel1.Visible = .T. + But_help1.Name = "But_help1" + But_help1.TabIndex = 2 + But_cautare1.Name = "But_cautare1" + But_cautare1.TabIndex = 4 + But_nou1.Name = "But_nou1" + But_nou1.TabIndex = 3 + But_sterge1.Name = "But_sterge1" + But_sterge1.TabIndex = 6 + Ct_selectie1.cnumetabela = vrapoarte_rul + Ct_selectie1.Ct_grupare1.Height = 187 + Ct_selectie1.Ct_grupare1.lblAtentie.Name = "lblAtentie" + Ct_selectie1.Ct_grupare1.lb_grupare.Name = "lb_grupare" + Ct_selectie1.Ct_grupare1.Left = 6 + Ct_selectie1.Ct_grupare1.Name = "Ct_grupare1" + Ct_selectie1.Ct_grupare1.TabIndex = 30 + Ct_selectie1.Ct_grupare1.Top = 331 + Ct_selectie1.Ct_grupare1.Width = 360 + Ct_selectie1.Ct_grupare1.ZOrderSet = 11 + Ct_selectie1.Ct_grupare1._scrollcontainer1.But_jos1.Name = "But_jos1" + Ct_selectie1.Ct_grupare1._scrollcontainer1.But_sus1.Name = "But_sus1" + Ct_selectie1.Ct_grupare1._scrollcontainer1.Name = "_scrollcontainer1" + Ct_selectie1.Ct_ordonare1.Height = 176 + Ct_selectie1.Ct_ordonare1.lb_ordonare.Name = "lb_ordonare" + Ct_selectie1.Ct_ordonare1.Left = 6 + Ct_selectie1.Ct_ordonare1.Name = "Ct_ordonare1" + Ct_selectie1.Ct_ordonare1.TabIndex = 31 + Ct_selectie1.Ct_ordonare1.Top = 156 + Ct_selectie1.Ct_ordonare1.Width = 360 + Ct_selectie1.Ct_ordonare1.ZOrderSet = 12 + Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_jos1.Name = "But_jos1" + Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_sus1.Name = "But_sus1" + Ct_selectie1.Ct_ordonare1._scrollcontainer1.Name = "_scrollcontainer1" + Ct_selectie1.Height = 527 + Ct_selectie1.lb_coloane.Name = "lb_coloane" + Ct_selectie1.lb_coloane.TabIndex = 32 + Ct_selectie1.lb_coloane.ZOrderSet = 13 + Ct_selectie1.Left = 12 + Ct_selectie1.ltitlucoloanesuma = .T. + Ct_selectie1.Name = "Ct_selectie1" + Ct_selectie1.TabIndex = 1 + Ct_selectie1.Top = 36 + Ct_selectie1.Width = 372 + ed_explicatii_filtru.Height = 500 + ed_explicatii_filtru.Left = 396 + ed_explicatii_filtru.Name = "ed_explicatii_filtru" + ed_explicatii_filtru.TabIndex = 11 + ed_explicatii_filtru.Top = 63 + ed_explicatii_filtru.Width = 288 + But_salveaza1.lvizibil = .F. + But_salveaza1.Name = "But_salveaza1" + But_salveaza1.TabIndex = 5 + But_reset2.Name = "But_reset2" + But_reset2.TabIndex = 10 + LB_RAPORT_PREDEFINIT.Name = "LB_RAPORT_PREDEFINIT" + LB_RAPORT_PREDEFINIT.TabIndex = 13 + But_start_criterii1.Name = "But_start_criterii1" + But_start_criterii1.TabIndex = 12 + * + + ADD OBJECT 'Ct_selectie1.Ct_selectie_an' AS ct_selectie_camp WITH ; + ccamp = an, ; + cnumecamp = An, ; + Left = 2, ; + lgrupare = .T., ; + lordine = .T., ; + lsuma = .F., ; + Name = "Ct_selectie_an", ; + nid_container = 16, ; + TabIndex = 19, ; + Top = 11, ; + ZOrderSet = 27, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "An", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_articol' AS ct_selectie_camp WITH ; + ccamp = denumire, ; + cnumecamp = Articol, ; + Left = 2, ; + Name = "Ct_selectie_articol", ; + nid_container = 5, ; + TabIndex = 5, ; + Top = 96, ; + ZOrderSet = 2, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Articol", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_cant' AS ct_selectie_camp WITH ; + ccamp = cant, ; + cnumecamp = Intrari, ; + Left = 117, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_cant", ; + nid_container = 15, ; + TabIndex = 18, ; + Top = 140, ; + ZOrderSet = 28, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Intrari", ; + ck_camp.Left = 9, ; + ck_camp.Name = "ck_camp", ; + ck_camp.Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_cant_bax' AS ct_selectie_camp WITH ; + ccamp = cant_bax, ; + cnumecamp = Cant.impach., ; + Left = 117, ; + Name = "Ct_selectie_cant_bax", ; + nid_container = 28, ; + TabIndex = 10, ; + Top = 14, ; + ZOrderSet = 31, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Cant.impach.", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_cante' AS ct_selectie_camp WITH ; + ccamp = cante, ; + cnumecamp = Iesiri, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_cante", ; + nid_container = 16, ; + TabIndex = 19, ; + Top = -2, ; + ZOrderSet = 27, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Iesiri", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_codmat' AS ct_selectie_camp WITH ; + ccamp = codmat, ; + cnumecamp = Cod material, ; + Left = 2, ; + Name = "Ct_selectie_codmat", ; + nid_container = 4, ; + TabIndex = 4, ; + Top = 81, ; + ZOrderSet = 9, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Cod material", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_cont' AS ct_selectie_camp WITH ; + ccamp = cont, ; + cnumecamp = Cont, ; + Left = 2, ; + Name = "Ct_selectie_cont", ; + nid_container = 7, ; + TabIndex = 7, ; + Top = 125, ; + ZOrderSet = 7, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Cont", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_dataact' AS ct_selectie_camp WITH ; + ccamp = dataact, ; + cnumecamp = Data, ; + Left = 2, ; + Name = "Ct_selectie_dataact", ; + nid_container = 2, ; + TabIndex = 2, ; + Top = 53, ; + ZOrderSet = 5, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Data", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_furnizor' AS ct_selectie_camp WITH ; + ccamp = furnizor, ; + cnumecamp = Furnizor, ; + Left = 117, ; + lgrupare = .T., ; + Name = "Ct_selectie_furnizor", ; + nid_container = 27, ; + TabIndex = 12, ; + Top = 56, ; + ZOrderSet = 17, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Furnizor", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_gestiune' AS ct_selectie_camp WITH ; + ccamp = NUME_GESTIUNE, ; + cidcamp = id_gestiune, ; + cnumecamp = Gestiune, ; + Left = 117, ; + Name = "Ct_selectie_gestiune", ; + nid_container = 9, ; + TabIndex = 9, ; + Top = 0, ; + ZOrderSet = 4, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Gestiune", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_lucrare' AS ct_selectie_camp WITH ; + ccamp = nrord, ; + cidcamp = id_lucrare, ; + cnumecamp = Lucrare, ; + Left = 2, ; + Name = "Ct_selectie_lucrare", ; + nid_container = 8, ; + TabIndex = 8, ; + Top = 140, ; + ZOrderSet = 3, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Lucrare", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_luna' AS ct_selectie_camp WITH ; + ccamp = luna, ; + cnumecamp = Luna, ; + Left = 2, ; + lgrupare = .T., ; + lordine = .T., ; + lsuma = .F., ; + Name = "Ct_selectie_luna", ; + nid_container = 16, ; + TabIndex = 19, ; + Top = 25, ; + ZOrderSet = 27, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Luna", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_nnir' AS ct_selectie_camp WITH ; + ccamp = nnir, ; + cnumecamp = NIR/Bon, ; + Left = 2, ; + lgrupare = .F., ; + Name = "Ct_selectie_nnir", ; + nid_container = 1, ; + TabIndex = 1, ; + Top = 39, ; + ZOrderSet = 6, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "NIR/Bon", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_partener' AS ct_selectie_camp WITH ; + ccamp = partener, ; + cnumecamp = Partener, ; + Left = 117, ; + lgrupare = .T., ; + Name = "Ct_selectie_partener", ; + nid_container = 27, ; + TabIndex = 12, ; + Top = 42, ; + ZOrderSet = 17, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Partener", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_pretach' AS ct_selectie_camp WITH ; + ccamp = pret, ; + cnumecamp = Pret achizitie, ; + Left = 117, ; + Name = "Ct_selectie_pretach", ; + nid_container = 12, ; + TabIndex = 15, ; + Top = 98, ; + ZOrderSet = 15, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Pret achizitie", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_pretv' AS ct_selectie_camp WITH ; + ccamp = pretv, ; + cnumecamp = Pret vanzare, ; + Left = 117, ; + Name = "Ct_selectie_pretv", ; + nid_container = 13, ; + TabIndex = 16, ; + Top = 112, ; + ZOrderSet = 16, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Pret vanzare", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_pretvtva' AS ct_selectie_camp WITH ; + ccamp = pretvtva, ; + cnumecamp = Pret vanz cu TVA, ; + Height = 19, ; + Left = 117, ; + Name = "Ct_selectie_pretvtva", ; + nid_container = 14, ; + TabIndex = 17, ; + Top = 126, ; + Width = 120, ; + ZOrderSet = 19, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Pret vanz. cu TVA", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_responsabil' AS ct_selectie_camp WITH ; + ccamp = nresp, ; + cnumecamp = Responsabil, ; + Left = 117, ; + lgrupare = .T., ; + Name = "Ct_selectie_responsabil", ; + nid_container = 11, ; + TabIndex = 14, ; + Top = 84, ; + ZOrderSet = 18, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Responsabil", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_sectie' AS ct_selectie_camp WITH ; + ccamp = sectie, ; + cnumecamp = Sectie, ; + Left = 117, ; + Name = "Ct_selectie_sectie", ; + nid_container = 10, ; + TabIndex = 13, ; + Top = 70, ; + ZOrderSet = 14, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Sectie", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_serie' AS ct_selectie_camp WITH ; + ccamp = serie, ; + cnumecamp = Serie, ; + Left = 2, ; + lgrupare = .T., ; + Name = "Ct_selectie_serie", ; + nid_container = 6, ; + TabIndex = 6, ; + Top = 111, ; + ZOrderSet = 8, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Serie", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_subgrupa' AS ct_selectie_camp WITH ; + ccamp = subgrupa, ; + cidcamp = id_subgrupa, ; + cnumecamp = Subgrupa articol, ; + Height = 19, ; + Left = 2, ; + Name = "Ct_selectie_subgrupa", ; + nid_container = 3, ; + TabIndex = 3, ; + Top = 67, ; + Width = 131, ; + ZOrderSet = 10, ; + ck_camp.Alignment = 0, ; + ck_camp.AutoSize = .T., ; + ck_camp.Caption = "Subgrupa articol", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_um2' AS ct_selectie_camp WITH ; + ccamp = um2, ; + cnumecamp = U.M.2, ; + Left = 117, ; + Name = "Ct_selectie_um2", ; + nid_container = 27, ; + TabIndex = 11, ; + Top = 28, ; + ZOrderSet = 1, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "U.M. 2", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valadaosie' AS ct_selectie_camp WITH ; + ccamp = round(decode(proc_tvav,0,cante*pretv,(cante*(pretv+tvav)/proc_tvav)),pack_sesiune.getoptiunefirma('PC')) - (cante*pret), ; + cnumecamp = Val.adaos iesiri, ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valadaosie", ; + nid_container = 22, ; + TabIndex = 25, ; + Top = 82, ; + Width = 132, ; + ZOrderSet = 21, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.adaos iesiri", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valadaosin' AS ct_selectie_camp WITH ; + ccamp = round(decode(proc_tvav,0,cant*pretv,(cant*(pretv+tvav)/proc_tvav)),pack_sesiune.getoptiunefirma('PC'))-(cant*pret), ; + cnumecamp = Val.adaos intrari, ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valadaosin", ; + nid_container = 21, ; + TabIndex = 24, ; + Top = 67, ; + Width = 132, ; + ZOrderSet = 22, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.adaos intrari", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valinach' AS ct_selectie_camp WITH ; + ccamp = round(cant*pret,pack_sesiune.getoptiunefirma('PC')), ; + cnumecamp = Val.intrari ach., ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valinach", ; + nid_container = 17, ; + TabIndex = 20, ; + Top = 11, ; + Width = 132, ; + ZOrderSet = 26, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.intrari ach.", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valinvanzctva' AS ct_selectie_camp WITH ; + ccamp = round(cant*(pretv+tvav),pack_sesiune.getoptiunefirma('PC')), ; + cnumecamp = Val.intrari vz.cu TVA, ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valinvanzctva", ; + nid_container = 23, ; + TabIndex = 26, ; + Top = 97, ; + Width = 140, ; + ZOrderSet = 20, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.intrari vz.cu TVA", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valinvz' AS ct_selectie_camp WITH ; + ccamp = decode(nr_pag,6,round((pretv + tvav) * cant,?gnPc) - round(round((pretv + tvav) * cant,?gnPc) * (proc_tvav - 1) / proc_tvav,?gnPc) , round(pretv * cant,?gnPc) ), ; + cnumecamp = Val.intrari vz., ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valinvz", ; + nid_container = 19, ; + TabIndex = 22, ; + Top = 39, ; + Width = 132, ; + ZOrderSet = 24, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.intrari vz.", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valoutach' AS ct_selectie_camp WITH ; + ccamp = round(cante*pret,pack_sesiune.getoptiunefirma('PC')), ; + cnumecamp = Val.iesiri ach., ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valoutach", ; + nid_container = 18, ; + TabIndex = 21, ; + Top = 25, ; + Width = 132, ; + ZOrderSet = 25, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.iesiri ach.", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valoutvanzctva' AS ct_selectie_camp WITH ; + ccamp = round(cante*(pretv+tvav),pack_sesiune.getoptiunefirma('PC')), ; + cnumecamp = Val.iesiri vz.cu TVA, ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valoutvanzctva", ; + nid_container = 24, ; + TabIndex = 27, ; + Top = 111, ; + Width = 140, ; + ZOrderSet = 0, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.iesiri vz.cu TVA", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valoutvz' AS ct_selectie_camp WITH ; + ccamp = decode(nr_pag,6,round((pretv + tvav) * cante,?gnPc) - round(round((pretv + tvav) * cante,?gnPc) * (proc_tvav - 1) / proc_tvav,?gnPc), round(pretv * cante,?gnPc) ), ; + cnumecamp = Val.iesiri vz., ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valoutvz", ; + nid_container = 20, ; + TabIndex = 23, ; + Top = 53, ; + Width = 132, ; + ZOrderSet = 23, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.iesiri vz.", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valtvavanzie' AS ct_selectie_camp WITH ; + ccamp = decode(proc_tvav,0,0,ROUND(cante*(pretv+tvav)*(proc_tvav-1)/proc_tvav,pack_sesiune.getoptiunefirma('PC'))), ; + cnumecamp = Val.TVA vz. iesiri, ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valtvavanzie", ; + nid_container = 26, ; + TabIndex = 29, ; + Top = 140, ; + Width = 140, ; + ZOrderSet = 29, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.TVA vz. iesiri", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_valtvavanzin' AS ct_selectie_camp WITH ; + ccamp = decode(proc_tvav,0,0,ROUND(cant*(pretv+tvav)*(proc_tvav-1)/proc_tvav,pack_sesiune.getoptiunefirma('PC'))), ; + cnumecamp = Val.TVA vz. intrari, ; + Height = 19, ; + Left = 232, ; + lgrupare = .F., ; + lordine = .F., ; + lsuma = .T., ; + Name = "Ct_selectie_valtvavanzin", ; + nid_container = 25, ; + TabIndex = 28, ; + Top = 126, ; + Width = 140, ; + ZOrderSet = 30, ; + ck_camp.Alignment = 0, ; + ck_camp.Caption = "Val.TVA vz. intrari", ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" /> + + PROCEDURE Init + Lparameters tnIdRaport, tlDrepturi + DoDefault(tnIdRaport, tlDrepturi) + This.ct_selectie1.ct_selectie_valinach.ccamp = [case when id_subgrupa = pack_sesiune.getoptiunefirma('ID_SUBGRUPA_BILETE') ] + ; + [then ROUND((pretv + tvav) * cant, ?gnPc) - round(round((pretv + tvav) * cant, ?gnPc) * ] + ; + [(proc_tvav - 1) / proc_tvav, ?gnPc) ] + ; + [else round(pret * cant, ?gnPc) end] + This.ct_selectie1.ct_selectie_valoutach.ccamp = [case when id_subgrupa = pack_sesiune.getoptiunefirma('ID_SUBGRUPA_BILETE') ] + ; + [then ROUND((pretv + tvav) * cante, ?gnPc) - round(round((pretv + tvav) * cante, ?gnPc) * ] + ; + [(proc_tvav - 1) / proc_tvav, ?gnPc) ] + ; + [else round(pret * cante, ?gnPc) end] + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + PARAMETERS tacriterii + EXTERNAL ARRAY tacriterii + #DEFINE crlf CHR(13)+CHR(10) + lcStringCriterii="Denumire articol\denumire\T\id_articol\nom_articol"+ crlf + ; + "Cod material\codmat\T\none\" + crlf + ; + "Serie articol\serie\T\none\" + crlf + ; + "Grupa articol\none\I\id_grupa\nom_grupa_articol" + crlf + ; + "Subgrupa articol\none\I\id_subgrupa\nom_subgrupa_articol"+ crlf + ; + "Cod bare\codbare\T\none\"+ crlf + ; + "Nr. document\nract\N\none\" + crlf + ; + "Serie document\serie_act\T\none\" + crlf + ; + "Data document\dataact\D\none\" + crlf + ; + "Nr. NIR/bon\nnir\N\none\" + crlf + ; + "Pret achizitie\pret\N|get_mask(12,gnPpret)\none\"+ crlf + ; + "Pret vz.\pretv\N|get_mask(12,gnPpret)\none\"+ crlf + ; + "Pret vz. TVA\(pretv + tvav)\N|get_mask(12,gnPpret)\none\"+ crlf + ; + "Pret valuta\pretd\N|get_mask(12,gnPPretval)\none\" + crlf + ; + "Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ; + "Intrari\cant\N|get_mask(12,gnPCant)\none\" + crlf + ; + "Iesiri\cante\N|get_mask(12,gnPCant)\none\" + crlf + ; + "Cont\cont\T\none\"+ crlf + ; + "Cont analitic\acont\T\none\"+ crlf + ; + "Data document\dataact\D\none\" + crlf + ; + "Partener\partener\T\ID_PART\nom_parteneri" + crlf + ; + "Furnizor\furnizor\T\ID_PART_FZ\nom_parteneri" + crlf + ; + "Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ; + "Grupa gestiuni\|E|" + ; + [id_gestiune in ( ] + ; + [ select c.id_gestiune ] + ; + [ from vgest_coresp_grupe_gestiuni c ] + ; + [ where id_grupe in (select id_grupe ] + ; + [ from gest_nom_grupe ] + ; + [ where sters = 0 ] + ; + [ start with id_grupe = <> ] + ; + [ connect by prior id_grupe = parent_id))\I\none\nom_grupa_gestiune] + crlf + ; + "Gestiune\none\I\id_gestiune\nom_gestiune" + crlf + ; + "Gestiune coresp.\none\I\id_gestiunec\nom_gestiune" + crlf + ; + "Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ; + "Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ; + "Responsabil\responsabil\T\ID_RESPONSABIL\nom_responsabil" + crlf + ; + "Tip rulaj\none\I\id_tip_rulaj\nom_tip_rulaj" + crlf + ; + "Tip operatie\id_set\N\none\" + crlf + ; + "Data introducerii\trunc(dataora)\D\none\" + DODEFAULT() + + + + + + + + ENDPROC + +ENDDEFINE diff --git a/Clase/ovizrul.vc2 b/Clase/ovizrul.vc2 new file mode 100644 index 0000000..8df9d24 --- /dev/null +++ b/Clase/ovizrul.vc2 @@ -0,0 +1,6 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ovizrul.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* \ No newline at end of file diff --git a/Code39M.TTF b/Code39M.TTF new file mode 100644 index 0000000..995cf9e Binary files /dev/null and b/Code39M.TTF differ diff --git a/Ferestre/accesindivid.sc2 b/Ferestre/accesindivid.sc2 new file mode 100644 index 0000000..847a153 --- /dev/null +++ b/Ferestre/accesindivid.sc2 @@ -0,0 +1,172 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="accesindivid.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 formtermin1 AS formtermin OF "..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="TEXT_ITEM1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label_item2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label_item3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="List2" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 318 + Name = "Formtermin1" + Width = 456 + Shape1.Height = 32 + Shape1.Left = 0 + Shape1.Name = "Shape1" + Shape1.Top = 0 + Shape1.Width = 455 + TERMINAT1.COMMAND1.Name = "COMMAND1" + TERMINAT1.IMBUTON1.Height = 27 + TERMINAT1.IMBUTON1.Name = "IMBUTON1" + TERMINAT1.IMBUTON1.Width = 30 + TERMINAT1.Left = 424 + TERMINAT1.Name = "TERMINAT1" + TERMINAT1.Top = 1 + TITLUFRUMOS1.Caption = "Grupe de acces" + TITLUFRUMOS1.Height = 25 + TITLUFRUMOS1.Left = 8 + TITLUFRUMOS1.Name = "TITLUFRUMOS1" + TITLUFRUMOS1.Top = 4 + TITLUFRUMOS1.Width = 364 + * + + ADD OBJECT 'Label_item1' AS label_item WITH ; + AutoSize = .F., ; + Caption = "Are drepturi de acces asupra grupelor de gestiuni :", ; + Height = 32, ; + Left = 14, ; + Name = "Label_item1", ; + Top = 106, ; + Width = 198, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'Label_item2' AS label_item WITH ; + AutoSize = .F., ; + Caption = "Gestiunile:", ; + Height = 32, ; + Left = 242, ; + Name = "Label_item2", ; + Top = 106, ; + Width = 198, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'Label_item3' AS label_item WITH ; + Caption = "Are drepturi de acces asupra tuturor gestiunilor.", ; + Left = 12, ; + Name = "Label_item3", ; + Top = 72, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" /> + + ADD OBJECT 'List1' AS listbox WITH ; + BorderColor = 0,64,128, ; + FontName = "Arial Narrow", ; + Height = 157, ; + ItemBackColor = 217,241,255, ; + Left = 12, ; + Name = "List1", ; + RowSourceType = 1, ; + SpecialEffect = 1, ; + Top = 144, ; + Width = 205 + *< END OBJECT: BaseClass="listbox" /> + + ADD OBJECT 'List2' AS listbox WITH ; + BorderColor = 0,64,128, ; + FontName = "Arial Narrow", ; + Height = 157, ; + ItemBackColor = 217,241,255, ; + Left = 240, ; + Name = "List2", ; + RowSourceType = 1, ; + SpecialEffect = 1, ; + Top = 144, ; + Width = 205 + *< END OBJECT: BaseClass="listbox" /> + + ADD OBJECT 'TEXT_ITEM1' AS text_item WITH ; + ControlSource = "", ; + FontBold = .T., ; + FontUnderline = .T., ; + Height = 20, ; + Left = 12, ; + Name = "TEXT_ITEM1", ; + Top = 48, ; + Width = 240 + *< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" /> + + PROCEDURE Init + + PRIVATE pcutil + STORE '' TO pcutil + + *Are drepturi de acces asupra grupelor de gestiuni cu numerele: + *Are drepturi de acces asupra tuturor gestiunilor. + *Gestiuni cu indicativele: + + lcSql = [select utilizator from utilizatori where id_util = ] + ALLTRIM(STR(gnidutil)) + lcCursor = [crsUtil] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces < 0 + lcMesaj = goExecutor.cEroare + ofrm_eroare =CREATEOBJECT('frm_mesaj',[Eroare],[exclam.ico],[Avertizare],lcMesaj) + ofrm_eroare.show() + RELEASE ofrm_eroare + return + ENDIF + + pcutil = &lcCursor..utilizator + this.text_item1.ControlSource = [pcutil] + + IF '-1'$gcGrupePermis + this.label_item1.Visible=.f. + this.label_item2.Visible=.f. + this.list1.Visible=.f. + this.list2.Visible=.f. + this.label_item3.Visible=.t. + ENDIF + + IF EMPTY(gcGrupePermis_nume) + this.label_item1.Caption = [Nu are drepturi pe grupe de gestiuni!] + this.list1.Visible=.f. + ENDIF + + IF EMPTY(gcGestPermis_nume) + this.label_item2.Caption = [Nu are drepturi pe gestiuni!] + this.list2.Visible=.f. + ENDIF + + this.list1.RowSource = (gcGrupePermis_nume) + this.list2.RowSource = (gcGestPermis_nume) + + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_conversii.sc2 b/Ferestre/frm_conversii.sc2 new file mode 100644 index 0000000..9d50168 --- /dev/null +++ b/Ferestre/frm_conversii.sc2 @@ -0,0 +1,206 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_conversii.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" /> + + * + Name = "Dataenvironment" + * + +ENDDEFINE + +DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Item1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Item2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Item3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pageframe1.Page1.Item4" UniqueID="" Timestamp="" /> + + * + *m: calcul_suprafata + * + + * + BorderStyle = 3 + DataSession = 1 + DoCreate = .T. + Height = 221 + Name = "FormTERMIN12" + Width = 477 + Shape1.Name = "Shape1" + Terminat1.Command1.Name = "Command1" + Terminat1.Imbuton1.Height = 27 + Terminat1.Imbuton1.Name = "Imbuton1" + Terminat1.Imbuton1.Width = 30 + Terminat1.Left = 444 + Terminat1.Name = "Terminat1" + Terminat1.Top = 3 + Titlufrumos1.Caption = "CONVERSII" + Titlufrumos1.Left = 9 + Titlufrumos1.Name = "Titlufrumos1" + Titlufrumos1.Top = 3 + * + + ADD OBJECT 'Pageframe1' AS pageframe WITH ; + ErasePage = .T., ; + Height = 156, ; + Left = 13, ; + Name = "Pageframe1", ; + PageCount = 1, ; + TabStyle = 1, ; + Top = 48, ; + Width = 456, ; + Page1.BackColor = 247,245,238, ; + Page1.Caption = "Lungime, Suprafata", ; + Page1.FontName = "Courier New", ; + Page1.ForeColor = 0,0,128, ; + Page1.Name = "Page1" + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'Pageframe1.Page1.Item1' AS item WITH ; + Left = 11, ; + Name = "Item1", ; + TabIndex = 1, ; + Top = 20, ; + Label_item1.Caption = "Lungimea ", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "pnLungime", ; + Text_item1.Format = "kR", ; + Text_item1.InputMask = "9 999 999 999.9999", ; + Text_item1.Name = "Text_item1", ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Item2' AS item WITH ; + Left = 11, ; + Name = "Item2", ; + TabIndex = 2, ; + Top = 44, ; + Label_item1.Caption = "Latimea ", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "pnLatime", ; + Text_item1.Format = "kR", ; + Text_item1.InputMask = "9 999 999 999.9999", ; + Text_item1.Name = "Text_item1", ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Item3' AS item WITH ; + Left = 11, ; + Name = "Item3", ; + TabIndex = 3, ; + Top = 68, ; + Label_item1.Caption = "Pret unitar placa", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "pnPret", ; + Text_item1.Format = "kR", ; + Text_item1.InputMask = "9 999 999 999.9999", ; + Text_item1.Name = "Text_item1", ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> + + ADD OBJECT 'Pageframe1.Page1.Item4' AS item WITH ; + Left = 11, ; + Name = "Item4", ; + TabIndex = 4, ; + Top = 92, ; + Label_item1.Caption = "Cantitatea", ; + Label_item1.Name = "Label_item1", ; + Text_item1.ControlSource = "PnCant", ; + Text_item1.Format = "kR", ; + Text_item1.InputMask = "9 999 999 999.9999", ; + Text_item1.Name = "Text_item1", ; + Lineo1.Name = "Lineo1", ; + Lineo3.Name = "Lineo3", ; + Lineo4.Name = "Lineo4", ; + Lineo5.Name = "Lineo5", ; + Lineo2.Name = "Lineo2" + *< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" /> + + PROCEDURE calcul_suprafata + IF pnLungime#0 AND pnLatime#0 AND pnCANT#0 AND pnPRET#0 + pn_valoare=pnCant*pnPret + *pn_cantitate=(pn_valoare/pnPret)*pnLungime*pnLatime + pn_cantitate=ROUND(pnCant*pnLungime*pnLatime,3) + *pn_PretUnit=(pn_valoare/pnCant)/(pnLungime*pnLatime) + pn_PretUnit=ROUND(pn_valoare/pn_cantitate,3) + ELSE + pn_cantitate=0 + pn_PretUnit=0 + ENDIF + + *!* WAIT WINDOW STR(pn_pretUnit) + *!* WAIT WINDOW STR(pn_cantitate) + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + this.pageframe1.page1.item1.SetFocus + ENDPROC + + PROCEDURE Pageframe1.Page1.Item1.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item1.Text_item1.Valid + * + + ENDPROC + + PROCEDURE Pageframe1.Page1.Item1.Text_item1.When + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item2.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item2.Text_item1.Valid + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item2.Text_item1.When + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item3.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item3.Text_item1.When + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item4.Text_item1.GotFocus + * + ENDPROC + + PROCEDURE Pageframe1.Page1.Item4.Text_item1.When + * + ENDPROC + + PROCEDURE Terminat1.Command1.Click + thisform.calcul_suprafata + thisform.Release + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_schimbare_pret_tva.sc2 b/Ferestre/frm_schimbare_pret_tva.sc2 new file mode 100644 index 0000000..16288d5 --- /dev/null +++ b/Ferestre/frm_schimbare_pret_tva.sc2 @@ -0,0 +1,97 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimbare_pret_tva.scx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS schimbpret_masa_tva1 AS schimbpret_masa_tva OF "..\comun\clase\oschimbare_pret.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Schimbpret_masa_tva1" + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Name = "_SHAPE2" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + GRIDSORT1.Name = "GRIDSORT1" + grdPolitici.cAles.Check1.Alignment = 2 + grdPolitici.cAles.Check1.Name = "Check1" + grdPolitici.cAles.HEADER1.Name = "HEADER1" + grdPolitici.cAles.Name = "cAles" + grdPolitici.cAles.TEXT1.Name = "TEXT1" + grdPolitici.cPolitica.HEADER1.Name = "HEADER1" + grdPolitici.cPolitica.Name = "cPolitica" + grdPolitici.cPolitica.TEXT1.Name = "TEXT1" + grdPolitici.cPretcuTVA.Check1.Alignment = 0 + grdPolitici.cPretcuTVA.Check1.Name = "Check1" + grdPolitici.cPretcuTVA.HEADER1.Name = "HEADER1" + grdPolitici.cPretcuTVA.Name = "cPretcuTVA" + grdPolitici.cPretcuTVA.TEXT1.Name = "TEXT1" + grdPolitici.Name = "grdPolitici" + grdGestiuni.cAles.Check1.Alignment = 2 + grdGestiuni.cAles.Check1.Name = "Check1" + grdGestiuni.cAles.HEADER1.Name = "HEADER1" + grdGestiuni.cAles.Name = "cAles" + grdGestiuni.cAles.TEXT1.Name = "TEXT1" + grdGestiuni.cGestiune.HEADER1.Name = "HEADER1" + grdGestiuni.cGestiune.Name = "cGestiune" + grdGestiuni.cGestiune.TEXT1.Name = "TEXT1" + grdGestiuni.Name = "grdGestiuni" + _label1.Name = "_label1" + _label2.Name = "_label2" + grdSubgrupe.cAles.Check1.Alignment = 2 + grdSubgrupe.cAles.Check1.Name = "Check1" + grdSubgrupe.cAles.HEADER1.Name = "HEADER1" + grdSubgrupe.cAles.Name = "cAles" + grdSubgrupe.cAles.TEXT1.Name = "TEXT1" + grdSubgrupe.cGrupa.HEADER1.Name = "HEADER1" + grdSubgrupe.cGrupa.Name = "cGrupa" + grdSubgrupe.cGrupa.TEXT1.Name = "TEXT1" + grdSubgrupe.cSubgrupa.HEADER1.Name = "HEADER1" + grdSubgrupe.cSubgrupa.Name = "cSubgrupa" + grdSubgrupe.cSubgrupa.TEXT1.Name = "TEXT1" + grdSubgrupe.Name = "grdSubgrupe" + _label3.Name = "_label3" + _label4.Name = "_label4" + _label5.Name = "_label5" + txtCotaTVAVeche.Name = "txtCotaTVAVeche" + txtCotaTVANoua.Name = "txtCotaTVANoua" + _label6.Name = "_label6" + _label7.Name = "_label7" + Cmd_executa1.Name = "Cmd_executa1" + Cmd_executa2.Name = "Cmd_executa2" + lblInfo.Name = "lblInfo" + _label8.Name = "_label8" + _label9.Name = "_label9" + _label10.Name = "_label10" + txtDataActualizare.Name = "txtDataActualizare" + optPret.Name = "optPret" + optPret.OPTION1.Left = 5 + optPret.OPTION1.Name = "OPTION1" + optPret.OPTION1.Top = 5 + optPret.OPTION2.Left = 5 + optPret.OPTION2.Name = "OPTION2" + optPret.OPTION2.Top = 24 + _label11.Name = "_label11" + txtZecimale.Name = "txtZecimale" + cmdSelect1.Name = "cmdSelect1" + cmdSelect2.Name = "cmdSelect2" + cmdSelect3.Name = "cmdSelect3" + * + +ENDDEFINE diff --git a/Ferestre/fundal.sc2 b/Ferestre/fundal.sc2 new file mode 100644 index 0000000..705fc10 --- /dev/null +++ b/Ferestre/fundal.sc2 @@ -0,0 +1,96 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS form1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + *m: jurnal + *m: statusbarclick + *p: ostatusbar + * + + * + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 2 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Enabled = .T. + FillColor = 0,0,0 + HalfHeightCaption = .F. + Height = 595 + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "FORM1" + ostatusbar = + Picture = ..\..\ + Width = 795 + WindowState = 2 + * + + PROCEDURE jurnal + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + if nkeycode==-1 &&F2 + DO IESIRE + endif + + + ENDPROC + + PROCEDURE RightClick + DO start_firma IN ostartfirma.prg + verifica_drepturi('oprinc','pagefr1') + ENDPROC + + PROCEDURE Show + Lparameters nStyle + Local c + *!* IF primadata + This.AlwaysOnBottom = .T. + 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="roastartmic.ico" + Thisform.oStatusBar.ctlMessage = _Screen.Caption + Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick]) + + Do start_firma In ostartfirma.prg + primadata = .F. + Do lansare_toolbar In oproceduri_comune.prg + Do lansare_help In oproceduri_comune.prg + oprinc=Crea('princ') + verifica_drepturi('oprinc','pagefr1') + *!* ENDIF + oprinc.Show() + ENDPROC + + PROCEDURE statusbarclick + Thisform.oStatusBar.newtooltip() + ENDPROC + +ENDDEFINE diff --git a/Grafice/ARW01LT.ICO b/Grafice/ARW01LT.ICO new file mode 100644 index 0000000..066451f Binary files /dev/null and b/Grafice/ARW01LT.ICO differ diff --git a/Grafice/BINOCULR.ICO b/Grafice/BINOCULR.ICO new file mode 100644 index 0000000..bd8202e Binary files /dev/null and b/Grafice/BINOCULR.ICO differ diff --git a/Grafice/BLUE.BMP b/Grafice/BLUE.BMP new file mode 100644 index 0000000..4dbef7d Binary files /dev/null and b/Grafice/BLUE.BMP differ diff --git a/Grafice/BOOK.ICO b/Grafice/BOOK.ICO new file mode 100644 index 0000000..b4c6683 Binary files /dev/null and b/Grafice/BOOK.ICO differ diff --git a/Grafice/BOOK01A.ICO b/Grafice/BOOK01A.ICO new file mode 100644 index 0000000..ac45768 Binary files /dev/null and b/Grafice/BOOK01A.ICO differ diff --git a/Grafice/BOOK01B.ICO b/Grafice/BOOK01B.ICO new file mode 100644 index 0000000..53eb2c4 Binary files /dev/null and b/Grafice/BOOK01B.ICO differ diff --git a/Grafice/BOOK01C.ICO b/Grafice/BOOK01C.ICO new file mode 100644 index 0000000..b21898e Binary files /dev/null and b/Grafice/BOOK01C.ICO differ diff --git a/Grafice/BOOK04.ICO b/Grafice/BOOK04.ICO new file mode 100644 index 0000000..bf8dd39 Binary files /dev/null and b/Grafice/BOOK04.ICO differ diff --git a/Grafice/C.ico b/Grafice/C.ico new file mode 100644 index 0000000..ce97f71 Binary files /dev/null and b/Grafice/C.ico differ diff --git a/Grafice/CRDFLE01.ICO b/Grafice/CRDFLE01.ICO new file mode 100644 index 0000000..b96b91f Binary files /dev/null and b/Grafice/CRDFLE01.ICO differ diff --git a/Grafice/CRDFLE12.ICO b/Grafice/CRDFLE12.ICO new file mode 100644 index 0000000..703943b Binary files /dev/null and b/Grafice/CRDFLE12.ICO differ diff --git a/Grafice/EDIT1.BMP b/Grafice/EDIT1.BMP new file mode 100644 index 0000000..87c5211 Binary files /dev/null and b/Grafice/EDIT1.BMP differ diff --git a/Grafice/EYE.ICO b/Grafice/EYE.ICO new file mode 100644 index 0000000..b1c65e6 Binary files /dev/null and b/Grafice/EYE.ICO differ diff --git a/Grafice/FILES04.ICO b/Grafice/FILES04.ICO new file mode 100644 index 0000000..de26392 Binary files /dev/null and b/Grafice/FILES04.ICO differ diff --git a/Grafice/FIND.BMP b/Grafice/FIND.BMP new file mode 100644 index 0000000..c29fbce Binary files /dev/null and b/Grafice/FIND.BMP differ diff --git a/Grafice/HLP.BMP b/Grafice/HLP.BMP new file mode 100644 index 0000000..4fbb501 Binary files /dev/null and b/Grafice/HLP.BMP differ diff --git a/Grafice/LEAF.BMP b/Grafice/LEAF.BMP new file mode 100644 index 0000000..d6b95bc Binary files /dev/null and b/Grafice/LEAF.BMP differ diff --git a/Grafice/NEW.BMP b/Grafice/NEW.BMP new file mode 100644 index 0000000..025abea Binary files /dev/null and b/Grafice/NEW.BMP differ diff --git a/Grafice/NOTE14.ICO b/Grafice/NOTE14.ICO new file mode 100644 index 0000000..998dbd2 Binary files /dev/null and b/Grafice/NOTE14.ICO differ diff --git a/Grafice/NOTE16.ICO b/Grafice/NOTE16.ICO new file mode 100644 index 0000000..94b185c Binary files /dev/null and b/Grafice/NOTE16.ICO differ diff --git a/Grafice/PC02.ICO b/Grafice/PC02.ICO new file mode 100644 index 0000000..b3b8b65 Binary files /dev/null and b/Grafice/PC02.ICO differ diff --git a/Grafice/SECUR05.ICO b/Grafice/SECUR05.ICO new file mode 100644 index 0000000..6037ffd Binary files /dev/null and b/Grafice/SECUR05.ICO differ diff --git a/Grafice/Vechi/CUMP.bmp b/Grafice/Vechi/CUMP.bmp new file mode 100644 index 0000000..7fc19e4 Binary files /dev/null and b/Grafice/Vechi/CUMP.bmp differ diff --git a/Grafice/Vechi/Cont11.ico b/Grafice/Vechi/Cont11.ico new file mode 100644 index 0000000..933ee2c Binary files /dev/null and b/Grafice/Vechi/Cont11.ico differ diff --git a/Grafice/Vechi/EXCLAM1.ICO b/Grafice/Vechi/EXCLAM1.ICO new file mode 100644 index 0000000..42fcf59 Binary files /dev/null and b/Grafice/Vechi/EXCLAM1.ICO differ diff --git a/Grafice/Vechi/EXCLAM2.ICO b/Grafice/Vechi/EXCLAM2.ICO new file mode 100644 index 0000000..351aa72 Binary files /dev/null and b/Grafice/Vechi/EXCLAM2.ICO differ diff --git a/Grafice/Vechi/EXCLEM.ICO b/Grafice/Vechi/EXCLEM.ICO new file mode 100644 index 0000000..90fe0f2 Binary files /dev/null and b/Grafice/Vechi/EXCLEM.ICO differ diff --git a/Grafice/Vechi/HAND.BMP b/Grafice/Vechi/HAND.BMP new file mode 100644 index 0000000..2a72376 Binary files /dev/null and b/Grafice/Vechi/HAND.BMP differ diff --git a/Grafice/Vechi/H_POINT.CUR b/Grafice/Vechi/H_POINT.CUR new file mode 100644 index 0000000..6d1096b Binary files /dev/null and b/Grafice/Vechi/H_POINT.CUR differ diff --git a/Grafice/Vechi/Intreb.ico b/Grafice/Vechi/Intreb.ico new file mode 100644 index 0000000..a63d9c3 Binary files /dev/null and b/Grafice/Vechi/Intreb.ico differ diff --git a/Grafice/Vechi/NET13.ICO b/Grafice/Vechi/NET13.ICO new file mode 100644 index 0000000..184201c Binary files /dev/null and b/Grafice/Vechi/NET13.ICO differ diff --git a/Grafice/Vechi/POINT.CUR b/Grafice/Vechi/POINT.CUR new file mode 100644 index 0000000..e4feb3e Binary files /dev/null and b/Grafice/Vechi/POINT.CUR differ diff --git a/Grafice/Vechi/POINT04.ICO b/Grafice/Vechi/POINT04.ICO new file mode 100644 index 0000000..c18a12c Binary files /dev/null and b/Grafice/Vechi/POINT04.ICO differ diff --git a/Grafice/Vechi/pericol.ico b/Grafice/Vechi/pericol.ico new file mode 100644 index 0000000..36043c8 Binary files /dev/null and b/Grafice/Vechi/pericol.ico differ diff --git a/Grafice/WZSETUP.INI b/Grafice/WZSETUP.INI new file mode 100644 index 0000000..992baa0 --- /dev/null +++ b/Grafice/WZSETUP.INI @@ -0,0 +1,36 @@ +[Preferences] +DistributionDirectory=C:\VFP\DISTRIB\ +DistributionSourceDirectory=C:\VFP\DISTRIB.SRC\ +SourceDirectory=E:\CONT2000\CONTAB\GRAFICE\ +InstallFoxProRuntime=Y +InstallGraph=N +InstallODBCDrivers=N +AccessDriver=Y +FoxPro2xDriver=Y +dBASEDriver=Y +ParadoxDriver=Y +SQLServerDriver=Y +ExcelDriver=Y +TextDriver=Y +OracleDriver=Y +Oracle7Driver=Y +BtrieveDriver=Y +VFPDriver=Y +InstallWindows95=N +InstallWindowsNT=N +DestinationDirectory=E:\CONTSETUP\ +Make1.44MegDisks=N +Make1.2MegDisks=N +Make720KDisks=N +MakeNetsetup=Y +SetupBanner=gr +Copyright=gr +PostExecute= +UserDefaultDirectory=\GRAFICE\ +ProgManGroup=Visual FoxPro Applications +UserCanModify=1 +SplitSize=363520 +FileCustomizationDelimiter=~ +InstRemoteAuto=N +InstActiveX=N + diff --git a/Grafice/in1.bmp b/Grafice/in1.bmp new file mode 100644 index 0000000..71034d6 Binary files /dev/null and b/Grafice/in1.bmp differ diff --git a/Grafice/in1_b.bmp b/Grafice/in1_b.bmp new file mode 100644 index 0000000..54b8512 Binary files /dev/null and b/Grafice/in1_b.bmp differ diff --git a/Grafice/in2.bmp b/Grafice/in2.bmp new file mode 100644 index 0000000..9c33486 Binary files /dev/null and b/Grafice/in2.bmp differ diff --git a/Grafice/in2_b.bmp b/Grafice/in2_b.bmp new file mode 100644 index 0000000..fe12cb7 Binary files /dev/null and b/Grafice/in2_b.bmp differ diff --git a/Grafice/inBox.ico b/Grafice/inBox.ico new file mode 100644 index 0000000..9e9c57b Binary files /dev/null and b/Grafice/inBox.ico differ diff --git a/Grafice/original/in1.bmp b/Grafice/original/in1.bmp new file mode 100644 index 0000000..61a304b Binary files /dev/null and b/Grafice/original/in1.bmp differ diff --git a/Grafice/original/in2.bmp b/Grafice/original/in2.bmp new file mode 100644 index 0000000..1e9ffc0 Binary files /dev/null and b/Grafice/original/in2.bmp differ diff --git a/Grafice/original/out1.bmp b/Grafice/original/out1.bmp new file mode 100644 index 0000000..f917fd8 Binary files /dev/null and b/Grafice/original/out1.bmp differ diff --git a/Grafice/original/out2.bmp b/Grafice/original/out2.bmp new file mode 100644 index 0000000..abe4a14 Binary files /dev/null and b/Grafice/original/out2.bmp differ diff --git a/Grafice/original/rul1.bmp b/Grafice/original/rul1.bmp new file mode 100644 index 0000000..7a65971 Binary files /dev/null and b/Grafice/original/rul1.bmp differ diff --git a/Grafice/original/rul2.bmp b/Grafice/original/rul2.bmp new file mode 100644 index 0000000..677b279 Binary files /dev/null and b/Grafice/original/rul2.bmp differ diff --git a/Grafice/original/stoc1.bmp b/Grafice/original/stoc1.bmp new file mode 100644 index 0000000..aed56d4 Binary files /dev/null and b/Grafice/original/stoc1.bmp differ diff --git a/Grafice/original/stoc2.bmp b/Grafice/original/stoc2.bmp new file mode 100644 index 0000000..d175522 Binary files /dev/null and b/Grafice/original/stoc2.bmp differ diff --git a/Grafice/out1.bmp b/Grafice/out1.bmp new file mode 100644 index 0000000..80ac1b5 Binary files /dev/null and b/Grafice/out1.bmp differ diff --git a/Grafice/out1_b.bmp b/Grafice/out1_b.bmp new file mode 100644 index 0000000..536965e Binary files /dev/null and b/Grafice/out1_b.bmp differ diff --git a/Grafice/out2.bmp b/Grafice/out2.bmp new file mode 100644 index 0000000..75d1de7 Binary files /dev/null and b/Grafice/out2.bmp differ diff --git a/Grafice/out2_b.bmp b/Grafice/out2_b.bmp new file mode 100644 index 0000000..bef606d Binary files /dev/null and b/Grafice/out2_b.bmp differ diff --git a/Grafice/outBox.ico b/Grafice/outBox.ico new file mode 100644 index 0000000..188c1dc Binary files /dev/null and b/Grafice/outBox.ico differ diff --git a/Grafice/plus.BMP b/Grafice/plus.BMP new file mode 100644 index 0000000..b9d43d8 Binary files /dev/null and b/Grafice/plus.BMP differ diff --git a/Grafice/roagest.bmp b/Grafice/roagest.bmp new file mode 100644 index 0000000..74b87ae Binary files /dev/null and b/Grafice/roagest.bmp differ diff --git a/Grafice/rul1.bmp b/Grafice/rul1.bmp new file mode 100644 index 0000000..e4ea89d Binary files /dev/null and b/Grafice/rul1.bmp differ diff --git a/Grafice/rul2.bmp b/Grafice/rul2.bmp new file mode 100644 index 0000000..06cd679 Binary files /dev/null and b/Grafice/rul2.bmp differ diff --git a/Grafice/sa.ico b/Grafice/sa.ico new file mode 100644 index 0000000..63f8083 Binary files /dev/null and b/Grafice/sa.ico differ diff --git a/Grafice/stoc1.bmp b/Grafice/stoc1.bmp new file mode 100644 index 0000000..11074c9 Binary files /dev/null and b/Grafice/stoc1.bmp differ diff --git a/Grafice/stoc2.bmp b/Grafice/stoc2.bmp new file mode 100644 index 0000000..216ddf1 Binary files /dev/null and b/Grafice/stoc2.bmp differ diff --git a/Help/help_inventar.rtf b/Help/help_inventar.rtf new file mode 100644 index 0000000..e2d8217 --- /dev/null +++ b/Help/help_inventar.rtf @@ -0,0 +1,86 @@ +{\rtf1\ansi\ansicpg1252\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1033\deflangfe1033{\fonttbl{\f0\froman\fcharset238\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f38\froman\fcharset0\fprq2 Times New Roman;} +{\f37\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f39\froman\fcharset161\fprq2 Times New Roman Greek;}{\f40\froman\fcharset162\fprq2 Times New Roman Tur;}{\f41\froman\fcharset177\fprq2 Times New Roman (Hebrew);} +{\f42\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f43\froman\fcharset186\fprq2 Times New Roman Baltic;}{\f44\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255; +\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0; +\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 \snext0 Normal;}{\*\cs10 \additive \ssemihidden +Default Paragraph Font;}{\*\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tblind0\tblindtype3\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv +\ql \li0\ri0\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}}{\*\rsidtbl \rsid3818959\rsid4135784\rsid5337107\rsid5449589\rsid5917916 +\rsid7019328\rsid11479974\rsid12407844\rsid13656673\rsid14040140}{\*\generator Microsoft Word 10.0.6856;}{\info{\operator Marius Mutu}{\creatim\yr2010\mo6\dy2\hr14\min30}{\revtim\yr2010\mo6\dy4\hr13\min45}{\version11}{\edmins14}{\nofpages2}{\nofwords477} +{\nofchars2723}{\nofcharsws3194}{\vern16393}{\*\password 00000000}}{\*\xmlnstbl {\xmlns1 urn:schemas-microsoft-com:office:smarttags}}\paperw12240\paperh15840\margl1417\margr1417\margt1417\margb1417\gutter0 +\widowctrl\ftnbj\aenddoc\grfdocevents0\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\horzdoc\dghspace120\dgvspace120\dghorigin1701\dgvorigin1984\dghshow0\dgvshow3\jcompress\viewkind4\viewscale100\nolnhtadjtbl\rsidroot5449589 \fet0 +{\*\wgrffmtfilter 013f}\sectd \linex0\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4 +\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (} +{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain \qj \li0\ri0\nowidctlpar\wrapdefault\faauto\rin0\lin0\itap0 +\fs24\lang1033\langfe1033\cgrid\langnp1033\langfenp1033 {\fs28\lang1048\langfe1033\langnp1048\insrsid11479974 ROMFAST}{\b\fs28\lang1048\langfe1033\langnp1048\insrsid11479974 }{\fs28\lang1048\langfe1033\langnp1048\insrsid11479974 SRL}{ +\fs20\lang1048\langfe1033\langnp1048\insrsid11479974 +\par }{\lang1048\langfe1033\langnp1048\insrsid11479974 Nr.Reg.Com. J13/626/1991 CUI: RO1879855 +\par Tel. 0241-541000, Fax. 0341-101578 +\par }\pard \ql \li0\ri0\nowidctlpar\wrapdefault\faauto\rin0\lin0\itap0 {\lang1048\langfe1033\langnp1048\insrsid11479974 +\par v 02.06.2010.1 +\par }{\b\lang1048\langfe1033\langnp1048\insrsid12407844 +\par }{\b\lang1048\langfe1033\langnp1048\insrsid5449589\charrsid5449589 Cuprins +\par }{\lang1048\langfe1033\langnp1048\insrsid5449589 A. Inventar magazin normal +\par B. Inventar magazin initial +\par +\par }{\b\lang1048\langfe1033\highlight16\langnp1048\insrsid11479974 +\par }{\b\highlight16\insrsid11479974 A. }{\b\lang1048\langfe1033\highlight16\langnp1048\insrsid11479974 INVENTAR }{\b\highlight16\insrsid11479974 MAGAZIN }{\b\lang1048\langfe1033\highlight16\langnp1048\insrsid11479974 {\*\xmlopen\xmlns1{\factoidname place}} +{\*\xmlopen\xmlns1{\factoidname City}}NORMAL}{\lang1048\langfe1033\langnp1048\insrsid11479974 {\*\xmlclose}{\*\xmlclose} (inventarierea tuturor articolelor) +\par +\par }{\b\lang1048\langfe1033\langnp1048\insrsid13656673\charrsid3818959 1. }{\lang1048\langfe1033\langnp1048\insrsid11479974 Gestiuni > Inventar magazin > Adaugare inventar >Alegere gestiuni > Se bifeaza }{\b\lang1048\langfe1033\langnp1048\insrsid11479974 +Articole din stoc}{\lang1048\langfe1033\langnp1048\insrsid11479974 si }{\b\lang1048\langfe1033\langnp1048\insrsid11479974 Stoc faptic 0 }{\lang1048\langfe1033\langnp1048\insrsid11479974 (stocul faptic va fi initializat cu 0) +\par }{\lang1048\langfe1033\langnp1048\insrsid5337107 +\par Alegeti aceasta varianta daca se scaneaza fiecare produs in calculator.}{\lang1048\langfe1033\langnp1048\insrsid13656673 +\par }{\lang1048\langfe1033\langnp1048\insrsid5337107 +\par }{\lang1048\langfe1033\langnp1048\insrsid13656673 sau +\par +\par }\pard \ql \li0\ri0\nowidctlpar\wrapdefault\faauto\rin0\lin0\itap0\pararsid13656673 {\b\lang1048\langfe1033\langnp1048\insrsid13656673\charrsid3818959 2.}{\lang1048\langfe1033\langnp1048\insrsid13656673 +Gestiuni > Inventar magazin > Adaugare inventar >Alegere gestiuni > Se bifeaza }{\b\lang1048\langfe1033\langnp1048\insrsid13656673 Articole din stoc}{\lang1048\langfe1033\langnp1048\insrsid13656673 (stocul faptic va fi initializat cu stocul scriptic) + +\par }\pard \ql \li0\ri0\nowidctlpar\wrapdefault\faauto\rin0\lin0\itap0 {\lang1048\langfe1033\langnp1048\insrsid5337107 +\par Alegeti aceasta varianta daca se completeaza de mana inventarul si apoi se scaneaza in calculator doar articolele cu diferente. +\par +\par Se va lista un inventar necompletat pe rubrica faptic}{\lang1048\langfe1033\langnp1048\insrsid4135784 }{\lang1048\langfe1033\langnp1048\insrsid14040140 (Gestiuni > Inventar magazin > Modificare inventar > Listare > Inventar necompletat redus) }{ +\lang1048\langfe1033\langnp1048\insrsid4135784 si se vor completa in el de mana valorile faptice.}{\lang1048\langfe1033\langnp1048\insrsid11479974 +\par }{\lang1048\langfe1033\langnp1048\insrsid5917916 +\par Pentru articolele cu diferente de stoc, se va completa in calculator stocul faptic, la restul ramanand stoc faptic = stoc scriptic.}{\lang1048\langfe1033\langnp1048\insrsid7019328 +\par }{\lang1048\langfe1033\langnp1048\insrsid14040140 +\par }{\lang1048\langfe1033\langnp1048\insrsid5917916 La sfarsitul inventarului este posibil ca pe inventarul listat initial sa ramana articole care nu mai exista in stocul fizic. Se va completa 0 la stoc faptic si pe hartie si in calculator. +\par }{\lang1048\langfe1033\langnp1048\insrsid13656673 +\par }{\b\lang1048\langfe1033\langnp1048\insrsid11479974 Observatii +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 A}{\lang1048\langfe1033\langnp1048\insrsid11479974 1. Se ia in considerare la inventar toata marfa (existenta sau sosita in timpul inventarului) pentru care s-au inregistrat documentele scriptic +\par inainte de inceperea inventarului. +\par +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 A}{\lang1048\langfe1033\langnp1048\insrsid11479974 2. Marfa care soseste in timpul inventarului si pentru care s-au inregistrat documentele scriptic +\par dupa inceperea inventarului nu se inregistreaza. +\par +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 A}{\lang1048\langfe1033\langnp1048\insrsid11479974 3. Marfa care a plecat retur la depozit inainte de inceperea inventarului se inregistreaza daca +\par la inceperea inventarului nu s-a inregistrat scriptic documentul de retur. +\par +\par }{\b\highlight16\insrsid11479974 B. }{\b\lang1048\langfe1033\highlight16\langnp1048\insrsid11479974 INVENTAR }{\b\highlight16\insrsid11479974 MAGAZIN }{\b\lang1048\langfe1033\highlight16\langnp1048\insrsid11479974 INITIAL}{ +\lang1048\langfe1033\langnp1048\insrsid11479974 (golire de stoc existent si initializarea stocului) +\par +\par Gestiuni > Inventar magazin > Adaugare inventar >Alegere gestiuni > Se bifeaza }{\b\lang1048\langfe1033\langnp1048\insrsid11479974 Fara articole }{\lang1048\langfe1033\langnp1048\insrsid11479974 sau }{\b\lang1048\langfe1033\langnp1048\insrsid11479974 +Articolele intrate in ultimele luni}{\lang1048\langfe1033\langnp1048\insrsid11479974 (pentru a se crea o lista de articole cu stoc scriptic si stoc faptic = 0) +\par +\par }{\b\lang1048\langfe1033\langnp1048\insrsid11479974 Observatii +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 B}{\lang1048\langfe1033\langnp1048\insrsid11479974 1. }{\b\lang1048\langfe1033\langnp1048\insrsid11479974\charrsid5449589 Inventarul incepe si se termina in aceeasi zi}{ +\lang1048\langfe1033\langnp1048\insrsid11479974 +\par La sfarsitul inventarului se va goli stocul existent la momentul validarii inventarului si se va pune imaginea stocului din inventar +\par +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 B}{\lang1048\langfe1033\langnp1048\insrsid11479974 1.1. Se ia in considerare la inventar toata marfa (existenta sau sosita in timpul inventarului) pentru care s-au inregistrat documentele scriptic +\par pana la sfarsitul inventarului. +\par +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 B}{\lang1048\langfe1033\langnp1048\insrsid11479974 1.2. Marfa care a plecat retur la depozit inainte de inceperea inventarului se inregistreaza doar daca pana la sfarsitul inventarului +\par nu se inregistreaza scriptic documentul de retur. +\par +\par +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 B}{\lang1048\langfe1033\langnp1048\insrsid11479974 2. }{\b\lang1048\langfe1033\langnp1048\insrsid11479974\charrsid5449589 Inventarul dureaza mai mult de o zi}{ +\lang1048\langfe1033\langnp1048\insrsid11479974 +\par La sfarsitul inventarului se va goli stocul existent in ziua inceperii inventarului si se va pune imaginea stocului din inventar. +\par +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 B}{\lang1048\langfe1033\langnp1048\insrsid11479974 2.1. Se ia in considerare la inventar toata marfa (existenta sau sosita in timpul inventarului) pentru care s-au inregistrat documentele scriptic +\par pana la data inceperii inventarului (inclusiv). +\par +\par }{\lang1048\langfe1033\langnp1048\insrsid12407844 B}{\lang1048\langfe1033\langnp1048\insrsid11479974 2 +.2. Marfa care a plecat retur la depozit inainte de inceperea inventarului se inregistreaza doar daca se inregistreaza scriptic documentul de retur dupa cu data dupa inceperea inventarului. +\par }} \ No newline at end of file diff --git a/Include/COMCTL32.OCX b/Include/COMCTL32.OCX new file mode 100644 index 0000000..5ff81ed Binary files /dev/null and b/Include/COMCTL32.OCX differ diff --git a/Include/CONT2000.H b/Include/CONT2000.H new file mode 100644 index 0000000..9354d2f --- /dev/null +++ b/Include/CONT2000.H @@ -0,0 +1,22 @@ +ARBORII DE DEFINITIE AI CLASELOR DIN PRG. CONT 2000 +___________________________________________________ + + + +ACTGEN -ACTGEN01 (ACTINTF) + -ACTGEN02 (ACTIND) -ACTGEN04 (ACTINTFU) + -ACTGEN05 (ACTSTORF) + -CHELTMAT + + -ACTGEN03 (ACTINTCL) -CASA + -BANCA + + -ACTGENINC + + +FACTGEST -FACTGEST_CLI (BVANZRUM) -BON + + -FACTGEST_FURN (FACTGEST) + + + diff --git a/Include/MSCAL.OCX b/Include/MSCAL.OCX new file mode 100644 index 0000000..287ea37 Binary files /dev/null and b/Include/MSCAL.OCX differ diff --git a/Include/foxpro.h b/Include/foxpro.h new file mode 100644 index 0000000..6b75412 --- /dev/null +++ b/Include/foxpro.h @@ -0,0 +1,816 @@ +************************************************************************************ +************************************************************************************ +** ** +** ================ =========== ** +** == === == == ** +** == = == == ** +** == == == ** +** == === ===== ===== == == === ==== === ** +** ===== == == == == ========= == == == == == ** +** == == == == == == === == == ** +** == == == === == == == == ** +** == == == == == == == == == ** +** == == == == == == == == == ** +** ======= === ===== ==== ====== ====== === ** +** ** +************************************************************************************ +************************************************************************************ + +************************************************************************************ +************************************************************************************ +** ** +** Visual FoxPro Named Constant File ** +** This file contains named constants for most Visual FoxPro functions ** +** ** +************************************************************************************ +************************************************************************************ + +*-- General +*--ZOrder Method +#DEFINE ZORDER_BRINGTOFRONT 0 +#DEFINE ZORDER_SENDTOBACK 1 + +*-- TYPE() tags +#DEFINE T_CHARACTER "C" +#DEFINE T_NUMERIC "N" +#DEFINE T_DOUBLE "B" +#DEFINE T_DATE "D" +#DEFINE T_DATETIME "T" +#DEFINE T_MEMO "M" +#DEFINE T_GENERAL "G" +#DEFINE T_OBJECT "O" +#DEFINE T_SCREEN "S" +#DEFINE T_LOGICAL "L" +#DEFINE T_CURRENCY "Y" +#DEFINE T_UNDEFINED "U" + +*-- QueryUnload +#DEFINE FORM_CONTROLMENU 0 +#DEFINE FORM_CODE 1 +#DEFINE APP_WINDOWS 2 +#DEFINE APP_TASKMANAGER 3 +#DEFINE FORM_MDIFORM 4 + +*-- Columns in array returned by AVCXCLASSES() +#DEFINE AVCX_CLASS 1 && OBJNAME field +#DEFINE AVCX_BASECLASS 2 && BASECLASS field +#DEFINE AVCX_PARENTCLASS 3 && CLASS field +#DEFINE AVCX_PARENTCLASSLIB 4 && CLASSLOC field +#DEFINE AVCX_CLASSICON 5 && RESERVED4 field +#DEFINE AVCX_CONTAINERICON 6 && RESERVED5 field +#DEFINE AVCX_SCALEMODE 7 && RESERVED6 field +#DEFINE AVCX_CLASSDESCRIPTION 8 && RESERVED7 field +#DEFINE AVCX_INCLUDEFILE 9 && RESERVED8 field +#DEFINE AVCX_USERINFO 10 && USER field +#DEFINE AVCX_OLEPUBLIC 11 && RESERVED2 field + + +*-- Active Document +*-- CommandTargetQuery Command Options +#DEFINE CMDF_NOTSUPPORTED 0 && The command is not supported by this object +#DEFINE CMDF_SUPPORTED 1 && The command is supported by this object +#DEFINE CMDF_ENABLED 2 && The command is available and enabled +#DEFINE CMDF_LATCHED 4 && The command is an on-off toggle and is currently on +#DEFINE CMDF_NINCHED 8 && The command state is indeterminate + +*-- CommandTargetQuery CommandTextFlag values +#DEFINE CMDTEXTF_NONE 0 && No extra information is requested +#DEFINE CMDTEXTF_NAME 1 && Object should provide the localized name of the command +#DEFINE CMDTEXTF_STATUS 2 && Object should provide a localized status string for the command + +*-- CommandTarget Command IDs +#DEFINE CMDID_OPEN 1 && File menu, Open command +#DEFINE CMDID_NEW 2 && File menu, New command +#DEFINE CMDID_SAVE 3 && File menu, Save command +#DEFINE CMDID_SAVEAS 4 && File menu, Save As command +#DEFINE CMDID_SAVECOPYAS 5 && File menu, Save Copy As command +#DEFINE CMDID_PRINT 6 && File menu, Print command +#DEFINE CMDID_PRINTPREVIEW 7 && File menu, Print Preview command +#DEFINE CMDID_PAGESETUP 8 && File menu, Page Setup command +#DEFINE CMDID_SPELL 9 && Tools menu, Spelling command +#DEFINE CMDID_PROPERTIES 10 && File menu, Properties command +#DEFINE CMDID_CUT 11 && Edit menu, Cut command (from Host) +#DEFINE CMDID_COPY 12 && Edit menu, Copy command (from Host) +#DEFINE CMDID_PASTE 13 && Edit menu, Paste command (from Host) +#DEFINE CMDID_PASTESPECIAL 14 && Edit menu, Paste Special command (from Host) +#DEFINE CMDID_UNDO 15 && Edit menu, Undo command (from Host) +#DEFINE CMDID_REDO 16 && Edit menu, Redo command (from Host) +#DEFINE CMDID_SELECTALL 17 && Edit menu, Select All command (from Host) +#DEFINE CMDID_CLEARSELECTION 18 && Edit menu, Clear command (from Host) +#DEFINE CMDID_ZOOM 19 && View menu, Zoom command +#DEFINE CMDID_GETZOOMRANGE 20 && Retrieves zoom range applicable to View Zoom +#DEFINE CMDID_UPDATECOMMANDS 21 && Informs the Active Document of state changes +#DEFINE CMDID_REFRESH 22 && Asks the Active Document to refresh its display +#DEFINE CMDID_STOP 23 && Asks the Active Document to stop all current processing +#DEFINE CMDID_HIDETOOLBARS 24 && Asks the Active Document to hide its toolbars +#DEFINE CMDID_SETPROGRESSMAX 25 && Sets the maximum value of a progress indicator +#DEFINE CMDID_SETPROGRESSPOS 26 && Sets the current value of a progress indicator +#DEFINE CMDID_SETPROGRESSTEXT 27 && Sets the text contained in a progress indicator +#DEFINE CMDID_SETTITLE 28 && Sets the title bar text +#DEFINE CMDID_SETDOWNLOADSTATE 29 && Sent by host when its download state changes +#DEFINE CMDID_STOPDOWNLOAD 30 && Stops the download when executed +#DEFINE CMDID_ONTOOLBARACTIVATED 31 && One of the container's toolbars has received the focus +#DEFINE CMDID_ENABLE_INTERACTION 36 && Asks the Active Document to either pause or resume multimedia +#DEFINE CMDID_ONUNLOAD 37 && Sent by the Active Document host before navigation to another + && site is initiated or the host is closed + +*-- CommantTargetExec nExecOption parameter +#DEFINE CMDEXECOPT_DODEFAULT 0 && Use the default behavior +#DEFINE CMDEXECOPT_PROMPTUSER 1 && Execute the command after obtaining user input +#DEFINE CMDEXECOPT_DONTPROMPTUSER 2 && Execute the command without prompting the user +#DEFINE CMDEXECOPT_SHOWHELP 3 && Show help for the corresponding command + +*-- CommandTargetExec Return Values +#DEFINE CMD_OK 0 && Command handled okay by the Active Document +#DEFINE CMD_NOTSUPPORTED 1 && Command is not supported by the Active Document +#DEFINE CMD_DISABLED 2 && Command is disabled for the Active Document +#DEFINE CMD_NOHELP 3 && No help is available for the command from the Active Document +#DEFINE CMD_CANCELED 4 && The user canceled the execution of the command + + +*-- Project Hooks +*-- Build Actions +#DEFINE BUILDACTION_REBUILD 1 && Rebuild Project +#DEFINE BUILDACTION_BUILDAPP 2 && Build APP +#DEFINE BUILDACTION_BUILDEXE 3 && Build EXE +#DEFINE BUILDACTION_BUILDDLL 4 && Build DLL +#DEFINE BUILDACTION_BUILDMTDLL 5 && Build MTDLL + +*-- File Object SCCStatus Property +#DEFINE SCCFILE_NOTCONTROLLED 0 && File is not source controlled +#DEFINE SCCFILE_NOTCHECKEDOUT 1 && File is controlled but not checked out to anyone +#DEFINE SCCFILE_CHECKEDOUTCU 2 && File is checked out to the current user only +#DEFINE SCCFILE_CHECKEDOUTOU 3 && File is checked out to someone other than the current user +#DEFINE SCCFILE_MERGECONFLICT 4 && File has a merge conflict +#DEFINE SCCFILE_MERGE 5 && File has been merged without conflict +#DEFINE SCCFILE_CHECKEDOUTMU 6 && File is checked out to multiple users + +*-- File Object Type Property +#DEFINE FILETYPE_DATABASE "d" && Database (.DBC) +#DEFINE FILETYPE_FREETABLE "D" && Free table (.DBF) +#DEFINE FILETYPE_QUERY "Q" && Query (.QPR) +#DEFINE FILETYPE_FORM "K" && Form (.SCX) +#DEFINE FILETYPE_REPORT "R" && Report (.FRX) +#DEFINE FILETYPE_LABEL "B" && Label (.LBX) +#DEFINE FILETYPE_CLASSLIB "V" && Class Library (.VCX) +#DEFINE FILETYPE_PROGRAM "P" && Program (.PRG) +#DEFINE FILETYPE_APILIB "L" && API Library (.FLL) +#DEFINE FILETYPE_APPLICATION "Z" && Application (.APP) +#DEFINE FILETYPE_MENU "M" && Menu (.MNX) +#DEFINE FILETYPE_TEXT "T" && Text (.TXT, .H., etc.) +#DEFINE FILETYPE_OTHER "x" && Other file types not enumerated above + +*-- Server Object Instancing Property +#DEFINE SERVERINSTANCE_NOTCREATABLE 0 && Instances creatable only inside Visual FoxPro +#DEFINE SERVERINSTANCE_SINGLEUSE 1 && Single use server +#DEFINE SERVERINSTANCE_MULTIUSE 2 && Multi-use server + + +*-- Drag and Drop +*-- OLE Drag and Drop: Drop Effects +#DEFINE DROPEFFECT_NONE 0 +#DEFINE DROPEFFECT_COPY 1 +#DEFINE DROPEFFECT_MOVE 2 +#DEFINE DROPEFFECT_LINK 4 + +*-- OLE Drag and Drop: Drop Modes +#DEFINE DROP_DISABLED 0 +#DEFINE DROP_ENABLED 1 +#DEFINE DROP_PASSTOCONTAINER 2 + +*-- OLE Drag and Drop: OLEDropHasData settings +#DEFINE DROPHASDATA_VFPDETERMINE -1 +#DEFINE DROPHASDATA_NOTUSEFUL 0 +#DEFINE DROPHASDATA_USEFUL 1 + +*-- Clipboard formats (Global) +#DEFINE CF_TEXT 1 && Text +#DEFINE CF_BITMAP 2 && Bitmap +#DEFINE CF_METAFILEPICT 3 && Handle of a metafile picture format +#DEFINE CF_SYLK 4 && Microsoft Symbolic Link format +#DEFINE CF_DIF 5 && Software Arts' Data Interchange Format +#DEFINE CF_TIFF 6 && Tagged-image file format +#DEFINE CF_OEMTEXT 7 && Text format containing characters in the OEM character set +#DEFINE CF_DIB 8 && Device-independent bitmap +#DEFINE CF_PALETTE 9 && Handle of a color palette +#DEFINE CF_PENDATA 10 && Data for the pen extensions to the Microsoft Windows for Pen Computing +#DEFINE CF_RIFF 11 && Represents complex audio data +#DEFINE CF_WAVE 12 && Audio data in one of the standard wave formats +#DEFINE CF_UNICODETEXT 13 && Windows NT only: Unicode text format +#DEFINE CF_ENHMETAFILE 14 && A handle of an enhanced metafile +#DEFINE CF_FILES 15 && A list of files +#DEFINE CF_HDROP 15 && A list of files +#DEFINE CF_LOCALE 16 && A handle to the locale identifier +#DEFINE CF_MAX 17 + +*-- Other Miscellaneous Clipboard formats +#DEFINE CFSTR_HYPERLINK "Hyperlink" && A Hyperlink +#DEFINE CFSTR_BIFF "Biff" && Microsoft Excel version 2.x +#DEFINE CFSTR_BIFF3 "Biff3" && Microsoft Excel version 3.0 +#DEFINE CFSTR_BIFF4 "Biff4" && Microsoft Excel version 4.0 +#DEFINE CFSTR_BIFF5 "Biff5" && Microsoft Excel version 5.0 +#DEFINE CFSTR_BIFF7 "Biff7" && Microsoft Excel version 7.0 +#DEFINE CFSTR_BIFF8 "Biff8" && Microsoft Excel version 8.0 +#DEFINE CFSTR_XLTABLE "XlTable" && Microsoft Excel fast table format. +#DEFINE CFSTR_CSV "CSV" && Comma separated values +#DEFINE CFSTR_WK1 "Wk1" && Lotus 1-2-3 Release 2.01 and Release 2.2 format +#DEFINE CFSTR_URL "UniformResourceLocator" && URL + +#DEFINE CFSTR_RTF "Rich Text Format" +#DEFINE CFSTR_RTFNOOBJS "Rich Text Format Without Objects" +#DEFINE CFSTR_RETEXTOBJ "RichEdit Text and Objects" + +*-- Clipboard formats (Private to VFP) +#DEFINE CFSTR_OLEVARIANTARRAY "OLE Variant Array" && VFP array +#DEFINE CFSTR_OLEVARIANT "OLE Variant" && Data in variant form +#DEFINE CFSTR_VFPSOURCEOBJECT "VFP Source Object" && A reference to the VFP source object + +*-- DragMode +#DEFINE DRAG_MANUAL 0 && 0 - Manual +#DEFINE DRAG_AUTOMATIC 1 && 1 - Automatic + +*-- DragOver +#DEFINE DRAG_ENTER 0 +#DEFINE DRAG_LEAVE 1 +#DEFINE DRAG_OVER 2 + +*-- Drag (controls) +#DEFINE DRAG_CANCEL 0 +#DEFINE DRAG_BEGIN 1 +#DEFINE DRAG_END 2 + + +*-- Properties +*-- Colors +#DEFINE COLOR_WHITE 16777215 +#DEFINE COLOR_BLACK 0 +#DEFINE COLOR_GRAY 12632256 +#DEFINE COLOR_DARK_GRAY 8421504 +#DEFINE COLOR_RED 255 +#DEFINE COLOR_DARK_BLUE 8388608 +#DEFINE COLOR_CYAN 16776960 +#DEFINE COLOR_DARK_CYAN 8421376 +#DEFINE COLOR_GREEN 65280 +#DEFINE COLOR_DARK_GREEN 32768 +#DEFINE COLOR_YELLOW 65535 +#DEFINE COLOR_DARK_YELLOW 32896 +#DEFINE COLOR_BLUE 16711680 +#DEFINE COLOR_DARK_RED 128 +#DEFINE COLOR_MAGENTA 16711935 +#DEFINE COLOR_DARK_MAGENTA 8388736 + +*-- MousePointer +#DEFINE MOUSE_DEFAULT 0 && 0 - Default +#DEFINE MOUSE_ARROW 1 && 1 - Arrow +#DEFINE MOUSE_CROSSHAIR 2 && 2 - Cross +#DEFINE MOUSE_IBEAM 3 && 3 - I-Beam +#DEFINE MOUSE_ICON_POINTER 4 && 4 - Icon +#DEFINE MOUSE_SIZE_POINTER 5 && 5 - Size +#DEFINE MOUSE_SIZE_NE_SW 6 && 6 - Size NE SW +#DEFINE MOUSE_SIZE_N_S 7 && 7 - Size N S +#DEFINE MOUSE_SIZE_NW_SE 8 && 8 - Size NW SE +#DEFINE MOUSE_SIZE_W_E 9 && 9 - Size W E +#DEFINE MOUSE_UP_ARROW 10 && 10 - Up Arrow +#DEFINE MOUSE_HOURGLASS 11 && 11 - Hourglass +#DEFINE MOUSE_NO_DROP 12 && 12 - No drop +#DEFINE MOUSE_HIDE_POINTER 13 && 13 - Hide Pointer +#DEFINE MOUSE_ARROW2 14 && 14 - Arrow +#DEFINE MOUSE_CUSTOM 99 && 99 - Custom + +*-- ScrollBars +#DEFINE SCROLLBARS_NONE 0 && 0 - None (Default) +#DEFINE SCROLLBARS_HORIZONTAL 1 && 1 - Horizontal +#DEFINE SCROLLBARS_VERTICAL 2 && 2 - Vertical +#DEFINE SCROLLBARS_BOTH 3 && 3 - Both + +*-- DrawMode +#DEFINE DRAWMODE_BLACKNESS 1 && 1 - Blackness +#DEFINE DRAWMODE_NOT_MERGE_PEN 2 && 2 - Not Merge Pen +#DEFINE DRAWMODE_MASK_NOT_PEN 3 && 3 - Mask Not Pen +#DEFINE DRAWMODE_NOT_COPY_PEN 4 && 4 - Not Copy Pen +#DEFINE DRAWMODE_MASK_PEN_NOT 5 && 5 - Mask Pen Not +#DEFINE DRAWMODE_INVERT 6 && 6 - Invert +#DEFINE DRAWMODE_XOR_PEN 7 && 7 - Xor Pen +#DEFINE DRAWMODE_NOT_MASK_PEN 8 && 8 - Not Mask Pen +#DEFINE DRAWMODE_MASK_PEN 9 && 9 - Mask Pen +#DEFINE DRAWMODE_NOT_XOR_PEN 10 && 10 - Not Xor Pen +#DEFINE DRAWMODE_NOP 11 && 11 - Nop +#DEFINE DRAWMODE_MERGE_NOT_PEN 12 && 12 - Merge Not Pen +#DEFINE DRAWMODE_COPY_PEN 13 && 13 - Copy Pen +#DEFINE DRAWMODE_MERGE_PEN_NOT 14 && 14 - Merge Pen Not +#DEFINE DRAWMODE_MERGE_PEN 15 && 15 - Merge Pen +#DEFINE DRAWMODE_WHITENESS 16 && 16 - Whiteness + +*-- DrawStyle +#DEFINE DRAWSTYLE_SOLID 0 && 0 - Solid +#DEFINE DRAWSTYLE_DASH 1 && 1 - Dash +#DEFINE DRAWSTYLE_DOT 2 && 2 - Dot +#DEFINE DRAWSTYLE_DASH_DOT 3 && 3 - Dash-Dot +#DEFINE DRAWSTYLE_DASH_DOT_DOT 4 && 4 - Dash-Dot-Dot +#DEFINE DRAWSTYLE_INVISIBLE 5 && 5 - Invisible +#DEFINE DRAWSTYLE_INSIDE_SOLID 6 && 6 - Inside Solid + +*-- FillStyle +#DEFINE FILLSTYLE_SOLID 0 && 0 - Solid +#DEFINE FILLSTYLE_TRANSPARENT 1 && 1 - Transparent +#DEFINE FILLSTYLE_HORIZONTAL_LINE 2 && 2 - Horizontal Line +#DEFINE FILLSTYLE_VERTICAL_LINE 3 && 3 - Vertical Line +#DEFINE FILLSTYLE_UPWARD_DIAGONAL 4 && 4 - Upward Diagonal +#DEFINE FILLSTYLE_DOWNWARD_DIAGONAL 5 && 5 - Downward Diagonal +#DEFINE FILLSTYLE_CROSS 6 && 6 - Cross +#DEFINE FILLSTYLE_DIAGONAL_CROSS 7 && 7 - Diagonal Cross + +*-- ScaleMode +#DEFINE SCALEMODE_PIXELS 3 && 3 - Pixel +#DEFINE SCALEMODE_FOXELS 0 && 0 - Foxels + +*-- WindowState +#DEFINE WINDOWSTATE_NORMAL 0 && 0 - Normal +#DEFINE WINDOWSTATE_MINIMIZED 1 && 1 - Minimized +#DEFINE WINDOWSTATE_MAXIMIZED 2 && 2 - Maximized + +*-- Window Borders +#DEFINE BORDER_NONE 0 +#DEFINE BORDER_SINGLE 1 +#DEFINE BORDER_DOUBLE 2 +#DEFINE BORDER_SYSTEM 3 + +*-- Toolbar Positions +#DEFINE TOOL_NOTDOCKED -1 +#DEFINE TOOL_TOP 0 +#DEFINE TOOL_LEFT 1 +#DEFINE TOOL_RIGHT 2 +#DEFINE TOOL_BOTTOM 3 + +*-- Button parameter masks +#DEFINE BUTTON_LEFT 1 +#DEFINE BUTTON_RIGHT 2 +#DEFINE BUTTON_MIDDLE 4 + +*-- Function Parameters +*-- MessageBox parameters +#DEFINE MB_OK 0 && OK button only +#DEFINE MB_OKCANCEL 1 && OK and Cancel buttons +#DEFINE MB_ABORTRETRYIGNORE 2 && Abort, Retry, and Ignore buttons +#DEFINE MB_YESNOCANCEL 3 && Yes, No, and Cancel buttons +#DEFINE MB_YESNO 4 && Yes and No buttons +#DEFINE MB_RETRYCANCEL 5 && Retry and Cancel buttons + +#DEFINE MB_ICONSTOP 16 && Critical message +#DEFINE MB_ICONQUESTION 32 && Warning query +#DEFINE MB_ICONEXCLAMATION 48 && Warning message +#DEFINE MB_ICONINFORMATION 64 && Information message + +#DEFINE MB_APPLMODAL 0 && Application modal message box +#DEFINE MB_DEFBUTTON1 0 && First button is default +#DEFINE MB_DEFBUTTON2 256 && Second button is default +#DEFINE MB_DEFBUTTON3 512 && Third button is default +#DEFINE MB_SYSTEMMODAL 4096 && System Modal + +*-- MsgBox return values +#DEFINE IDOK 1 && OK button pressed +#DEFINE IDCANCEL 2 && Cancel button pressed +#DEFINE IDABORT 3 && Abort button pressed +#DEFINE IDRETRY 4 && Retry button pressed +#DEFINE IDIGNORE 5 && Ignore button pressed +#DEFINE IDYES 6 && Yes button pressed +#DEFINE IDNO 7 && No button pressed + + +*-- Low Level File Constants +#DEFINE F_READONLY 0 +#DEFINE F_WRITEONLY 1 +#DEFINE F_READWRITE 2 +#DEFINE F_READONLY_UNBUFF 10 +#DEFINE F_WRITEONLY_UNBUFF 11 +#DEFINE F_READWRITE_UNBUFF 12 + +*-- PRTINFO() Constants +*-- PRTINFO() Valid types to pass +#DEFINE PRT_ORIENTATION 1 +#DEFINE PRT_PAPERSIZE 2 +#DEFINE PRT_PAPERLENGTH 3 +#DEFINE PRT_PAPERWIDTH 4 +#DEFINE PRT_SCALE 5 +#DEFINE PRT_COPIES 6 +#DEFINE PRT_DEFASOURCE 7 +#DEFINE PRT_PRINTQUAL 8 +#DEFINE PRT_COLOR 9 +#DEFINE PRT_DUPLEX 10 +#DEFINE PRT_YRESOLUTION 11 +#DEFINE PRT_TTOPTION 12 +#DEFINE PRT_COLLATE 13 + +*--PRTINFO() Return types +*-- Paper sizes +#define PRTPAPER_LETTER 1 && Letter 8 1/2 x 11 in +#define PRTPAPER_LETTERSMALL 2 && Letter Small 8 1/2 x 11 in +#define PRTPAPER_TABLOID 3 && Tabloid 11 x 17 in +#define PRTPAPER_LEDGER 4 && Ledger 17 x 11 in +#define PRTPAPER_LEGAL 5 && Legal 8 1/2 x 14 in +#define PRTPAPER_STATEMENT 6 && Statement 5 1/2 x 8 1/2 in +#define PRTPAPER_EXECUTIVE 7 && Executive 7 1/4 x 10 1/2 in +#define PRTPAPER_A3 8 && A3 297 x 420 mm +#define PRTPAPER_A4 9 && A4 210 x 297 mm +#define PRTPAPER_A4SMALL 10 && A4 Small 210 x 297 mm +#define PRTPAPER_A5 11 && A5 148 x 210 mm +#define PRTPAPER_B4 12 && B4 250 x 354 +#define PRTPAPER_B5 13 && B5 182 x 257 mm +#define PRTPAPER_FOLIO 14 && Folio 8 1/2 x 13 in +#define PRTPAPER_QUARTO 15 && Quarto 215 x 275 mm +#define PRTPAPER_10X14 16 && 10x14 in +#define PRTPAPER_11X17 17 && 11x17 in +#define PRTPAPER_NOTE 18 && Note 8 1/2 x 11 in +#define PRTPAPER_ENV_9 19 && Envelope #9 3 7/8 x 8 7/8 +#define PRTPAPER_ENV_10 20 && Envelope #10 4 1/8 x 9 1/2 +#define PRTPAPER_ENV_11 21 && Envelope #11 4 1/2 x 10 3/8 +#define PRTPAPER_ENV_12 22 && Envelope #12 4 \276 x 11 +#define PRTPAPER_ENV_14 23 && Envelope #14 5 x 11 1/2 +#define PRTPAPER_CSHEET 24 && C size sheet +#define PRTPAPER_DSHEET 25 && D size sheet +#define PRTPAPER_ESHEET 26 && E size sheet +#define PRTPAPER_ENV_DL 27 && Envelope DL 110 x 220mm +#define PRTPAPER_ENV_C5 28 && Envelope C5 162 x 229 mm +#define PRTPAPER_ENV_C3 29 && Envelope C3 324 x 458 mm +#define PRTPAPER_ENV_C4 30 && Envelope C4 229 x 324 mm +#define PRTPAPER_ENV_C6 31 && Envelope C6 114 x 162 mm +#define PRTPAPER_ENV_C65 32 && Envelope C65 114 x 229 mm +#define PRTPAPER_ENV_B4 33 && Envelope B4 250 x 353 mm +#define PRTPAPER_ENV_B5 34 && Envelope B5 176 x 250 mm +#define PRTPAPER_ENV_B6 35 && Envelope B6 176 x 125 mm +#define PRTPAPER_ENV_ITALY 36 && Envelope 110 x 230 mm +#define PRTPAPER_ENV_MONARCH 37 && Envelope Monarch 3.875 x 7.5 in +#define PRTPAPER_ENV_PERSONAL 38 && 6 3/4 Envelope 3 5/8 x 6 1/2 in +#define PRTPAPER_FANFOLD_US 39 && US Std Fanfold 14 7/8 x 11 in +#define PRTPAPER_FANFOLD_STD_GERMAN 40 && German Std Fanfold 8 1/2 x 12 in +#define PRTPAPER_FANFOLD_LGL_GERMAN 41 && German Legal Fanfold 8 1/2 x 13 in + +*-- Paper bins +#define PRTBIN_UPPER 1 +#define PRTBIN_ONLYONE 1 +#define PRTBIN_LOWER 2 +#define PRTBIN_MIDDLE 3 +#define PRTBIN_MANUAL 4 +#define PRTBIN_ENVELOPE 5 +#define PRTBIN_ENVMANUAL 6 +#define PRTBIN_AUTO 7 +#define PRTBIN_TRACTOR 8 +#define PRTBIN_SMALLFMT 9 +#define PRTBIN_LARGEFMT 10 +#define PRTBIN_LARGECAPACITY 11 +#define PRTBIN_CASSETTE 14 +#define PRTBIN_AUTOSELECT 15 + +*-- Print qualities +#define PRTRES_DRAFT -1 +#define PRTRES_LOW -2 +#define PRTRES_MEDIUM -3 +#define PRTRES_HIGH -4 + +*-- Color printer +#define PRTCOLOR_MONOCHROME 1 +#define PRTCOLOR_COLOR 2 + +*-- Duplexing +#define PRTDUP_SIMPLEX 1 +#define PRTDUP_VERTICAL 2 +#define PRTDUP_HORIZONTAL 3 + +*-- True Type fonts +#define PRTTT_BITMAP 1 && Print True Type fonts as graphics +#define PRTTT_DOWNLOAD 2 && Download True Type fonts as soft fonts +#define PRTTT_SUBDEV 3 && Substitute device fonts for True Type + +*-- FontMetric() +#DEFINE TM_HEIGHT 1 +#DEFINE TM_ASCENT 2 +#DEFINE TM_DESCENT 3 +#DEFINE TM_INTERNALLEADING 4 +#DEFINE TM_EXTERNALLEADING 5 +#DEFINE TM_AVECHARWIDTH 6 +#DEFINE TM_MAXCHARWIDTH 7 +#DEFINE TM_WEIGHT 8 +#DEFINE TM_ITALIC 9 +#DEFINE TM_UNDERLINED 10 +#DEFINE TM_STRUCKOUT 11 +#DEFINE TM_FIRSTCHAR 12 +#DEFINE TM_LASTCHAR 13 +#DEFINE TM_DEFAULTCHAR 14 +#DEFINE TM_BREAKCHAR 15 +#DEFINE TM_PITCHANDFAMILY 16 +#DEFINE TM_CHARSET 17 +#DEFINE TM_OVERHANG 18 +#DEFINE TM_ASPECTX 19 +#DEFINE TM_ASPECTY 20 + +*-- Sysmetric() parameter values +#DEFINE SYSMETRIC_SCREENWIDTH 1 && Screen width +#DEFINE SYSMETRIC_SCREENHEIGHT 2 && Screen width +#DEFINE SYSMETRIC_SIZINGBORDERWIDTH 3 && Width of the sizing border around a resizable window +#DEFINE SYSMETRIC_SIZINGBORDERHEIGHT 4 && Height of the sizing border around a resizable window +#DEFINE SYSMETRIC_VSCROLLBARWIDTH 5 && Width of a vertical scroll bar +#DEFINE SYSMETRIC_VSCROLLBARHEIGHT 6 && Height of the arrow bitmap on a vertical scroll bar +#DEFINE SYSMETRIC_HSCROLLBARWIDTH 7 && Width of the arrow bitmap on a horizontal scroll bar +#DEFINE SYSMETRIC_HSCROLLBARHEIGHT 8 && Height of a horizontal scroll bar +#DEFINE SYSMETRIC_WINDOWTITLEHEIGHT 9 && Height of window title (caption) area +#DEFINE SYSMETRIC_WINDOWBORDERWIDTH 10 && Width of a window border +#DEFINE SYSMETRIC_WINDOWBORDERHEIGHT 11 && Height of a window border +#DEFINE SYSMETRIC_WINDOWFRAMEWIDTH 12 && Width of the frame around the perimeter of a window + && that has a caption but is not sizable +#DEFINE SYSMETRIC_WINDOWFRAMEHEIGHT 13 && Height of the frame around the perimeter of a window + && that has a caption but is not sizable +#DEFINE SYSMETRIC_THUMBBOXWIDTH 14 && Width of the thumb box in a horizontal scroll bar +#DEFINE SYSMETRIC_THUMBBOXHEIGHT 15 && Height of the thumb box in a vertical scroll bar +#DEFINE SYSMETRIC_ICONWIDTH 16 && Width of an icon +#DEFINE SYSMETRIC_ICONHEIGHT 17 && Height of an icon +#DEFINE SYSMETRIC_CURSORWIDTH 18 && Width of a cursor +#DEFINE SYSMETRIC_CURSORHEIGHT 19 && Height of a cursor +#DEFINE SYSMETRIC_MENUBAR 20 && Height of a single-line menu bar +#DEFINE SYSMETRIC_CLIENTWIDTH 21 && Width of the client area for a full-screen window +#DEFINE SYSMETRIC_CLIENTHEIGHT 22 && Height of the client area for a full-screen window +#DEFINE SYSMETRIC_KANJIWINHEIGHT 23 && Height of the Kanji window at the bottom of the screen in DBCS versions +#DEFINE SYSMETRIC_MINDRAGWIDTH 24 && Minimum tracking width of a window. (The user cannot drag the window frame to a size smaller than this) +#DEFINE SYSMETRIC_MINDRAGHEIGHT 25 && Minimum tracking height of a window. (The user cannot drag the window frame to a size smaller than this) +#DEFINE SYSMETRIC_MINWINDOWWIDTH 26 && Minimum width of a window +#DEFINE SYSMETRIC_MINWINDOWHEIGHT 27 && Minimum height of a window +#DEFINE SYSMETRIC_TITLEBARBUTTONWIDTH 28 && Width of a title bar button +#DEFINE SYSMETRIC_TITLEBARBUTTONHEIGHT 29 && Height of a title bar button +#DEFINE SYSMETRIC_MOUSEPRESENT 30 && Is mouse present? 1 => mouse is installed, 0 => no mouse is installed +#DEFINE SYSMETRIC_DEBUGVERSION 31 && Is this a debug version? 1 => debug version, 0 => retail version +#DEFINE SYSMETRIC_MOUSEBUTTONSWAP 32 && Are mouse buttons swapped? 1 => Yes, 0 => No +#DEFINE SYSMETRIC_HALFHEIGHTBUTTONWIDTH 33 && Width of a button in a half-height title bar +#DEFINE SYSMETRIC_HALFHEIGHTBUTTONHEIGHT 34 && Height of a button in a half-height title bar + +*-- Windows GetSysMetric() defines +#DEFINE SM_CXSCREEN 0 +#DEFINE SM_CYSCREEN 1 +#DEFINE SM_CXVSCROLL 2 +#DEFINE SM_CYHSCROLL 3 +#DEFINE SM_CYCAPTION 4 +#DEFINE SM_CXBORDER 5 +#DEFINE SM_CYBORDER 6 +#DEFINE SM_CXDLGFRAME 7 +#DEFINE SM_CYDLGFRAME 8 +#DEFINE SM_CYVTHUMB 9 +#DEFINE SM_CXHTHUMB 10 +#DEFINE SM_CXICON 11 +#DEFINE SM_CYICON 12 +#DEFINE SM_CXCURSOR 13 +#DEFINE SM_CYCURSOR 14 +#DEFINE SM_CYMENU 15 +#DEFINE SM_CXFULLSCREEN 16 +#DEFINE SM_CYFULLSCREEN 17 +#DEFINE SM_CYKANJIWINDOW 18 +#DEFINE SM_MOUSEPRESENT 19 +#DEFINE SM_CYVSCROLL 20 +#DEFINE SM_CXHSCROLL 21 +#DEFINE SM_DEBUG 22 +#DEFINE SM_SWAPBUTTON 23 +#DEFINE SM_RESERVED1 24 +#DEFINE SM_RESERVED2 25 +#DEFINE SM_RESERVED3 26 +#DEFINE SM_RESERVED4 27 +#DEFINE SM_CXMIN 28 +#DEFINE SM_CYMIN 29 +#DEFINE SM_CXSIZE 30 +#DEFINE SM_CYSIZE 31 +#DEFINE SM_CXFRAME 32 +#DEFINE SM_CYFRAME 33 +#DEFINE SM_CXMINTRACK 34 +#DEFINE SM_CYMINTRACK 35 +#DEFINE SM_CMETRICS 36 + +*-- Cursor buffering modes +#DEFINE DB_BUFOFF 1 +#DEFINE DB_BUFLOCKRECORD 2 +#DEFINE DB_BUFOPTRECORD 3 +#DEFINE DB_BUFLOCKTABLE 4 +#DEFINE DB_BUFOPTTABLE 5 + +*-- Update types for views/cursors +#DEFINE DB_UPDATE 1 +#DEFINE DB_DELETEINSERT 2 + +*-- WHERE clause types for views/cursors +#DEFINE DB_KEY 1 +#DEFINE DB_KEYANDUPDATABLE 2 +#DEFINE DB_KEYANDMODIFIED 3 +#DEFINE DB_KEYANDTIMESTAMP 4 + +*-- Remote connection login prompt options +#DEFINE DB_PROMPTCOMPLETE 1 +#DEFINE DB_PROMPTALWAYS 2 +#DEFINE DB_PROMPTNEVER 3 + +*-- Remote transaction modes +#DEFINE DB_TRANSAUTO 1 +#DEFINE DB_TRANSMANUAL 2 + +*-- Source Types for CursorGetProp() +#DEFINE DB_SRCLOCALVIEW 1 +#DEFINE DB_SRCREMOTEVIEW 2 +#DEFINE DB_SRCTABLE 3 + +*-- Language IDs. +* +* A language ID is a 16 bit value which is the combination of a +* primary language ID and a secondary language ID. The bits are +* allocated as follows: +* +* +-----------------------+-------------------------+ +* | Sublanguage ID | Primary Language ID | +* +-----------------------+-------------------------+ +* 15 10 9 0 bit +* +* +* The following three combinations of primary language ID and +* sublanguage ID have special semantics: +* +* Primary Language ID Sublanguage ID Result +* ------------------- --------------- ------------------------ +* LANG_NEUTRAL SUBLANG_NEUTRAL Language neutral +* LANG_NEUTRAL SUBLANG_DEFAULT User default language +* LANG_NEUTRAL SUBLANG_SYS_DEFAULT System default language +* + +* +* Primary language IDs. +* + +#DEFINE LANG_NEUTRAL 0x00 + +#DEFINE LANG_AFRIKAANS 0x36 +#DEFINE LANG_ALBANIAN 0x1c +#DEFINE LANG_ARABIC 0x01 +#DEFINE LANG_BASQUE 0x2d +#DEFINE LANG_BELARUSIAN 0x23 +#DEFINE LANG_BULGARIAN 0x02 +#DEFINE LANG_CATALAN 0x03 +#DEFINE LANG_CHINESE 0x04 +#DEFINE LANG_CROATIAN 0x1a +#DEFINE LANG_CZECH 0x05 +#DEFINE LANG_DANISH 0x06 +#DEFINE LANG_DUTCH 0x13 +#DEFINE LANG_ENGLISH 0x09 +#DEFINE LANG_ESTONIAN 0x25 +#DEFINE LANG_FAEROESE 0x38 +#DEFINE LANG_FARSI 0x29 +#DEFINE LANG_FINNISH 0x0b +#DEFINE LANG_FRENCH 0x0c +#DEFINE LANG_GERMAN 0x07 +#DEFINE LANG_GREEK 0x08 +#DEFINE LANG_HEBREW 0x0d +#DEFINE LANG_HUNGARIAN 0x0e +#DEFINE LANG_ICELANDIC 0x0f +#DEFINE LANG_INDONESIAN 0x21 +#DEFINE LANG_ITALIAN 0x10 +#DEFINE LANG_JAPANESE 0x11 +#DEFINE LANG_KOREAN 0x12 +#DEFINE LANG_LATVIAN 0x26 +#DEFINE LANG_LITHUANIAN 0x27 +#DEFINE LANG_NORWEGIAN 0x14 +#DEFINE LANG_POLISH 0x15 +#DEFINE LANG_PORTUGUESE 0x16 +#DEFINE LANG_ROMANIAN 0x18 +#DEFINE LANG_RUSSIAN 0x19 +#DEFINE LANG_SERBIAN 0x1a +#DEFINE LANG_SLOVAK 0x1b +#DEFINE LANG_SLOVENIAN 0x24 +#DEFINE LANG_SPANISH 0x0a +#DEFINE LANG_SWEDISH 0x1d +#DEFINE LANG_THAI 0x1e +#DEFINE LANG_TURKISH 0x1f +#DEFINE LANG_UKRAINIAN 0x22 +#DEFINE LANG_VIETNAMESE 0x2a + +* +* Sublanguage IDs. +* +* The name immediately following SUBLANG_ dictates which primary +* language ID that sublanguage ID can be combined with to form a +* valid language ID. +* + +#DEFINE SUBLANG_NEUTRAL 0x0000 && language neutral +#DEFINE SUBLANG_DEFAULT 0x0400 && user default +#DEFINE SUBLANG_SYS_DEFAULT 0x0800 && system default + +#DEFINE SUBLANG_ARABIC_SAUDI_ARABIA 0x0400 && Arabic (Saudi Arabia) +#DEFINE SUBLANG_ARABIC_IRAQ 0x0800 && Arabic (Iraq) +#DEFINE SUBLANG_ARABIC_EGYPT 0x0C00 && Arabic (Egypt) +#DEFINE SUBLANG_ARABIC_LIBYA 0x1000 && Arabic (Libya) +#DEFINE SUBLANG_ARABIC_ALGERIA 0x1400 && Arabic (Algeria) +#DEFINE SUBLANG_ARABIC_MOROCCO 0x1800 && Arabic (Morocco) +#DEFINE SUBLANG_ARABIC_TUNISIA 0x1C00 && Arabic (Tunisia) +#DEFINE SUBLANG_ARABIC_OMAN 0x2000 && Arabic (Oman) +#DEFINE SUBLANG_ARABIC_YEMEN 0x2400 && Arabic (Yemen) +#DEFINE SUBLANG_ARABIC_SYRIA 0x2800 && Arabic (Syria) +#DEFINE SUBLANG_ARABIC_JORDAN 0x2C00 && Arabic (Jordan) +#DEFINE SUBLANG_ARABIC_LEBANON 0x3000 && Arabic (Lebanon) +#DEFINE SUBLANG_ARABIC_KUWAIT 0x3400 && Arabic (Kuwait) +#DEFINE SUBLANG_ARABIC_UAE 0x3800 && Arabic (U.A.E) +#DEFINE SUBLANG_ARABIC_BAHRAIN 0x3C00 && Arabic (Bahrain) +#DEFINE SUBLANG_ARABIC_QATAR 0x4000 && Arabic (Qatar) +#DEFINE SUBLANG_CHINESE_TRADITIONAL 0x0400 && Chinese (Taiwan) +#DEFINE SUBLANG_CHINESE_SIMPLIFIED 0x0800 && Chinese (PR China) +#DEFINE SUBLANG_CHINESE_HONGKONG 0x0C00 && Chinese (Hong Kong S.A.R) +#DEFINE SUBLANG_CHINESE_SINGAPORE 0x1000 && Chinese (Singapore) +#DEFINE SUBLANG_DUTCH 0x0400 && Dutch +#DEFINE SUBLANG_DUTCH_BELGIAN 0x0800 && Dutch (Belgian) +#DEFINE SUBLANG_ENGLISH_US 0x0400 && English (USA) +#DEFINE SUBLANG_ENGLISH_UK 0x0800 && English (UK) +#DEFINE SUBLANG_ENGLISH_AUS 0x0C00 && English (Australian) +#DEFINE SUBLANG_ENGLISH_CAN 0x1000 && English (Canadian) +#DEFINE SUBLANG_ENGLISH_NZ 0x1400 && English (New Zealand) +#DEFINE SUBLANG_ENGLISH_EIRE 0x1800 && English (Irish) +#DEFINE SUBLANG_ENGLISH_SOUTH_AFRICA 0x1C00 && English (South Africa) +#DEFINE SUBLANG_ENGLISH_JAMAICA 0x2000 && English (Jamaica) +#DEFINE SUBLANG_ENGLISH_CARIBBEAN 0x2400 && English (Caribbean) +#DEFINE SUBLANG_ENGLISH_BELIZE 0x2800 && English (Belize) +#DEFINE SUBLANG_ENGLISH_TRINIDAD 0x2C00 && English (Trinidad) +#DEFINE SUBLANG_FRENCH 0x0400 && French +#DEFINE SUBLANG_FRENCH_BELGIAN 0x0800 && French (Belgian) +#DEFINE SUBLANG_FRENCH_CANADIAN 0x0C00 && French (Canadian) +#DEFINE SUBLANG_FRENCH_SWISS 0x1000 && French (Swiss) +#DEFINE SUBLANG_FRENCH_LUXEMBOURG 0x1400 && French (Luxembourg) +#DEFINE SUBLANG_GERMAN 0x0400 && German +#DEFINE SUBLANG_GERMAN_SWISS 0x0800 && German (Swiss) +#DEFINE SUBLANG_GERMAN_AUSTRIAN 0x0C00 && German (Austrian) +#DEFINE SUBLANG_GERMAN_LUXEMBOURG 0x1000 && German (Luxembourg) +#DEFINE SUBLANG_GERMAN_LIECHTENSTEIN 0x1400 && German (Liechtenstein) +#DEFINE SUBLANG_ITALIAN 0x0400 && Italian +#DEFINE SUBLANG_ITALIAN_SWISS 0x0800 && Italian (Swiss) +#DEFINE SUBLANG_KOREAN 0x0400 && Korean (Extended Wansung) +#DEFINE SUBLANG_KOREAN_JOHAB 0x0800 && Korean (Johab) +#DEFINE SUBLANG_NORWEGIAN_BOKMAL 0x0400 && Norwegian (Bokmal) +#DEFINE SUBLANG_NORWEGIAN_NYNORSK 0x0800 && Norwegian (Nynorsk) +#DEFINE SUBLANG_PORTUGUESE 0x0800 && Portuguese +#DEFINE SUBLANG_PORTUGUESE_BRAZILIAN 0x0400 && Portuguese (Brazilian) +#DEFINE SUBLANG_SERBIAN_LATIN 0x0800 && Serbian (Latin) +#DEFINE SUBLANG_SERBIAN_CYRILLIC 0x0C00 && Serbian (Cyrillic) +#DEFINE SUBLANG_SPANISH 0x0400 && Spanish (Castilian) +#DEFINE SUBLANG_SPANISH_MEXICAN 0x0800 && Spanish (Mexican) +#DEFINE SUBLANG_SPANISH_MODERN 0x0C00 && Spanish (Modern) +#DEFINE SUBLANG_SPANISH_GUATEMALA 0x1000 && Spanish (Guatemala) +#DEFINE SUBLANG_SPANISH_COSTA_RICA 0x1400 && Spanish (Costa Rica) +#DEFINE SUBLANG_SPANISH_PANAMA 0x1800 && Spanish (Panama) +#DEFINE SUBLANG_SPANISH_DOMINICAN_REPUBLIC 0x1C00 && Spanish (Dominican Republic) +#DEFINE SUBLANG_SPANISH_VENEZUELA 0x2000 && Spanish (Venezuela) +#DEFINE SUBLANG_SPANISH_COLOMBIA 0x2400 && Spanish (Colombia) +#DEFINE SUBLANG_SPANISH_PERU 0x2800 && Spanish (Peru) +#DEFINE SUBLANG_SPANISH_ARGENTINA 0x2C00 && Spanish (Argentina) +#DEFINE SUBLANG_SPANISH_ECUADOR 0x3000 && Spanish (Ecuador) +#DEFINE SUBLANG_SPANISH_CHILE 0x3400 && Spanish (Chile) +#DEFINE SUBLANG_SPANISH_URUGUAY 0x3800 && Spanish (Uruguay) +#DEFINE SUBLANG_SPANISH_PARAGUAY 0x3C00 && Spanish (Paraguay) +#DEFINE SUBLANG_SPANISH_BOLIVIA 0x4000 && Spanish (Bolivia) +#DEFINE SUBLANG_SPANISH_EL_SALVADOR 0x4400 && Spanish (El Salvador) +#DEFINE SUBLANG_SPANISH_HONDURAS 0x4800 && Spanish (Honduras) +#DEFINE SUBLANG_SPANISH_NICARAGUA 0x4C00 && Spanish (Nicaragua) +#DEFINE SUBLANG_SPANISH_PUERTO_RICO 0x5000 && Spanish (Puerto Rico) +#DEFINE SUBLANG_SWEDISH 0x0400 && Swedish +#DEFINE SUBLANG_SWEDISH_FINLAND 0x0800 && Swedish (Finland) + +*-- DBC Events constants +#DEFINE DBCEVENTS_NULLTYPE 0 +#DEFINE DBCEVENTS_DATABASE 1 +#DEFINE DBCEVENTS_TABLE 2 +#DEFINE DBCEVENTS_COLUMN 3 +#DEFINE DBCEVENTS_INDEX 4 +#DEFINE DBCEVENTS_TAG 4 +#DEFINE DBCEVENTS_RELATION 5 +#DEFINE DBCEVENTS_CONNECTION 6 +#DEFINE DBCEVENTS_VIEW 7 +#DEFINE DBCEVENTS_LASTTYPE 8 +#DEFINE DBCEVENTS_STPROCS 9 + +*-- AFields() Constants +#define AFIELDS_NAME 1 +#define AFIELDS_TYPE 2 +#define AFIELDS_WIDTH 3 +#define AFIELDS_PRECISION 4 +#define AFIELDS_NULL 5 +#define AFIELDS_CODEPAGE_XLATE 6 +#define AFIELDS_VALID_EXPRESSION 7 +#define AFIELDS_VALID_TEXT 8 +#define AFIELDS_DEFAULT 9 +#define AFIELDS_TABLE_VALID_EXPRESSION 10 +#define AFIELDS_TABLE_VALID_TEXT 11 +#define AFIELDS_TABLE_LONG_NAME 12 +#define AFIELDS_INSERT_TRIGGER 13 +#define AFIELDS_UPDATE_TRIGGER 14 +#define AFIELDS_DELETE_TRIGGER 15 +#define AFIELDS_TABLE_COMMENT 16 +#define AFIELDS_AUTOINC_NEXT_VALUE 17 +#define AFIELDS_AUTOINC_STEP 18 + +* UCS Transformation Format byte order marks. +#DEFINE ENCODE_UTF16 CHR(0xFF) + CHR(0xFE) +#DEFINE ENCODE_UTF8 "" + +* COM_Attrib flag settings for Type Library attributes support +#DEFINE COMATTRIB_RESTRICTED 0x1 && The property/method should not be accessible from macro languages. +#DEFINE COMATTRIB_HIDDEN 0x40 && The property/method should not be displayed to the user, although it exists and is bindable. +#DEFINE COMATTRIB_NONBROWSABLE 0x400 && The property/method appears in an object browser, but not in a properties browser. +#DEFINE COMATTRIB_READONLY 0x100000 && The property is read-only (applies only to Properties). +#DEFINE COMATTRIB_WRITEONLY 0x200000 && The property is write-only (applies only to Properties). diff --git a/Initializari/euro500t.txt b/Initializari/euro500t.txt new file mode 100644 index 0000000..e142748 --- /dev/null +++ b/Initializari/euro500t.txt @@ -0,0 +1,5 @@ + /t /RO /com: /speed:38400 /ecr:10 /data_file: + + +[/com:n] [/speed:nnnn] [/ecr:nn] [/num:nn] [/o:nnn] [/start:nnn] [/len:nnn] [/cfg:ssssss] [/tel:ttttttt] +[/data_file:file] [/cfg_file:file] [/err_file:file] [/run_file :f ile] [/drm:drm] [/online_wait:time] diff --git a/Initializari/euro500t.txt.tmpl b/Initializari/euro500t.txt.tmpl new file mode 100644 index 0000000..e142748 --- /dev/null +++ b/Initializari/euro500t.txt.tmpl @@ -0,0 +1,5 @@ + /t /RO /com: /speed:38400 /ecr:10 /data_file: + + +[/com:n] [/speed:nnnn] [/ecr:nn] [/num:nn] [/o:nnn] [/start:nnn] [/len:nnn] [/cfg:ssssss] [/tel:ttttttt] +[/data_file:file] [/cfg_file:file] [/err_file:file] [/run_file :f ile] [/drm:drm] [/online_wait:time] diff --git a/Initializari/euro500t_erori.xml b/Initializari/euro500t_erori.xml new file mode 100644 index 0000000..c3faebc --- /dev/null +++ b/Initializari/euro500t_erori.xml @@ -0,0 +1,134 @@ + + +1 +Communication error +Eroare de comunicare + + + +3 +Not finished sale in ECR, firstly finish the sale! +Vanzare neterminata in ECR!Terminati mai intai vanzarea! + + + +4 +Tax assignment out of range, or not active tax! +Cota de tva inexistenta sau inactiva! + + + +5 +DPT assignment out of range +Departament inexistent! + + + +6 +Sale unit out of range! + + + + +7 +Quantity out of range + + + + +8 +Price out of range + + + + +9 +Forbidden Online in particular mode! + + + + +10 +Command out of range or 2 times called command "3" or "4"! + + + + +11 +PLU number out of range + + + + +12 +Text out of character set + + + + +13 +Payment value out of range + + + + +14 +Payment type out of range + + + + +15 +Currency out of range! + + + + +16 +Sale command but sale no started! + + + + +30 +Number of serial port out of range! +Numarul portului serial nu este valid! + + + +31 +ECR number out of range +Numarul casei de marcat nu este valid! + + + +32 +Incorrect ECR type! +Tipul casei de marcat specificat in fisierul de configurare este incorect! + + + +33 +Incorrect communication speed in SETUP.DAT file +Viteza de comunicare specificata in fisierul de configurare este incorecta! + + + +34 +Error in ITEMS.TXT +Eroare in fisierul ITEMS.TXT! + + + +35 +Time-out error +Casa de marcat nu este deschisa sau nu este conectata la computer! + + + +36 +To open SETUP.DAT file impossible or do not exist +Eroare la deschiderea fisierului de configurare! + + + \ No newline at end of file diff --git a/Initializari/euro500t_erori.xml.tmpl b/Initializari/euro500t_erori.xml.tmpl new file mode 100644 index 0000000..c3faebc --- /dev/null +++ b/Initializari/euro500t_erori.xml.tmpl @@ -0,0 +1,134 @@ + + +1 +Communication error +Eroare de comunicare + + + +3 +Not finished sale in ECR, firstly finish the sale! +Vanzare neterminata in ECR!Terminati mai intai vanzarea! + + + +4 +Tax assignment out of range, or not active tax! +Cota de tva inexistenta sau inactiva! + + + +5 +DPT assignment out of range +Departament inexistent! + + + +6 +Sale unit out of range! + + + + +7 +Quantity out of range + + + + +8 +Price out of range + + + + +9 +Forbidden Online in particular mode! + + + + +10 +Command out of range or 2 times called command "3" or "4"! + + + + +11 +PLU number out of range + + + + +12 +Text out of character set + + + + +13 +Payment value out of range + + + + +14 +Payment type out of range + + + + +15 +Currency out of range! + + + + +16 +Sale command but sale no started! + + + + +30 +Number of serial port out of range! +Numarul portului serial nu este valid! + + + +31 +ECR number out of range +Numarul casei de marcat nu este valid! + + + +32 +Incorrect ECR type! +Tipul casei de marcat specificat in fisierul de configurare este incorect! + + + +33 +Incorrect communication speed in SETUP.DAT file +Viteza de comunicare specificata in fisierul de configurare este incorecta! + + + +34 +Error in ITEMS.TXT +Eroare in fisierul ITEMS.TXT! + + + +35 +Time-out error +Casa de marcat nu este deschisa sau nu este conectata la computer! + + + +36 +To open SETUP.DAT file impossible or do not exist +Eroare la deschiderea fisierului de configurare! + + + \ No newline at end of file diff --git a/Initializari/roagest_bon.xml b/Initializari/roagest_bon.xml new file mode 100644 index 0000000..2620f46 --- /dev/null +++ b/Initializari/roagest_bon.xml @@ -0,0 +1,11 @@ + + + +\INITIALIZARI\ +1 +C:\EURO500\ +ONLINE.EXE +ITEMS.TXT +1 + + \ No newline at end of file diff --git a/Initializari/roagest_bon.xml.tmpl b/Initializari/roagest_bon.xml.tmpl new file mode 100644 index 0000000..2620f46 --- /dev/null +++ b/Initializari/roagest_bon.xml.tmpl @@ -0,0 +1,11 @@ + + + +\INITIALIZARI\ +1 +C:\EURO500\ +ONLINE.EXE +ITEMS.TXT +1 + + \ No newline at end of file diff --git a/Initializari/roagest_mp500.xml b/Initializari/roagest_mp500.xml new file mode 100644 index 0000000..a3129b4 --- /dev/null +++ b/Initializari/roagest_mp500.xml @@ -0,0 +1,11 @@ + + + +\INITIALIZARI\ +1 +C:\DATPRINT\ +DATPRINT.EXE +BON.INP +1 + + diff --git a/Initializari/roagest_mp500.xml.tmpl b/Initializari/roagest_mp500.xml.tmpl new file mode 100644 index 0000000..a3129b4 --- /dev/null +++ b/Initializari/roagest_mp500.xml.tmpl @@ -0,0 +1,11 @@ + + + +\INITIALIZARI\ +1 +C:\DATPRINT\ +DATPRINT.EXE +BON.INP +1 + + diff --git a/Locale/locale.db2 b/Locale/locale.db2 new file mode 100644 index 0000000..d6307ef --- /dev/null +++ b/Locale/locale.db2 @@ -0,0 +1,5792 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + PHRASE + M + 4 + 0 + .F. + .F. + + + + + + LOCALE + + + + + 0 + 0 + + + LANGUAGE + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NOTES + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TRANSLATED + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + REGULAR + ID + + ASCENDING + MACHINE + + + LANGUAGE + REGULAR + LANGUAGE + + ASCENDING + MACHINE + + + + + + + + + + + + Romana + + 1 + .T. + + + + + English + + 1 + .T. + + + + + Romana + + 2 + .T. + + + + + English + + 2 + .T. + + + + + Romana + + 3 + .T. + + + + + English + + 3 + .T. + + + + + Romana + + 4 + .T. + + + + + English + + 4 + .T. + + + + + Romana + + 5 + .T. + + + + + English + + 5 + .T. + + + + + Romana + + 6 + .T. + + + + + English + + 6 + .T. + + + + + Romana + + 7 + .T. + + + + + English + + 7 + .T. + + + + + Romana + + 8 + .T. + + + + + English + + 8 + .T. + + + + + Romana + + 9 + .T. + + + + + English + + 9 + .T. + + + + + Romana + + 10 + .T. + + + + + English + + 10 + .T. + + + + + Romana + + 11 + .T. + + + + + English + + 11 + .T. + + + + + Romana + + 12 + .T. + + + + + English + + 12 + .T. + + + + + Romana + + 13 + .T. + + + + + English + + 13 + .T. + + + + + Romana + + 14 + .T. + + + + + English + + 14 + .T. + + + + + Romana + + 15 + .T. + + + + + English + + 15 + .T. + + + + + Romana + + 16 + .T. + + + + + English + + 16 + .T. + + + + + Romana + + 17 + .T. + + + + + English + + 17 + .T. + + + + + Romana + + 18 + .T. + + + + + English + + 18 + .T. + + + + + Romana + + 19 + .T. + + + + + English + + 19 + .T. + + + + + Romana + + 20 + .T. + + + + + English + + 20 + .T. + + + + + Romana + + 21 + .T. + + + + + English + + 21 + .T. + + + + + Romana + + 22 + .T. + + + + + English + + 22 + .T. + + + + + Romana + + 23 + .T. + + + + + English + + 23 + .T. + + + + + Romana + + 24 + .T. + + + + + English + + 24 + .T. + + + + + Romana + + 25 + .T. + + + + + English + + 25 + .T. + + + + + Romana + + 26 + .T. + + + + + English + + 26 + .T. + + + + + Romana + + 27 + .T. + + + + + English + + 27 + .T. + + + + + Romana + + 28 + .T. + + + + + English + + 28 + .T. + + + + + Romana + + 29 + .T. + + + + + English + + 29 + .T. + + + + + Romana + + 30 + .T. + + + + + English + + 30 + .T. + + + + + Romana + + 31 + .T. + + + + + English + + 31 + .T. + + + + + Romana + + 32 + .T. + + + + + English + + 32 + .T. + + + + + Romana + + 33 + .T. + + + + + English + + 33 + .T. + + + + + Romana + + 34 + .T. + + + + + English + + 34 + .T. + + + + + Romana + + 35 + .T. + + + + + English + + 35 + .T. + + + + + Romana + + 36 + .T. + + + + + English + + 36 + .T. + + + + + Romana + + 37 + .T. + + + + + English + + 37 + .T. + + + + + Romana + + 38 + .T. + + + + + English + + 38 + .T. + + + + + Romana + + 39 + .T. + + + + + English + + 39 + .T. + + + + + Romana + + 40 + .T. + + + + + English + + 40 + .T. + + + + + Romana + + 41 + .T. + + + + + English + + 41 + .T. + + + + + Romana + + 42 + .T. + + + + + English + + 42 + .T. + + + + + Romana + + 43 + .T. + + + + + English + + 43 + .T. + + + + + Romana + + 44 + .T. + + + + + English + + 44 + .T. + + + + + Romana + + 45 + .T. + + + + + English + + 45 + .T. + + + + + Romana + + 46 + .T. + + + + + English + + 46 + .T. + + + + + Romana + + 47 + .T. + + + + + English + + 47 + .T. + + + + + Romana + + 48 + .T. + + + + + English + + 48 + .T. + + + + + Romana + + 49 + .T. + + + + + English + + 49 + .T. + + + + + Romana + + 50 + .T. + + + + + English + + 50 + .T. + + + + + Romana + + 51 + .T. + + + + + English + + 51 + .T. + + + + + Romana + + 52 + .T. + + + + + English + + 52 + .T. + + + + + Romana + + 53 + .T. + + + + + English + + 53 + .T. + + + + + Romana + + 54 + .T. + + + + + English + + 54 + .T. + + + + + Romana + + 55 + .T. + + + + + English + + 55 + .T. + + + + + Romana + + 56 + .T. + + + + + English + + 56 + .T. + + + + + Romana + + 57 + .T. + + + + + English + + 57 + .T. + + + + + Romana + + 58 + .T. + + + + + English + + 58 + .T. + + + + + Romana + + 59 + .T. + + + + + English + + 59 + .T. + + + + + Romana + + 60 + .T. + + + + + English + + 60 + .T. + + + + + Romana + + 61 + .T. + + + + + English + + 61 + .T. + + + + + Romana + + 62 + .T. + + + + + English + + 62 + .T. + + + + + Romana + + 63 + .T. + + + + + English + + 63 + .T. + + + + + Romana + + 64 + .T. + + + + + English + + 64 + .T. + + + + + Romana + + 65 + .T. + + + + + English + + 65 + .T. + + + + + Romana + + 66 + .T. + + + + + English + + 66 + .T. + + + + + Romana + + 67 + .T. + + + + + English + + 67 + .T. + + + + + Romana + + 68 + .T. + + + + + English + + 68 + .T. + + + + + Romana + + 69 + .T. + + + + + English + + 69 + .T. + + + + + Romana + + 70 + .T. + + + + + English + + 70 + .T. + + + + + Romana + + 71 + .T. + + + + + English + + 71 + .F. + + + + + Romana + + 72 + .T. + + + + + English + + 72 + .T. + + + + + Romana + + 73 + .T. + + + + + English + + 73 + .T. + + + + + Romana + + 74 + .T. + + + + + English + + 74 + .F. + + + + + Romana + + 75 + .T. + + + + + English + + 75 + .F. + + + + + Romana + + 76 + .T. + + + + + English + + 76 + .T. + + + + + Romana + + 77 + .T. + + + + + English + + 77 + .T. + + + + + Romana + + 78 + .T. + + + + + English + + 78 + .T. + + + + + Romana + + 79 + .T. + + + + + English + + 79 + .T. + + + + + Romana + + 80 + .T. + + + + + English + + 80 + .T. + + + + + Romana + + 81 + .T. + + + + + English + + 81 + .T. + + + + + Romana + + 82 + .T. + + + + + English + + 82 + .T. + + + + + Romana + + 83 + .T. + + + + + English + + 83 + .T. + + + + + Romana + + 84 + .T. + + + + + English + + 84 + .T. + + + + + Romana + + 85 + .T. + + + + + English + + 85 + .T. + + + + + Romana + + 86 + .T. + + + + + English + + 86 + .T. + + + + + Romana + + 87 + .T. + + + + + English + + 87 + .T. + + + + + Romana + + 88 + .T. + + + + + English + + 88 + .T. + + + + + Romana + + 89 + .T. + + + + + English + + 89 + .T. + + + + + Romana + + 90 + .T. + + + + + English + + 90 + .T. + + + + + Romana + + 91 + .T. + + + + + English + + 91 + .T. + + + + + Romana + + 92 + .T. + + + + + English + + 92 + .T. + + + + + Romana + + 93 + .T. + + + + + English + + 93 + .T. + + + + + Romana + + 94 + .T. + + + + + English + + 94 + .T. + + + + + Romana + + 95 + .T. + + + + + English + + 95 + .T. + + + + + Romana + + 96 + .T. + + + + + English + + 96 + .T. + + + + + Romana + + 97 + .T. + + + + + English + + 97 + .T. + + + + + Romana + + 98 + .T. + + + + + English + + 98 + .T. + + + + + Romana + + 99 + .T. + + + + + English + + 99 + .T. + + + + + Romana + + 100 + .T. + + + + + English + + 100 + .T. + + + + + Romana + + 101 + .T. + + + + + English + + 101 + .F. + + + + + Romana + + 102 + .T. + + + + + English + + 102 + .T. + + + + + Romana + + 103 + .T. + + + + + English + + 103 + .T. + + + + + Romana + + 104 + .T. + + + + + English + + 104 + .T. + + + + + Romana + + 105 + .T. + + + + + English + + 105 + .T. + + + + + Romana + + 106 + .T. + + + + + English + + 106 + .T. + + + + + Romana + + 107 + .T. + + + + + English + + 107 + .T. + + + + + Romana + + 108 + .T. + + + + + English + + 108 + .T. + + + + + Romana + + 109 + .T. + + + + + English + + 109 + .T. + + + + + Romana + + 110 + .T. + + + + + English + + 110 + .T. + + + + + Romana + + 111 + .T. + + + + + English + + 111 + .T. + + + + + Romana + + 112 + .T. + + + + + English + + 112 + .T. + + + + + Romana + + 113 + .T. + + + + + English + + 113 + .T. + + + + + Romana + + 114 + .T. + + + + + English + + 114 + .T. + + + + + Romana + + 115 + .T. + + + + + English + + 115 + .T. + + + + + Romana + + 116 + .T. + + + + + English + + 116 + .T. + + + + + Romana + + 117 + .T. + + + + + English + + 117 + .T. + + + + + Romana + + 118 + .T. + + + + + English + + 118 + .T. + + + + + Romana + + 119 + .T. + + + + + English + + 119 + .T. + + + + + Romana + + 120 + .T. + + + + + English + + 120 + .T. + + + + + Romana + + 121 + .T. + + + + + English + + 121 + .T. + + + + + Romana + + 122 + .T. + + + + + English + + 122 + .T. + + + + + Romana + + 123 + .T. + + + + + English + + 123 + .T. + + + + + Romana + + 124 + .T. + + + + + English + + 124 + .T. + + + + + Romana + + 125 + .T. + + + + + English + + 125 + .T. + + + + + Romana + + 126 + .T. + + + + + English + + 126 + .T. + + + + + Romana + + 127 + .T. + + + + + English + + 127 + .T. + + + + + Romana + + 128 + .T. + + + + + English + + 128 + .T. + + + + + Romana + + 129 + .T. + + + + + English + + 129 + .T. + + + + + Romana + + 130 + .T. + + + + + English + + 130 + .T. + + + + + Romana + + 131 + .T. + + + + + English + + 131 + .T. + + + + + Romana + + 132 + .T. + + + + + English + + 132 + .T. + + + + + Romana + + 133 + .T. + + + + + English + + 133 + .F. + + + + + Romana + + 134 + .T. + + + + + English + + 134 + .T. + + + + + Romana + + 135 + .T. + + + + + English + + 135 + .T. + + + + + Romana + + 136 + .T. + + + + + English + + 136 + .T. + + + + + Romana + + 137 + .T. + + + + + English + + 137 + .T. + + + + + Romana + + 138 + .T. + + + + + English + + 138 + .T. + + + + + Romana + + 139 + .T. + + + + + English + + 139 + .T. + + + + + Romana + + 140 + .T. + + + + + English + + 140 + .T. + + + + + Romana + + 141 + .T. + + + + + English + + 141 + .T. + + + + + Romana + + 142 + .T. + + + + + English + + 142 + .T. + + + + + Romana + + 143 + .T. + + + + + English + + 143 + .T. + + + + + Romana + + 144 + .T. + + + + + English + + 144 + .T. + + + + + Romana + + 145 + .T. + + + + + English + + 145 + .T. + + + + + Romana + + 146 + .T. + + + + + English + + 146 + .T. + + + + + Romana + + 147 + .T. + + + + + English + + 147 + .T. + + + + + Romana + + 148 + .T. + + + + + English + + 148 + .T. + + + + + Romana + + 149 + .T. + + + + + English + + 149 + .T. + + + + + Romana + + 150 + .T. + + + + + English + + 150 + .T. + + + + + Romana + + 151 + .T. + + + + + English + + 151 + .T. + + + + + Romana + + 152 + .T. + + + + + English + + 152 + .T. + + + + + Romana + + 153 + .T. + + + + + English + + 153 + .T. + + + + + Romana + + 154 + .T. + + + + + English + + 154 + .T. + + + + + Romana + + 155 + .T. + + + + + English + + 155 + .T. + + + + + Romana + + 156 + .T. + + + + + English + + 156 + .T. + + + + + Romana + + 157 + .T. + + + + + English + + 157 + .T. + + + + + Romana + + 158 + .T. + + + + + English + + 158 + .T. + + + + + Romana + + 159 + .T. + + + + + English + + 159 + .T. + + + + + Romana + + 160 + .T. + + + + + English + + 160 + .T. + + + + + Romana + + 161 + .T. + + + + + English + + 161 + .T. + + + + + Romana + + 162 + .T. + + + + + English + + 162 + .T. + + + + + Romana + + 163 + .T. + + + + + English + + 163 + .T. + + + + + Romana + + 164 + .T. + + + + + English + + 164 + .T. + + + + + Romana + + 165 + .T. + + + + + English + + 165 + .T. + + + + + Romana + + 166 + .T. + + + + + English + + 166 + .T. + + + + + Romana + + 167 + .T. + + + + + English + + 167 + .T. + + + + + Romana + + 168 + .T. + + + + + English + + 168 + .T. + + + + + Romana + + 169 + .T. + + + + + English + + 169 + .T. + + + + + Romana + + 170 + .T. + + + + + English + + 170 + .T. + + + + + Romana + + 171 + .T. + + + + + English + + 171 + .T. + + + + + Romana + + 172 + .T. + + + + + English + + 172 + .T. + + + + + Romana + + 173 + .T. + + + + + English + + 173 + .T. + + + + + Romana + + 174 + .T. + + + + + English + + 174 + .T. + + + + + Romana + + 175 + .T. + + + + + English + + 175 + .T. + + + + + Romana + + 176 + .T. + + + + + English + + 176 + .T. + + + + + Romana + + 177 + .T. + + + + + English + + 177 + .T. + + + + + Romana + + 178 + .T. + + + + + English + + 178 + .T. + + + + + Romana + + 179 + .T. + + + + + English + + 179 + .T. + + + + + Romana + + 180 + .T. + + + + + English + + 180 + .T. + + + + + Romana + + 181 + .T. + + + + + English + + 181 + .T. + + + + + Romana + + 182 + .T. + + + + + English + + 182 + .T. + + + + + Romana + + 183 + .T. + + + + + English + + 183 + .T. + + + + + Romana + + 184 + .T. + + + + + English + + 184 + .T. + + + + + Romana + + 185 + .T. + + + + + English + + 185 + .T. + + + + + Romana + + 186 + .T. + + + + + English + + 186 + .T. + + + + + Romana + + 187 + .T. + + + + + English + + 187 + .T. + + + + + Romana + + 188 + .T. + + + + + English + + 188 + .T. + + + + + Romana + + 189 + .T. + + + + + English + + 189 + .T. + + + + + Romana + + 190 + .T. + + + + + English + + 190 + .T. + + + + + Romana + + 191 + .T. + + + + + English + + 191 + .T. + + + + + Romana + + 192 + .T. + + + + + English + + 192 + .T. + + + + + Romana + + 193 + .T. + + + + + English + + 193 + .T. + + + + + Romana + + 194 + .T. + + + + + English + + 194 + .T. + + + + + Romana + + 195 + .T. + + + + + English + + 195 + .T. + + + + + Romana + + 196 + .T. + + + + + English + + 196 + .T. + + + + + Romana + + 197 + .T. + + + + + English + + 197 + .T. + + + + + Romana + + 198 + .T. + + + + + English + + 198 + .T. + + + + + Romana + + 199 + .T. + + + + + English + + 199 + .T. + + + + + Romana + + 200 + .T. + + + + + English + + 200 + .T. + + + + + Romana + + 201 + .T. + + + + + English + + 201 + .T. + + + + + Romana + + 202 + .T. + + + + + English + + 202 + .T. + + + + + Romana + + 203 + .T. + + + + + English + + 203 + .T. + + + + + Romana + + 204 + .T. + + + + + Romana + + 205 + .T. + + + + + Romana + + 206 + .T. + + + + + Romana + + 207 + .T. + + + + + Romana + + 208 + .T. + + + + + Romana + + 209 + .T. + + + + + Romana + + 210 + .T. + + + + + Romana + + 211 + .T. + + + + + Romana + + 212 + .T. + + + + + Romana + + 213 + .T. + + + + + Romana + + 214 + .T. + + + + + Romana + + 215 + .T. + + + + + Romana + + 216 + .T. + + + + + Romana + + 217 + .T. + + + + + Romana + + 218 + .T. + + + + + Romana + + 219 + .T. + + + + + Romana + + 220 + .T. + + + + + Romana + + 221 + .T. + + + + + Romana + + 222 + .T. + + + + + Romana + + 223 + .T. + + + + + Romana + + 224 + .T. + + + + + Romana + + 225 + .T. + + + + + English + + 204 + .T. + + + + + English + + 205 + .T. + + + + + English + + 206 + .T. + + + + + English + + 207 + .T. + + + + + English + + 208 + .T. + + + + + English + + 209 + .T. + + + + + English + + 210 + .T. + + + + + English + + 211 + .T. + + + + + English + + 212 + .T. + + + + + English + + 213 + .T. + + + + + English + + 214 + .T. + + + + + English + + 215 + .T. + + + + + English + + 216 + .T. + + + + + English + + 217 + .T. + + + + + English + + 218 + .T. + + + + + English + + 219 + .T. + + + + + English + + 220 + .T. + + + + + English + + 221 + .T. + + + + + English + + 222 + .T. + + + + + English + + 223 + .T. + + + + + English + + 224 + .T. + + + + + English + + 225 + .T. + + + + + Romana + + 226 + .T. + + + + + Romana + + 227 + .T. + + + + + Romana + + 228 + .T. + + + + + Romana + + 229 + .T. + + + + + Romana + + 230 + .T. + + + + + Romana + + 231 + .T. + + + + + Romana + + 232 + .T. + + + + + Romana + + 233 + .T. + + + + + Romana + + 234 + .T. + + + + + Romana + + 235 + .T. + + + + + Romana + + 236 + .T. + + + + + Romana + + 237 + .T. + + + + + Romana + + 238 + .T. + + + + + Romana + + 239 + .T. + + + + + Romana + + 240 + .T. + + + + + Romana + + 241 + .T. + + + + + Romana + + 242 + .T. + + + + + Romana + + 243 + .T. + + + + + Romana + + 244 + .T. + + + + + Romana + + 245 + .T. + + + + + Romana + + 246 + .T. + + + + + Romana + + 247 + .T. + + + + + Romana + + 248 + .T. + + + + + Romana + + 249 + .T. + + + + + Romana + + 250 + .T. + + + + + Romana + + 251 + .T. + + + + + Romana + + 252 + .T. + + + + + Romana + + 253 + .T. + + + + + Romana + + 254 + .T. + + + + + Romana + + 255 + .T. + + + + + Romana + + 256 + .T. + + + + + Romana + + 257 + .T. + + + + + Romana + + 258 + .T. + + + + + Romana + + 259 + .T. + + + + + Romana + + 260 + .T. + + + + + Romana + + 261 + .T. + + + + + Romana + + 262 + .T. + + + + + Romana + + 263 + .T. + + + + + Romana + + 264 + .T. + + + + + Romana + + 265 + .T. + + + + + Romana + + 266 + .T. + + + + + Romana + + 267 + .T. + + + + + Romana + + 268 + .T. + + + + + Romana + + 269 + .T. + + + + + Romana + + 270 + .T. + + + + + Romana + + 271 + .T. + + + + + Romana + + 272 + .T. + + + + + Romana + + 273 + .T. + + + + + Romana + + 274 + .T. + + + + + Romana + + 275 + .T. + + + + + Romana + + 276 + .T. + + + + + Romana + + 277 + .T. + + + + + Romana + + 278 + .T. + + + + + Romana + + 279 + .T. + + + + + Romana + + 280 + .T. + + + + + Romana + + 281 + .T. + + + + + Romana + + 282 + .T. + + + + + Romana + + 283 + .T. + + + + + Romana + + 284 + .T. + + + + + Romana + + 285 + .T. + + + + + Romana + + 286 + .T. + + + + + Romana + + 287 + .T. + + + + + Romana + + 288 + .T. + + + + + Romana + + 289 + .T. + + + + + Romana + + 290 + .T. + + + + + Romana + + 291 + .T. + + + + + Romana + + 292 + .T. + + + + + Romana + + 293 + .T. + + + + + Romana + + 294 + .T. + + + + + Romana + + 295 + .T. + + + + + Romana + + 296 + .T. + + + + + Romana + + 297 + .T. + + + + + Romana + + 298 + .T. + + + + + Romana + + 299 + .T. + + + + + Romana + + 300 + .T. + + + + + Romana + + 301 + .T. + + + + + Romana + + 302 + .T. + + + + + Romana + + 303 + .T. + + + + + Romana + + 304 + .T. + + + + + Romana + + 305 + .T. + + + + + Romana + + 306 + .T. + + + + + Romana + + 307 + .T. + + + + + Romana + + 308 + .T. + + + + + Romana + + 309 + .T. + + + + + Romana + + 310 + .T. + + + + ]]> + Romana + + 311 + .T. + + + + >]]> + Romana + + 312 + .T. + + + + + Romana + + 313 + .T. + + + + + Romana + + 314 + .T. + + + + + Romana + + 315 + .T. + + + + + Romana + + 316 + .T. + + + + + Romana + + 317 + .T. + + + + + Romana + + 318 + .T. + + + + + Romana + + 319 + .T. + + + + + Romana + + 320 + .T. + + + + + Romana + + 321 + .T. + + + + + Romana + + 322 + .T. + + + + + Romana + + 323 + .T. + + + + + Romana + + 324 + .T. + + + + + Romana + + 325 + .T. + + + + + Romana + + 326 + .T. + + + + + Romana + + 327 + .T. + + + + + Romana + + 328 + .T. + + + + + Romana + + 329 + .T. + + + + + Romana + + 330 + .T. + + + + + Romana + + 331 + .T. + + + + + Romana + + 332 + .T. + + + + + Romana + + 333 + .T. + + + + + Romana + + 334 + .T. + + + + + Romana + + 335 + .T. + + + + + Romana + + 336 + .T. + + + + + Romana + + 337 + .T. + + + + + Romana + + 338 + .T. + + + + + Romana + + 339 + .T. + + + + + Romana + + 340 + .T. + + + + + Romana + + 341 + .T. + + + + + Romana + + 342 + .T. + + + + + Romana + + 343 + .T. + + + + + Romana + + 344 + .T. + + + + + Romana + + 345 + .T. + + + + + Romana + + 346 + .T. + + + + + Romana + + 347 + .T. + + + + + Romana + + 348 + .T. + + + + + Romana + + 349 + .T. + + + + + Romana + + 350 + .T. + + + + + Romana + + 351 + .T. + + + + + Romana + + 352 + .T. + + + + + Romana + + 353 + .T. + + + + + Romana + + 354 + .T. + + + + + Romana + + 355 + .T. + + + + + Romana + + 356 + .T. + + + + + Romana + + 357 + .T. + + + + + Romana + + 358 + .T. + + + + + Romana + + 359 + .T. + + + + + Romana + + 360 + .T. + + + + + Romana + + 361 + .T. + + + + + Romana + + 362 + .T. + + + + + Romana + + 363 + .T. + + + + + English + + 261 + .T. + + + + + English + + 262 + .T. + + + + + English + + 263 + .T. + + + + + English + + 264 + .T. + + + + + English + + 230 + .T. + + + + + Romana + + 364 + .T. + + + + + English + + 226 + .T. + + + + + English + + 265 + .T. + + + + + English + + 266 + .T. + + + + + Romana + + 365 + .T. + + + + + English + + 267 + .T. + + + + + English + + 268 + .T. + + + + + English + + 269 + .T. + + + + + English + + 270 + .T. + + + + + English + + 271 + .T. + + + + + English + + 272 + .T. + + + + + English + + 273 + .T. + + + + + English + + 274 + .T. + + + + + English + + 275 + .T. + + + + + English + + 276 + .T. + + + + + English + + 277 + .T. + + + + + English + + 278 + .T. + + + + + English + + 279 + .T. + + + + + English + + 280 + .T. + + + + + English + + 281 + .T. + + + + + English + + 282 + .T. + + + + + English + + 283 + .T. + + + + + English + + 284 + .T. + + + + + English + + 285 + .T. + + + + + English + + 286 + .T. + + + + + English + + 287 + .T. + + + + + English + + 288 + .T. + + + + + English + + 289 + .T. + + + + + English + + 290 + .T. + + + + + English + + 291 + .T. + + + + + English + + 292 + .T. + + + + + English + + 293 + .T. + + + + + English + + 294 + .T. + + + + + English + + 295 + .T. + + + + + English + + 296 + .T. + + + + + English + + 297 + .T. + + + + + English + + 298 + .T. + + + + + English + + 299 + .T. + + + + + English + + 300 + .T. + + + + + Romana + + 366 + .T. + + + + + Romana + + 367 + .T. + + + + + Romana + + 368 + .T. + + + + + Romana + + 369 + .T. + + + + + Romana + + 370 + .T. + + + + Search (CTRL + Q)]]> + English + + 370 + .T. + + + + + Romana + + 371 + .T. + + + + Search (CTRL + Q)]]> + English + + 371 + .T. + + + + + English + + 227 + .T. + + + + + English + + 228 + .T. + + + + + English + + 229 + .T. + + + + + English + + 231 + .T. + + + + + English + + 232 + .T. + + + + + English + + 321 + .T. + + + + + English + + 322 + .T. + + + + + English + + 323 + .T. + + + + + English + + 324 + .T. + + + + + English + + 325 + .T. + + + + + English + + 326 + .T. + + + + + English + + 327 + .T. + + + + + English + + 328 + .F. + + + + + English + + 329 + .T. + + + + + English + + 330 + .T. + + + + + English + + 331 + .T. + + + + + English + + 332 + .T. + + + + + English + + 333 + .T. + + + + + English + + 334 + .T. + + + + + English + + 335 + .T. + + + + + English + + 336 + .T. + + + + + Romana + + 372 + .T. + + + + + English + + 372 + .F. + + + + + Romana + + 373 + .T. + + + + + English + + 373 + .F. + + + + + Romana + + 374 + .F. + + + + + English + + 374 + .F. + + + + + Romana + + 375 + .F. + + + + + English + + 375 + .F. + + + + + Romana + + 376 + .F. + + + + + English + + 376 + .F. + + + + + Romana + + 377 + .F. + + + + + English + + 377 + .F. + + + + + Romana + + 378 + .F. + + + + + English + + 378 + .F. + + + + + Romana + + 379 + .F. + + + + + English + + 379 + .F. + + + + + Romana + + 380 + .F. + + + + + English + + 380 + .F. + + + + + Romana + + 381 + .F. + + + + + English + + 381 + .F. + + + + + Romana + + 382 + .F. + + + + + English + + 382 + .F. + + + + + Romana + + 383 + .F. + + + + + Romana + + 384 + .F. + + + + + Romana + + 385 + .F. + + + + + Romana + + 386 + .F. + + + + + Romana + + 387 + .F. + + + + + Romana + + 388 + .F. + + + + + Romana + + 389 + .F. + + + + + Romana + + 390 + .F. + + + + + Romana + + 391 + .F. + + + + + Romana + + 392 + .F. + + + + + Romana + + 393 + .F. + + + + + Romana + + 394 + .F. + + + + si modificati pretul de vanzare cu tva ]]> + Romana + + 395 + .F. + + + + + Romana + + 396 + .F. + + + + + Romana + + 397 + .F. + + + + + Romana + + 398 + .F. + + + + + Romana + + 399 + .F. + + + + + Romana + + 400 + .F. + + + + + Romana + + 401 + .F. + + + + + Romana + + 402 + .F. + + + + + +
+ diff --git a/Locale/locale.dc2 b/Locale/locale.dc2 new file mode 100644 index 0000000..bd3ee7b --- /dev/null +++ b/Locale/locale.dc2 @@ -0,0 +1,513 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale.dbc" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + LOCALE + + 10 + .F. + + + + + + + LOCALE + + locale.dbf + + + + + + + + + phrase + language + notes + id + translated + + + + + id + + + + + + + + + + + + language + + + + + + + + + + + + notes + + + + + + + + + + + + phrase + + + + + + + + + + + + translated + + + + + + + + + + + + + + + id + + .F. + + + language + + .F. + + + +
+ + + LOCALE_LANG + + locale_lang.dbf + + + + + + + + + id + siteid + name + abbr + cp + rule1 + rule2 + exclude + + + + + abbr + + + + + + + + + + + + cp + + + + + + + + + + + + exclude + + + + + + + + + + + + id + + + + + + + + + + + + name + + + + + + + + + + + + rule1 + + + + + + + + + + + + rule2 + + + + + + + + + + + + siteid + + + + + + + + + + + + + + + id + + .T. + + + name + + .F. + + + site + + .F. + + + siteid + + .F. + + + +
+ + + LOCALE_SOURCE + + locale_source.dbf + + + + + + + + + id + name + url + page + markers + duration + hits + exclude + timeout + attempt + notes + + + + + attempt + + + + + + + + + + + + duration + + + + + + + + + + + + exclude + + + + + + + + + + + + hits + + + + + + + + + + + + id + + + + + + + + + + + + markers + + + + + + + + + + + + name + + + + + + + + + + + + notes + + + + + + + + + + + + page + + + + + + + + + + + + timeout + + + + + + + + + + + + url + + + + + + + + + + + + + + + id + + .T. + + + +
+ + + LOCALE_XREF + + locale_xref.dbf + + + + + + + + + src_langid + dst_langid + siteid + + + + + dst_langid + + + + + + + + + + + + siteid + + + + + + + + + + + + src_langid + + + + + + + + + + + + + + + dst_langid + + .F. + + + siteid + + .F. + + + src_langid + + .F. + + + +
+ + + + + + + \ No newline at end of file diff --git a/Locale/locale_back.db2 b/Locale/locale_back.db2 new file mode 100644 index 0000000..25171b9 --- /dev/null +++ b/Locale/locale_back.db2 @@ -0,0 +1,601 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_back.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + PHRASE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + LANGUAGE + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NOTES + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + REGULAR + ID + + ASCENDING + MACHINE + + + LANGUAGE + REGULAR + LANGUAGE + + ASCENDING + MACHINE + + + + + + + + + + + + English + + 1 + + + + + Spanish + + 1 + + + + + English + + 2 + + + + + Spanish + + 2 + + + + + English + + 3 + + + + + Spanish + + 3 + + + + + English + + 4 + + + + + Spanish + + 4 + + + + + English + + 5 + + + + + Spanish + + 5 + + + + + English + + 6 + + + + + Spanish + + 6 + + + + + English + + 7 + + + + + Spanish + + 7 + + + + + English + + 8 + + + + + Spanish + + 8 + + + + + English + + 9 + + + + + Spanish + + 9 + + + + + English + + 10 + + + + + Spanish + + 10 + + + + + English + + 11 + + + + + Spanish + + 11 + + + + + English + + 12 + + + + + Spanish + + 12 + + + + + English + + 13 + + + + + Spanish + + 13 + + + + + English + + 14 + + + + + Spanish + + 14 + + + + + English + + 15 + + + + + Spanish + + 15 + + + + + English + + 16 + + + + + Spanish + + 16 + + + + + English + + 17 + + + + + Spanish + + 17 + + + + + English + + 18 + + + + + Spanish + + 18 + + + + + English + + 19 + + + + + Spanish + + 19 + + + + + English + + 20 + + + + + Spanish + + 20 + + + + + English + + 21 + + + + + Spanish + + 21 + + + + + English + + 22 + + + + + Spanish + + 22 + + + + + English + + 23 + + + + + Spanish + + 23 + + + + + English + + 24 + + + + + Spanish + + 24 + + + + + English + + 25 + + + + + Spanish + + 25 + + + + + English + + 26 + + + + + Spanish + + 26 + + + + + English + + 27 + + + + + Spanish + + 27 + + + + + English + + 28 + + + + + Spanish + + 28 + + + + + English + + 29 + + + + + Spanish + + 29 + + + + + English + + 30 + + + + + Spanish + + 30 + + + + + English + + 31 + + + + + Spanish + + 31 + + + + + English + + 32 + + + + + Spanish + + 32 + + + + + Spanish + + 2 + + + + + English + + 33 + + + + + Spanish + + 33 + + + + + +
+ diff --git a/Locale/locale_lang.db2 b/Locale/locale_lang.db2 new file mode 100644 index 0000000..c4f7591 --- /dev/null +++ b/Locale/locale_lang.db2 @@ -0,0 +1,1328 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_lang.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + ID + I + 4 + 0 + .F. + .F. + + + + + + LOCALE_LANG + + + + + 0 + 0 + + + SITEID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NAME + C + 50 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ABBR + C + 50 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CP + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + RULE1 + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + RULE2 + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXCLUDE + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + CANDIDATE + ID + + ASCENDING + MACHINE + + + NAME + REGULAR + NAME + + ASCENDING + MACHINE + + + SITE + REGULAR + ID + + ASCENDING + MACHINE + + + SITEID + REGULAR + SITEID + + ASCENDING + MACHINE + + + + + + + + + + + 1 + 1 + English + eng + 0 + + + .F. + + + + 2 + 1 + Portuguese + pob + 0 + + + .T. + + + + 4 + 1 + Croatian + cro + 1250 + + + .T. + + + + 5 + 1 + Czech + che + 1250 + + + .T. + + + + 6 + 1 + Danish + dan + 0 + + + .T. + + + + 7 + 1 + Dutch + dut + 0 + + + .T. + + + + 8 + 1 + Spanish + spa + 0 + + + .T. + + + + 9 + 1 + Finnish + fin + 0 + + + .T. + + + + 10 + 1 + French + fre + 0 + + + .T. + + + + 11 + 1 + German + ger + 0 + + + .T. + + + + 13 + 1 + Hungarian + hun + 1250 + + + .T. + + + + 15 + 1 + Italian + ita + 0 + + + .T. + + + + 17 + 1 + Latin American Spanish + spl + 0 + + + .T. + + + + 18 + 1 + Norwegian + nor + 0 + + + .T. + + + + 19 + 1 + Filipino + tag + 0 + + + .T. + + + + 20 + 1 + Polish + pol + 0 + + + .T. + + + + 21 + 1 + Portuguese + poe + 0 + + + .T. + + + + 22 + 1 + Romana + rom + 1250 + + + .F. + + + + 24 + 1 + Serbian + sel + 1250 + + + .T. + + + + 25 + 1 + Slovenian + slo + 1250 + + + .T. + + + + 26 + 1 + Swedish + swe + 0 + + + .T. + + + + 27 + 1 + Welsh + wel + 0 + + + .T. + + + + 28 + 1 + Turkish + tur + 1254 + + + .T. + + + + 29 + 1 + Latin + ltt + 0 + + + .T. + + + + 30 + 2 + English + en + 0 + + + .F. + + + + 31 + 2 + Spanish + es + 0 + + + .T. + + + + 32 + 2 + French + fr + 0 + + + .T. + + + + 33 + 2 + Italian + it + 0 + + + .T. + + + + 34 + 2 + Portuguese + pt + 0 + + + .T. + + + + 35 + 2 + German + de + 0 + + + .T. + + + + 36 + 3 + English + en + 0 + + + .F. + + + + 39 + 3 + Dutch + nl + 0 + + + .T. + + + + 40 + 3 + French + fr + 0 + + + .T. + + + + 41 + 3 + German + de + 0 + + + .T. + + + + 43 + 3 + Italian + it + 0 + + + .T. + + + + 46 + 3 + Portuguese + pt + 0 + + + .T. + + + + 48 + 3 + Spanish + es + 0 + + + .T. + + + + 49 + 4 + English + en + 0 + + + .F. + + + + 51 + 4 + French + fr + 0 + + + .T. + + + + 52 + 4 + German + de + 0 + + + .T. + + + + 53 + 4 + Italian + it + 0 + + + .T. + + + + 56 + 4 + Portuguese + pt + 0 + + + .T. + + + + 57 + 4 + Spanish + es + 0 + + + .T. + + + + 59 + 5 + English + English + 0 + + + .F. + + + + 60 + 5 + Spanish + Spanish + 0 + + + .T. + + + + 61 + 5 + French + French + 0 + + + .T. + + + + 62 + 5 + German + German + 0 + + + .T. + + + + 63 + 5 + Italian + Italian + 0 + + + .T. + + + + 64 + 5 + Dutch + Dutch + 0 + + + .T. + + + + 65 + 5 + Portuguese + Portuguese + 0 + + + .T. + + + + 66 + 5 + Norwegian + Norwegian + 0 + + + .T. + + + + 69 + 6 + English + en + 0 + + + .F. + + + + 72 + 6 + Dutch + nl + 0 + + + .T. + + + + 73 + 6 + French + fr + 0 + + + .T. + + + + 74 + 6 + German + ge + 0 + + + .T. + + + + 76 + 6 + Italian + it + 0 + + + .T. + + + + 79 + 6 + Portuguese + pt + 0 + + + .T. + + + + 81 + 6 + Spanish + es + 0 + + + .T. + + + + 82 + 7 + English + en + 0 + + + .F. + + + + 83 + 7 + French + fr + 0 + + + .T. + + + + 84 + 7 + German + de + 0 + + + .T. + + + + 85 + 7 + Spanish + es + 0 + + + .T. + + + + 86 + 7 + Portuguese + pt + 0 + + + .T. + + + + 87 + 7 + Italian + it + 0 + + + .T. + + + + 88 + 7 + Dutch + nl + 0 + + + .T. + + + + 90 + 8 + English + en + 0 + + + .F. + + + + 91 + 8 + French + fr + 0 + + + .T. + + + + 92 + 8 + German + de + 0 + + + .T. + + + + 93 + 8 + Spanish + es + 0 + + + .T. + + + + 94 + 8 + Portuguese + pt + 0 + + + .T. + + + + 95 + 8 + Italian + it + 0 + + + .T. + + + + 96 + 8 + Dutch + nl + 0 + + + .T. + + + + 98 + 9 + English + en + 0 + + + .F. + + + + 99 + 9 + Dutch + nl + 0 + + + .T. + + + + 105 + 9 + Spanish + es + 0 + + + .T. + + + + 106 + 9 + French + fr + 0 + + + .T. + + + + 107 + 9 + German + de + 0 + + + .T. + + + + 108 + 9 + Portuguese + pt + 0 + + + .T. + + + + 109 + 9 + Italian + it + 0 + + + .T. + + + + 110 + 10 + English + en + 0 + + + .F. + + + + 111 + 10 + Dutch + nl + 0 + + + .T. + + + + 117 + 10 + Spanish + es + 0 + + + .T. + + + + 118 + 10 + French + fr + 0 + + + .T. + + + + 119 + 10 + German + de + 0 + + + .T. + + + + 120 + 10 + Portuguese + pt + 0 + + + .T. + + + + 121 + 10 + Italian + it + 0 + + + .T. + + + + 122 + 11 + English + en + 0 + + + .F. + + + + 123 + 11 + Dutch + nl + 0 + + + .T. + + + + 129 + 11 + Spanish + es + 0 + + + .T. + + + + 130 + 11 + French + fr + 0 + + + .T. + + + + 131 + 11 + German + de + 0 + + + .T. + + + + 132 + 11 + Portuguese + pt + 0 + + + .T. + + + + 133 + 11 + Italian + it + 0 + + + .T. + + + + 134 + 12 + English + en + 0 + + + .F. + + + + 135 + 12 + Dutch + nl + 0 + + + .T. + + + + 141 + 12 + Spanish + es + 0 + + + .T. + + + + 142 + 12 + French + fr + 0 + + + .T. + + + + 143 + 12 + German + de + 0 + + + .T. + + + + 144 + 12 + Portuguese + pt + 0 + + + .T. + + + + 145 + 12 + Italian + it + 0 + + + .T. + + + + + +
+ diff --git a/Locale/locale_source.db2 b/Locale/locale_source.db2 new file mode 100644 index 0000000..be02e47 --- /dev/null +++ b/Locale/locale_source.db2 @@ -0,0 +1,550 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_source.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + ID + I + 4 + 0 + .F. + .F. + + + + + + LOCALE_SOURCE + + + + + 0 + 0 + + + NAME + C + 30 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + URL + C + 100 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PAGE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + MARKERS + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DURATION + N + 16 + 3 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + HITS + B + 8 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXCLUDE + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TIMEOUT + N + 3 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ATTEMPT + N + 3 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NOTES + C + 250 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + ID + CANDIDATE + ID + + ASCENDING + MACHINE + + + + + + + + + + + 1 + InterTran + http://www.tranexp.com:2000/InterTran + + + + + + + + + +]]> + About us< +name=translation +> +]]> + 0.001 + 1 + 1 + 20 + 1 + Site has become a pay site. + + + + 2 + Google + http://www.google.com/language_tools + + + + + + + + + + +]]> + +name=q +> + + 92.875 + 4 + 0 + 20 + 1 + + + + + 4 + AltaVista + http://babelfish.altavista.com/ + + + + + + + + + +]]> + Help< +
+<]]> + 61.846 + 1 + 0 + 20 + 1 + + + + + 5 + FreeTranslation + http://www.freetranslation.com/ + + + + + + + + + +]]> + +]]> + 196.013 + 109 + 0 + 20 + 1 + + + + + 6 + Dictionary + http://dictionary.reference.com/translate/text.html + + + + + + + +]]> + +In @dlang@: +

+

]]> + 574.747 + 683 + 0 + 20 + 1 + + + + + 7 + Wanadoo + http://outils.wanadoo.fr/wanadoo/ + + + + + + + + +]]> + + +class=littleG width=630> +< +]]> + 90.569 + 1 + 0 + 20 + 1 + + + + + 8 + Voila + http://c.voila.fr/ + + + + + + + + +]]> + + +
 +]]> + 77.094 + 1 + 0 + 20 + 1 + + + + + 9 + Terra + http://terra.onlinelanguagelearning.com/en/ + + + + + + + + + + +]]> + +name="translation" +> +<]]> + 57.913 + 3 + 0 + 20 + 1 + + + + + 10 + SysTran + http://www.systransoft.com/ + + + + + + + + + + +]]> + +name="translation" +> +<]]> + 71.539 + 5 + 0 + 20 + 1 + + + + + 11 + Free + http://www.systranbox.com/systran/box + + + + + + + + + +]]> + +color="#61718A" +> +<]]> + 74.060 + 2 + 0 + 20 + 1 + + + + + 12 + Lycos + http://translation.lycos.com/lycos + + + + + + + + +]]> + +name="urltranslated" +> +<]]> + 76.416 + 2 + 0 + 20 + 1 + + + + + + +
+
+ diff --git a/Locale/locale_xref.db2 b/Locale/locale_xref.db2 new file mode 100644 index 0000000..d21797b --- /dev/null +++ b/Locale/locale_xref.db2 @@ -0,0 +1,120 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="locale_xref.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + locale.dbc + 0x00000030 + Visual FoxPro + + + + SRC_LANGID + I + 4 + 0 + .F. + .F. + + + + + + LOCALE_XREF + + + + + 0 + 0 + + + DST_LANGID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + SITEID + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + DST_LANGID + REGULAR + DST_LANGID + + ASCENDING + MACHINE + + + SITEID + REGULAR + SITEID + + ASCENDING + MACHINE + + + SRC_LANGID + REGULAR + SRC_LANGID + + ASCENDING + MACHINE + + + + + + + + + + + + +
+ diff --git a/Meniuri/achi3.mn2 b/Meniuri/achi3.mn2 new file mode 100644 index 0000000..702b63b --- /dev/null +++ b/Meniuri/achi3.mn2 @@ -0,0 +1,258 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="achi3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\Pe baza de fisa tehnologica" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "\Pe baza de \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* LOCAL lmarca, lcant,LNUME,LCOD,lsuma,ldata + *!* STORE .F. TO lmarca + *!* STORE {} TO ldata + *!* DO sterge + *!* buton=1 + *!* m.FDOC='PROCES VERBAL PRODUCTIE' + + + *!* lans(77) + + *!* IF buton=2 + *!* DO sterge + *!* RETURN + *!* ENDIF + *!* SELE numegest + *!* LOCA FOR numegest=m.numegest + *!* m.GESTDEST=GEST + *!* ldata=M.DATAACT + + *!* OP_GEST.SELECTIE_achi()&&materiale + + + *!* DO CAUT_ALFA_CURSOR WITH 'NUMEGEST','NUMEGEST','Gestiunea sursa de materiale:','m.numegest' + *!* m.GESTSURSA=GEST + + *!* OP_GEST.PAGEFR1.SELECTIE(NR_GEST) + + *!* SELECT INTRARI + *!* ZAP + *!* OB=CREATEOBJECT("FACTGEST_RETETAR") + *!* OB.SHOW(1) + + + *!* IF buton=2 + *!* DO sterge + *!* RETURN + *!* ENDIF + + + + + *!* SELECT INTRARI + *!* SCAN + *!* m.ID_PRODUS=VAL(sectie) + *!* CANTITATE=CANT + + *!* SELECT DISTINCT codmat,denumire,UM,SUM(cants+CANT-cantE) AS cants FROM stoc WHERE GEST=M.GESTSURSA INTO CURSOR STOCTOTAL; + *!* GROUP BY denumire,codmat + + *!* SELECT retetar + *!* SCAN FOR ID_PRODUS=m.ID_PRODUS AND !DELETED() + *!* SCATTER MEMVAR + *!* pcant=CANTITATE*m.CANT + + *!* SELECT STOCTOTAL + *!* LOCATE FOR denumire=m.denumire AND codmat=m.codmat + *!* IF !FOUND() OR cants0; + *!* INTO TABLE &LOC\&NFSCURT\TEMPO\AAA ORDER BY R.denumire,R.codmat + + + *!* SELECT AAA + *!* SCAN + *!* DO CASE + *!* CASE ALLTRIM(denumire)=LNUME AND ALLTRIM(codmat)=LCOD AND !lmarca + *!* REPLACE cantE WITH 0 + *!* REPLACE CANTTOT WITH 0 + *!* REPLACE pretTOT WITH 0 + + *!* CASE cantE>=CANTTOT AND !lmarca &&AND DENUMIRE!=LNUME AND CODMAT!=LCOD + + *!* REPLACE cantE WITH CANTTOT + *!* REPLACE pretTOT WITH CANTTOT*pret + *!* LNUME=ALLTRIM(denumire) + *!* LCOD=ALLTRIM(codmat) + + *!* CASE cantE=lcant + + *!* REPLACE cantE WITH lcant + *!* REPLACE pretTOT WITH lcant*pret + *!* lmarca=.F. + *!* LNUME=ALLTRIM(denumire) + *!* LCOD=ALLTRIM(codmat) + + *!* CASE lmarca AND cantE diff --git a/Meniuri/achi4.mn2 b/Meniuri/achi4.mn2 new file mode 100644 index 0000000..7f00163 --- /dev/null +++ b/Meniuri/achi4.mn2 @@ -0,0 +1,81 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="achi4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Factura \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + LANS(43) +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + LANS(44) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + lans(45) +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_4_OF_Shortcut_FB2P + lans(47) +ENDPROC && BAR_4_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + lans(101) +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_7_OF_Shortcut_FB2P + LANS(94) +ENDPROC && BAR_7_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + lans(85) +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_10_OF_Shortcut_FB2P + lans(264) +ENDPROC && BAR_10_OF_Shortcut_FB2P + +* diff --git a/Meniuri/achi5.mn2 b/Meniuri/achi5.mn2 new file mode 100644 index 0000000..412f2b8 --- /dev/null +++ b/Meniuri/achi5.mn2 @@ -0,0 +1,43 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="achi5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Factura \ \ No newline at end of file diff --git a/Meniuri/achi6.mn2 b/Meniuri/achi6.mn2 new file mode 100644 index 0000000..aa868ec --- /dev/null +++ b/Meniuri/achi6.mn2 @@ -0,0 +1,51 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="achi6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Factura \ \ No newline at end of file diff --git a/Meniuri/achi_transfer.mn2 b/Meniuri/achi_transfer.mn2 new file mode 100644 index 0000000..18f8198 --- /dev/null +++ b/Meniuri/achi_transfer.mn2 @@ -0,0 +1,29 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="achi_transfer.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "De la o gestiune la pret de achizitie" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "De la o gestiune la pret de vanzare" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + lans(215) +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + lans(216) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/calend.mn2 b/Meniuri/calend.mn2 new file mode 100644 index 0000000..3ffd5f0 --- /dev/null +++ b/Meniuri/calend.mn2 @@ -0,0 +1,14 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="calend.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR _MST_DIARY OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/casademarcat.mn2 b/Meniuri/casademarcat.mn2 new file mode 100644 index 0000000..c96abff --- /dev/null +++ b/Meniuri/casademarcat.mn2 @@ -0,0 +1,61 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="casademarcat.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Datecs" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Optima" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + LOCAL MES1,MES2 + MES1='Nu este instalata interfata cu' + MES2='Casa de marcat Datecs (MP 500 TR)' + + IF !DIRECTORY('&DIRGEN\Datecs') + DO MESAJ WITH MES1,MES2 + RETURN + ENDIF + + SET DEFAULT TO &DIRGEN\Datecs + IF !FILE('&DIRGEN\Datecs\Datecs.EXE') + DO MESAJ WITH MES1,MES2 + RETURN + ENDIF + RUN /N Datecs.EXE + + SET DEFAULT TO &DIRGEN +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + LOCAL MES1,MES2 + MES1='Nu este instalata interfata cu' + MES2='Casa de marcat Optima (CR715)' + + IF !DIRECTORY('&DIRGEN\OPTIMA') + DO MESAJ WITH MES1,MES2 + RETURN + ENDIF + + SET DEFAULT TO &DIRGEN\OPTIMA + IF !FILE('&DIRGEN\OPTIMA\OPTIMA.EXE') + DO MESAJ WITH MES1,MES2 + RETURN + ENDIF + RUN /N OPTIMA.EXE + + SET DEFAULT TO &DIRGEN +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/casamarcat.mn2 b/Meniuri/casamarcat.mn2 new file mode 100644 index 0000000..90a0156 --- /dev/null +++ b/Meniuri/casamarcat.mn2 @@ -0,0 +1,34 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="casamarcat.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "E500" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "DATECS MP55/MP500" +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + PRIVATE pnTipCasaMarcat + pnTipCasaMarcat = 1 + DO casademarcat IN oproceduri_casademarcat.prg +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + PRIVATE pnTipCasaMarcat,lcStringMp500 + pnTipCasaMarcat = 2 + lcStringMp500='' + DO casademarcat IN oproceduri_casademarcat.prg +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/config3.mn2 b/Meniuri/config3.mn2 new file mode 100644 index 0000000..5baba8b --- /dev/null +++ b/Meniuri/config3.mn2 @@ -0,0 +1,31 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="config3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO viz_retetar IN oproceduri_retete.prg +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + *!* sele cote + + *!* do form cote1 +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/config5.mn2 b/Meniuri/config5.mn2 new file mode 100644 index 0000000..80b7ebb --- /dev/null +++ b/Meniuri/config5.mn2 @@ -0,0 +1,113 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="config5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\Adaos comercial" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "\-" +ON BAR 2 OF Shortcut ACTIVATE POPUP _11a0rode2 + + *---------------------------------- + DEFINE POPUP _11a0rode2 SHORTCUT RELATIVE +DEFINE BAR 3 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* *orp=create('parola') + *!* *orp.show(1) + + *!* *if buton=3 + + *!* o=crea('adaoscom') + *!* o.show(1) + + *!* *endif +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + *!* Local SEREFACE + + *!* Do DANU With 'Se recalculeaza soldurile gestiunilor?' + *!* If buton=1 + *!* SEREFACE=.T. + *!* Else + *!* SEREFACE=.F. + *!* Endif + + *!* If SEREFACE + *!* Do ref_gestiuni + *!* Endif + + *!* Select A.gest,B.NUMEGEST,B.CONTG,a.precdeb as PrecDeb_371,A.deb as RulDeb_371,A.cred as RulCred_371,; + *!* a.precdeb+A.deb-A.cred As SOLD_371,; + *!* a.precred378 as Preccred_378,A.deb378 as RulDEB_378,A.cred378 as RulCred_378,; + *!* a.precred378+A.cred378-A.deb378 As SOLD_378,; + *!* a.procent_k ; + *!* From gestiuni A,NUMEGEST B; + *!* WHERE A.gest=B.gest; + *!* INTO Cursor GES Order By NUMEGEST + + *!* Select GES + *!* *SELECT gestiuni + *!* GO TOP + *!* Do Form gestiuni + + *!* *!* Use In GES + + + +ENDPROC && BAR_6_OF_Shortcut_FB2P + +* diff --git a/Meniuri/config6.mn2 b/Meniuri/config6.mn2 new file mode 100644 index 0000000..6bb1629 --- /dev/null +++ b/Meniuri/config6.mn2 @@ -0,0 +1,108 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="config6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\Adaos comercial" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "\-" +ON BAR 2 OF Shortcut ACTIVATE POPUP _11a0rode2 + + *---------------------------------- + DEFINE POPUP _11a0rode2 SHORTCUT RELATIVE +DEFINE BAR 3 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* *orp=create('parola') + *!* *orp.show(1) + + *!* *if buton=3 + + *!* o=crea('adaoscom') + *!* o.show(1) + + *!* *endif +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_PVdeschimb_FB2P + lans(52) +ENDPROC && BAR_1_OF_PVdeschimb_FB2P + +PROCEDURE BAR_2_OF_PVdeschimb_FB2P + Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 1 +ENDPROC && BAR_2_OF_PVdeschimb_FB2P + +PROCEDURE BAR_4_OF_PVdeschimb_FB2P + Do schimba_pret_grupa_gestiuni in oschimbare_pret.prg with 2 +ENDPROC && BAR_4_OF_PVdeschimb_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + *!* Local SEREFACE + + *!* Do DANU With 'Se recalculeaza soldurile gestiunilor?' + *!* If buton=1 + *!* SEREFACE=.T. + *!* Else + *!* SEREFACE=.F. + *!* Endif + + *!* If SEREFACE + *!* Do ref_gestiuni + *!* Endif + + *!* Select A.gest,B.NUMEGEST,B.CONTG,a.precdeb as PrecDeb_371,A.deb as RulDeb_371,A.cred as RulCred_371,; + *!* a.precdeb+A.deb-A.cred As SOLD_371,; + *!* a.precred378 as Preccred_378,A.deb378 as RulDEB_378,A.cred378 as RulCred_378,; + *!* a.precred378+A.cred378-A.deb378 As SOLD_378,; + *!* a.procent_k ; + *!* From gestiuni A,NUMEGEST B; + *!* WHERE A.gest=B.gest; + *!* INTO Cursor GES Order By NUMEGEST + + *!* Select GES + *!* *SELECT gestiuni + *!* GO TOP + *!* Do Form gestiuni + + *!* *!* Use In GES + + + +ENDPROC && BAR_5_OF_Shortcut_FB2P + +* diff --git a/Meniuri/consum1.mn2 b/Meniuri/consum1.mn2 new file mode 100644 index 0000000..63ebbf6 --- /dev/null +++ b/Meniuri/consum1.mn2 @@ -0,0 +1,38 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="consum1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/consum3.mn2 b/Meniuri/consum3.mn2 new file mode 100644 index 0000000..efc586b --- /dev/null +++ b/Meniuri/consum3.mn2 @@ -0,0 +1,28 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="consum3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Bon de consum produse (34x)" ; + MESSAGE "711:34x" +ON SELECTION BAR 1 OF Shortcut lans(217) + +DEFINE BAR 2 OF Shortcut PROMPT "Bon de consum ca materii prime" ; + MESSAGE "301:345 ; 601:301" +ON SELECTION BAR 2 OF Shortcut lans(54) + +DEFINE BAR 3 OF Shortcut PROMPT "Bon de consum produse reziduale (346)" ; + MESSAGE "3022:346 ; 6022:3022" +ON SELECTION BAR 3 OF Shortcut lans(88) + +DEFINE BAR 4 OF Shortcut PROMPT "Cheltuieli pentru reclama si publicitate (345)" ; + MESSAGE "623:345" +ON SELECTION BAR 4 OF Shortcut lans(263) +ACTIVATE POPUP Shortcut + +* \ No newline at end of file diff --git a/Meniuri/consum4.mn2 b/Meniuri/consum4.mn2 new file mode 100644 index 0000000..a8a208d --- /dev/null +++ b/Meniuri/consum4.mn2 @@ -0,0 +1,62 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="consum4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_11_OF_Shortcut_FB2P + lans(232) +ENDPROC && BAR_11_OF_Shortcut_FB2P + +* diff --git a/Meniuri/cont2000-1.MNT b/Meniuri/cont2000-1.MNT new file mode 100644 index 0000000..b5d42a5 Binary files /dev/null and b/Meniuri/cont2000-1.MNT differ diff --git a/Meniuri/cont2000-1.mnx b/Meniuri/cont2000-1.mnx new file mode 100644 index 0000000..e39e36f Binary files /dev/null and b/Meniuri/cont2000-1.mnx differ diff --git a/Meniuri/cont2000.mn2 b/Meniuri/cont2000.mn2 new file mode 100644 index 0000000..261ad4e --- /dev/null +++ b/Meniuri/cont2000.mn2 @@ -0,0 +1,1874 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\1 ; + MESSAGE 'Optiuni Sistem' + ON BAR 1 OF Utile ACTIVATE POPUP Optiunisis + + *---------------------------------- + DEFINE POPUP Optiunisis MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Optiunisis PROMPT "\.' + + DEFINE BAR _med_sp200 OF Editare PROMPT "\-" + + DEFINE BAR _med_slcta OF Editare PROMPT "\1 ; + MESSAGE 'Introducerea, eliminarae din balanta a conturilor dorite.' + ON BAR 4 OF Initializa ACTIVATE POPUP _0vm0luviu + + *---------------------------------- + DEFINE POPUP _0vm0luviu MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF _0vm0luviu PROMPT "Modificare conturi" + ON SELECTION BAR 1 OF _0vm0luviu DO BAR_1_OF__0vm0luviu_FB2P + + DEFINE BAR 2 OF _0vm0luviu PROMPT "\-" + ON BAR 2 OF _0vm0luviu ACTIVATE POPUP _0vm0m2ez0 + + *---------------------------------- + DEFINE POPUP _0vm0m2ez0 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 3 OF _0vm0luviu PROMPT "Plan de conturi nou" + ON SELECTION BAR 3 OF _0vm0luviu DO BAR_3_OF__0vm0luviu_FB2P + + DEFINE BAR 4 OF _0vm0luviu PROMPT "Revenire la planul de conturi vechi" + ON SELECTION BAR 4 OF _0vm0luviu DO BAR_4_OF__0vm0luviu_FB2P + + DEFINE BAR 5 OF Initializa PROMPT "A\1 ; + MESSAGE 'Modificarea coeficientilor: TVA, etc.' + ON BAR 5 OF Initializa ACTIVATE POPUP _0b40qr5uc + + *---------------------------------- + DEFINE POPUP _0b40qr5uc MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF _0b40qr5uc PROMPT "\1 + ON SELECTION BAR 7 OF Initializa DO BAR_7_OF_Initializa_FB2P + + DEFINE BAR 8 OF Initializa PROMPT "Generare \1 + ON SELECTION BAR 8 OF Initializa DO BAR_8_OF_Initializa_FB2P + + DEFINE BAR 9 OF Initializa PROMPT "\1 ; + MESSAGE 'Inceperea unei noi luni contabile.' + ON SELECTION BAR 11 OF Initializa DO BAR_11_OF_Initializa_FB2P + + DEFINE BAR 12 OF Initializa PROMPT "\1 ; + MESSAGE 'Actualizarea cu date modificate din luna precedenta, aparute ulterior deschiderii lunii contabile curente.' + ON SELECTION BAR 12 OF Initializa DO BAR_12_OF_Initializa_FB2P + + DEFINE BAR 13 OF Initializa PROMPT "\1 ; + MESSAGE 'Inchidere de luna.' + ON BAR 13 OF Initializa ACTIVATE POPUP Blocaredel + + *---------------------------------- + DEFINE POPUP Blocaredel MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Blocaredel PROMPT "\3 + ON SELECTION BAR 15 OF Initializa DO BAR_15_OF_Initializa_FB2P + + DEFINE BAR 16 OF Initializa PROMPT "\1 + ON SELECTION BAR 18 OF Initializa DO BAR_18_OF_Initializa_FB2P + +DEFINE PAD _000000004 OF _msysmenu PROMPT "In\1 + ON SELECTION BAR 1 OF Inchidere DO BAR_1_OF_Inchidere_FB2P + + DEFINE BAR 2 OF Inchidere PROMPT "A\1 + ON SELECTION BAR 3 OF Inchidere DO BAR_3_OF_Inchidere_FB2P + + DEFINE BAR 4 OF Inchidere PROMPT "\1 + ON SELECTION BAR 4 OF Inchidere DO BAR_4_OF_Inchidere_FB2P + + DEFINE BAR 5 OF Inchidere PROMPT "\1 + ON SELECTION BAR 5 OF Inchidere DO BAR_5_OF_Inchidere_FB2P + + DEFINE BAR 6 OF Inchidere PROMPT "\1 + ON SELECTION BAR 6 OF Inchidere DO BAR_6_OF_Inchidere_FB2P + + DEFINE BAR 7 OF Inchidere PROMPT "Cheltuiala \1 + ON SELECTION BAR 7 OF Inchidere DO BAR_7_OF_Inchidere_FB2P + + DEFINE BAR 8 OF Inchidere PROMPT "\1 + ON SELECTION BAR 8 OF Inchidere DO BAR_8_OF_Inchidere_FB2P + + DEFINE BAR 9 OF Inchidere PROMPT "\-" + ON BAR 9 OF Inchidere ACTIVATE POPUP _08g0oc8ql + + *---------------------------------- + DEFINE POPUP _08g0oc8ql MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 10 OF Inchidere PROMPT "\1 + ON BAR 10 OF Inchidere ACTIVATE POPUP Penalitati + + *---------------------------------- + DEFINE POPUP Penalitati MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Penalitati PROMPT "\1 ; + MESSAGE 'Diverse verificari' + ON SELECTION BAR 1 OF _09i15mm5f DO BAR_1_OF__09i15mm5f_FB2P + + DEFINE BAR 2 OF _09i15mm5f PROMPT "\1 ; + MESSAGE 'Refacerea balantei, registrelor, analiticelor, pe baza registrului jurnal' + ON SELECTION BAR 2 OF _09i15mm5f DO BAR_2_OF__09i15mm5f_FB2P + + DEFINE BAR 3 OF _09i15mm5f PROMPT "\1 + ON BAR 4 OF _09i15mm5f ACTIVATE POPUP _0ln0qf60i + + *---------------------------------- + DEFINE POPUP _0ln0qf60i MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF _0ln0qf60i PROMPT "Furnizori -> Facturi Cumparari" + ON SELECTION BAR 1 OF _0ln0qf60i DO BAR_1_OF__0ln0qf60i_FB2P + + DEFINE BAR 2 OF _0ln0qf60i PROMPT "Clienti -> Facturi Vanzari" + ON SELECTION BAR 2 OF _0ln0qf60i DO BAR_2_OF__0ln0qf60i_FB2P + + DEFINE BAR 3 OF _0ln0qf60i PROMPT "\-" + ON BAR 3 OF _0ln0qf60i ACTIVATE POPUP _0rb0tndj4 + + *---------------------------------- + DEFINE POPUP _0rb0tndj4 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 4 OF _0ln0qf60i PROMPT "Facturi Cumparari->Furnizori" + ON SELECTION BAR 4 OF _0ln0qf60i DO BAR_4_OF__0ln0qf60i_FB2P + + DEFINE BAR 5 OF _0ln0qf60i PROMPT "Facturi Vanzari -> Clienti" + ON SELECTION BAR 5 OF _0ln0qf60i DO BAR_5_OF__0ln0qf60i_FB2P + + DEFINE BAR 5 OF _09i15mm5f PROMPT "\-" + ON BAR 5 OF _09i15mm5f ACTIVATE POPUP _0ms0u7t1l + + *---------------------------------- + DEFINE POPUP _0ms0u7t1l MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 6 OF _09i15mm5f PROMPT "\ Actan" + ON SELECTION BAR 3 OF Actualizar DO BAR_3_OF_Actualizar_FB2P + + DEFINE BAR 4 OF Actualizar PROMPT "\ Rul" + ON SELECTION BAR 4 OF Actualizar DO BAR_4_OF_Actualizar_FB2P + + DEFINE BAR 5 OF Actualizar PROMPT "\-" + ON BAR 5 OF Actualizar ACTIVATE POPUP _07q180bx4 + + *---------------------------------- + DEFINE POPUP _07q180bx4 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 6 OF Actualizar PROMPT "Pereche \ Act" + ON SELECTION BAR 8 OF Actualizar DO BAR_8_OF_Actualizar_FB2P + + DEFINE BAR 9 OF Actualizar PROMPT "\-" + ON BAR 9 OF Actualizar ACTIVATE POPUP _07q17tw62 + + *---------------------------------- + DEFINE POPUP _07q17tw62 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 10 OF Actualizar PROMPT "\1 + ON SELECTION BAR 9 OF _09i15mm5f DO BAR_9_OF__09i15mm5f_FB2P + +DEFINE PAD _000000006 OF _msysmenu PROMPT "A\ + +* +PROCEDURE BAR_1_OF_Optiunisis_FB2P + oschp=create('schimbparola') + oschp.show(1) +ENDPROC && BAR_1_OF_Optiunisis_FB2P + +PROCEDURE BAR_2_OF_Optiunisis_FB2P + orp=create('parola') + orp.show(1) + + if buton=3 + or=create('redirect') + or.show(1) + endif + +ENDPROC && BAR_2_OF_Optiunisis_FB2P + +PROCEDURE BAR_4_OF_Optiunisis_FB2P + oc=crea('culori') + oc.show(1) +ENDPROC && BAR_4_OF_Optiunisis_FB2P + +PROCEDURE BAR_3_OF_Utile_FB2P + + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + DO FORM fisiere + ENDIF +ENDPROC && BAR_3_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Reindexare_FB2P + do reindexare.prg +ENDPROC && BAR_1_OF_Reindexare_FB2P + +PROCEDURE BAR_2_OF_Reindexare_FB2P + do reindexaretempo in reindexare.prg +ENDPROC && BAR_2_OF_Reindexare_FB2P + +PROCEDURE BAR_6_OF_Utile_FB2P + do case + case file('C:\WINDOWS\CALC.EXE') + run /N C:\WINDOWS\CALC.EXE + case file('C:\WINDOWS\SYSTEM32\CALC.EXE') + run /N C:\WINDOWS\SYSTEM32\CALC.EXE + case file('C:\WINnt\system32\CALC.EXE') + run /N C:\WINnt\system32\CALC.EXE + otherwise + do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!' + endcase + + + +ENDPROC && BAR_6_OF_Utile_FB2P + +PROCEDURE BAR_7_OF_Utile_FB2P + od=createo('diary') + od.show(1) +ENDPROC && BAR_7_OF_Utile_FB2P + +PROCEDURE BAR_8_OF_Utile_FB2P + do case + case file('C:\WINDOWS\NOTEPAD.EXE') + run /N C:\WINDOWS\NOTEPAD.EXE + case file('C:\WINnt\system32\NOTEPAD.EXE') + run /N C:\WINnt\system32\NOTEPAD.EXE + otherwise + do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!' + endcase + +ENDPROC && BAR_8_OF_Utile_FB2P + +PROCEDURE BAR_10_OF_Utile_FB2P + ies=.t. + + DO IESIRE + + *RELEASE OBJECTS_________________________- + *ostart.release + *OSETVIZ.RELEASE + *OSETTULBAR.RELEASE + *OSETINSTRUM.RELEASE + +ENDPROC && BAR_10_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Initializa_FB2P + + do form start00 + + + +ENDPROC && BAR_1_OF_Initializa_FB2P + +PROCEDURE BAR_2_OF_Initializa_FB2P + osp=crea('seriaper') + osp.show(1) +ENDPROC && BAR_2_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF__0vm0luviu_FB2P + do form contnou +ENDPROC && BAR_1_OF__0vm0luviu_FB2P + +PROCEDURE BAR_3_OF__0vm0luviu_FB2P + + USE IN PLCONT + ERR1=.F. + + ON ERROR do errn + COPY FILE &calefirma\datean\plcont.* to &calefirma\datean\plcont2002.* + ON error + IF ERR1 + RETURN + ENDIF + + ERR1=.F. + ON ERROR do errn + COPY FILE &dirgen\_alfa\datean\plcont.* to &calefirma\datean\plcont.* + ON error + IF ERR1 + RETURN + ENDIF + + DO DES WITH 'PLCONT' + DO mesaj WITH 'Planul de conturi a fost inlocuit.','Verificati la ' +ENDPROC && BAR_3_OF__0vm0luviu_FB2P + +PROCEDURE BAR_4_OF__0vm0luviu_FB2P + IF !FILE('&calefirma\datean\plcont2002.dbf') + DO mesaj WITH 'Planul de conturi nu a fost inlocuit','Aveti planul original' + return + endif + + USE IN PLCONT + SET SAFETY off + ERR1=.F. + ON ERROR do errn + COPY FILE &calefirma\datean\plcont2002.* to &calefirma\datean\plcont.* + ON error + IF ERR1 + RETURN + ENDIF + + DO DES WITH 'PLCONT' + DO mesaj WITH 'Planul de conturi a fost inlocuit.','Verificati la ' +ENDPROC && BAR_4_OF__0vm0luviu_FB2P + +PROCEDURE BAR_1_OF__0b40qr5uc_FB2P + oc=crea('coef') + oc.show(1) +ENDPROC && BAR_1_OF__0b40qr5uc_FB2P + +PROCEDURE BAR_1_OF_Coeficient_FB2P + o=crea('cursval') + o.show(1) +ENDPROC && BAR_1_OF_Coeficient_FB2P + +PROCEDURE BAR_2_OF_Coeficient_FB2P + orp=create('parola') + orp.show(1) + + if buton=3 + + o=crea('adaoscom') + o.show(1) + + endif +ENDPROC && BAR_2_OF_Coeficient_FB2P + +PROCEDURE BAR_7_OF_Initializa_FB2P + SELECT numegest + SET FILTER TO !EMPTY(numegest) + + oge=create('afgest') + oge.show(1) +ENDPROC && BAR_7_OF_Initializa_FB2P + +PROCEDURE BAR_8_OF_Initializa_FB2P + ofs=create('afsectii') + ofs.show(1) +ENDPROC && BAR_8_OF_Initializa_FB2P + +PROCEDURE BAR_9_OF_Initializa_FB2P + SELE LISTAST + REPL ALL ALES WITH .F. + ONOM=CREA('NOMALES') + onom.grid1.column4.visible=.f. + ONOM.SHOW(1) +ENDPROC && BAR_9_OF_Initializa_FB2P + +PROCEDURE BAR_11_OF_Initializa_FB2P + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + PUBLIC M.ANMAX + LOCAL ZZAN + ZZAN=M.AN + + SELE CALENDAR + GOTO BOTTOM + SCATTER MEMVAR + + m.nnlmax=val(m.nl) + M.ANMAX=VAL(M.AN) + + sele lunilean + IF M.NNLMAX==12 THEN + GOTO TOP + ZZAN=VAL(M.AN)+1 + ZZAN=ALLTRIM(STR(ZZAN)) + ELSE + seek(m.nl) + goto recno()+1 + ENDIF + scatter memvar + + oT=CREATEOBJ("TEXTR") + OT.LABEL2.CAPTION="Deschidere de luna noua:" + ot.label3.caption=rtrim(m.numeluna)+' '+ZZan + ot.label3.fontbold=.t. + ot.show(1) + IF BUTON=1 + + do deschidl.prg + DO REDESCHI.PRG + do totv + luna_neplatita=.t. + + OT1=CREATEOBJ("TEXT") + OT1.LABEL2.CAPTION="Am deschis luna:" + ot1.label3.caption=rtrim(m.numeluna)+' '+ZZan + ot1.label3.fontbold=.t. + ot1.show(1) + + NUMEFIRMA=UPPER(rTRIM(m.flung)) + capapl="CONT2000 Firma "+numefirma+"- Luna contabila: "+RTRIM(M.NUMELUNA)+" "+ZZAN + goApp.SetCaption(capapl) + + DO TOTV + *ostart.show(1) + + ENDIF + +ENDPROC && BAR_11_OF_Initializa_FB2P + +PROCEDURE BAR_12_OF_Initializa_FB2P + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + + ot=createobj("textr") + ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')' + ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an + ot.show(1) + if buton=1 + DO REDESCHI + do totv + ot=createobj("text") + ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')' + ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an+" a fost efectuata." + ot.show(1) + endif +ENDPROC && BAR_12_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Blocaredel_FB2P + sele calendar + loca for nl=m.nl and an=m.an + if smf + do mesaj with 'Luna '+m.nl+' '+m.an+' este inchisa!','' + else + oi=crea('danuinchid') + oi.show(1) + if buton=1 + sele calendar + loca for nl=m.nl and an=m.an + repl smf with .t. + luna_inchisa=.t. + endif + endif +ENDPROC && BAR_1_OF_Blocaredel_FB2P + +PROCEDURE BAR_2_OF_Blocaredel_FB2P + orp=create('parola') + orp.show(1) + if buton=3 + SELECT calendar + do form inchidluni + endif + + +ENDPROC && BAR_2_OF_Blocaredel_FB2P + +PROCEDURE BAR_15_OF_Initializa_FB2P + do form datefirma + use &calefirma\datean\datefirma in 0 shared again + sele datefirma + repl denumire with m.flung + repl localitate with m.localitate + repl strada with m.strada + repl nr with ALLT(STR(m.numar)) + brow title 'CTR-Y pentru linie noua / ESC pentru iesire' + use in datefirma +ENDPROC && BAR_15_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Firmanoua_FB2P + ll2=m.nl + aa2=m.an + + do form startfirma + IF buton=2 + m.an=aa2 + m.nl=ll2 + endif +ENDPROC && BAR_1_OF_Firmanoua_FB2P + +PROCEDURE BAR_1_OF__0980v14qn_FB2P + sele act + copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + sele 0 + use &loc\&nfscurt\tempo\ytemp alias ytemp + sele ytemp + BUTON=1 + mmm=crea('modiffact') + mmm.decare='FURN' + MMM.SHOW(1) + IF BUTON=2 + DO STERGE + USE IN YTEMP + RETURN + ENDIF + + SELE YTEMP + SCAN + SCAT MEMV + SELE ACT + IF FLOCK() + appe blan + gath memv + endif + unlock + SELE ACTan + IF FLOCK() + appe blan + gath memv + endif + unlock + endscan + + USE IN YTEMP + wait wind 'Se inregistreaza in analiticul de furnizori...' nowait + DO TOTV + DO REFBAL + DO REFFUR + wait wind 'Se inregistreaza in registrul de cumparari...' nowait + DO TOTV + DO REFCUMPnou + wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait + do totv + DO REFCUMPLUN + DO TOTV + wait clear +ENDPROC && BAR_1_OF__0980v14qn_FB2P + +PROCEDURE BAR_2_OF__0980v14qn_FB2P + sele act + copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX + + sele 0 + use &loc\&nfscurt\tempo\ytemp alias ytemp + sele ytemp + BUTON=1 + mmm=crea('modiffact') + mmm.decare='CLI' + MMM.SHOW(1) + IF BUTON=2 + DO STERGE + USE IN YTEMP + RETURN + ENDIF + + SELE YTEMP + SCAN + SCAT MEMV + SELE ACT + IF FLOCK() + appe blan + gath memv + endif + unlock + SELE ACTan + IF FLOCK() + appe blan + gath memv + endif + unlock + endscan + + USE IN YTEMP + wait wind 'Se inregistreaza in analiticul de clienti...' nowait + DO TOTV + DO REFBAL + DO REFCLI + wait wind 'Se inregistreaza in registrul de vanzari...' nowait + DO TOTV + DO REFVANZ + wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait + do totv + DO REFVANZLUN + DO TOTV + wait clear +ENDPROC && BAR_2_OF__0980v14qn_FB2P + +PROCEDURE BAR_4_OF__0980v14qn_FB2P + LOCAL m.SUM1,M.SUM2,M.SUM3 + + SELECT CREDITOR + SET FILTER TO !DELETED() + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + + SELE BAL + SEEK '462 ' + SCATTER MEMVAR + IF M.SOLDcred # M.SUM3 + do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3 + endif + + + + m.cont='462 ' + cn=m.cont + + SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred; + from CREDITOR where !deleted() ; + into TABLE &LOC\&nfscurt\tempo\xtemp + + * rename column luat TO deb; + * rename column dat TO cred; + + if file('&LOC\&nfscurt\tempo\xtemp.dbf') + sele xtemp + alter table xtemp ADD COLUMN CONT C(4) + repl all cont with m.cont + + sele xtemp + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + OVIZ=CREATEOBJECT("afsitanalitX") + WITH OVIZ + .command5.visible=.f. + .LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI' + .GRID1.COLUMN2.VISIBLE=.F. + .GRID1.COLUMN2.WIDTH=0 + .GRID1.COLUMN8.VISIBLE=.F. + .GRID1.COLUMN8.WIDTH=0 + ENDWITH + OVIZ.SHOW(1) + use in xtemp + endif +ENDPROC && BAR_4_OF__0980v14qn_FB2P + +PROCEDURE BAR_5_OF__0980v14qn_FB2P + SELECT debitor + SET FILTER TO !DELETED() + + SELECT debitor + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + SELE BAL + SEEK '461 ' + SCATTER MEMVAR + IF M.SOLDDEB # M.SUM3 + do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3 + endif + + + SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred; + from debitor where !deleted() ; + into TABLE &LOC\&nfscurt\tempo\xtemp + *alter table xtemp; + * rename column luat TO DEB; + * rename column dat TO CRED; + + sele xtemp + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit' + use in xtemp +ENDPROC && BAR_5_OF__0980v14qn_FB2P + +PROCEDURE BAR_6_OF__0980v14qn_FB2P + local m.sum1,m.sum2,m.sum3 + set safety off + + SELECT ACHIT542 + SET FILTER TO !DELETED() + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + + SELE BAL + SEEK '542 ' + SCATTER MEMVAR + IF M.SOLDDEB # M.SUM3 + + ot=createobj('textval') + ot.label2.caption= 'Diferenta soldului este de: ' + ot.valoare=M.SOLDDEB-M.SUM3 + ot.show(1) + ENDIF + + m.cont='542 ' + cn=m.cont + + SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred; + from achit542 where !deleted(); + into TABLE &LOC\&nfscurt\tempo\xtemp + + ** rename column nume_2 TO nume; + * rename column luat TO deb; + * rename column dat TO cred; + + if file('&LOC\&nfscurt\tempo\xtemp.dbf') + sele xtemp + alter table xtemp ADD COLUMN CONT C(4) + repl all cont with m.cont + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + OVIZ=CREATEOBJECT("afsitanalitX") + WITH OVIZ + .command5.visible=.f. + .LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI' + .GRID1.COLUMN2.VISIBLE=.F. + .GRID1.COLUMN2.WIDTH=0 + .GRID1.COLUMN8.VISIBLE=.F. + .GRID1.COLUMN8.WIDTH=0 + ENDWITH + OVIZ.SHOW(1) + use in xtemp + endif +ENDPROC && BAR_6_OF__0980v14qn_FB2P + +PROCEDURE BAR_7_OF__0980v14qn_FB2P + SELECT respons + SET FILTER TO !DELETED() + sum indirecte,materiale to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + + + SELECT respons.NUME_2,respons.indirecte,respons.materiale; + from respons where !deleted() ; + into TABLE &LOC\&nfscurt\tempo\xtemp + alter table xtemp; + rename column nume_2 TO nume; + rename column indirecte TO deb; + rename column materiale TO cred + + sele xtemp + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + do creaT_analitx with 'SITUATIE ANALITICA - RESPONSABILI','Indirecte','Materiale' +ENDPROC && BAR_7_OF__0980v14qn_FB2P + +PROCEDURE BAR_8_OF__0980v14qn_FB2P + SELECT actionar + SET FILTER TO !DELETED() + sum LUAT,DAT to m.SUM1,M.SUM2 + M.SUM3=M.SUM1-M.SUM2 + + + SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred; + from actionar where !deleted() ; + into TABLE &LOC\&nfscurt\tempo\xtemp + *alter table xtemp; + * rename column luat TO deb; + * rename column dat TO cred; + + sele xtemp + index on nume tag nume of &LOC\&nfscurt\tempo\xtemp + + do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat' + use in xtemp +ENDPROC && BAR_8_OF__0980v14qn_FB2P + +PROCEDURE BAR_9_OF__0980v14qn_FB2P + oluc=create('aflucrarix') + oluc.show(1) +ENDPROC && BAR_9_OF__0980v14qn_FB2P + +PROCEDURE BAR_3_OF_Preluarede_FB2P + sele stoc + do form afstocx +ENDPROC && BAR_3_OF_Preluarede_FB2P + +PROCEDURE BAR_5_OF_Preluarede_FB2P + sele bal + do form afisbalx +ENDPROC && BAR_5_OF_Preluarede_FB2P + +PROCEDURE BAR_18_OF_Initializa_FB2P + O=CREA('OPTIUNI') + O.SHOW(1) +ENDPROC && BAR_18_OF_Initializa_FB2P + +PROCEDURE BAR_1_OF_Inchidere_FB2P + do salarii19 in inchidere.prg +ENDPROC && BAR_1_OF_Inchidere_FB2P + +PROCEDURE BAR_2_OF_Inchidere_FB2P + + + SELE calendar + LOCATE for nl=m.nl and an=m.an + Skip -1 + IF !bof() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC + ELSE + dateA=dirgen+'\_alfa\an0000\date00\' + ENDIF + + USE &DATEA\BAL IN 0 ALIAS BALP + + M.NRACT=8 + m.NUME='UZURA OB.DE INVENTAR' + M.EXPLICATIA='LUNA '+M.NL + M.SUMA=0 + M.FDOC='NOTA' + + + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2801' + M.NUME_2='CHELT.CONSTITUIRE' + DO ABC1 WITH '6811','2801' + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2803' + M.NUME_2='CHELT.CERCET.DEZV.' + DO ABC1 WITH '6811','2803' + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2805' + M.NUME_2='BREVETE SI INVENTII' + DO ABC1 WITH '6811','2805' + SELE BALP + SUM RULcred TO M.SUMA FOR CONT='2808' + M.NUME_2='ALTE IMOB.NECORP.' + DO ABC1 WITH '6811','2808' + + USE IN BALP + + + + DO STERGE +ENDPROC && BAR_2_OF_Inchidere_FB2P + +PROCEDURE BAR_3_OF_Inchidere_FB2P + do amortizari in inchidere.prg +ENDPROC && BAR_3_OF_Inchidere_FB2P + +PROCEDURE BAR_4_OF_Inchidere_FB2P + do tva in inchidere.prg +ENDPROC && BAR_4_OF_Inchidere_FB2P + +PROCEDURE BAR_5_OF_Inchidere_FB2P + do venituri in inchidere.prg +ENDPROC && BAR_5_OF_Inchidere_FB2P + +PROCEDURE BAR_6_OF_Inchidere_FB2P + do cheltuieli in inchidere.prg +ENDPROC && BAR_6_OF_Inchidere_FB2P + +PROCEDURE BAR_7_OF_Inchidere_FB2P + do cheltprofit in inchidere.prg +ENDPROC && BAR_7_OF_Inchidere_FB2P + +PROCEDURE BAR_8_OF_Inchidere_FB2P + do marfa in inchidere.prg +ENDPROC && BAR_8_OF_Inchidere_FB2P + +PROCEDURE BAR_1_OF_Penalitati_FB2P + DO PENTVA IN PENALITATI.PRG + + IF !USED('PENTVA') + sele 0 + use &dirfirm\tempo\pentva alias pentva + ENDIF + + o=crea('penalitati') + o.show(1) + + sele pentva + use +ENDPROC && BAR_1_OF_Penalitati_FB2P + +PROCEDURE BAR_1_OF__09i15mm5f_FB2P + overi=crea('verif') + overi.show(1) +ENDPROC && BAR_1_OF__09i15mm5f_FB2P + +PROCEDURE BAR_2_OF__09i15mm5f_FB2P + local l,a + l=m.nl + a=m.an + + orp=create('parola') + orp.show(1) + + if buton=3 + overi=crea('REF') + overi.show(1) + ENDIF + + set dele on +ENDPROC && BAR_2_OF__09i15mm5f_FB2P + +PROCEDURE BAR_3_OF__09i15mm5f_FB2P + set deleted off + orp=create('parola') + orp.show(1) + + if buton=3 + + *overi=crea('modif') + *overi.show() + do form modif + endif + + set dele on +ENDPROC && BAR_3_OF__09i15mm5f_FB2P + +PROCEDURE BAR_1_OF__0ln0qf60i_FB2P + set deleted on + orp=create('parolamea') + orp.show(1) + + if buton=3 + + do furn-cumplun.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_1_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_2_OF__0ln0qf60i_FB2P + set deleted on + orp=create('parolamea') + orp.show(1) + + if buton=3 + + do cli-vanzlun.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_2_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_4_OF__0ln0qf60i_FB2P + set deleted on + orp=create('parolamea') + orp.show(1) + + if buton=3 + + do cumplun-furn.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_4_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_5_OF__0ln0qf60i_FB2P + set deleted on + orp=create('parolamea') + orp.show(1) + + if buton=3 + + do vanzlun-clienti.prg + DO MESAJ WITH 'GATA','' + endif +ENDPROC && BAR_5_OF__0ln0qf60i_FB2P + +PROCEDURE BAR_1_OF_Serii_FB2P + set deleted off + orp=create('parolamea') + orp.show(1) + + if buton=3 + + sele cod + brow + endif + + set dele on +ENDPROC && BAR_1_OF_Serii_FB2P + +PROCEDURE BAR_2_OF_Serii_FB2P + set deleted off + orp=create('parolamea') + orp.show(1) + + if buton=3 + + sele nir + brow + endif + + set dele on +ENDPROC && BAR_2_OF_Serii_FB2P + +PROCEDURE BAR_3_OF_Serii_FB2P + set deleted off + orp=create('parolamea') + orp.show(1) + + if buton=3 + + sele nrbon + brow + endif + + set dele on +ENDPROC && BAR_3_OF_Serii_FB2P + +PROCEDURE BAR_1_OF_Actualizar_FB2P + local l,a + l=m.nl + a=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do actualizari.prg + m.nl=l + m.an=a + do totv + + endif + + +ENDPROC && BAR_1_OF_Actualizar_FB2P + +PROCEDURE BAR_3_OF_Actualizar_FB2P + local ll,aa,d + ll=m.nl + aa=m.an + + orp=create('parola') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do actualizactan + endif + + m.nl=ll + m.an=aa + do totv + *do mesaj with 'Gata!','' + + + +ENDPROC && BAR_3_OF_Actualizar_FB2P + +PROCEDURE BAR_4_OF_Actualizar_FB2P + local ll,aa,d + ll=m.nl + aa=m.an + + orp=create('parola') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do actualizrul + endif + + m.nl=ll + m.an=aa + do totv + *do mesaj with 'Gata!','' + + +ENDPROC && BAR_4_OF_Actualizar_FB2P + +PROCEDURE BAR_6_OF_Actualizar_FB2P + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do refper + endif + + do mesaj with 'Gata!','' + + +ENDPROC && BAR_6_OF_Actualizar_FB2P + +PROCEDURE BAR_7_OF_Actualizar_FB2P + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do refpercli + endif + + do mesaj with 'Gata!','' +ENDPROC && BAR_7_OF_Actualizar_FB2P + +PROCEDURE BAR_8_OF_Actualizar_FB2P + orp=create('parolaMEA') + orp.show(1) + + if buton=3 + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do actanact + endif + + do mesaj with 'Gata!','' + + +ENDPROC && BAR_8_OF_Actualizar_FB2P + +PROCEDURE BAR_10_OF_Actualizar_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + + + set safety off + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do refcumpNOUan + do mesaj with 'Total cumparari','Refacerea s-a incheiat.' + + m.nl=ll + m.an=aa + do totv +ENDPROC && BAR_10_OF_Actualizar_FB2P + +PROCEDURE BAR_11_OF_Actualizar_FB2P + local ll,aa + ll=m.nl + aa=m.an + + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + + + set safety off + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + do refvanzan + do mesaj with 'Total vanzari','Refacerea s-a incheiat.' + + m.nl=ll + m.an=aa + do totv +ENDPROC && BAR_11_OF_Actualizar_FB2P + +PROCEDURE BAR_13_OF_Actualizar_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + sele act + use + sele actan + use + + do refact in actualizari.prg + do refactan in actualizari.prg + + m.nl=ll + m.an=aa + do totv +ENDPROC && BAR_13_OF_Actualizar_FB2P + +PROCEDURE BAR_1_OF_Responsabi_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + do refresponsl + + + m.nl=ll + m.an=aa + do totv + return + + + *________________________________ + proc refresponsl + sele act + if flock() + repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp) + endif + unlock + + sele rull + if flock() + sele act + scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp) + scat fiel cod,nresp memv + sele rull + repl all nresp with m.nresp for cod=m.cod and empty(nresp) + sele act + endscan + endif + unlock in rull + return + + +ENDPROC && BAR_1_OF_Responsabi_FB2P + +PROCEDURE BAR_2_OF_Responsabi_FB2P + local ll,aa + ll=m.nl + aa=m.an + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + do refresponsan + + m.nl=ll + m.an=aa + do totv + return + + + + *________________________________ + proc refresponsan + sele actan + if flock() + repl all nresp with nume_2 for left(scd,1)='6' or left(scd,1)='3' and empty(nresp) + endif + unlock + + sele rul + if flock() + sele actan + scan for left(scd,1)='6' or left(scd,1)='3' and !empty(nresp) + scat fiel cod,nresp memv + sele rul + repl all nresp with m.nresp for cod=m.cod and empty(nresp) + sele actan + endscan + endif + unlock in rul + return +ENDPROC && BAR_2_OF_Responsabi_FB2P + +PROCEDURE BAR_17_OF_Actualizar_FB2P + local ll,aa,d + ll=m.nl + aa=m.an + + + orp=create('parolaMEA') + orp.show(1) + + if buton#3 + return + endif + + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + sele calendar + M=RECCOUNT()+3 + OP=CREA('PROGRESBAR') + op.titlu.caption='Refacere Data Scadenta' + OP.SHOW() + j=0 + + + *_actan_________________________________________________ + sele actan + do datasc + do pr with j + + *_cumpan_________________________________________________ + sele cumpan + do datasc + do pr with j + + *_vanzan_________________________________________________ + sele vanzan + do datasc + do pr with j + + *_act_________________________________________________ + sele act + do datasc + sele calendar + scan for !(m.nl=nl and m.an=an) + d=calefirma+'\an'+an+'\date'+nl+'\act.dbf' + sele 0 + use &d alias acta + do datasc + use + do pr with j + endscan + + op.release + + m.an=aa + m.nl=ll + + + do mesaj with 'Gata!','' + return + + + + + + + + *datasc_________________________________________________ + proc datasc + REPL ALL DATASCAD WITH CTOD('30/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1) + + REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and !inlist(DAY(DATAACT),31,30) and !inlist(MONTH(DATAACT),12,1) + + REPL ALL DATASCAD WITH CTOD('28/'+STR(MONTH(DATAACT)+1)+'/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and inlist(DAY(DATAACT),28,29,30,31) and inlist(MONTH(DATAACT),1) + + REPL ALL DATASCAD WITH CTOD(STR(DAY(DATAACT))+'/01/'+STR(YEAR(DATAACT)) ) ; + FOR empty(datascad) and inlist(MONTH(DATAACT),12) + return + +ENDPROC && BAR_17_OF_Actualizar_FB2P + +PROCEDURE BAR_9_OF__09i15mm5f_FB2P + local l,a + l=m.nl + a=m.an + + orp=create('parola') + orp.show(1) + + if buton=3 + **************************** + public semafor1 + semafor1=.f. + do curatare + if semafor1 + return + endif + + + ot=createobj("textr") + ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')' + ot.label3.caption="Se redeschide luna: "+m.nl+" "+m.an + ot.show(1) + if buton=1 + DO REDESCHI + do totv + ot=createobj("text") + ot.label2.caption="Firma: "+rtrim(M.FLUNG)+' ('+nfscurt+')' + ot.label3.caption="Redeschiderea lunii: "+m.nl+" "+m.an+" a fost efectuata." + ot.show(1) + endif + + wait wind 'Se recompune baza de date: Registrul jurnal total' nowait + do actualizactan + wait wind 'Se recompune baza de date: Rulaje generale' nowait + do actualizrul + + m.nl=l + m.an=a + do totv + + do mesaj with 'Actualizarea s-a efectuat','' + ***************************8 + ENDIF +ENDPROC && BAR_9_OF__09i15mm5f_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + ohelpcont=createobj('help_pltree') + ohelpcont.show(1) +ENDPROC && BAR_1_OF_Ajutor_FB2P + +PROCEDURE BAR_2_OF_Ajutor_FB2P + oh=crea('help_tree') + oh.show(1) +ENDPROC && BAR_2_OF_Ajutor_FB2P + +PROCEDURE BAR_3_OF_Ajutor_FB2P + oh=crea('help_leg') + oh.show(1) +ENDPROC && BAR_3_OF_Ajutor_FB2P + +PROCEDURE BAR_5_OF_Ajutor_FB2P + OD=CREATEO('DESPRE') + OD.SHOW(1) +ENDPROC && BAR_5_OF_Ajutor_FB2P + +* diff --git a/Meniuri/contorice.mn2 b/Meniuri/contorice.mn2 new file mode 100644 index 0000000..9b600bc --- /dev/null +++ b/Meniuri/contorice.mn2 @@ -0,0 +1,158 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="contorice.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\.' + + DEFINE BAR _med_sp200 OF Editare PROMPT "\-" + + DEFINE BAR _med_slcta OF Editare PROMPT "\ + +* +PROCEDURE BAR_1_OF_Utile_FB2P + do case + case file('C:\WINDOWS\CALC.EXE') + run /N C:\WINDOWS\CALC.EXE + case file('C:\WINDOWS\SYSTEM32\CALC.EXE') + run /N C:\WINDOWS\SYSTEM32\CALC.EXE + case file('C:\WINnt\system32\CALC.EXE') + run /N C:\WINnt\system32\CALC.EXE + otherwise + do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!' + endcase +ENDPROC && BAR_1_OF_Utile_FB2P + +PROCEDURE BAR_2_OF_Utile_FB2P + od=createo('diary') + od.show(1) +ENDPROC && BAR_2_OF_Utile_FB2P + +PROCEDURE BAR_3_OF_Utile_FB2P + do case + case file('C:\WINDOWS\NOTEPAD.EXE') + run /N C:\WINDOWS\NOTEPAD.EXE + case file('C:\WINnt\system32\NOTEPAD.EXE') + run /N C:\WINnt\system32\NOTEPAD.EXE + otherwise + do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!' + endcase + +ENDPROC && BAR_3_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Reindexare_FB2P + do reindexaretempo in reindexare.prg +ENDPROC && BAR_1_OF_Reindexare_FB2P + +PROCEDURE BAR_7_OF_Utile_FB2P + ies=.t. + + DO IESIRE + + *RELEASE OBJECTS_________________________- + *ostart.release + *OSETVIZ.RELEASE + *OSETTULBAR.RELEASE + *OSETINSTRUM.RELEASE + +ENDPROC && BAR_7_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + OD=CREATEO('DESPRE') + OD.SHOW(1) +ENDPROC && BAR_1_OF_Ajutor_FB2P + +* diff --git a/Meniuri/editscurt.mn2 b/Meniuri/editscurt.mn2 new file mode 100644 index 0000000..cf3ee0d --- /dev/null +++ b/Meniuri/editscurt.mn2 @@ -0,0 +1,16 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="editscurt.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR _med_copy OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/furn.MNT b/Meniuri/furn.MNT new file mode 100644 index 0000000..25af47d Binary files /dev/null and b/Meniuri/furn.MNT differ diff --git a/Meniuri/furn.mnx b/Meniuri/furn.mnx new file mode 100644 index 0000000..3391119 Binary files /dev/null and b/Meniuri/furn.mnx differ diff --git a/Meniuri/list1.mn2 b/Meniuri/list1.mn2 new file mode 100644 index 0000000..c7fcc22 --- /dev/null +++ b/Meniuri/list1.mn2 @@ -0,0 +1,429 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="list1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "NIR-uri" +ON BAR 1 OF Shortcut ACTIVATE POPUP NIRuri + + *---------------------------------- + DEFINE POPUP NIRuri SHORTCUT RELATIVE + DEFINE BAR 1 OF NIRuri PROMPT "\ + +* +PROCEDURE BAR_1_OF_NIRuri_FB2P + *!* 13.01.2015 + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + *!* IF gnButon = 1 + *!* lnTip = gnTipGest + *!* DO listare_nir WITH pnNr, lnTip + *!* ENDIF + + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2 + + *!* DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF + *!* 13.01.2015 ^ + + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul NIR-ului" + *!* .label1.caption="Numarul NIR-ului:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_NIR WITH STR(M.NRACT1),1 + +ENDPROC && BAR_1_OF_NIRuri_FB2P + +PROCEDURE BAR_2_OF_NIRuri_FB2P + lnTip = gnTipGest + DO list_total_NIR WITH lnTip && in oproceduri_listari.prg +ENDPROC && BAR_2_OF_NIRuri_FB2P + +PROCEDURE BAR_1_OF_Bonuri_FB2P + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2 + + DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF +ENDPROC && BAR_1_OF_Bonuri_FB2P + +PROCEDURE BAR_2_OF_Bonuri_FB2P + DO list_bon_pe_lucrare WITH gnTipGest + + *!* SELECT DISTINCT RULL.NRORD FROM RULL into TABLE &LOC\&NFSCURT\tempo\raA.DBF + *!* SELECT RAA + *!* APPEND BLANK + *!* REPLACE NRORD WITH " " + *!* Index ON NRORD TAG NRORD + *!* *!* SET ORDER TO NRORD + *!* do caut_alfa with "RAA","Nrord","NUMELE COMENZII","M.nrord" + + *!* DO danu WITH 'Total bonuri? (Alegeti DA pt. total bonuri, si NU pt. bonuri din luna curenta)' + + *!* IF buton=1 + *!* Select DISTINCT rul.nnir,rul.nrord,rul.denumire,rul.um,rul.cant,rul.cante,rul.pret,rul.gest,rul.codmat,rul.dataact,; + *!* actan.dataireg,actan.NUME_2 As RESPONS,rul.PRETV,rul.scd; + *!* from actan,rul; + *!* where actan.cod=rul.cod And rul.cante # 0 And rul.cant=0; + *!* into CURSOR ra + *!* ELSE + *!* Select DISTINCT rull.nnir,rull.nrord,rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.codmat,rull.dataact,; + *!* act.dataireg,act.NUME_2 As RESPONS,rull.PRETV,rull.scd; + *!* from act,rull; + *!* where act.cod=rull.cod And rull.cante # 0 And rull.cant=0; + *!* into CURSOR ra + *!* endif + + *!* SELECT RA + *!* Index On NRORD+STR(VAL(ALLTRIM(nnir)))+DTOC(dataact) TAG nnir &&To &LOC\&NFSCURT\tempo\FFD + + *!* IF ALLTRIM(M.NRORD)="" + *!* SELECT ra + *!* *SET ORDER TO NRORD + *!* SET ORDER TO NNIR + *!* REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW + *!* ELSE + *!* SELECT RA + *!* SET FILTER TO NRORD=M.NRORD + *!* SET ORDER TO nnir + *!* REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW + *!* ENDIF + *!* USE IN ra + *!* SELECT rul + *!* SET FILTER TO + *!* SELECT rull + *!* SET FILTER TO +ENDPROC && BAR_2_OF_Bonuri_FB2P + +PROCEDURE BAR_3_OF_Bonuri_FB2P + lnTip = gnTipGest + DO list_total_BON WITH lnTip && in oproceduri_listari.prg + + + *!* PRIVATE M.T + *!* SET SAFETY OFF + *!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST" + *!* SELE NUMEGEST + *!* SCAN + *!* IF NUMEGEST==M.NUMEGEST + *!* SCATTER MEMVAR + *!* EXIT + *!* ENDIF + *!* ENDSCAN + + *!* M.T='BONURI' + + *!* select DISTINCT rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,rull.dataact,; + *!* act.nume,act.fdoc,act.nract,act.dataireg; + *!* from act,rull; + *!* where act.cod=rull.cod; + *!* into cursor ra + + *!* SELE Ra + *!* SET FILTER TO GEST=M.GEST AND CANTE # 0 + *!* INDEX ON str(GEST,2)+NNIR TO &loc\&nfscurt\tempo\FFF + *!* REPORT FORMAT NIRRUL2.FRX TO PRINTER PROMPT PREVIEW + *!* * WINDOW WPRINT + *!* USE IN RA +ENDPROC && BAR_3_OF_Bonuri_FB2P + +PROCEDURE BAR_4_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de retur' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_RETUR WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de retur" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_RETUR WITH M.NRACT1,5 +ENDPROC && BAR_4_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,17 +ENDPROC && BAR_1_OF_Transferur_FB2P + +PROCEDURE BAR_2_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = 6 + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,18 + +ENDPROC && BAR_2_OF_Transferur_FB2P + +PROCEDURE BAR_3_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO listare_nir WITH pnNr, lnTip, .F. , .F. , 1 + ENDIF +ENDPROC && BAR_3_OF_Transferur_FB2P + +PROCEDURE BAR_7_OF_Shortcut_FB2P + *!* *osetgest.tbrprim.buton4.click + *!* Public M.T + *!* Public m.nract1,m.nract2 + *!* Store 0 To m.nract1,m.nract2 + *!* public m.delegat,m.bi,m.nrinmat + *!* store '' to m.delegat,m.bi,m.nrinmat + *!* store 0 to m.nract1 + *!* sele calendar + *!* loca for nl=m.nl and an=m.an + *!* m.ctva=ctvam + + + *!* *___________________________________________________________ + *!* Ointre=Createobject("CAUTintre") + *!* With Ointre + *!* .Caption="Numarul bonului" + *!* .label1.Caption="Nr.initial:" + *!* .label2.Visible=.F. + *!* .text1.ControlSource="m.nract1" + *!* .text2.Visible=.F. + *!* Endwith + *!* Ointre.Show(1) + + *!* Sele rull + *!* Loca For Val(rull.nnir)=m.nract1 + *!* If !Found() + *!* Do mesaj With 'Nu a fost inregistrat nici un bon','cu numarul '+Allt(Str(m.nract1)) + *!* Return + *!* Else + *!* m.T='BONURI' + + *!* Select Distinct rull.denumire,rull.um,rull.cante,rull.pretV,rull.gest,rull.nnir,rull.codmat,rull.NRORD,rull.PRET,; + *!* act.dataact,act.NUME_2 As RESPONS,rull.scd,rull.cant; + *!* from act,rull; + *!* where act.cod=rull.cod And Val(rull.nnir)=m.nract1 And rull.cante # 0 And rull.cant=0; + *!* into Table &loc\&nfscurt\tempo\ra + + *!* Sele ra + *!* Index On Str(gest,2)+nnir To &loc\&nfscurt\tempo\ra + *!* ENDIF + + *!* DO FORM dateexp + *!* SELE FIRMA + *!* LOCA FOR NFSCURT=FSCURT + *!* SCAT MEMV + *!* FCOD_FISCAL=M.COD_FISCAL + + + *!* sele clienti + *!* loca for ALLTRIM(nume)=ALLTRIM(m.nume) + *!* if found() + *!* *scat fiel cod_fiscal memv + *!* CODF=COD_FISCAL + *!* else + *!* CODF='' + *!* ENDIF + *!* + *!* *!* SELECT respon + *!* *!* LOCATE FOR ales + *!* *!* SCATTER MEMVAR + *!* + *!* SELECT ra + *!* *REPORT FORMAT BONCONS.FRX TO PRINTER PROMPT PREVIEW + *!* REPORT FORM aviz TO PRINTER PROMPT PREVIEW + *!* Use In ra + +ENDPROC && BAR_7_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul facturii' TO lnNr + *!* If gnButon = 1 + *!* *!* modificare 20.08.2007 + *!* *!* DO LISTARE_facturi WITH pnNr + *!* Do relisteaza_ofacturare_stoc With pnNr In ofacturare_stoc.prg + *!* *!* modificare 20.08.2007 ^ + *!* Endif + + *!* *!* STORE 0 to m.nract1 + + *!* *!* Ointre=CREATEOBJECT("CAUTintre") + *!* *!* WITH Ointre + *!* *!* .CAPTION="Numarul Documentului" + *!* *!* .label1.caption="Nr. factura:" + *!* *!* .label2.visible=.f. + *!* *!* .text1.controlsource="m.nract1" + *!* *!* .text2.visible=.f. + *!* *!* ENDWITH + *!* *!* Ointre.show(1) + + *!* *!* DO list_fact WITH m.nract1 + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. factura' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_11_OF_Shortcut_FB2P + ostoc=CREATEOBJECT('frm_raport_stoc') + ostoc.show(1) +ENDPROC && BAR_11_OF_Shortcut_FB2P + +PROCEDURE BAR_12_OF_Shortcut_FB2P + DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg +ENDPROC && BAR_12_OF_Shortcut_FB2P + +* diff --git a/Meniuri/list3.mn2 b/Meniuri/list3.mn2 new file mode 100644 index 0000000..3017ff1 --- /dev/null +++ b/Meniuri/list3.mn2 @@ -0,0 +1,538 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="list3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "NIR-uri" +ON BAR 1 OF Shortcut ACTIVATE POPUP _13c0v16p0 + + *---------------------------------- + DEFINE POPUP _13c0v16p0 SHORTCUT RELATIVE + DEFINE BAR 1 OF _13c0v16p0 PROMPT "\ + +* +PROCEDURE BAR_1_OF__13c0v16p0_FB2P + *!* 13.01.2015 + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + *!* IF gnButon = 1 + *!* lnTip = gnTipGest + *!* DO listare_nir WITH pnNr, lnTip + *!* ENDIF + + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2 + + *!* DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF + *!* 13.01.2015 ^ + + + *!* *public m.nract1,m.nract2 + *!* *store 0 to m.nract1,m.nract2,M.SUM1,M.SUM2 + + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul NIR-ului" + *!* .label1.caption="Numarul NIR-ului:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + *!* + *!* DO LIST_NIR WITH STR(M.NRACT1),1 +ENDPROC && BAR_1_OF__13c0v16p0_FB2P + +PROCEDURE BAR_2_OF__13c0v16p0_FB2P + lnTip = gnTipGest + DO list_total_NIR WITH lnTip && in oproceduri_listari.prg +ENDPROC && BAR_2_OF__13c0v16p0_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + *!* STORE 0 TO m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul NIR-ului" + *!* .label1.caption="Nr.initial:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + *!* + *!* M.NNIR=ALLTRIM(STR(M.NRACT1)) + *!* SELECT rull.*,retetar.cant as cant_p; + *!* from (rull JOIN retetar ON (VAL(rull.nrord)=retetar.id_produs AND rull.denumire=retetar.denumire)); + *!* WHERE VAL(rull.nnir)=m.nract1 AND rull.cante#0 INTO TABLE &loc\&nfscurt\tempo\tabel.dbf + + + *!* SELECT * from tabel t JOIN rull r ON t.nrord=r.nrord AND t.nnir=r.nnir WHERE r.cante=0 INTO CURSOR bbb + *!* SELECT bbb + *!* GO top + *!* SCATTER FIELDS gest_a,gest_b memv + *!* SELECT numegest + *!* LOCATE FOR gest=m.gest_a + *!* m.numegest=numegest + *!* LOCATE FOR gest=m.gest_b + *!* gestfix=numegest + *!* SELECT bbb + *!* REPORT FORM bontransfer TO PRINTER PROMPT PREVIEW + *!* USE IN tabel + *!* USE IN BBB +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_4_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul procesului verbal','pnNr','Numarul procesului verbal' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO listare_nir WITH pnNr, lnTip, .T. + ENDIF +ENDPROC && BAR_4_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + + + *!* STORE 0 TO m.regulariz,CC,DD,TT + *!* CC='C1' + *!* DD='D1' + *!* TT='T1' + *!* FOR I=2 TO 20 + *!* CC=CC+',C'+ALLTRIM(STR(I)) + *!* DD=DD+',D'+ALLTRIM(STR(I)) + *!* TT=TT+',T'+ALLTRIM(STR(I)) + *!* NEXT + *!* ZZ='STORE 0 TO '+CC+','+TT + *!* &ZZ + *!* ZZ='STORE "" TO '+DD + *!* &ZZ + + + *!* m.nrord=ALLTRIM(m.nrord) + + *!* DO cerenumar WITH 'Nr.PV de productie:','m.nract' + + + *!* SELECT act + *!* LOCATE FOR nract=m.nract AND INLIST(scd,'345 ','347 ') + *!* IF !FOUND() + *!* DO mesaj WITH 'Acest numar nu este regasit in luna curenta','' + *!* RETURN + *!* ENDIF + + *!* SELECT act + *!* SCATTER FIELDS nrord,dataireg,nract,cod,suma MEMV + + *!* SELECT rull + *!* SET ORDER TO TAG cod + *!* SEEK m.cod + *!* IF !FOUND() + *!* DO mesaj WITH 'Eroare de inregistrare','' + *!* RETURN + *!* ENDIF + *!* SCATTER FIELDS denumire, pret,cante,gest MEMV + *!* m.totftva=m.pret + + + *!* &&& materiale: + *!* SELECT denumire, pret,cante AS CANT,nnir,nrord FROM rul; + *!* WHERE cante!=0 AND !EMPTY(nrord) AND ALLTRIM(nrord)=m.nrord ; + *!* INTO CURSOR bonuri + *!* *!* SELECT BONURI + *!* *!* BROW + + *!* IF _TALLY=0 + *!* DO mesaj WITH 'Nu exista bonuri la aceasta lucrare!','' + *!* DO sterge + *!* RETURN + *!* ENDIF + + *!* &&& pretul de achizitie: + *!* SELECT bonuri + *!* SUM pret*CANT TO m.totftvaa + + + *!* &&& pretul de intrare: + + *!* *STORE '' TO m.denumire + *!* STORE 1 TO m.CANT + *!* *DO cerestring WITH 'Denumirea produsului:','m.denumire' + *!* *!* DO cerenumar WITH 'Cantitatea produsa:','m.cant' + *!* *!* IF m.cant<=0 + *!* *!* m.cant=1 + *!* *!* endif + *!* SELE INTRARI + *!* ZAP + *!* APPEND BLANK + *!* GATHER FIELDS scd,gest,denumire,CANT,cod MEMV + *!* REPLACE pret WITH m.totftva/m.CANT + + *!* SELECT COTE + *!* GO TOP + *!* SCATTER MEMV + *!* totcote=(c1+c2+c3+c4+c5+c6+c7+c8+c9+c10+c11+c12+c13+c14+c15+c16+c17+c18+c19+c20)*m.totftvaa + *!* m.totftva=m.totftvaa+totcote + *!* m.regulariz=m.suma-m.totftva + *!* IF ABS(m.regulariz)>1 + *!* DO mesaj WITH 'Regularizare= '+ALLTRIM(STR(m.regulariz)),'' + *!* ENDIF + + *!* SELECT bonuri + *!* COPY TO &LOC\&NFSCURT\TEMPO\temp.DBF + *!* USE &LOC\&NFSCURT\TEMPO\temp.DBF IN 0 ALIAS temp EXCL + *!* SELE temp + *!* SELE temp + *!* ALTER TABLE temp ADD COLUMN cante N(10,3) + *!* FOR I = 1 TO 20 + *!* T='c'+ALLT(STR(I)) + *!* ALTER TABLE temp ADD COLUMN &T N(10,4) + *!* ENDFOR + *!* REPLACE ALL nrord WITH M.nrord + *!* REPLACE ALL cante WITH 1 + + + *!* SELECT temp + *!* SCAN + *!* GATH FIEL LIKE C?,C?? MEMV + *!* ENDSCAN + *!* REPORT FORM pvprod TO PRINTER PROMPT PREVIEW + *!* USE IN temp + + *!* DO sterge + *!* RETURN +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Bondeconsu_FB2P + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2 + + DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF +ENDPROC && BAR_1_OF_Bondeconsu_FB2P + +PROCEDURE BAR_2_OF_Bondeconsu_FB2P + DO list_bon_pe_lucrare WITH gnTipGest +ENDPROC && BAR_2_OF_Bondeconsu_FB2P + +PROCEDURE BAR_3_OF_Bondeconsu_FB2P + lnTip = gnTipGest + DO list_total_BON WITH lnTip && in oproceduri_listari.prg + + + *!* ******* + + *!* PUBLIC M.T + *!* SET SAFETY OFF + *!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST" + *!* SELE NUMEGEST + *!* SCAN + *!* IF NUMEGEST==M.NUMEGEST + *!* SCATTER MEMVAR + *!* EXIT + *!* ENDIF + *!* ENDSCAN + + *!* M.T='BONURI' + + *!* select DISTINCT rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.nnir,rull.codmat,rull.dataact,; + *!* act.nume,act.fdoc,act.nract,act.dataireg; + *!* from act,rull; + *!* where act.cod=rull.cod; + *!* into cursor ra + + *!* SELE Ra + *!* SET FILTER TO GEST=M.GEST AND CANTE # 0 + *!* INDEX ON str(GEST,2)+NNIR TO &loc\&nfscurt\tempo\FFF + *!* REPORT FORMAT NIRRUL2.FRX TO PRINTER PROMPT PREVIEW + + *!* USE IN RA +ENDPROC && BAR_3_OF_Bondeconsu_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de retur' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_RETUR WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de retur" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_RETUR WITH M.NRACT1,6 +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + *!* DO raport_productie_postcalcul IN gestiuni.prg +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = 7 + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,17 +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_3_OF_NewItem_FB2P + + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = 6 + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* Store 0 To m.nract1 + *!* Ointre=Createobject("CAUTintre") + *!* With Ointre + *!* .Caption="Numarul notei de transfer" + *!* .label1.Caption="Nr. nota:" + *!* .label2.Visible=.F. + *!* .text1.ControlSource="m.nract1" + *!* .text2.Visible=.F. + *!* Endwith + *!* Ointre.Show(1) + + *!* Sele act + *!* Loca For nract=m.nract1 And scd='3712' And scc='3711' + *!* If Found() + *!* Scat Memv + + *!* m.numegest=m.explicatia + *!* Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL + *!* Use In RUL + *!* Use In ARUL + *!* Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL + *!* *** + *!* Select RUL + *!* Set Filter To !Empty(cante) + *!* Report Format NIRTRANSFER.FRX To Printer Prompt Preview + *!* *Endif + *!* Do TOTV + + *!* Else + *!* Do MESAJ With 'Nu exista aceasta nota de transfer','' + *!* Endif + + *!* sele act + *!* set filter to +ENDPROC && BAR_3_OF_NewItem_FB2P + +PROCEDURE BAR_13_OF_Shortcut_FB2P + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul facturii' TO lnNr + *!* IF gnButon = 1 + *!* *!* modificare 20.08.2007 + *!* *!* DO LISTARE_facturi WITH pnNr + *!* Do relisteaza_ofacturare_stoc With pnNr In ofacturare_stoc.prg + *!* *!* modificare 20.08.2007 ^ + *!* ENDIF + + *!* *!* STORE 0 to m.nract1 + + *!* *!* Ointre=CREATEOBJECT("CAUTintre") + *!* *!* WITH Ointre + *!* *!* .CAPTION="Numarul Documentului" + *!* *!* .label1.caption="Nr. factura:" + *!* *!* .label2.visible=.f. + *!* *!* .text1.controlsource="m.nract1" + *!* *!* .text2.visible=.f. + *!* *!* ENDWITH + *!* *!* Ointre.show(1) + + *!* *!* DO list_fact WITH m.nract1 + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. factura' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_13_OF_Shortcut_FB2P + +PROCEDURE BAR_15_OF_Shortcut_FB2P + ostoc=CREATEOBJECT('frm_raport_stoc') + ostoc.show(1) +ENDPROC && BAR_15_OF_Shortcut_FB2P + +PROCEDURE BAR_16_OF_Shortcut_FB2P + DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg +ENDPROC && BAR_16_OF_Shortcut_FB2P + +PROCEDURE BAR_18_OF_Shortcut_FB2P + locant = CREATEOBJECT('frm_rap_gv_cant') + locant.show(1) +ENDPROC && BAR_18_OF_Shortcut_FB2P + +PROCEDURE BAR_19_OF_Shortcut_FB2P + loval = CREATEOBJECT('frm_rap_gv_val') + loval.show(1) +ENDPROC && BAR_19_OF_Shortcut_FB2P + +* diff --git a/Meniuri/list4.mn2 b/Meniuri/list4.mn2 new file mode 100644 index 0000000..0ea1ebd --- /dev/null +++ b/Meniuri/list4.mn2 @@ -0,0 +1,590 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="list4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "NIR-uri" +ON BAR 1 OF Shortcut ACTIVATE POPUP NIRuri + + *---------------------------------- + DEFINE POPUP NIRuri SHORTCUT RELATIVE + DEFINE BAR 1 OF NIRuri PROMPT "\ + +* +PROCEDURE BAR_1_OF_NIRuri_FB2P + + *!* 13.01.2015 + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + *!* IF gnButon = 1 + *!* lnTip = gnTipGest + *!* DO listare_nir WITH pnNr, lnTip + *!* ENDIF + + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2 + + *!* DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF + *!* 13.01.2015 ^ +ENDPROC && BAR_1_OF_NIRuri_FB2P + +PROCEDURE BAR_2_OF_NIRuri_FB2P + lnTip = gnTipGest + DO list_total_NIR WITH lnTip && in oproceduri_listari.prg +ENDPROC && BAR_2_OF_NIRuri_FB2P + +PROCEDURE BAR_1_OF_Aprovizion_FB2P + *!* DO list_marf_furn_grupe WITH 1 +ENDPROC && BAR_1_OF_Aprovizion_FB2P + +PROCEDURE BAR_2_OF_Aprovizion_FB2P + *!* DO list_marf_furn_grupe WITH 2 +ENDPROC && BAR_2_OF_Aprovizion_FB2P + +PROCEDURE BAR_3_OF_Aprovizion_FB2P + *!* DO list_articole_gr IN gestiuni.prg +ENDPROC && BAR_3_OF_Aprovizion_FB2P + +PROCEDURE BAR_1_OF_Bonuri_FB2P + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar BON 1','pnNr1','Numar BON 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar BON 2','pnNr2','Numar BON 2' TO lnNr2 + + DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF +ENDPROC && BAR_1_OF_Bonuri_FB2P + +PROCEDURE BAR_2_OF_Bonuri_FB2P + DO list_bon_pe_lucrare WITH gnTipGest + + *!* SELECT DISTINCT RULL.NRORD FROM RULL into TABLE &LOC\&NFSCURT\tempo\raA.DBF + *!* SELECT RAA + *!* APPEND BLANK + *!* REPLACE NRORD WITH " " + *!* Index ON NRORD TAG NRORD + *!* *!* SET ORDER TO NRORD + *!* do caut_alfa with "RAA","Nrord","NUMELE COMENZII","M.nrord" + + *!* DO danu WITH 'Total bonuri? (Alegeti DA pt. total bonuri, si NU pt. bonuri din luna curenta)' + + *!* IF buton=1 + *!* Select DISTINCT rul.nnir,rul.nrord,rul.denumire,rul.um,rul.cant,rul.cante,rul.pret,rul.gest,rul.codmat,rul.dataact,; + *!* actan.dataireg,actan.NUME_2 As RESPONS,rul.PRETV,rul.scd; + *!* from actan,rul; + *!* where actan.cod=rul.cod And rul.cante # 0 And rul.cant=0; + *!* into CURSOR ra + *!* ELSE + *!* Select DISTINCT rull.nnir,rull.nrord,rull.denumire,rull.um,rull.cant,rull.cante,rull.pret,rull.gest,rull.codmat,rull.dataact,; + *!* act.dataireg,act.NUME_2 As RESPONS,rull.PRETV,rull.scd; + *!* from act,rull; + *!* where act.cod=rull.cod And rull.cante # 0 And rull.cant=0; + *!* into CURSOR ra + *!* endif + + *!* SELECT RA + *!* Index On NRORD+STR(VAL(ALLTRIM(nnir)))+DTOC(dataact) TAG nnir &&To &LOC\&NFSCURT\tempo\FFD + + *!* IF ALLTRIM(M.NRORD)="" + *!* SELECT ra + *!* *SET ORDER TO NRORD + *!* SET ORDER TO NNIR + *!* REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW + *!* ELSE + *!* SELECT RA + *!* SET FILTER TO NRORD=M.NRORD + *!* SET ORDER TO nnir + *!* REPORT FORM BONC.FRX TO PRINTER PROMPT PREVIEW + *!* ENDIF + *!* USE IN ra + *!* SELECT rul + *!* SET FILTER TO + *!* SELECT rull + *!* SET FILTER TO +ENDPROC && BAR_2_OF_Bonuri_FB2P + +PROCEDURE BAR_3_OF_Bonuri_FB2P + lnTip = gnTipGest + DO list_total_BON WITH lnTip && in oproceduri_listari.prg +ENDPROC && BAR_3_OF_Bonuri_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr + IF gnButon = 1 + DO listare_protocol WITH pnNr + ENDIF +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-9 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_6_OF_Shortcut_FB2P + +PROCEDURE BAR_7_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr + IF gnButon = 1 + DO listare_protocol WITH pnNr,2 + ENDIF +ENDPROC && BAR_7_OF_Shortcut_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-10 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de retur' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_RETUR WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de retur" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_RETUR WITH M.NRACT1,5 +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,17 +ENDPROC && BAR_1_OF_Transferur_FB2P + +PROCEDURE BAR_2_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = 6 + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,18 + +ENDPROC && BAR_2_OF_Transferur_FB2P + +PROCEDURE BAR_3_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de rezervare/transfer' TO lnNr + IF gnButon = 1 + lnTip = 8 + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF +ENDPROC && BAR_3_OF_Transferur_FB2P + +PROCEDURE BAR_12_OF_Shortcut_FB2P + *!* *osetgest.tbrprim.buton4.click + *!* Public M.T + *!* Public m.nract1,m.nract2 + *!* Store 0 To m.nract1,m.nract2 + *!* public m.delegat,m.bi,m.nrinmat + *!* store '' to m.delegat,m.bi,m.nrinmat + *!* store 0 to m.nract1 + *!* sele calendar + *!* loca for nl=m.nl and an=m.an + *!* m.ctva=ctvam + + + *!* *___________________________________________________________ + *!* Ointre=Createobject("CAUTintre") + *!* With Ointre + *!* .Caption="Numarul bonului" + *!* .label1.Caption="Nr.initial:" + *!* .label2.Visible=.F. + *!* .text1.ControlSource="m.nract1" + *!* .text2.Visible=.F. + *!* Endwith + *!* Ointre.Show(1) + + *!* Sele rull + *!* Loca For Val(rull.nnir)=m.nract1 + *!* If !Found() + *!* Do mesaj With 'Nu a fost inregistrat nici un bon','cu numarul '+Allt(Str(m.nract1)) + *!* Return + *!* Else + *!* m.T='BONURI' + + *!* Select Distinct rull.denumire,rull.um,rull.cante,rull.pretV,rull.gest,rull.nnir,rull.codmat,rull.NRORD,rull.PRET,; + *!* act.dataact,act.NUME_2 As RESPONS,rull.scd,rull.cant; + *!* from act,rull; + *!* where act.cod=rull.cod And Val(rull.nnir)=m.nract1 And rull.cante # 0 And rull.cant=0; + *!* into Table &loc\&nfscurt\tempo\ra + + *!* Sele ra + *!* Index On Str(gest,2)+nnir To &loc\&nfscurt\tempo\ra + *!* ENDIF + + *!* DO FORM dateexp + *!* SELE FIRMA + *!* LOCA FOR NFSCURT=FSCURT + *!* SCAT MEMV + *!* FCOD_FISCAL=M.COD_FISCAL + + + *!* sele clienti + *!* loca for ALLTRIM(nume)=ALLTRIM(m.nume) + *!* if found() + *!* *scat fiel cod_fiscal memv + *!* CODF=COD_FISCAL + *!* else + *!* CODF='' + *!* ENDIF + *!* + *!* *!* SELECT respon + *!* *!* LOCATE FOR ales + *!* *!* SCATTER MEMVAR + *!* + *!* SELECT ra + *!* *REPORT FORMAT BONCONS.FRX TO PRINTER PROMPT PREVIEW + *!* REPORT FORM aviz TO PRINTER PROMPT PREVIEW + *!* Use In ra + +ENDPROC && BAR_12_OF_Shortcut_FB2P + +PROCEDURE BAR_14_OF_Shortcut_FB2P + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul facturii' TO lnNr + *!* IF gnButon = 1 + *!* *!* modificare 20.08.2007 + *!* *!* DO LISTARE_facturi WITH pnNr + *!* Do relisteaza_ofacturare_stoc With pnNr In ofacturare_stoc.prg + *!* *!* modificare 20.08.2007 ^ + *!* ENDIF + + *!* *!* STORE 0 to m.nract1 + + *!* *!* Ointre=CREATEOBJECT("CAUTintre") + *!* *!* WITH Ointre + *!* *!* .CAPTION="Numarul Documentului" + *!* *!* .label1.caption="Nr. factura:" + *!* *!* .label2.visible=.f. + *!* *!* .text1.controlsource="m.nract1" + *!* *!* .text2.visible=.f. + *!* *!* ENDWITH + *!* *!* Ointre.show(1) + + *!* *!* DO list_fact WITH m.nract1 + + + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. factura' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_14_OF_Shortcut_FB2P + +PROCEDURE BAR_16_OF_Shortcut_FB2P + DO list_raport_gestiuni WITH gnTipGest IN oproceduri_listari.prg +ENDPROC && BAR_16_OF_Shortcut_FB2P + +PROCEDURE BAR_18_OF_Shortcut_FB2P + ostoc=CREATEOBJECT('frm_raport_stoc') + ostoc.show(1) +ENDPROC && BAR_18_OF_Shortcut_FB2P + +PROCEDURE BAR_19_OF_Shortcut_FB2P + DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg +ENDPROC && BAR_19_OF_Shortcut_FB2P + +PROCEDURE BAR_20_OF_Shortcut_FB2P + DO fisa_magazie_FIFO_valuta WITH gnTipGest IN orapoarte.prg +ENDPROC && BAR_20_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Vanzaremar_FB2P + omarfa=CREATEOBJECT('frm_raport_marfa',1) + omarfa.show(1) +ENDPROC && BAR_1_OF_Vanzaremar_FB2P + +PROCEDURE BAR_2_OF_Vanzaremar_FB2P + omarfa=CREATEOBJECT('frm_raport_marfa',2) + omarfa.show(1) +ENDPROC && BAR_2_OF_Vanzaremar_FB2P + +PROCEDURE BAR_3_OF_Vanzaremar_FB2P + omarfa=CREATEOBJECT('frm_raport_marfa',3) + omarfa.show(1) +ENDPROC && BAR_3_OF_Vanzaremar_FB2P + +PROCEDURE BAR_23_OF_Shortcut_FB2P + locant = CREATEOBJECT('frm_rap_gv_cant') + locant.show(1) +ENDPROC && BAR_23_OF_Shortcut_FB2P + +PROCEDURE BAR_24_OF_Shortcut_FB2P + loval = CREATEOBJECT('frm_rap_gv_val') + loval.show(1) +ENDPROC && BAR_24_OF_Shortcut_FB2P + +PROCEDURE BAR_25_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul bonului','pnNr','Numarul bonului' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO listare_descarcare_productie WITH pnNr, lnTip + ENDIF +ENDPROC && BAR_25_OF_Shortcut_FB2P + +PROCEDURE BAR_26_OF_Shortcut_FB2P + DO raport_vanzari IN oproceduri_listari.prg +ENDPROC && BAR_26_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_NewItem_FB2P + Do list_centr_iesiri with gnTipGest,1 in oproceduri_listari.prg +ENDPROC && BAR_1_OF_NewItem_FB2P + +PROCEDURE BAR_2_OF_NewItem_FB2P + Do list_centr_iesiri with gnTipGest,2 in oproceduri_listari.prg +ENDPROC && BAR_2_OF_NewItem_FB2P + +PROCEDURE BAR_3_OF_NewItem_FB2P + Do list_centr_iesiri with gnTipGest,3 in oproceduri_listari.prg +ENDPROC && BAR_3_OF_NewItem_FB2P + +* diff --git a/Meniuri/list5.mn2 b/Meniuri/list5.mn2 new file mode 100644 index 0000000..3f087ca --- /dev/null +++ b/Meniuri/list5.mn2 @@ -0,0 +1,321 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="list5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_NIRdupanum_FB2P + *!* 13.01.2015 + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + *!* IF gnButon = 1 + *!* lnTip = gnTipGest + *!* DO listare_nir WITH pnNr, lnTip + *!* ENDIF + + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2 + + *!* DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF + *!* 13.01.2015 ^ + + + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul NIR-ului" + *!* .label1.caption="Nr.=" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_NIR WITH ALLTRIM(STR(M.NRACT1)),2 +ENDPROC && BAR_1_OF_NIRdupanum_FB2P + +PROCEDURE BAR_2_OF_NIRdupanum_FB2P + lnTip = gnTipGest + DO list_total_NIR WITH lnTip && in oproceduri_listari.prg +ENDPROC && BAR_2_OF_NIRdupanum_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO listare_nir WITH pnNr, 17 + ENDIF +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + * listare transfer ca un NIR + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2 + + DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip, .F., .F., 1 + ENDIF +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr + IF gnButon = 1 + DO listare_protocol WITH pnNr + ENDIF +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,18 + + + +ENDPROC && BAR_1_OF_Transferur_FB2P + +PROCEDURE BAR_2_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = 6 + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,17 +ENDPROC && BAR_2_OF_Transferur_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,1 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. factura' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_10_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-6 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_10_OF_Shortcut_FB2P + +PROCEDURE BAR_12_OF_Shortcut_FB2P + DO list_raport_gestiuni WITH gnTipGest IN oproceduri_listari.prg +ENDPROC && BAR_12_OF_Shortcut_FB2P + +PROCEDURE BAR_13_OF_Shortcut_FB2P + DO list_raport_gestiuni_centralizator WITH gnTipGest IN oproceduri_listari.prg +ENDPROC && BAR_13_OF_Shortcut_FB2P + +PROCEDURE BAR_14_OF_Shortcut_FB2P + Do relisteaza_schimbare_pret In oschimbare_pret.prg +ENDPROC && BAR_14_OF_Shortcut_FB2P + +PROCEDURE BAR_16_OF_Shortcut_FB2P + ostoc=CREATEOBJECT('frm_raport_stoc') + ostoc.show(1) +ENDPROC && BAR_16_OF_Shortcut_FB2P + +PROCEDURE BAR_17_OF_Shortcut_FB2P + DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg +ENDPROC && BAR_17_OF_Shortcut_FB2P + +PROCEDURE BAR_19_OF_Shortcut_FB2P + Do list_centr_valoric_subgr in oproceduri_listari.prg +ENDPROC && BAR_19_OF_Shortcut_FB2P + +PROCEDURE BAR_20_OF_Shortcut_FB2P + Do list_centr_valoric_subgr WITH 2 in oproceduri_listari.prg +ENDPROC && BAR_20_OF_Shortcut_FB2P + +PROCEDURE BAR_21_OF_Shortcut_FB2P + Do centralizator_articole_schimbpret in oschimbare_pret.prg +ENDPROC && BAR_21_OF_Shortcut_FB2P + +PROCEDURE BAR_23_OF_Shortcut_FB2P + Do listeaza_centralizator_schimbpret in oschimbare_pret.prg WITH gnTipGest +ENDPROC && BAR_23_OF_Shortcut_FB2P + +* diff --git a/Meniuri/list6.mn2 b/Meniuri/list6.mn2 new file mode 100644 index 0000000..659ce8a --- /dev/null +++ b/Meniuri/list6.mn2 @@ -0,0 +1,336 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="list6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_NIRdupanum_FB2P + *!* 13.01.2015 + *!* PRIVATE pnNr + *!* STORE 0 TO pnNr + + *!* DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + *!* IF gnButon = 1 + *!* lnTip = gnTipGest + *!* DO listare_nir WITH pnNr, lnTip + *!* ENDIF + + PRIVATE pnNr1, pnNr2 + LOCAL lnTip, lnNr1, lnNr2 + pnNr1 = 0 + pnNr2 = 0 + + lnTip = gnTipGest + DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1 + IF gnButon = 1 + pnNr2 = m.pnNr1 + DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2 + + *!* DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip + DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip + ENDIF + *!* 13.01.2015 ^ + + + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul NIR-ului" + *!* .label1.caption="Nr.=" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_NIR WITH ALLTRIM(STR(M.NRACT1)),2 +ENDPROC && BAR_1_OF_NIRdupanum_FB2P + +PROCEDURE BAR_2_OF_NIRdupanum_FB2P + lnTip = gnTipGest + DO list_total_NIR WITH lnTip && in oproceduri_listari.prg +ENDPROC && BAR_2_OF_NIRdupanum_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO listare_nir WITH pnNr, 27 + ENDIF +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_4_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-9 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_4_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-10 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = gnTipGest + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,18 + + + +ENDPROC && BAR_1_OF_Transferur_FB2P + +PROCEDURE BAR_2_OF_Transferur_FB2P + PRIVATE pnNr + STORE 0 TO pnNr + + DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr + IF gnButon = 1 + lnTip = 6 + DO LISTARE_TRANSFER WITH pnNr, lnTip + ENDIF + + *!* store 0 to m.nract1 + *!* Ointre=CREATEOBJECT("CAUTintre") + *!* WITH Ointre + *!* .CAPTION="Numarul notei de transfer" + *!* .label1.caption="Nr. nota:" + *!* .label2.visible=.f. + *!* .text1.controlsource="m.nract1" + *!* .text2.visible=.f. + *!* endwith + *!* ointre.show(1) + + *!* DO LIST_TRANSFER WITH M.NRACT1,17 +ENDPROC && BAR_2_OF_Transferur_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,1 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. factura' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_9_OF_Shortcut_FB2P + +PROCEDURE BAR_10_OF_Shortcut_FB2P + Private pnNrAct,pcSerie + Store 0 To pnNr + Store "" To pcSerie + + Do Form frm_cere_nrserie With 'Nr. aviz' + If gnButon = 1 + Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-6 In ofacturare_stoc.prg + Endif + Release pnNrAct,pcSerie +ENDPROC && BAR_10_OF_Shortcut_FB2P + +PROCEDURE BAR_12_OF_Shortcut_FB2P + DO list_raport_gestiuni WITH gnTipGest IN oproceduri_listari.prg +ENDPROC && BAR_12_OF_Shortcut_FB2P + +PROCEDURE BAR_13_OF_Shortcut_FB2P + Do relisteaza_schimbare_pret In oschimbare_pret.prg +ENDPROC && BAR_13_OF_Shortcut_FB2P + +PROCEDURE BAR_15_OF_Shortcut_FB2P + ostoc=CREATEOBJECT('frm_raport_stoc') + ostoc.show(1) +ENDPROC && BAR_15_OF_Shortcut_FB2P + +PROCEDURE BAR_16_OF_Shortcut_FB2P + DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg +ENDPROC && BAR_16_OF_Shortcut_FB2P + +PROCEDURE BAR_18_OF_Shortcut_FB2P + Do list_centr_valoric_subgr in oproceduri_listari.prg +ENDPROC && BAR_18_OF_Shortcut_FB2P + +PROCEDURE BAR_19_OF_Shortcut_FB2P + Do centralizator_articole_schimbpret in oschimbare_pret.prg +ENDPROC && BAR_19_OF_Shortcut_FB2P + +PROCEDURE BAR_20_OF_Shortcut_FB2P + Do list_centr_intrari with gnTipGest in oproceduri_listari.prg +ENDPROC && BAR_20_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Centraliza_FB2P + Do list_centr_iesiri with gnTipGest,1 in oproceduri_listari.prg +ENDPROC && BAR_1_OF_Centraliza_FB2P + +PROCEDURE BAR_2_OF_Centraliza_FB2P + Do list_centr_iesiri with gnTipGest,2 in oproceduri_listari.prg +ENDPROC && BAR_2_OF_Centraliza_FB2P + +PROCEDURE BAR_3_OF_Centraliza_FB2P + Do list_centr_iesiri with gnTipGest,3 in oproceduri_listari.prg +ENDPROC && BAR_3_OF_Centraliza_FB2P + +PROCEDURE BAR_23_OF_Shortcut_FB2P + Do listeaza_centralizator_schimbpret in oschimbare_pret.prg WITH gnTipGest +ENDPROC && BAR_23_OF_Shortcut_FB2P + +* diff --git a/Meniuri/listgen.mn2 b/Meniuri/listgen.mn2 new file mode 100644 index 0000000..682077c --- /dev/null +++ b/Meniuri/listgen.mn2 @@ -0,0 +1,98 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="listgen.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Evidenta comenzilor" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "Lista de inventariere" +ON BAR 2 OF Shortcut ACTIVATE POPUP Listadeinv + + *---------------------------------- + DEFINE POPUP Listadeinv SHORTCUT RELATIVE + DEFINE BAR 1 OF Listadeinv PROMPT "Model 1" + ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P + + DEFINE BAR 2 OF Listadeinv PROMPT "Model 2" + ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P + +DEFINE BAR 3 OF Shortcut PROMPT "Achizitie material pe furnizori" +ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* DO evidenta_comenzi +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Listadeinv_FB2P + *!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST" + *!* SELE NUMEGEST + *!* LOCATE FOR NUMEGEST==M.NUMEGEST + *!* SCATTER MEMVAR + + *!* ***DO NCONT.SPR + *!* SELE BAL + + *!* DO FORM selecont + + *!* SELECT bal + *!* SET FILTER TO + + *!* IF BUTON=2 + *!* RETURN + *!* ENDIF + + *!* SELE stoc + *!* INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV + + *!* *SET ORDER TO tag scd + *!* REPORT FORM nota_inv_mic.frx TO PRINTER PROMPT PREVIEW + + *!* SELE stoc + *!* SET ORDER TO tag DENUMIRE + *!* SET FILTER TO +ENDPROC && BAR_1_OF_Listadeinv_FB2P + +PROCEDURE BAR_2_OF_Listadeinv_FB2P + *!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST" + *!* SELE NUMEGEST + *!* LOCATE FOR NUMEGEST==M.NUMEGEST + *!* SCATTER MEMVAR + + *!* ***DO NCONT.SPR + *!* SELE BAL + + *!* DO FORM selecont + + *!* SELECT bal + *!* SET FILTER TO + + *!* IF BUTON=2 + *!* RETURN + *!* ENDIF + + *!* SELE stoc + *!* INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV + + *!* *SET ORDER TO tag scd + *!* REPORT FORM nota_inv_mic2.frx TO PRINTER PROMPT PREVIEW + + *!* SELE stoc + *!* SET ORDER TO tag DENUMIRE + *!* SET FILTER TO +ENDPROC && BAR_2_OF_Listadeinv_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + *!* DO raport_material_furnizor IN gestiuni.prg +ENDPROC && BAR_3_OF_Shortcut_FB2P + +* diff --git a/Meniuri/marfaachi.mn2 b/Meniuri/marfaachi.mn2 new file mode 100644 index 0000000..989afd4 --- /dev/null +++ b/Meniuri/marfaachi.mn2 @@ -0,0 +1,112 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="marfaachi.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/marfavanz.mn2 b/Meniuri/marfavanz.mn2 new file mode 100644 index 0000000..540a578 --- /dev/null +++ b/Meniuri/marfavanz.mn2 @@ -0,0 +1,102 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="marfavanz.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/materiale.mn2 b/Meniuri/materiale.mn2 new file mode 100644 index 0000000..5476731 --- /dev/null +++ b/Meniuri/materiale.mn2 @@ -0,0 +1,82 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="materiale.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/obinvent.mn2 b/Meniuri/obinvent.mn2 new file mode 100644 index 0000000..cebb439 --- /dev/null +++ b/Meniuri/obinvent.mn2 @@ -0,0 +1,87 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="obinvent.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/produse.mn2 b/Meniuri/produse.mn2 new file mode 100644 index 0000000..0068745 --- /dev/null +++ b/Meniuri/produse.mn2 @@ -0,0 +1,79 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="produse.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ \ No newline at end of file diff --git a/Meniuri/rapoarte.mn2 b/Meniuri/rapoarte.mn2 new file mode 100644 index 0000000..881e995 --- /dev/null +++ b/Meniuri/rapoarte.mn2 @@ -0,0 +1,55 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="rapoarte.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Verificare Facturi de achizitie" +ON SELECTION BAR 1 OF Shortcut DO ver_nir_facturi WITH 1 + +DEFINE BAR 2 OF Shortcut PROMPT "Centralizator Facturi achizitie" +ON SELECTION BAR 2 OF Shortcut DO listare_centralizator_nir_bon WITH 1 + +DEFINE BAR 3 OF Shortcut PROMPT "\-" +ON BAR 3 OF Shortcut ACTIVATE POPUP _4df0yn5xo + + *---------------------------------- + DEFINE POPUP _4df0yn5xo SHORTCUT RELATIVE +DEFINE BAR 4 OF Shortcut PROMPT "Verificare Bonuri de consum" +ON SELECTION BAR 4 OF Shortcut DO ver_nir_facturi WITH 2 + +DEFINE BAR 5 OF Shortcut PROMPT "Centralizator Bonuri de consum" +ON SELECTION BAR 5 OF Shortcut DO listare_centralizator_nir_bon WITH 2 + +DEFINE BAR 6 OF Shortcut PROMPT "\-" +ON BAR 6 OF Shortcut ACTIVATE POPUP _23e10525t + + *---------------------------------- + DEFINE POPUP _23e10525t SHORTCUT RELATIVE +DEFINE BAR 7 OF Shortcut PROMPT "Rapoarte bazate pe \ + +* +PROCEDURE BAR_10_OF_Shortcut_FB2P + DO rap_stocuri_pe_vechimi IN orapoarte.prg +ENDPROC && BAR_10_OF_Shortcut_FB2P + +* diff --git a/Meniuri/roagest.mn2 b/Meniuri/roagest.mn2 new file mode 100644 index 0000000..9a7c3ae --- /dev/null +++ b/Meniuri/roagest.mn2 @@ -0,0 +1,216 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="roagest.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\.' + +DEFINE PAD _000000003 OF _msysmenu PROMPT "\1 or luna_inchisa + +ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Actualizar + + *---------------------------------- + DEFINE POPUP Actualizar MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Actualizar PROMPT "Initializare" + ON BAR 1 OF Actualizar ACTIVATE POPUP Initializa + + *---------------------------------- + DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF Initializa PROMPT "Note contabile" + ON SELECTION BAR 1 OF Initializa DO BAR_1_OF_Initializa_FB2P + + DEFINE BAR 2 OF Actualizar PROMPT "\-" + ON BAR 2 OF Actualizar ACTIVATE POPUP _2z00kpm7w + + *---------------------------------- + DEFINE POPUP _2z00kpm7w MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 3 OF Actualizar PROMPT "Scriere nota din backup" + ON SELECTION BAR 3 OF Actualizar DO BAR_3_OF_Actualizar_FB2P + + DEFINE BAR 4 OF Actualizar PROMPT "\-" + ON BAR 4 OF Actualizar ACTIVATE POPUP _3en0pj4w2 + + *---------------------------------- + DEFINE POPUP _3en0pj4w2 MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 5 OF Actualizar PROMPT "Actualizare stoc 24% 07/2010" ; + SKIP FOR m.gnAn*12+m.gnLuna <> 2010*12+7 + ON BAR 5 OF Actualizar ACTIVATE POPUP _2z00lr4sl + + *---------------------------------- + DEFINE POPUP _2z00lr4sl MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 1 OF _2z00lr4sl PROMPT "Actualizare stocuri cu pastrarea pretului de vanzare" + ON SELECTION BAR 1 OF _2z00lr4sl do actualizare_stoc_072010 with 1 in actualizari.prg + + DEFINE BAR 2 OF _2z00lr4sl PROMPT "\-" + ON BAR 2 OF _2z00lr4sl ACTIVATE POPUP _2z00lsxgj + + *---------------------------------- + DEFINE POPUP _2z00lsxgj MARGIN RELATIVE SHADOW COLOR SCHEME 4 + DEFINE BAR 3 OF _2z00lr4sl PROMPT "Actualizare stocuri cu cresterea pretului de vanzare" + ON SELECTION BAR 3 OF _2z00lr4sl do actualizare_stoc_072010 with 0 in actualizari.prg + +DEFINE PAD _000000004 OF _msysmenu PROMPT "A\ + +* +PROCEDURE BAR_1_OF_Utile_FB2P + DO apeleaza_calc IN oproceduri_comune.prg +ENDPROC && BAR_1_OF_Utile_FB2P + +PROCEDURE BAR_2_OF_Utile_FB2P + DO apeleaza_notepad IN oproceduri_comune.prg +ENDPROC && BAR_2_OF_Utile_FB2P + +PROCEDURE BAR_4_OF_Utile_FB2P + **OVARIABILE_GLOBALE.PRG + + *** Citesc setarea pentru ReportBehaviour + IF TYPE('gnReportBehaviour') = 'U' + PUBLIC gnReportBehaviour + gnReportBehaviour = 90 + ENDIF + + LOCAL lcReportBehaviour + lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '') + IF EMPTY(m.lcReportBehaviour) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 + ELSE + gnReportBehaviour = VAL(m.lcReportBehaviour) + ENDIF + IF !INLIST(gnReportBehaviour, 80, 90) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 + ENDIF + + lnReportBehaviourNew = IIF(gnReportBehaviour = 90, 80, 90) + + IF AMESSAGEBOX('Rapoarte tip ' + IIF(m.gnReportBehaviour=90, 'modern', 'clasic') + '. Doriti sa schimbati in tip ' + IIF(m.lnReportBehaviourNew=90, 'modern', 'clasic') + '?',4+32,_screen.Caption) = 6 + setini(m.gcGeneralIniFile,'report','reportbehaviour', ALLTRIM(STR(m.lnReportBehaviourNew))) + gnReportBehaviour = m.lnReportBehaviourNew + ENDIF +ENDPROC && BAR_4_OF_Utile_FB2P + +PROCEDURE BAR_6_OF_Utile_FB2P + ies=.t. + + QUIT + +ENDPROC && BAR_6_OF_Utile_FB2P + +PROCEDURE BAR_1_OF_Initializa_FB2P + gcAcces = "1;2;3;4;" + DO configurare_note IN omeniu_initializari.prg +ENDPROC && BAR_1_OF_Initializa_FB2P + +PROCEDURE BAR_3_OF_Actualizar_FB2P + gcAcces = "1;2;3;4;" + do oscrie_in_fisiere.prg with 0, .F., .T., .F., .T. +ENDPROC && BAR_3_OF_Actualizar_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + DO arata_manual IN oproceduri_comune.prg +ENDPROC && BAR_1_OF_Ajutor_FB2P + +PROCEDURE BAR_3_OF_Ajutor_FB2P + DO arata_modificari IN oproceduri_comune.prg +ENDPROC && BAR_3_OF_Ajutor_FB2P + +PROCEDURE BAR_4_OF_Ajutor_FB2P + DO arata_versiune IN oproceduri_comune.prg +ENDPROC && BAR_4_OF_Ajutor_FB2P + +* diff --git a/Meniuri/rulaje.mn2 b/Meniuri/rulaje.mn2 new file mode 100644 index 0000000..65c3e25 --- /dev/null +++ b/Meniuri/rulaje.mn2 @@ -0,0 +1,48 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="rulaje.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + osetgest.tbrprim.buton6.click +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + + sele rul + set relation off into actan + SET ORDER TO TAG Cod OF &calefirma\datean\actan.cdx IN Actan + sele rul + SET RELATION TO cod INTO Actan ADDITIVE + SELE RUL + SET FILTER TO + SELE ACTAN + SET FILTER TO + SELE RULL + SET FILTER TO + *select DISTINCT rul.denumire,rul.pret,rul.um,rul.cant,rul.cante,rul.scd,rul.gest,actan.dataact,actan.nract,rul.cod,rul.tva; + * from rul,actan; + * where rul.cod=actan.cod; + * into cursor rullactanfact + sele 0 + use &datean\rul again alias rullactanfact + do form afrul + use in rullactanfact +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/stoc.mn2 b/Meniuri/stoc.mn2 new file mode 100644 index 0000000..4a88ee6 --- /dev/null +++ b/Meniuri/stoc.mn2 @@ -0,0 +1,159 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="stoc.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "In luna curenta" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "De la luna-la luna..." +ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P + +DEFINE BAR 3 OF Shortcut PROMPT "In luna curenta pana la ziua..." +ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P +ACTIVATE POPUP Shortcut + +* + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + osetgest.tbrprim.buton5.click +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + SET CENTURY on + SET DATE TO dmy + + LOCAL a1,l1,a2,l2,inceput,sfirsit,ll,aa,cond,d1,d2 + STORE '' TO a1,l1,a2,l2,inceput,sfirsit,ll,aa,cond + STORE DATE() TO d1,d2 + + ll=m.nl + aa=m.an + + inceput=cereluna('Alegeti luna de inceput') + l1=LEFT(inceput,2) + a1=RIGHT(inceput,4) + + sfirsit=cereluna('Alegeti luna de sfarsit') + l2=LEFT(sfirsit,2) + a2=RIGHT(sfirsit,4) + + z='01/'+l1+'/'+a1 + d1=CTOD(z) + z='01/'+l2+'/'+a2 + d2=CTOD(z) + d2=GOMONTH(d2,1) + + cond='(dataireg>=d1 and dataireg diff --git a/Meniuri/transfer.mn2 b/Meniuri/transfer.mn2 new file mode 100644 index 0000000..4273527 --- /dev/null +++ b/Meniuri/transfer.mn2 @@ -0,0 +1,37 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="transfer.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Catre o gestiune la pret de \ \ No newline at end of file diff --git a/Meniuri/transfer1.mn2 b/Meniuri/transfer1.mn2 new file mode 100644 index 0000000..fd49b4f --- /dev/null +++ b/Meniuri/transfer1.mn2 @@ -0,0 +1,221 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="transfer1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + lans(218) +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + + LANS(74) + + *!* SELE CALENDAR + *!* LOCA FOR NL=M.NL AND AN=M.AN + *!* M.CTVA=CTVAM + *!* M.FDOC='NOTA TRANSFER' + + *!* buton=1 + *!* OACT=CREATEOBJ('ACTTRANSFERg') + *!* OACT.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* M.NNIR=M.NRACT + *!* DO CODARE + + *!* SELE IESIRI + *!* ZAP + *!* do cursul + *!* buton=1 + *!* OBM=CREA('BONTRANSFERgg') + *!* OBM.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* ******************************************* + + *!* sele numegest + *!* **scd din m.numegest + *!* loca for numegest=m.numegest + *!* m.scd1=contg + *!* **scd din m.nume_4 + *!* loca for numegest=m.nume_4 + *!* m.scd2=contg + + + *!* DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT + + *!* DO IESTOCURIMAGAZII + *!* &&IESIRE DIN GESTIUNEA M.NUMEGEST + *!* DO IERULAJMAGAZII + + *!* buton=2 + *!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?' + *!* if buton=1 + *!* SELE RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* endif + + *!* &&INTRARE IN GESTIUNEA M.NUME_4 + *!* SELE NUMEGEST + *!* LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4) + *!* SCAT FIEL GEST MEMV + + *!* SELE INTRARI + *!* ZAP + *!* SELE IESIRI + *!* SCAN + *!* SCAT FIEL EXCEPT GEST MEMV + *!* M.CANT=M.CANTE + *!* M.SCD=m.scd2 + *!* SELE INTRARI + *!* APPE BLAN + *!* GATH MEMV + *!* SELE IESIRI + *!* ENDSCAN + + + *!* DO INRULAJMAGAZII + *!* DO INSTOCURIMAGAZII + + *!* DO STERGE + *!* RETURN + + + +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + LANS(75) + + *!* Sele CALENDAR + *!* Loca For NL=M.NL And AN=M.AN + *!* m.CTVA=CTVAM + *!* m.FDOC='NOTA TRANSFER' + + *!* buton=1 + *!* OACT=Createobj('ACTTRANSFER') + *!* OACT.Show(1) + + *!* If buton=2 + *!* Do STERGE + *!* Return + *!* Endif + + *!* m.NNIR=M.NRACT + *!* Do CODARE + + *!* Sele IESIRI + *!* Zap + *!* Do cursul + *!* buton=1 + *!* *do form bonmarfa1 + *!* M.NUMEGEST=M.EXPLICATIA + *!* SELECT STOC + *!* SET FILTER TO + *!* SELECT NUMEGEST + *!* SET FILTER TO + *!* M.NUMEGEST=ALLTRIM(M.NUMEGEST) + *!* OBM=Crea('BONTRANSFERGM') + *!* OBM.Show(1) + + *!* If buton=2 + *!* Do STERGE + *!* Return + *!* Endif + *!* ******************************************* + *!* Z=M.EXPLICATIA + *!* M.EXPLICATIA=M.NUME_4 + *!* M.NUME_4=Z + + *!* SELECT NUMEGEST + *!* LOCATE FOR NUMEGEST=M.NUME_4 + *!* M.CONTG=CONTG + + *!* m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0) + *!* Do CONTABILIZEAZA With C371ENDETAIL,M.CONTG,M.TOTFTVA-m.totadaos,CLASAACT + + *!* Do CONTABILIZEAZA With C371ENDETAIL,C378ENDETAIL,M.totadaos,CLASAACT + *!* Do CONTABILIZEAZA With C371ENDETAIL,'4428',M.TOTTVA,CLASAACT + + *!* Z=M.NUME_4 + *!* M.NUME_4=M.EXPLICATIA + *!* M.EXPLICATIA=Z + + *!* Do IESTOCURIMAGAZII + *!* &&IESIRE DIN GESTIUNEA M.NUMEGEST + *!* Do IERULAJMAGAZII + + + *!* &&INTRARE IN GESTIUNEA M.NUME_4 + *!* Sele NUMEGEST + *!* Loca For Allt(NUMEGEST)=Allt(M.NUME_4) + *!* Scat Fiel GEST Memv + + *!* Sele INTRARI + *!* Zap + *!* Sele IESIRI + *!* Scan + *!* Scat Fiel Except GEST Memv + *!* m.CANT=M.CANTE + *!* m.SCD=C371ENDETAIL + *!* Sele INTRARI + *!* Appe Blan + *!* Gath Memv + *!* Sele IESIRI + *!* Endscan + + + *!* Do INRULAJMAGAZII + *!* Do INSTOCURIMAGAZII + + *!* buton=2 + *!* Do DANU With 'Doriti sa listati NOTA DE TRANSFER?' + *!* If buton=1 + *!* Sele RUL + *!* *** + *!* Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL + *!* Use In RUL + *!* Use In ARUL + *!* Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL + *!* *** + *!* Select RUL + *!* Set Filter To !Empty(CANTE) + *!* Report Format NIRTRANSFER.FRX To Printer Prompt Preview + *!* Do TOTV + *!* Endif + + *!* Do STERGE + *!* Return + + + +ENDPROC && BAR_3_OF_Shortcut_FB2P + +* diff --git a/Meniuri/transfer5.mn2 b/Meniuri/transfer5.mn2 new file mode 100644 index 0000000..0d8fc0b --- /dev/null +++ b/Meniuri/transfer5.mn2 @@ -0,0 +1,235 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="transfer5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Catre o gestiune la pret de \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + LANS(76) + *!* Local TR + + + *!* Sele CALENDAR + *!* Loca For NL=M.NL And AN=M.AN + *!* m.CTVA=CTVAM + *!* m.FDOC='NOTA TRANSFER' + + *!* buton=1 + *!* OACT=Createobj('ACTTRANSFER') + *!* OACT.LABEL7.Caption='GESTIUNEA DESTINATIE' &&M.NUMEGEST; SURSA=M.NUME_4 + *!* OACT.Show(1) + + *!* If buton=2 + *!* Do STERGE + *!* Return + *!* Endif + + *!* TR=M.NUMEGEST + *!* m.NUMEGEST=M.NUME_4 + *!* m.NUME_4=TR + + *!* m.NNIR=M.NRACT + *!* Do CODARE + + *!* Sele IESIRI + *!* Zap + *!* Do cursul + *!* buton=1 + *!* *do form bonmarfa1 + *!* OBM=Crea('BONTRANSFERMG') + *!* *OBM.LABELNUME.CAPTION='TRANSFER MAGAZIN - GESTIUNE' + *!* OBM.Show(1) + + *!* If buton=2 + *!* Do STERGE + *!* Return + *!* Endif + *!* ******************************************* + + *!* *!* Z=M.EXPLICATIA + *!* *!* M.EXPLICATIA=M.NUME_4 + *!* *!* M.NUME_4=Z + + *!* m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0) + *!* Do CONTABILIZEAZA With C371ENGROS,C371ENDETAIL,M.TOTFTVA-m.totadaos,CLASAACT + *!* *M.EXPLICATIA='ADAOS COMERCIAL' + *!* Do CONTABILIZEAZA With C378ENDETAIL,C371ENDETAIL,M.totadaos,CLASAACT + *!* m.EXPLICATIA='TVA '+Allt(Str((M.CTVA-1)*100))+'%' + *!* Do CONTABILIZEAZA With '4428',C371ENDETAIL,M.TOTTVA,CLASAACT + + *!* *!* Z=M.NUME_4 + *!* *!* M.NUME_4=M.EXPLICATIA + *!* *!* M.EXPLICATIA=Z + + *!* Do IESTOCURIMAGAZII + *!* &&IESIRE DIN GESTIUNEA M.NUMEGEST + *!* Do IERULAJMAGAZII + + *!* &&INTRARE IN GESTIUNEA M.NUME_4 + *!* Sele NUMEGEST + *!* Loca For Allt(NUMEGEST)=Allt(M.NUME_4) + *!* Scat Fiel GEST Memv + + *!* Sele INTRARI + *!* Zap + *!* Sele IESIRI + *!* Scan + *!* Scat Fiel Except GEST Memv + *!* m.CANT=M.CANTE + *!* m.SCD=C371ENGROS + *!* Sele INTRARI + *!* Appe Blan + *!* Gath Memv + *!* Sele IESIRI + *!* Endscan + + + *!* Do INRULAJMAGAZII + *!* Do INSTOCURIMAGAZII + + + *!* buton=2 + *!* Do DANU With 'Doriti sa listati NOTA DE TRANSFER?' + *!* If buton=1 + *!* *!* SELE RUL + *!* *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL + *!* Use In RUL + *!* Use In ARUL + *!* Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL + *!* Select RUL + *!* Set Filter To !Empty(CANTE) + *!* Report Format NIRTRANSFER.FRX To Printer Prompt Preview + *!* Do TOTV + + *!* Endif + + + *!* Do STERGE + *!* Return + + + +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + LANS(207) + + *!* SELE CALENDAR + *!* LOCA FOR NL=M.NL AND AN=M.AN + *!* M.CTVA=CTVAM + *!* M.FDOC='NOTA TRANSFER' + + *!* buton=1 + *!* OACT=CREATEOBJ('ACTTRANSFERg') + *!* OACT.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* M.NNIR=M.NRACT + *!* DO CODARE + + *!* SELE IESIRI + *!* ZAP + *!* do cursul + *!* buton=1 + *!* *do form bonmarfa1 + *!* OBM=CREA('BONTRANSFERgg') + *!* OBM.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* ******************************************* + + *!* sele numegest + *!* **scd din m.numegest + *!* loca for numegest=m.numegest + *!* m.scd1=contg + *!* **scd din m.nume_4 + *!* loca for numegest=m.nume_4 + *!* m.scd2=contg + + + *!* DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT + + *!* DO IESTOCURIMAGAZII + *!* &&IESIRE DIN GESTIUNEA M.NUMEGEST + *!* DO IERULAJMAGAZII + + *!* buton=2 + *!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?' + *!* if buton=1 + *!* SELE RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* endif + + *!* &&INTRARE IN GESTIUNEA M.NUME_4 + *!* SELE NUMEGEST + *!* LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4) + *!* SCAT FIEL GEST MEMV + + *!* SELE INTRARI + *!* ZAP + *!* SELE IESIRI + *!* SCAN + *!* SCAT FIEL EXCEPT GEST MEMV + *!* M.CANT=M.CANTE + *!* M.SCD=m.scd2 + *!* SELE INTRARI + *!* APPE BLAN + *!* GATH MEMV + *!* SELE IESIRI + *!* ENDSCAN + + + *!* DO INRULAJMAGAZII + *!* DO INSTOCURIMAGAZII + + *!* DO STERGE + *!* RETURN + + + +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/transfer6.mn2 b/Meniuri/transfer6.mn2 new file mode 100644 index 0000000..3af09fd --- /dev/null +++ b/Meniuri/transfer6.mn2 @@ -0,0 +1,235 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="transfer6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Catre o gestiune la pret de \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + LANS(253) + *!* Local TR + + + *!* Sele CALENDAR + *!* Loca For NL=M.NL And AN=M.AN + *!* m.CTVA=CTVAM + *!* m.FDOC='NOTA TRANSFER' + + *!* buton=1 + *!* OACT=Createobj('ACTTRANSFER') + *!* OACT.LABEL7.Caption='GESTIUNEA DESTINATIE' &&M.NUMEGEST; SURSA=M.NUME_4 + *!* OACT.Show(1) + + *!* If buton=2 + *!* Do STERGE + *!* Return + *!* Endif + + *!* TR=M.NUMEGEST + *!* m.NUMEGEST=M.NUME_4 + *!* m.NUME_4=TR + + *!* m.NNIR=M.NRACT + *!* Do CODARE + + *!* Sele IESIRI + *!* Zap + *!* Do cursul + *!* buton=1 + *!* *do form bonmarfa1 + *!* OBM=Crea('BONTRANSFERMG') + *!* *OBM.LABELNUME.CAPTION='TRANSFER MAGAZIN - GESTIUNE' + *!* OBM.Show(1) + + *!* If buton=2 + *!* Do STERGE + *!* Return + *!* Endif + *!* ******************************************* + + *!* *!* Z=M.EXPLICATIA + *!* *!* M.EXPLICATIA=M.NUME_4 + *!* *!* M.NUME_4=Z + + *!* m.TOTTVA=Round(M.TOTFTVA*(M.CTVA-1),0) + *!* Do CONTABILIZEAZA With C371ENGROS,C371ENDETAIL,M.TOTFTVA-m.totadaos,CLASAACT + *!* *M.EXPLICATIA='ADAOS COMERCIAL' + *!* Do CONTABILIZEAZA With C378ENDETAIL,C371ENDETAIL,M.totadaos,CLASAACT + *!* m.EXPLICATIA='TVA '+Allt(Str((M.CTVA-1)*100))+'%' + *!* Do CONTABILIZEAZA With '4428',C371ENDETAIL,M.TOTTVA,CLASAACT + + *!* *!* Z=M.NUME_4 + *!* *!* M.NUME_4=M.EXPLICATIA + *!* *!* M.EXPLICATIA=Z + + *!* Do IESTOCURIMAGAZII + *!* &&IESIRE DIN GESTIUNEA M.NUMEGEST + *!* Do IERULAJMAGAZII + + *!* &&INTRARE IN GESTIUNEA M.NUME_4 + *!* Sele NUMEGEST + *!* Loca For Allt(NUMEGEST)=Allt(M.NUME_4) + *!* Scat Fiel GEST Memv + + *!* Sele INTRARI + *!* Zap + *!* Sele IESIRI + *!* Scan + *!* Scat Fiel Except GEST Memv + *!* m.CANT=M.CANTE + *!* m.SCD=C371ENGROS + *!* Sele INTRARI + *!* Appe Blan + *!* Gath Memv + *!* Sele IESIRI + *!* Endscan + + + *!* Do INRULAJMAGAZII + *!* Do INSTOCURIMAGAZII + + + *!* buton=2 + *!* Do DANU With 'Doriti sa listati NOTA DE TRANSFER?' + *!* If buton=1 + *!* *!* SELE RUL + *!* *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* Select * From RUL Where COD=M.COD Into Table &LOC\&NFSCURT\TEMPO\ARUL + *!* Use In RUL + *!* Use In ARUL + *!* Use &LOC\&NFSCURT\TEMPO\ARUL In 0 Alias RUL + *!* Select RUL + *!* Set Filter To !Empty(CANTE) + *!* Report Format NIRTRANSFER.FRX To Printer Prompt Preview + *!* Do TOTV + + *!* Endif + + + *!* Do STERGE + *!* Return + + + +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + LANS(254) + + *!* SELE CALENDAR + *!* LOCA FOR NL=M.NL AND AN=M.AN + *!* M.CTVA=CTVAM + *!* M.FDOC='NOTA TRANSFER' + + *!* buton=1 + *!* OACT=CREATEOBJ('ACTTRANSFERg') + *!* OACT.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* M.NNIR=M.NRACT + *!* DO CODARE + + *!* SELE IESIRI + *!* ZAP + *!* do cursul + *!* buton=1 + *!* *do form bonmarfa1 + *!* OBM=CREA('BONTRANSFERgg') + *!* OBM.SHOW(1) + + *!* IF BUTON=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + *!* ******************************************* + + *!* sele numegest + *!* **scd din m.numegest + *!* loca for numegest=m.numegest + *!* m.scd1=contg + *!* **scd din m.nume_4 + *!* loca for numegest=m.nume_4 + *!* m.scd2=contg + + + *!* DO CONTABILIZEAZA WITH m.scd2,m.scd1,M.TOTFTVA-M.TOTADAOS,CLASAACT + + *!* DO IESTOCURIMAGAZII + *!* &&IESIRE DIN GESTIUNEA M.NUMEGEST + *!* DO IERULAJMAGAZII + + *!* buton=2 + *!* DO DANU WITH 'Doriti sa listati NOTA DE TRANSFER?' + *!* if buton=1 + *!* SELE RUL + *!* SET FILTER TO cod=m.cod and !empty(cante) + *!* REPORT FORMAT NIRTRANSFER.FRX TO PRINTER PROMPT PREVIEW + *!* endif + + *!* &&INTRARE IN GESTIUNEA M.NUME_4 + *!* SELE NUMEGEST + *!* LOCA FOR ALLT(NUMEGEST)=ALLT(M.NUME_4) + *!* SCAT FIEL GEST MEMV + + *!* SELE INTRARI + *!* ZAP + *!* SELE IESIRI + *!* SCAN + *!* SCAT FIEL EXCEPT GEST MEMV + *!* M.CANT=M.CANTE + *!* M.SCD=m.scd2 + *!* SELE INTRARI + *!* APPE BLAN + *!* GATH MEMV + *!* SELE IESIRI + *!* ENDSCAN + + + *!* DO INRULAJMAGAZII + *!* DO INSTOCURIMAGAZII + + *!* DO STERGE + *!* RETURN + + + +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/vanz2.mn2 b/Meniuri/vanz2.mn2 new file mode 100644 index 0000000..43a5f6e --- /dev/null +++ b/Meniuri/vanz2.mn2 @@ -0,0 +1,29 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vanz2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Vanzare en-\ \ No newline at end of file diff --git a/Meniuri/vanz3.mn2 b/Meniuri/vanz3.mn2 new file mode 100644 index 0000000..52be7f6 --- /dev/null +++ b/Meniuri/vanz3.mn2 @@ -0,0 +1,87 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vanz3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_3_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(79) +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Monetar_FB2P + lans(98) +ENDPROC && BAR_1_OF_Monetar_FB2P + +* diff --git a/Meniuri/vanz4.mn2 b/Meniuri/vanz4.mn2 new file mode 100644 index 0000000..a5dccc8 --- /dev/null +++ b/Meniuri/vanz4.mn2 @@ -0,0 +1,110 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vanz4.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(62) +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(102) + * lans(102) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_4_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(61) +ENDPROC && BAR_4_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(103) +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_10_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(63) +ENDPROC && BAR_10_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Descarcare_FB2P + lans(91) +ENDPROC && BAR_1_OF_Descarcare_FB2P + +PROCEDURE BAR_2_OF_Descarcare_FB2P + lans(92) +ENDPROC && BAR_2_OF_Descarcare_FB2P + +PROCEDURE BAR_3_OF_Descarcare_FB2P + lans(96) +ENDPROC && BAR_3_OF_Descarcare_FB2P + +PROCEDURE BAR_4_OF_Descarcare_FB2P + lans(97) +ENDPROC && BAR_4_OF_Descarcare_FB2P + +* diff --git a/Meniuri/vanz5.mn2 b/Meniuri/vanz5.mn2 new file mode 100644 index 0000000..a346d49 --- /dev/null +++ b/Meniuri/vanz5.mn2 @@ -0,0 +1,281 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vanz5.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(64) + +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(65) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + lans(93) +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(239) +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(238) +ENDPROC && BAR_6_OF_Shortcut_FB2P + +PROCEDURE BAR_1_OF_Descarcare_FB2P + DO inchidere_k IN inchidere_k.prg + + *!* LOCAL A411,A371,A378,S371,S378,K,V,B + *!* STORE 0 TO S371,S378,K,V,B + + *!* DO REF_GESTIUNI + + *!* m.SCD='' + *!* m.SCC='' + + *!* semafor=.t. + *!* lans(66) + + *!* semafor=.f. + + *!* IF buton=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* SELECT NUMEGEST + *!* SET FILTER TO + *!* M.GEST=GEST + *!* LOCAL ULIT + *!* ulit=SUBSTR(contg,4,1) + *!* A411='411'+ULIT + *!* A371='371'+ULIT + *!* A378='378'+ULIT + + *!* SELECT GESTIUNI + *!* SEEK M.GEST + *!* IF !FOUND() + *!* DO MESAJ WITH 'Eroare: generare gestiuni!','' + *!* RETURN + *!* ENDIF + *!* M.SUMA=CRED + *!* k=procent_k + *!* IF k=0 + *!* DO mesaj WITH 'Modificati procentul k','in gestiuni' + *!* RETURN + *!* ENDIF + + + + *!* DO CODARE + *!* m.totftvam=ROUND(M.SUMA/1.19,0) + *!* m.tvam=M.SUMA-M.totftvam + *!* m.TOTCTVA=M.SUMA + *!* m.NEIMPOZAB=0 + *!* m.PERECHE=0 + + *!* V=M.TOTCTVA + *!* LOCAL A,B,c,d,E,F,G,H + *!* A=ROUND(V*K,0) + *!* B=V-A-M.TVAM + + *!* DO MESAJ WITH 'Coeficientul K= '+ALLT(STR(K,10,6)),'' + *!* DO CONTABILIZEAZA WITH '607 ',A371,B,clasaact + *!* DO CONTABILIZEAZA WITH A378,A371,A,clasaact + *!* DO CONTABILIZEAZA WITH '4428',A371,M.tvam,clasaact + + *!* DO STERGE + +ENDPROC && BAR_1_OF_Descarcare_FB2P + +PROCEDURE BAR_2_OF_Descarcare_FB2P + DO inchidere_k_custodie IN inchidere_k.prg +ENDPROC && BAR_2_OF_Descarcare_FB2P + +PROCEDURE BAR_3_OF_Descarcare_FB2P + lans(84) +ENDPROC && BAR_3_OF_Descarcare_FB2P + +PROCEDURE BAR_4_OF_Descarcare_FB2P + lans(95) +ENDPROC && BAR_4_OF_Descarcare_FB2P + +PROCEDURE BAR_1_OF_Monetar_FB2P + + LANS(69) + +ENDPROC && BAR_1_OF_Monetar_FB2P + +PROCEDURE BAR_2_OF_Monetar_FB2P + + *!* LOCAL A411,A371,A378,S371,S378,K,V,B + *!* STORE 0 TO S371,S378,K,V,B + + *!* lans(68) + *!* iF buton=2 + *!* DO STERGE + *!* RETURN + *!* ENDIF + + *!* SELECT NUMEGEST + *!* SET FILTER TO + *!* M.GEST=GEST + *!* LOCAL ULIT + *!* ULIT=SUBSTR(CONTG,4,1) + *!* A411='411'+ULIT + *!* A371='371'+ULIT + *!* A378='378'+ULIT + + *!* SELECT GESTIUNI + *!* SEEK M.GEST + *!* IF !FOUND() + *!* DO MESAJ WITH 'Eroare: generare gestiuni!','' + *!* RETURN + *!* ENDIF + *!* k=procent_k + *!* IF k=0 + *!* DO mesaj WITH 'Modificati procentul k','in gestiuni' + *!* RETURN + *!* ENDIF + + + + *!* DO CODARE + + *!* *m.totftvam=ROUND(M.SUMA/1.19,0) + *!* m.totftvam=m.totftva + *!* *m.tvam=M.SUMA-M.totftvam + *!* m.tvam=m.tottva + *!* *m.TOTCTVA=M.SUMA + *!* m.NEIMPOZAB=0 + *!* DO CONTABILIZEAZA WITH A411,'707 ',M.TOTFTVAM,CLASAACT + *!* DO CONTABILIZEAZA WITH A411,'4427',M.TVAM,CLASAACT + *!* M.PERECHE=M.NRACT + *!* DO CONTABILIZEAZA WITH '5311',A411,M.TOTCTVA,CLASAACT + *!* m.PERECHE=0 + + *!* V=M.TOTCTVA + *!* LOCAL A,B,c,d,E,F,G,H + *!* A=ROUND(V*K,0) + *!* B=V-A-M.TVAM + + + *!* DO MESAJ WITH 'Coeficientul K= '+ALLT(STR(K,10,6)),'' + *!* DO CONTABILIZEAZA WITH '607 ',A371,B,clasaact + *!* DO CONTABILIZEAZA WITH A378,A371,A,clasaact + *!* DO CONTABILIZEAZA WITH '4428',A371,M.tvam,clasaact + + *!* M.SUMA=M.TOTCTVA + *!* *** in casa e prost face gath memv si nu are m.scd si m.scc + *!* m.scd='5311' + *!* m.scc=A411 + *!* do inCASA + *!* DO ADVANZ + + *!* SELE CLIENTI + *!* if flock() + *!* REPLACE CLIENTI.incasat WITH CLIENTI.incasat+m.TOTCTVA + *!* REPLACE CLIENTI.PRODUCTIE WITH CLIENTI.PRODUCTIE++m.TOTCTVA + *!* endif + *!* unlock + + *!* DO STERGE + + +ENDPROC && BAR_2_OF_Monetar_FB2P + +PROCEDURE BAR_3_OF_Monetar_FB2P + lans(67) +ENDPROC && BAR_3_OF_Monetar_FB2P + +PROCEDURE BAR_11_OF_Shortcut_FB2P + *!* lans(233) + initializeaza_vanzare_din_stoc(233) +ENDPROC && BAR_11_OF_Shortcut_FB2P + +PROCEDURE BAR_12_OF_Shortcut_FB2P + *lans(232) + initializeaza_vanzare_din_stoc(270) +ENDPROC && BAR_12_OF_Shortcut_FB2P + +* diff --git a/Meniuri/vanz6.mn2 b/Meniuri/vanz6.mn2 new file mode 100644 index 0000000..b92a1c6 --- /dev/null +++ b/Meniuri/vanz6.mn2 @@ -0,0 +1,76 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vanz6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "\ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(252) + +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(258) +ENDPROC && BAR_2_OF_Shortcut_FB2P + +PROCEDURE BAR_3_OF_Shortcut_FB2P + lans(93) +ENDPROC && BAR_3_OF_Shortcut_FB2P + +PROCEDURE BAR_5_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(259) +ENDPROC && BAR_5_OF_Shortcut_FB2P + +PROCEDURE BAR_6_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(260) +ENDPROC && BAR_6_OF_Shortcut_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(261) +ENDPROC && BAR_8_OF_Shortcut_FB2P + +PROCEDURE BAR_9_OF_Shortcut_FB2P + initializeaza_vanzare_din_stoc(262) +ENDPROC && BAR_9_OF_Shortcut_FB2P + +* diff --git a/Meniuri/vizgen.mn2 b/Meniuri/vizgen.mn2 new file mode 100644 index 0000000..7a7e337 --- /dev/null +++ b/Meniuri/vizgen.mn2 @@ -0,0 +1,72 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="vizgen.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Extras din Registrul Jurnal" +ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P + +DEFINE BAR 2 OF Shortcut PROMPT "\-" +ON BAR 2 OF Shortcut ACTIVATE POPUP _1010wxse4 + + *---------------------------------- + DEFINE POPUP _1010wxse4 SHORTCUT RELATIVE +DEFINE BAR 3 OF Shortcut PROMPT "Stocuri de materiale" +ON BAR 3 OF Shortcut ACTIVATE POPUP Stocuridem + + *---------------------------------- + DEFINE POPUP Stocuridem SHORTCUT RELATIVE + DEFINE BAR 1 OF Stocuridem PROMPT "In luna curenta" + ON SELECTION BAR 1 OF Stocuridem + + DEFINE BAR 2 OF Stocuridem PROMPT "De la luna-la luna..." + ON SELECTION BAR 2 OF Stocuridem + +DEFINE BAR 4 OF Shortcut PROMPT "Rulaje de materiale" +ON BAR 4 OF Shortcut ACTIVATE POPUP Rulajedema + + *---------------------------------- + DEFINE POPUP Rulajedema SHORTCUT RELATIVE +DEFINE BAR 5 OF Shortcut PROMPT "\-" +ON BAR 5 OF Shortcut ACTIVATE POPUP _12s0oacnm + + *---------------------------------- + DEFINE POPUP _12s0oacnm SHORTCUT RELATIVE +DEFINE BAR 6 OF Shortcut PROMPT "Facturi" +ON BAR 6 OF Shortcut ACTIVATE POPUP Facturi + + *---------------------------------- + DEFINE POPUP Facturi SHORTCUT RELATIVE + DEFINE BAR 1 OF Facturi PROMPT "De \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + *!* osetviz.tbrprim.buton1.click +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_8_OF_Shortcut_FB2P + *!* ol=crea('aflucrari') + *!* ol.show() +ENDPROC && BAR_8_OF_Shortcut_FB2P + +* diff --git a/Programe/actualizari.prg b/Programe/actualizari.prg new file mode 100644 index 0000000..b228cf1 --- /dev/null +++ b/Programe/actualizari.prg @@ -0,0 +1,21 @@ +*!* actualizari +PROCEDURE actualizare_stoc_072010 + LPARAMETERS tnPretvIdentic + + IF AMESSAGEBOX('Doriti sa actualizati stocul de marfa la pret de vanzare 19% la 24%?',4+32, _screen.Caption) <> 6 + RETURN + ENDIF + + LOCAL lnPretvIdentic + lnPretvIdentic = 0 + IF TYPE('tnPretvIdentic') = 'N' + lnPretvIdentic = IIF(INLIST(m.tnPretvIdentic,0,1), m.tnPretvIdentic, m.lnPretvIdentic) + ENDIF + lcSql = [begin actualizare_stoc_072010(] + ALLTRIM(STR(lnPretvIdentic)) + [); end;] + lnSucces = goExecutor.oExecute(lcSql) + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare, 0+16, _screen.Caption) + ELSE + AMESSAGEBOX('Actualizarea s-a incheiat cu succes. Verificati notele contabile si stocul de marfa la pret de vanzare.',0+64, _screen.Caption) + ENDIF +ENDPROC \ No newline at end of file diff --git a/Programe/cont2000.prg b/Programe/cont2000.prg new file mode 100644 index 0000000..9e36b6e --- /dev/null +++ b/Programe/cont2000.prg @@ -0,0 +1,963 @@ +PARAMETERS tparam + +&&& cont2003 + +PUBLIC gcNumeProgram, gcAntet +LOCAL lchost, lcUserName, lcPassword, lnIdUtil, lnIdProgram, lcUserNameApp,lcPasswordApp +STORE '' TO lchost, lcUserName, lcPassword, lcUserNameApp,lcPasswordApp,gcAntet +STORE 0 TO lnIdUtil, lnIdProgram +gcNumeProgram = [ROAGEST] +_Screen.Icon=gcNumeProgram+[.ICO] +*_screen.Icon = 'D:\CONTAFIN_ORACLE\COMUN\GRAFICE\ICONITE\GESTIUNI.ICO' + + +IF !LIKE(gcNumeProgram + '*', UPPER(ALLTRIM(JUSTSTEM(SYS(16,0))))) + Messagebox("Nu puteti porni acest program!",0+16,"Atentie") + RETURN +ENDIF + +SET CENTURY ON +SET DELETED ON +SET DATE TO DMY +SET MARK TO '/' +SET EXCLUSIVE OFF +SET CPDIALOG OFF +SET TALK OFF +SET SAFETY OFF +SET ESCAPE OFF +SET EXACT ON +SET ANSI ON +SET CONSOLE OFF +SET NOTIFY OFF +SET SECONDS OFF +SET HOURS TO 24 +*SET NULLDISPLAY TO '*' +SET NULLDISPLAY TO '' +SET DECIMALS TO 4 +SET POINT TO '.' + +*!* SET REPORTBEHAVIOR 90 && sa se seteze inainte de raport + + +_SCREEN.WINDOWSTATE=2 +_SCREEN.VISIBLE=.T. + + + + +*VARIABILE_______ +LOCAL lcMainClassLib +LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown + +*VARIABILE__________________________________________________________________________ +DECLARE nror[65000] +DECLARE RTVA[22,2] +err1=.F. + +PUBLIC CRLF +STORE CHR(13) + CHR(10) TO CRLF +PUBLIC pcNl,pcAn +STORE "" TO pcNl,pcAn && se initializeaza in start00 + +PUBLIC pcTitlu ,pl_verificat +STORE "" TO pcTitlu +STORE .F. TO pl_verificat + +PUBLIC BUTON, luna_inchisa, luna_neplatita, PRIMADATA, m.ctva, m.ctvam, m.ctvai, antet, m.nivel +PUBLIC OStart,OSETVIZ,OSETTULBAR,OSETINSTRUM,orm,OTEXT,OJUR,osetgest,tlbr_INSTR,tlbr_VIZ,oprinc,DIRGEN +PUBLIC pcapsocsub,pcapsocvar +pcapsocsub=0 +pcapsocvar=0 +m.nivel = 0 +PUBLIC a4 +a4=.T. +m.nrgrup=999 + +STORE .F. TO luna_inchisa,tlbr_INSTRum,tlbr_VIZ +STORE 1 TO BUTON,col_menu +STORE .T. TO PRIMADATA,luna_neplatita + +*-- Save and configure environment.*********************** + +lcLastSetTalk=SET("TALK") +SET TALK OFF +lcLastSetPath=SET("PATH") + +SET PATH TO ;DATE;INCLUDE;FERESTRE;GRAFICE;HELP;CLASE;MENIURI;PROGRAME;RAPOARTE;PROGS;LIBS; + PUSH MENU _MSYSMENU +lcLastSetClassLib=SET("CLASSLIB") +lcMainClassLib="clase\cont2000" + + + +*CLASE__________________________________________________________ +SET CLASSLIB TO (lcMainClassLib) ADDITIVE +SET CLASSLIB TO GESTIUNI ADDITIVE +SET CLASSLIB TO CAUT ADDITIVE +*SET CLASSLIB TO FERESTREBAZA ADDITIVE +*SET CLASSLIB TO CONT2000-1 ADDITIVE +*SET CLASSLIB TO CONT2000-2 ADDITIVE +*SET CLASSLIB TO CONT2000-3 ADDITIVE +SET CLASSLIB TO BAZA ADDITIVE +SET CLASSLIB TO comun ADDITIVE +*!* messagebox in romana - ar trebui bagat intr-o librarie de utilitati +*!* messagebox.vcx, functia amessagebox in oproceduri_comune, imagini mb_*.bmp, messagebox.h +SET CLASSLIB TO messagebox ADDITIVE +SET CLASSLIB TO registry ADDITIVE +SET CLASSLIB TO cauta_alfa_forms.vcx ADDITIVE + +&& CLASE ORACLE +SET CLASSLIB TO DECABAZA ADDITIVE +SET CLASSLIB TO onomenclatoare ADDITIVE +SET CLASSLIB TO stocuri.vcx ADDITIVE +SET CLASSLIB TO rulaje.vcx ADDITIVE +SET CLASSLIB TO ointroduceri ADDITIVE +SET CLASSLIB TO ointroduceri_web ADDITIVE +SET CLASSLIB TO ointroduceri_depozit ADDITIVE +SET CLASSLIB TO overificari ADDITIVE +SET CLASSLIB TO ferestre_oracle ADDITIVE +SET CLASSLIB TO ferestre_cere_date.vcx ADDITIVE +SET CLASSLIB TO configurare.vcx ADDITIVE +SET CLASSLIB TO serii_numere.vcx ADDITIVE +SET CLASSLIB TO omodificari.vcx ADDITIVE +SET CLASSLIB TO ocompensari.vcx ADDITIVE +SET CLASSLIB TO caut_ora ADDITIVE +SET CLASSLIB TO onote_contabile ADDITIVE +SET CLASSLIB TO otoolbar ADDITIVE +SET CLASSLIB TO bon_fisc ADDITIVE &&serii bonuri fiscale +SET CLASSLIB TO onom_articole ADDITIVE +SET CLASSLIB TO onom_retete ADDITIVE +Set Classlib To oinventar ADDITIVE + +SET CLASSLIB TO orapoarte ADDITIVE +SET CLASSLIB TO orapoarte_gestiuni ADDITIVE +SET CLASSLIB TO orapoarte_parametri ADDITIVE +SET CLASSLIB TO ONOM_CURS ADDITIVE + +SET CLASSLIB TO ctl32_statusbar_fals.vcx additive +SET CLASSLIB TO ctl32_common.vcx additive +SET CLASSLIB TO ctl32_structs.vcx additive +SET CLASSLIB TO ctl32_progressbar.vcx additive +SET CLASSLIB TO ctl32_balloontip.vcx additive +SET CLASSLIB TO ocriterii.vcx ADDITIVE +SET CLASSLIB TO oavize.vcx ADDITIVE + +*!* v 2.0.62 +Set Classlib To oschimbare_pret.vcx additive +&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + +*PROCEDURI______________________________________________________ +SET PROCEDURE TO PROCEDURI +SET PROCEDURE TO acces_meniu additive +SET PROCEDURE TO cauta_alfa additive +*SET PROCEDURE TO totPROC ADDITIVE +*SET PROCEDURE TO refverif ADDITIVE +*SET PROCEDURE TO PROCMENIU ADDITIVE +*SET PROCEDURE TO TOTV ADDITIVE +SET PROCEDURE TO pmenu ADDITIVE +SET PROCEDURE TO proceduri_comune ADDITIVE +*SET PROCEDURE TO totv.prg ADDITIVE +SET PROCEDURE TO quitapp ADDITIVE +SET PROCEDURE TO init_program ADDITIVE +SET PROCEDURE TO oproceduri_listari.prg ADDITIVE +SET PROCEDURE TO oproceduri_configurare.prg ADDITIVE +SET PROCEDURE TO oproceduri_articole.prg ADDITIVE +SET PROCEDURE TO oproceduri_retete.prg ADDITIVE +SET PROCEDURE TO orapoarte.prg ADDITIVE +SET PROCEDURE TO mesaje ADDITIVE +SET PROCEDURE TO oserii_numere.prg ADDITIVE +SET PROCEDURE TO oexport.prg ADDITIVE +SET PROCEDURE TO wwConfig.prg ADDITIVE +SET PROCEDURE TO proceduri_rapoarte.prg additive +SET PROCEDURE TO OPROCEDURI_CURS.PRG ADDITIVE +Set procedure to orapoarte_dinamice.prg additive + +&& PROCEDURI ORACLE +SET PROCEDURE TO GENCURSOR.PRG ADDITIVE +SET PROCEDURE TO OPROCEDURI_COMUNE.PRG ADDITIVE +SET PROCEDURE TO OINIT_OPTIUNI.PRG ADDITIVE +SET PROCEDURE TO updateserver.prg ADDITIVE +SET PROCEDURE TO oinainte_de.prg ADDITIVE +SET PROCEDURE TO ooperatii_comune.prg ADDITIVE + +SET PROCEDURE TO Ocompensari.PRG ADDITIVE +SET PROCEDURE TO OPROCEDURI_aMS.PRG ADDITIVE +SET PROCEDURE TO oproceduri_rulaje additive +SET PROCEDURE TO oproceduri_stocuri additive +SET PROCEDURE TO OINTRODUCERI ADDITIVE +SET PROCEDURE TO oHeader.prg ADDITIVE +SET PROCEDURE TO proceduri_excel.PRG ADDITIVE +SET PROCEDURE TO onomenclatoare.PRG ADDITIVE +*!* SET PROCEDURE TO orapoarte.prg ADDITIVE +*!* SET PROCEDURE TO orap_trezorerie ADDITIVE +*!* SET PROCEDURE TO omeniu_initializari ADDITIVE +SET PROCEDURE TO osecurity ADDITIVE +SET PROCEDURE TO ocautare ADDITIVE +SET PROCEDURE TO orefaceri ADDITIVE +SET PROCEDURE TO ofacturare_comun.PRG ADDITIVE +SET PROCEDURE TO ofacturare_stoc.PRG ADDITIVE + +&& modificare 06.03 +&& casa de marcat +SET PROCEDURE TO oproceduri_casademarcat ADDITIVE +SET PROCEDURE TO oproceduri_casa_marcat_e500 ADDITIVE + +&& sfarsit modificare 06.03 +SET PROCEDURE TO oproceduri_casa_marcat_mp500 ADDITIVE +*!* 12.05.2006 +*!* marius mutu +SET PROCEDURE TO oproceduri_util.prg ADDITIVE +*!* + +*!* 16.06.2006 +*!* marius.mutu +SET PROCEDURE TO wwxmlhttp.prg ADDITIVE +SET PROCEDURE TO ini.prg ADDITIVE + +*!* 25.08.2006 +*!* marius.mutu +SET PROCEDURE TO odocumente.prg ADDITIVE + +*!* 28.05.2007 +*!* marius.mutu +SET PROCEDURE TO regex.prg ADDITIVE +SET PROCEDURE TO wwutils.prg ADDITIVE +SET PROCEDURE TO inchidere_k ADDITIVE + +*!* v 2.0.62 +Set procedure to oschimbare_pret.prg additive +&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + +IF PCOUNT() = 1 AND TYPE('tparam') = 'C' + glParametri = .T. + PRIVATE laParametri + DECLARE LAPARAMETRI[1] + lcParam = ALLTRIM(tParam) + lnNr = lista2array(lcParam,@laParametri,";") + IF lnNr < 5 + aMESSAGEBOX('Numar incorect de parametri',0+16,'Eroare') + RETURN + ENDIF + lcHost = laParametri[1] + lcUserName = laParametri[2] + lcPassword = laParametri[3] + lnIdUtil = ROUND(VAL(laParametri[4]),0) + lnIdProgram = ROUND(VAL(laParametri[5]),0) +ELSE + glParametri = .F. + lcHost = 'JCSSERVER' + lcUserName = 'CONTAFIN_ORACLE' + lcPassword = '' + lnIdUtil = 0 + lnIdProgram = 0 + +ENDIF + +PUBLIC glVerificTabel && daca se verifica structura tabelelor in totv.prg +glVerificTabel=.T. + +PUBLIC glQuit +glQuit = .F. + +PUBLIC gnIdIstoric +gnIdIstoric = 0 + + +PUBLIC gcAppPath,gcAppName, gcTempPath, gcCaleServerDate, gcUserNameApp, gcPasswordApp +STORE '' TO gcUserNameApp, gcPasswordApp, gnNivelUtilizator, gnGrupUtilizator, gcAcces +PUBLIC gcSchemaPath +STORE '' TO gcSchemaPath +*!* 10.09.2007 +*!* marius.mutu +*!* folosesc shortpath ca sa pot instala in "c:\program files\..." +*!* gcAppPath = UPPER(ADDBS(JUSTPATH(SYS(16,0)))) && d:\contafin\cont2003\ +gcAppPath = ADDBS(ShortPath(GetAppStartPath())) && wwutils.prg +gcAppName = ALLT(UPPE(JUSTSTEM(SYS(16,0)))) && "cont2003" +Set Path To Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] Additive && modificare v 2.0.80 + +gcAppPath = STRTRAN(gcAppPath, "\PROGRAME", "") + +gcUtilizatoriPath = gcAppPath + "UTILIZATORI\" + +_reportpreview = gcAppPath + "reportpreview.app" + +STORE "" TO gcTempPath, gcCaleServerDate + + + + + +*** DIRGEN +liat=RAT("\",gcAppPath,2) +DIRGEN=ADDBS(LEFT(gcAppPath,liat-1)) + +gcSecurityPath = DIRGEN + 'Security\' +gcSecurityFile = gcSecurityPath + 'ROA_SECURITY.TXT' + +CD &DIRGEN + +PRIVATE gcGeneralIniFile +gcGeneralIniFile = DIRGEN + "settings.ini" +IF !FILE(gcGeneralIniFile) + + TEXT TO lcSettings NOSHOW +[errors] +host= + ENDTEXT + + STRTOFILE(lcSettings, gcGeneralIniFile) +ENDIF + + +PRIVATE poLog,goLog && obiect pt logarea mesajelor sistemului +poLog = NEWOBJECT("Log_Mesaje","Log_Mesaje.prg") +goLog = poLog +*!* Locale +Set Classlib To locale Additive +Private gcLocalePath, goLocale, gcLocale +gcLocalePath = gcAppPath + "Locale\" +*!* lcLocaleDb = gcLocalePath + "locale.dbc" +*!* Open Database (m.lcLocaleDb) +*!* modificare ROAGEST v 2.0.107 +*!* goLocale=Newobject("Locale","Locale.vcx") +lcLanguage = getini(gcGeneralIniFile,"locale","lang") +llLocale= getini(gcGeneralIniFile,"locale","llocale") +*!* IF !EMPTY(m.llLocale) AND m.llLocale<>'0' +*!* goLocale.llocale=.T. +*!* ENDIF +*!* modificare ROAGEST v 2.0.107 ^ +If Empty(m.lcLanguage) + gcLocale = 'Romana' +Else + gcLocale = m.lcLanguage +Endif +*!* modificare ROAGEST v 2.0.107 +Local lcObjLocale +If gcLocale = 'Romana' + lcObjLocale = [Locale_dummy] +Else + lcObjLocale = [Locale] +Endif +goLocale=Newobject(lcObjLocale,"Locale.vcx") +If !Empty(m.llLocale) And m.llLocale<>'0' + goLocale.llocale=.T. +Endif +Release lcObjLocale +*!* modificare ROAGEST v 2.0.107 ^ +goLocale.locale = gcLocale +*!* Locale ^ + +IF verificari() + _SCREEN.VISIBLE=.T. + DO mesaj WITH "Se fac verificari programului","Va rugam reveniti" + glQuit= .T. + QUIT +ENDIF + +*!* IF !Debug_Start() +*!* lcParam=tparam +*!* WAIT WINDOW 'lcParam ' +lcParam +*!* IF EMPTY(tparam) OR (TYPE('tParam')='C' AND !verific_start(tparam,dirgen,gcAppName)) +*!* _SCREEN.VISIBLE=.T. +*!* DO mesaj WITH "Programul trebuie pornit doar din START","" +*!* QUIT +*!* ENDIF +*!* ENDIF + + + + + +PUBLIC tipar,SER_PERM,SER_PERI,VERSIUNE +STORE .F. TO SER_PERM,SER_PERI + + +***************************** VARIABILE ORACLE +PRIVATE goUtilizator +private gnHandle,gnidutil,GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA,GNDIFZILE, gcUserNameApp, gcPasswordApp +PRIVATE gnButon && variabila pentru renunt si terminat +STORE 2 TO gnButon +STORE '' TO GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA, gcUserNameApp, gcPasswordApp, gcNivelUtilizator, gcGrupUtilizator, gcAcces +gnHandle = -1 +gnidutil = 0 + +PRIVATE gcHost, gcUserName, gcPassword,gofundal, gnIdProgram, gnId_Prg_Owner +gnIdProgram = 0 +gnId_Prg_Owner = 0 +gofundal='' + +PRIVATE goFirma,gnIdFirma,gcFirma,gnAn,gnLuna && ,gnPA,gnPC +&& STORE 0 TO gnPA,gnPC && nr. de zecimale afisare, calcul +STORE null TO gofirma +STORE 0 TO gnIdFirma,gnAn,gnLuna +STORE '' TO gcFirma + +PRIVATE glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +STORE .F. to glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +***toolbar*** +PRIVATE otool,ohelp +STORE '' TO otool,ohelp +***toolbar*** + +PRIVATE gcS && schema firmei +STORE 'CONTAFIN' TO gcS + +IF TYPE('laparametri',1)="A" + IF ALEN(laParametri,1)=10 + gnAn = VAL(laParametri[7]) + gnLuna = VAL(laParametri[8]) &&lansare noua + gcS = laParametri[9] + gnIdFirma = VAL(laParametri[10]) + ENDIF +ENDIF + +PRIVATE gcCopyRight +gcCopyRight = '© ROA Romfast SRL' + +&& modificare 06.03 +&& casa de marcat +PRIVATE glListareBonFiscal +STORE .F. TO glListareBonFiscal +&& sfarsit modificare 06.03 + +&& obiect global wrap pt sqlexec cu text eroare si succes +PRIVATE goExecutor,goConn,goExport +goExecutor = CREATEOBJECT("oExecutor") +goConn = CREATEOBJECT("oConn") +goExport = Createobject("oExportConfig") + +PRIVATE goMyXMLHTTP +lcHostErrors = getini(gcGeneralIniFile,'errors','host') +goMyXMLHTTP = CREATEOBJECT("MyXMLHTTP", lcHostErrors) + +&& obiect global pt luna aleasa din calendar +PRIVATE goCalendar +STORE null TO goCalendar + + +gcHost = lcHost +gcUserName = lcUserName +gcPassword = lcPassword +gcUserNameApp = lcUserNameApp +gcPasswordApp = lcPasswordApp +gnIdUtil = lnIdUtil +gnIdProgram = lnIdProgram + + +IF !glParametri + lnValid = getcrsSecurity(gcSecurityFile) + IF lnValid > 0 + IF USED('crsHost') + SELECT crsHost + GO top + gcHost = ALLTRIM(host) + gcUserName = ALLTRIM(schema) + gcPassword = ALLTRIM(pwd) + USE IN crsHost + ENDIF + ENDIF +ENDIF +***************************** VARIABILE ORACLE + +&& DECLARARE VARIABILE GLOBALE SPECIFICE APLICATIEI CARE NU SE AFLA IN OPTIUNI_FIRMA +&& (SE AFLA IN DIRECTORUL PROIECTULUI, NU IN COMUN) +*DO OVARIABILE_GLOBALE.PRG + + +USE &gcAppPath\SERCONT IN 0 ALIAS SER SHARED +SELECT SER +GO TOP +tipar=TIP +SER_PERM=SER_PERMAN +SER_PERI=SER_PERIOD +VERSIUNE=VERcont +MODEL_PROGRAM=MODEL +USE IN SER +parolamea=SUBSTR(tipar,MONTH(DATE()),1) +parolamea=parolamea+ALLT(STR(DAY(DATE())))+ALLT(STR(MONTH(DATE()))) + +IF !_DEBUG() + IF SER_PERM AND !verif_ser_perm() + QUIT + ENDIF +ENDIF + +PUBLIC NUMEPROGRAM,MENIUPROGRAM,FUNDALPROGRAM + + + + +m.contab = 'GESIUNI' +NUMEPROGRAM = 'ROA - Gestiuni' +MENIUPROGRAM = gcAppPath + "meniuri\contGEST.mpr" +FUNDALPROGRAM = gcAppPath + "FERESTRE\FUNDAL.scx" +_program='gest' + +*-- Configure application object.***************************** + +Local laVersion +Dimension laVersion(12) +If Agetfileversion(laVersion, Sys(16,0)) > 0 + NUMEPROGRAM = laVersion(10) +Endif +Release laVersion + + +lcOnShutdown="ShutDown()" +ON SHUTDOWN &lcOnShutdown +ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) +_SHELL="DO Cleanup IN progs\cont2003" + +*-- Instantiate application object.*************************** +RELEASE goApp +PUBLIC goApp +goApp=CREATEOBJECT("cApplication") + +goApp.SetCaption(NUMEPROGRAM) +goApp.cStartupMenu=MENIUPROGRAM +*goApp.cStartupForm=FUNDALPROGRAM +goApp.cStartupForm = DIRGEN + "COMUN\ferestre\frm_login.scx" + +*-- Show application. +goApp.SHOW + + + +*-- Release application. +RELEASE goApp + +*-- Restore default menu. +POP MENU _MSYSMENU + +*-- Restore environment. +ON ERROR +ON SHUTDOWN +IF NOT lcLastSetClassLib==SET("classlib") + RELEASE CLASSLIB (lcMainClassLib) +ENDIF +IF EMPTY(lcLastSetPath) + SET PATH TO +ELSE + SET PATH TO &lcLastSetPath +ENDIF +IF lcLastSetTalk=="ON" + SET TALK ON +ELSE + SET TALK OFF +ENDIF + +RETURN + + + + +* FUNCTII______________________________________________________________________ +FUNCTION ErrorHandler(nError,cMethod,nLine) + LOCAL lcErrorMsg,lcCodeLineMsg + + WAIT CLEAR + lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) + lcErrorMsg=lcErrorMsg+"Method: "+cMethod + lcCodeLineMsg=MESSAGE(1) + IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." + lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) + IF NOT EMPTY(lcCodeLineMsg) + lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg + ENDIF + ENDIF + + IF TYPE('goMyXMLHTTP') = 'O' + lcLunaHTTP = IIF(TYPE('gnLuna') = 'N', TRANSFORM(gnLuna) + "/","") + IIF(TYPE('GNAN') = 'N', TRANSFORM(gnAn),"") + lcErrorMsgHTTP = SYS(0) + ":" + IIF(TYPE('GCS')='C'," " + GCS,"") + ": " + lcLunaHTTP + CHR(13) +CHR(10) + lcErrorMsg + ; + CHR(13) +CHR(10) + CHR(13) + CHR(10) + GETCALLSTACK() + lcUserName = gcUserNameApp + lcProgram = JUSTSTEM(SYS(16,0)) + goMyXMLHTTP.postError(lcErrorMsgHTTP, lcUserName, lcProgram) + ENDIF + + IF _vfp.StartMode = 0 + DEBUG + SUSPEND + ENDIF + IF AMESSAGEBOX(lcErrorMsg,17,_SCREEN.CAPTION)#1 + ON ERROR + RETURN .F. + ENDIF +ENDFUNC + + + +FUNCTION SHUTDOWN + IF start_nou() + =End_Istoric(gnIdIstoric, ADDBS(DIRGEN)+"DATERETEA\", "START_ISTORIC") + ENDIF + IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) + RETURN goApp.OnShutDown() + ENDIF + Cleanup() + QUIT +ENDFUNC + + +FUNCTION Cleanup + + IF CNTBAR("_msysmenu")=7 + RETURN + ENDIF + ON ERROR + ON SHUTDOWN + SET CLASSLIB TO + SET PATH TO + CLEAR ALL + CLOSE ALL + POP MENU _MSYSMENU + RETURN + + + + + +*----------------------------------------------------- + +FUNCTION verif_ser_perm + CLEAR + + RETURN PORNIRE() +******** +*?pornire() + +FUNCTION PORNIRE + SET EXACT ON + PRIVATE calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp,ser1,ser2,key1,KEY2 + STORE '' TO calewin,serinreg,serdisk,calesys,serdisktemp,catehd,ser1,ser2,key1,KEY2 + STORE 0 TO checksum1,checksum2 + STORE .T. TO valret + DECLARE INTEGER SHGetFolderPath IN SHFOLDER.DLL ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + DECLARE INTEGER GetActiveWindow IN WIN32API + #DEFINE CSIDL_WINDOWS 36 + #DEFINE CSIDL_SYSTEM 37 + #DEFINE CSIDL_PROGRAMS 38 + lcPath = REPL(CHR(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + calewin=LEFT(lcPath,AT(CHR(0),lcPath)-1) + lcPath = REPL(CHR(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath) + calesys=LEFT(lcPath,AT(CHR(0),lcPath)-1) +&&se verifica existenta celor trei fisiere + IF (NOT FILE(calesys+'\diskserial.dll')) OR (NOT FILE(calesys+'\getmacip.dll')) OR (NOT FILE(calewin+'\comdir.snr')) + valret=.F. + ENDIF + IF valret + file1=FILETOSTR(calesys+'\diskserial.dll') + checksum1=SYS(2007,file1) + file2=FILETOSTR(calesys+'\getmacip.dll') + checksum2=SYS(2007,file2) +&&severifica daca dll-urile nu au fost modificate + IF (VAL(checksum1) != 58755) OR (VAL(checksum2) != 30476) + valret=.F. + ENDIF + ENDIF +&&se citesc seriile tutturor celor patru hard disk-uri posibile(pe IDE primary master,primary slave...) +&&se tine minte primul cu seria nenula-daca nu s-a putut citi seria de la nici unul se pune o serie default +&&seria default este "NUAREHAR" + IF valret + DECLARE INTEGER GetSerialNumber IN diskSerial.DLL INTEGER ,STRING + catehd=0 + FOR i=0 TO 3 + serdisktemp=SPACE(40) + GetSerialNumber(i,@serdisktemp) + IF (LEN(ALLTRIM(serdisktemp))!=0) AND (catehd=0) + serdisktemp=sircaracter(serdisktemp) + serdisk=serdisktemp + catehd=catehd+1 + ENDIF + ENDFOR + IF (LEN(ALLTRIM(serdisk))=0) + serdisk='NUAREHAR' + ELSE + IF ((LEN(ALLTRIM(serdisk))>0) AND (LEN(ALLTRIM(serdisk))<8)) + serdisk=serdisk+REPLICATE('1',8-LEN(ALLTRIM(serdisk))) + ENDIF + ENDIF + serdisk=SUBSTR(ALLTRIM(serdisk),LEN(ALLTRIM(serdisk))-7,8) + ENDIF +&&se citeste din comdir.snr seria de inregistrare si se verifica egalitatea cu seria obtinuta anterior + IF valret + gnFileHandle = FOPEN(calewin+'\comdir.snr') + nSize = FSEEK(gnFileHandle, 0, 2) && Move pointer to EOF + IF nSize!=9 + valret=.F. + ELSE + = FSEEK(gnFileHandle, 0, 0) && Move pointer to BOF + cString = FREAD(gnFileHandle,9) + ser1=SUBSTR(cString,1,4) + ser2=SUBSTR(cString,5,4) + key1=SUBSTR(cString,9,1) + KEY2=DECTOBIN(ALLTRIM(HEXDEC(key1))) + serinreg=decodare1(ALLTRIM(UPPER(ser1)),KEY2)+decodare1(ALLTRIM(UPPER(ser2)),KEY2) + IF serdisk!=serinreg + valret=.F. + ENDIF + ENDIF + = FCLOSE(gnFileHandle) + ENDIF + seriedisk1=serdisk + serieinreg1=serinreg + ON ERROR valret=.F. + RETURN valret +************* +FUNCTION decodare1 + PARAMETERS lstring,CHEIE + LOCAL lens,poz1,poz2,POZ3,lret,LRET2,lcstring,val1,lret1 + lret='' + lret1='' + LRET2='' + lcstring=ALLTRIM(UPPER(lstring)) + lens=LEN(lcstring) + FOR i=1 TO 4 + poz1=SUBSTR(lcstring,i,1) + val1=ASC(poz1) + POZ3=SUBSTR(CHEIE,i,1) + DO CASE + CASE val1>=48 AND val1<=57 + IF ((val1-47)+INT(VAL(POZ3)))<=10 + poz2=CHR(val1+INT(VAL(POZ3))) + ELSE + poz2=CHR(val1+INT(VAL(POZ3))-10) + ENDIF + CASE val1>=65 AND val1<=90 + IF ((val1-64)+2*INT(VAL(POZ3)))<=26 + poz2=CHR(val1+2*INT(VAL(POZ3))) + ELSE + poz2=CHR(val1+2*INT(VAL(POZ3))-26) + ENDIF + ENDCASE + LRET2=LRET2+poz2 + ENDFOR + FOR i=1 TO lens + poz1=SUBSTR(LRET2,i,1) + val1=ASC(poz1) + DO CASE + CASE val1>=48 AND val1<=57 + IF ((val1-47)+i)<=10 + poz2=CHR(val1+i) + ELSE + poz2=CHR(val1+i-10) + ENDIF + CASE val1>=65 AND val1<=90 + IF ((val1-64)+2*i)<=26 + poz2=CHR(val1+2*i) + ELSE + poz2=CHR(val1+2*i-26) + ENDIF + ENDCASE + lret=lret+poz2 + ENDFOR + lens=LEN(lret) + FOR i=1 TO lens + poz1=SUBSTR(lret,i,1) + val1=ASC(poz1) + DO CASE + CASE val1>=48 AND val1<=57 + poz2=CHR(val1+17)&& din 0-9 in A-J + CASE val1>=65 AND val1<=74 + poz2=CHR(val1-17)&& din A-J in 0-9 + CASE val1>=75 AND val1<=82 + poz2=CHR(val1+8)&&din K-R in S-Z + CASE val1>=83 AND val1<=90 + poz2=CHR(val1-8)&&din S-Z in K-R + ENDCASE + lret1=lret1+poz2 + ENDFOR + RETURN lret1 +*********** +&&transformarea in decimal a unui caracter hexa +FUNCTION HEXDEC + LPARAMETERS LC + LOCAL LV + DO CASE + CASE LC=='0' + LV='0' + CASE LC=='1' + LV='1' + CASE LC=='2' + LV='2' + CASE LC=='3' + LV='3' + CASE LC=='4' + LV='4' + CASE LC=='5' + LV='5' + CASE LC=='6' + LV='6' + CASE LC=='7' + LV='7' + CASE LC=='8' + LV='8' + CASE LC=='9' + LV='9' + CASE LC=='A' + LV='10' + CASE LC=='B' + LV='11' + CASE LC=='C' + LV='12' + CASE LC=='D' + LV='13' + CASE LC=='E' + LV='14' + CASE LC=='F' + LV='15' + ENDCASE + RETURN LV +**************** +&&codarea binara din hexa pe patru biti +FUNCTION DECTOBIN + PARAMETERS sc + LOCAL lretf + DO CASE + CASE sc=='0' + lretf='0000' + CASE sc=='1' + lretf='0001' + CASE sc=='2' + lretf='0010' + CASE sc=='3' + lretf='0011' + CASE sc=='4' + lretf='0100' + CASE sc=='5' + lretf='0101' + CASE sc=='6' + lretf='0110' + CASE sc=='7' + lretf='0111' + CASE sc=='8' + lretf='1000' + CASE sc=='9' + lretf='1001' + CASE sc=='10' + lretf='1010' + CASE sc=='11' + lretf='1011' + CASE sc=='12' + lretf='1100' + CASE sc=='13' + lretf='1101' + CASE sc=='14' + lretf='1110' + CASE sc=='15' + lretf='1111' + ENDCASE + RETURN lretf +*********** +FUNCTION ECARACTER + PARAMETERS strg1 + PRIVATE pz,ch,lcstring,vret,lg1 + STORE 0 TO pz,lg1 + STORE '' TO ch,lcstring + STORE .T. TO vret + lcstring=UPPER(strg1) + lg1=LEN(lcstring) + FOR ind1=1 TO lg1 + ch=SUBSTR(lcstring,ind1,1) + IF (NOT BETWEEN(ASC(ch),48,57)) AND (NOT BETWEEN(ASC(ch),65,90)) + vret=.F. + EXIT + ENDIF + ENDFOR + RETURN vret +************ +FUNCTION sircaracter + PARAMETERS strg1 + PRIVATE pz,ch,lcstring,vret,lg1,lciesire + STORE 0 TO pz,lg1 + STORE '' TO ch,lcstring,lciesire + STORE .T. TO vret + strg1=STRTRAN(strg1,ALLTRIM(CHR(39)),'')&&caracterul ' + strg1=STRTRAN(strg1,ALLTRIM(CHR(39)),'')&&caracterul " + lcstring=UPPER(ALLTRIM(strg1)) + lg1=LEN(lcstring) + FOR ind1=1 TO lg1 + ch=SUBSTR(lcstring,ind1,1) + IF BETWEEN(ASC(ch),48,57) OR BETWEEN(ASC(ch),65,90) + lciesire=lciesire+ch + ENDIF + ENDFOR + RETURN lciesire + + + +***------------------------------------- +PROCEDURE _DEBUG + + RETURN .T. + + PRIVATE lcret,lcfisier,lcPath,lccalewin + DECLARE INTEGER SHGetFolderPath IN SHFOLDER.DLL ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + DECLARE INTEGER GetActiveWindow IN WIN32API + #DEFINE CSIDL_WINDOWS 36 + + + lcPath = REPL(CHR(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + lccalewin=LEFT(lcPath,AT(CHR(0),lcPath)-1) + + lcret=.F. + lcfisier=ADDBS(lccalewin)+[DEBUG.TXT] + + IF FILE(lcfisier) + LCVAL=FILETOSTR(lcfisier) + + LNVAL1=MOD(VAL(RIGHT(LCVAL,1)),2) && restul 1 sau 0; daca e impar e 1 + lnval2=VAL(LEFT(LCVAL,LEN(LCVAL)-1)) + IF LNVAL1=1 OR YEAR(DATE())-MONTH(DATE())=lnval2 + lcret=.T. + ENDIF + ENDIF + RETURN lcret + +ENDPROC + + +FUNCTION Start_Nou + + RETURN Exista_Branch(,,dirgen) + +ENDFUNC && start_nou + +PROCEDURE Debug_Start + + lcFile = gcAppPath + "debug.txt" + + IF FILE(lcFile) &&OR !Start_Nou() + RETURN .T. + ENDIF + RETURN .F. + +ENDPROC && Debug_Start +************************************************************************ +PROCEDURE verificari +PARAMETERS tcFisierVerif + +lcverificari = ADDBS(gcAppPath)+gcAppName+".txt" + + +IF FILE(lcverificari) + RETURN .T. +ENDIF +RETURN .F. + +ENDPROC && verificari \ No newline at end of file diff --git a/Programe/cumplun-furn.prg b/Programe/cumplun-furn.prg new file mode 100644 index 0000000..03dad80 --- /dev/null +++ b/Programe/cumplun-furn.prg @@ -0,0 +1,26 @@ +set deleted on +sele cumplun +*dele all +set order to tag nume +sele furnizor +DELE ALL +set order to tag nume + + + + +SELE DISTINCT ALLT(NUME) AS NUME,COD_FISCAL FROM CUMPLUN INTO CURSOR TT +SELE FURNIZOR +APPE FROM DBF('TT') +USE IN TT + +sele furnizor +scan + scat memv + sele cumplun + sum achitat to m.platit for ALLT(nume)=ALLT(m.nume) + sum totctva to m.achizit for ALLT(nume)=ALLT(m.nume) + sele furnizor + gath memv +endscan + diff --git a/Programe/exportare.prg b/Programe/exportare.prg new file mode 100644 index 0000000..a6f178d --- /dev/null +++ b/Programe/exportare.prg @@ -0,0 +1,127 @@ +LPARAMETERS tabel, initial, final +LOCAL nrc, i, c +STORE 0 TO nrc, i +STORE '' TO c + +A='C:\MY DOCUMENTS' +B='C:\DOCUMENTS AND SETTINGS' +DO CASE +CASE DIRECTORY('&A') + SET DEFAULT TO '&A' +CASE DIRECTORY('&B') + SET DEFAULT TO '&B' +OTHERWISE + MD &A + SET DEFAULT TO '&A' +ENDCASE + + +exista_excel=.F. + +initial = ','+initial+',' &&Pentru a recunoste coloanele' +final = ','+final+',' &&---||--- + +nrc = OCCURS(',', '&initial') +nrc=nrc-1 && scade vircula din fata + +LOCAL ARRAY c_initial(nrc) +LOCAL ARRAY c_final(nrc) + +FOR i = 1 TO nrc + n = AT(',', '&initial', i) + n2 =AT(',', '&initial', i+1) + c_Initial[i] = SUBSTR('&initial', n+1, n2-n-1) + *MESSAGEBOX(c_initial[i]) + n = AT(',', '&final', i) + n2 =AT(',', '&final', i+1) + c_final[i] = SUBSTR('&final', n+1, n2-n-1) + *MESSAGEBOX(c_final[i]) +ENDFOR + +FOR i=1 TO nrc + IF i=nrc + c=c+c_initial[i]+' as '+c_final[i] + ELSE + c=c+c_initial[i]+' as '+c_final[i]+',' + ENDIF +ENDFOR + +calea_fis = PUTFILE('Nume fisier:', 'Foaie_Excel', 'XLS') +IF EMPTY(calea_fis) && Esc pressed + RETURN +ENDIF + +SELECT &c FROM &tabel INTO CURSOR cur +SELECT cur +EXPORT TO (calea_fis) TYPE XL5 + +SET DEFAULT TO &DIRGEN +RETURN + + + + +PROCEDURE EXPORTARE2 +LPARAMETERS tabel +*, initial, final +LOCAL nrc, i, c +STORE 0 TO nrc, i +STORE '' TO c + +A='C:\MY DOCUMENTS' +B='C:\DOCUMENTS AND SETTINGS' +DO CASE +CASE DIRECTORY('&A') + SET DEFAULT TO '&A' +CASE DIRECTORY('&B') + SET DEFAULT TO '&B' +OTHERWISE + MD &A + SET DEFAULT TO '&A' +ENDCASE + + +*!* exista_excel=.F. + +*!* initial = ','+initial+',' &&Pentru a recunoste coloanele' +*!* final = ','+final+',' &&---||--- + +*!* nrc = OCCURS(',', '&initial') +*!* nrc=nrc-1 && scade vircula din fata + +*!* LOCAL ARRAY c_initial(nrc) +*!* LOCAL ARRAY c_final(nrc) +*!* +*!* FOR i = 1 TO nrc +*!* n = AT(',', '&initial', i) +*!* n2 =AT(',', '&initial', i+1) +*!* c_Initial[i] = SUBSTR('&initial', n+1, n2-n-1) +*!* *MESSAGEBOX(c_initial[i]) +*!* n = AT(',', '&final', i) +*!* n2 =AT(',', '&final', i+1) +*!* c_final[i] = SUBSTR('&final', n+1, n2-n-1) +*!* *MESSAGEBOX(c_final[i]) +*!* ENDFOR +*!* +*!* FOR i=1 TO nrc +*!* IF i=nrc +*!* c=c+c_initial[i]+' as '+c_final[i] +*!* ELSE +*!* c=c+c_initial[i]+' as '+c_final[i]+',' +*!* ENDIF +*!* ENDFOR +*!* +calea_fis = PUTFILE('Nume fisier:', 'Foaie_Excel', 'XLS') +IF EMPTY(calea_fis) && Esc pressed + RETURN +ENDIF +*!* +*!* SELECT &c FROM &tabel INTO CURSOR cur +SELECT &tabel +EXPORT TO (calea_fis) TYPE XL5 + +SET DEFAULT TO &DIRGEN +RETURN + + + diff --git a/Programe/fisa_ob_inventar.prg b/Programe/fisa_ob_inventar.prg new file mode 100644 index 0000000..855fe52 --- /dev/null +++ b/Programe/fisa_ob_inventar.prg @@ -0,0 +1,106 @@ +PROCEDURE fisa_ob_inventar +&& tlToate - se genereaza raportul pt. toate obiectele de inventar + + SET SAFETY OFF + + PRIVATE pcTitlu, pcPerioada, pcDataOra && pt. raport + + PRIVATE pcli, pcai, pclf, pcaf && pt. forma de alegere perioada + STORE m.nl TO pcli, pclf + STORE m.an TO pcai, pcaf + + LOCAL lnnrlunii, lnnrlunif, lcprimaluna, lcprimulan, lcultimaluna, lcultimulan + STORE 0 TO lnnrlunii, lnnrlunif + STORE "" TO lcprimaluna, lcprimulan, lcultimaluna, lcultimulan + + podif=CREATEOBJECT("frm_datai_dataf") + podif.SHOW(1) + IF buton = 2 + RETURN + ENDIF + + lnnrlunii = VAL(pcai)*12+VAL(pcli) + lnnrlunif = VAL(pcaf)*12+VAL(pclf) + SELECT nl, an FROM calendar ; + WHERE BETWEEN(VAL(an)*12+VAL(nl),lnnrlunii,lnnrlunif) ; + INTO CURSOR cCalendar + + SELECT cCalendar + IF _TALLY=0 + DO mesaj WITH "Nu exista nici o luna deschisa in perioada",pcli + ' ' + pcai + ' - ' + pclf + ' ' + pcaf + RETURN + ENDIF + + SELECT cCalendar + GO TOP + lcprimaluna = nl + lcprimulan = an + GO BOTTOM + lcultimaluna = nl + lcultimulan = an + + pcperioada = "Perioada de referinta " + "01/" + lcprimaluna + "/" + lcprimulan + " - " + DTOC(ultimazi(lcultimulan,lcultimaluna)) + + od=CREATEOBJECT('frm_toate') + od.label1.CAPTION='Sa se genereze situatia pentru:' + od.cmdrenunt1.CAPTION='\0 AND gest=m.gest; +*!* INTO TABLE &loc\&nfscurt\tempo\cfifo ORDER BY datain + +*!* SELECT CFIFO +*!* REPLACE ALL cante WITH 0,dataout WITH {} +*!* CALCULATE MIN(datain) TO mindata +*!* IF tdata>mindata +*!* DO mesaj WITH 'ATENTIE !','Nu se respecta metoda FIFO !' +*!* MARCA=.T. +*!* RETURN +*!* ENDIF +*!* +*!* SELECT fifo +*!* APPEND FROM &loc\&nfscurt\tempo\cfifo +*!* LOCATE FOR UPPER(ALLTRIM(denumire))=tmat AND UPPER(ALLTRIM(codmat))=tcod AND pret=tpret +*!* REPLACE dataout WITH DATE()&&,cante WITH tcant +*!* *!* IF cant-cante>0 +*!* *!* REPLACE incomplet WITH .t. +*!* *!* ENDIF +*!* ELSE +*!* SELECT fifo +*!* CALCULATE MIN(datain) TO mindata FOR UPPER(ALLTRIM(denumire))=tmat AND UPPER(ALLTRIM(codmat))=tcod AND (EMPTY(dataout) OR incomplet) +*!* GO TOP +*!* LOCATE FOR UPPER(ALLTRIM(denumire))=tmat AND UPPER(ALLTRIM(codmat))=tcod AND pret=tpret &&AND (EMPTY(dataout) OR incomplet) +*!* IF tdata>mindata +*!* DO mesaj WITH 'ATENTIE !','Nu se respecta metoda FIFO' +*!* MARCA=.T. +*!* RETURN +*!* ENDIF +*!* REPLACE dataout WITH DATE()&&,cante WITH tcant +*!* *!* IF cant-cante>0 +*!* *!* REPLACE incomplet WITH .t. +*!* *!* ELSE +*!* *!* REPLACE incomplet WITH .f. +*!* *!* ENDIF +*!* ENDIF + +*!* ENDPROC +*!* *------------------------------------------------------- + + +*!* PROCEDURE LIFO +*!* PARAMETERS TCOD,TMAT,TDATA,tpret +*!* tmat=UPPER(ALLTRIM(tmat)) +*!* tcod=UPPER(ALLTRIM(tcod)) + +*!* SELECT DISTINCT denumire,codmat,pret FROM fifo INTO CURSOR verif +*!* SELECT verif +*!* SCAN +*!* SCATTER NAME ver +*!* SELECT iesiri +*!* GO TOP +*!* LOCATE FOR UPPER(ALLTRIM(denumire))=UPPER(ALLTRIM(ver.denumire)) AND UPPER(ALLTRIM(codmat))=UPPER(ALLTRIM(ver.codmat)) AND pret=ver.pret +*!* IF !FOUND() +*!* SELECT fifo +*!* REPLACE ALL dataout WITH {},cante WITH 0,incomplet WITH .f.; +*!* FOR UPPER(ALLTRIM(denumire))=UPPER(ALLTRIM(ver.denumire)) AND UPPER(ALLTRIM(codmat))=UPPER(ALLTRIM(ver.codmat)) AND pret=ver.pret +*!* ENDIF +*!* SELECT verif +*!* ENDSCAN +*!* RELEASE ver +*!* USE IN verif + +*!* SELECT fifo +*!* LOCATE FOR UPPER(ALLTRIM(denumire))=tmat AND UPPER(ALLTRIM(codmat))=tcod +*!* IF !FOUND() +*!* IF USED('cfifo') +*!* USE IN cfifo +*!* ENDIF +*!* +*!* SELECT denumire,codmat,pret,cants+cant-cante as cant,cante,datain,dataout,curs as idf; +*!* FROM stoc; +*!* WHERE ALLTRIM(UPPER(denumire))==tmat AND ALLTRIM(UPPER(codmat))==tcod ; +*!* AND cants+cant-cante>0 AND gest=m.gest; +*!* INTO TABLE &loc\&nfscurt\tempo\cfifo ORDER BY datain + +*!* SELECT CFIFO +*!* REPLACE ALL cante WITH 0,dataout WITH {} +*!* CALCULATE Max(datain) TO maxdata +*!* IF tdata' +*!* SCATTER MEMVAR BLANK +*!* +*!* DO CAUT_ALFa_cursor WITH "tgrupa","dn_grupa",'Alegeti grupa:','' +*!* USE IN tgrupa +*!* +*!* IF buton = 2 +*!* RETURN +*!* ENDIF +*!* IF ALLTRIM(m.dn_grupa) # '' +*!* lcCond = lcCond + [ and id_grupa = m.id_grupa] +*!* ENDIF +*!* +*!* SELECT DISTINCT dn_sbgrupa, id_sbgrupa FROM art_sbgr WHERE id_grupa = m.id_grupa INTO CURSOR tgrupa READWRITE ORDER BY dn_sbgrupa + +*!* SELECT tgrupa +*!* APPEND blan +*!* REPLACE dn_sbgrupa WITH ' ' +*!* SCATTER MEMVAR BLANK +*!* +*!* DO CAUT_ALFa_cursor WITH "tgrupa","dn_sbgrupa",'Alegeti subgrupa:','' +*!* USE IN tgrupa +*!* +*!* IF buton = 2 +*!* RETURN +*!* ENDIF +*!* IF ALLTRIM(m.dn_sbgrupa) # '' +*!* lcCond = lcCond + [ and id_sbgrupa = m.id_sbgrupa] +*!* ENDIF +*!* +*!* SELECT DISTINCT id_articol, denumire, codmat, um, id_grupa, id_sbgrupa ; +*!* FROM listast WHERE &lccond INTO CURSOR tlist READWRITE ORDER BY id_grupa, id_sbgrupa, denumire, codmat +*!* +*!* SELECT t.*, g.dn_grupa, s.dn_sbgrupa ; +*!* FROM ((tlist t LEFT JOIN art_gr g ON t.id_grupa = g.id_grupa ) ; +*!* LEFT JOIN art_sbgr s ON t.id_sbgrupa = s.id_sbgrupa AND t.id_grupa = s.id_grupa ) ; +*!* INTO CURSOR tlista +*!* USE IN tlist +*!* +*!* SELECT t.*, sum(r.pret*r.cant) as valoare, sum(r.cant) as intrari FROM rul r JOIN tlista t ON r.id_articol = t.id_articol ; +*!* WHERE BETWEEN(r.dataact,pdData1, pdData2) AND r.cant#0 AND LEFT(ALLTRIM(r.scd),3) = '371' AND !INLIST(r.id_set, 74, 75, 76) ; +*!* INTO CURSOR trez ; +*!* GROUP BY r.id_articol ; +*!* ORDER BY t.dn_grupa, t.dn_sbgrupa, t.denumire, t.codmat +*!* +*!* titlu = 'Intrari de la ' + DTOC(pdData1) + ' la ' + DTOC(pdData2) +*!* +*!* SELECT trez +*!* REPORT FORM stoc_grupe TO PRINTER PROMPT PREVIEW +*!* +*!* USE IN tlista +*!* USE IN trez +*!* ENDPROC && list_articole_gr +*!* *__________________________________________________________________________________________________ +*!* +*!* PROCEDURE list_stoc_articol + +*!* SELECT s.denumire,s.codmat,s.um,s.gest,ALLTRIM(STR(s.id_articol))+ALLTRIM(STR(s.gest))+ALLTRIM(s.denumire)+ALLTRIM(s.codmat) as articol,sum(s.cants+s.cant-s.cante) as cantitate,g.numegest; +*!* from stoc s,numegest g ; +*!* WHERE s.gest=g.gest; +*!* GROUP BY articol INTO CURSOR tstoc ORDER BY denumire +*!* SELECT tstoc +*!* *BROWSE +*!* REPORT FORM stoc_articol TO PRINTER PROMPT PREVIEW +*!* USE IN tstoc + +*!* ENDPROC && list_stoc_articol + +*!* *__________________________________________________________________________________________________ + +*!* PROCEDURE fisa_magazie_simpla + +*!* LOCAL ln_stoci +*!* STORE 0 TO ln_stoci + +*!* SELECT rull +*!* SCATTER NAME oru + +*!* SELECT DISTINCT r.nnir,r.cante,r.cant,r.dataact,a.nract,r.cant AS STOCI,r.cant AS STOCF ; +*!* FROM rull r LEFT JOIN act a ON r.cod=a.cod ; +*!* WHERE (denumire=oru.denumire AND codmat=oru.codmat AND gest=oru.gest) AND id_articol=oru.id_articol ; +*!* INTO TABLE &loc\&nfscurt\tempo\fisa_stoc ORDER BY r.dataact +*!* SELECT FISA_STOC +*!* REPLACE ALL STOCI WITH 0,stocf WITH 0 + +*!* SELECT stoc +*!* LOCATE FOR (denumire=oru.denumire AND codmat=oru.codmat AND gest=oru.gest) AND id_articol=oru.id_articol +*!* IF FOUND() +*!* ln_stoci=cants +*!* ENDIF + +*!* SELECT fisa_stoc +*!* GO top +*!* REPLACE stoci WITH ln_stoci &&,stocf WITH ln_stoci+cant-cante +*!* SCAN +*!* REPLACE stocf WITH ln_stoci+cant-cante +*!* ln_stoci=stocf +*!* ENDSCAN + +*!* SELECT listast +*!* LOCATE FOR id_articol=oru.id_articol +*!* Lnid_grupa=id_grupa +*!* Lnid_sbgrupa=id_sbgrupa +*!* *WAIT WINDOW STR(oru.gest) + +*!* SELECT numegest.numegest,art_gr.dn_grupa,art_sbgr.dn_sbgrupa FROM numegest,art_gr ,art_sbgr; +*!* where numegest.gest=oru.gest AND art_gr.id_grupa=Lnid_grupa AND art_sbgr.id_sbgrupa=Lnid_sbgrupa ; +*!* INTO CURSOR tdate + +*!* *BROWSE +*!* SELECT fisa_stoc +*!* REPORT FORM fisa_magazie_simpla TO PRINTER PROMPT PREVIEW + +*!* RELEASE oru +*!* USE IN fisa_stoc +*!* USE IN tdate +*!* ENDPROC && fisa_magazie_simpla + +*!* *____________________________________________________________________________________________ + +*!* PROCEDURE list_stoc_art +*!* PARAMETERS tc_cond +*!* tc_cond=ALLTRIM(tc_cond) + +*!* IF USED('tstoc') +*!* USE IN tstoc +*!* ENDIF + +*!* SELECT *,sum(cants+cant-cante) as stocf,SUM((CANTs+cant-cante)*PRET) AS VALoare, ; +*!* ALLTRIM(denumire)+ALLTRIM(codmat)+ALLTRIM(STR(id_articol)) as indexul ; +*!* FROM stoc WHERE &tc_cond ; +*!* GROUP BY indexul ; +*!* INTO CURSOR tstoc + +*!* SELECT tstoc +*!* ENDPROC && list_stoc_art + +*!* *____________________________________________________________________________________________ + +*!* PROCEDURE raport_material_furnizor +*!* PRIVATE poConditie, lddata1, lddata2 + +*!* DO FORM frm_filtru_text WITH 'r.denumire','Denumirea materialului',1 TO pcConditie + +*!* *!* IF .filtru = "" +*!* *!* .Value = 0 +*!* *!* ENDIF +*!* +*!* loLuna=ret_luna("Selectati luna de inceput") +*!* lddata1=CTOD('01/'+loLuna.nl+'/'+loLuna.an) && 01/01/2003 + +*!* loLuna=ret_luna("Selectati luna de sfarsit") +*!* lddata2=CTOD('01/'+loLuna.nl+'/'+loLuna.an) && 01/01/2003 +*!* *lddata2=GOMONTH(CTOD('01/'+m.Nl+'/'+m.An),1)-1 && 31/07/2003 + +*!* CREATE TABLE &loc\&nfscurt\tempo\tfis (an c(4), luna c(2), denumire c(100), codmat c(50), cod n(10),cant n(12), pret n(14), nnir c(10), nume c(30)) + + +*!* SELECT calendar +*!* SCAN FOR BETWEEN(CTOD('01/'+nl+'/'+an), lddata1, lddata2) +*!* +*!* lcAn = an +*!* lcLuna = nl +*!* +*!* lcDate = ADDBS(calefirma)+'AN' + an + '\DATE' + nl+'\' +*!* lcFisRul = lcDate + "rull.dbf" +*!* lcFisAct = lcDate + "act.dbf" +*!* +*!* IF !FILE(lcFisRul) OR !FILE(lcFisAct) +*!* SELECT calendar +*!* LOOP +*!* ENDIF +*!* +*!* IF USED('rulaje') +*!* USE IN rulaje +*!* ENDIF +*!* +*!* IF USED('rj') +*!* USE IN rj +*!* ENDIF +*!* +*!* IF USED('tcrul') +*!* USE IN tcrul +*!* ENDIF +*!* +*!* USE &lcFisRul AGAIN IN 0 shared ALIAS rulaje ORDER TAG "denumire" +*!* USE &lcFisAct AGAIN IN 0 shared ALIAS rj ORDER TAG "nume" +*!* SELECT DISTINCT r.denumire, r.codmat, r.cod, r.cant, r.pret, r.nnir, a.nume,ALLTRIM(r.denumire)+ALLTRIM(r.codmat)+ALLTRIM(STR(ROUND(pret,0))) as numecod ; +*!* FROM rulaje r LEFT JOIN rj a ON r.cod = a.cod AND r.nnir = a.nnir ; +*!* WHERE &pcConditie AND r.cant # 0 AND LEFT(a.scc,3) = '401'; +*!* INTO CURSOR tcrul ; +*!* ORDER BY a.nume, numecod +*!* +*!* SELECT tcrul +*!* TOTAL TO &loc\&nfscurt\tempo\xtotal ON numecod FIELDS cant +*!* * GROUP BY r.denumire, r.codmat, r.pret, a.nume ; + +*!* SELECT tfis +*!* * APPEND FROM DBF('tcrul') +*!* APPEND FROM &loc\&nfscurt\tempo\xtotal +*!* REPLACE ALL luna WITH lcLuna FOR EMPTY(luna) +*!* REPLACE ALL an WITH lcAn FOR EMPTY(an) + +*!* SELECT calendar +*!* ENDSCAN + +*!* SELECT tfis +*!* INDEX ON AN + ALLTRIM(NUME)+ LUNA TAG nume OF &loc\&nfscurt\tempo\xULEI ASCENDING +*!* SELECT tfis +*!* REPORT FORM list_ulei TO PRINTER PROMPT PREVIEW + +*!* IF USED('rulaje') +*!* USE IN rulaje +*!* ENDIF + +*!* IF USED('rj') +*!* USE IN rj +*!* ENDIF + +*!* IF USED('tcrul') +*!* USE IN tcrul +*!* ENDIF +*!* USE IN tfis +*!* ENDPROC && raport_material_furnizor + +*!* *________________________________________ + +*!* PROCEDURE raport_productie_postcalcul + +*!* SELECT DISTINCT NRORD FROM RULL into TABLE &LOC\&NFSCURT\tempo\raA.DBF +*!* SELECT RAA +*!* *!* APPEND BLANK +*!* *!* REPLACE NRORD WITH " " +*!* Index ON NRORD TAG NRORD +*!* do caut_alfa with "RAA","Nrord","NUMELE COMENZII","M.nrord" + +*!* PRIVATE pnCant +*!* pnCant = 0 +*!* Ointre=CREATEOBJECT("CAUTintre") +*!* WITH Ointre +*!* .CAPTION="Dat in executie" +*!* .label1.caption="Cantitatea :" +*!* .label2.visible=.f. +*!* .text1.controlsource="pnCant" +*!* .text2.visible=.f. +*!* endwith +*!* ointre.show(1) +*!* +*!* SELECT denumire, um, sum(cante) as canttot, pret, gest, codmat, ; +*!* sum(round(pret*cante, 0)) as valtot, sum(ROUND(cante/pnCant,3)) as cant_unit, sum(round(pret*cante/pnCant, 3)) as val_unit; +*!* from rull ; +*!* where nrord = m.nrord And cante # 0 And cant = 0 ; +*!* into CURSOR rapostcalcul GROUP BY denumire, codmat, pret ORDER BY denumire + +*!* *!* SELECT RApostcalcul +*!* *!* *Index On NRORD+STR(VAL(ALLTRIM(nnir)))+DTOC(dataact) TAG nnir &&To &LOC\&NFSCURT\tempo\FFD +*!* *!* BROWSE + +*!* SELECT RApostcalcul +*!* *!* SET FILTER TO NRORD=M.NRORD +*!* REPORT FORM postcalcul TO PRINTER PROMPT PREVIEW + +*!* USE IN rapostcalcul + +*!* ENDPROC && raport_productie_postcalcul + + diff --git a/Programe/inchidere_k.prg b/Programe/inchidere_k.prg new file mode 100644 index 0000000..d6f7e35 --- /dev/null +++ b/Programe/inchidere_k.prg @@ -0,0 +1,387 @@ +*!* 21.09.2010 +*!* marius.mutu +*!* #2722 Fruvimed +*!* inchidere_k am folosit lnCoeficientTva si GetProcTvaStandard() in loc de 19/119 + +*!* 11.10.2017 +*!* marius.mutu +*!* inchidere_k_custodie - tratare optiuni tip nou pentru analitice 371,378,4428 + +* inchidere cu K +Procedure inchidere_k + +Private pnK, pcAcont371, pcAcont378, pcAcont4111, pcAcont4428 +Store 0 To pnK +Store '' To pcAcont371, pcAcont378, pcAcont4111, pcAcont4428 + +Local lnK, lcCursor, llStergeNotaPrecedenta, lnId_Set, lnCod, llVerificAnalitic, llCompletareParteneri, lnRaspuns +Store 0 To lnK, lnCod, lnRaspuns +Store .T. To llVerificAnalitic, llCompletareParteneri + +Local lnAnalitice371, lnAnalitice378, lnAnalitice4111, lnAnalitice4428 +Store 0 To lnAnalitice371, lnAnalitice378, lnAnalitice4111, lnAnalitice4428 + +llStergeNotaPrecedenta = .T. +lnId_Set = 90017 +lnCod = 0 + +*!* 21.09.2010 +lnCoeficientTva = GetProcTvaStandard() / (100 + GetProcTvaStandard()) && 24/124 +*!* 21.09.2010 ^ + +***--------------------------------------------------- +*** 371 +lcSql=[select count(*) as cnt from balana where an = ?gnAn and luna = ?gnLuna and cont = '371' ] +lcCursor = 'crs_acont371' +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") +Endif + +Select crs_acont371 +lnAnalitice371 = Cnt + +If lnAnalitice371 > 0 + loCauta = caut_acont('371') + pcAcont371 = loCauta.acont +Endif + +If Used('crs_acont371') + Use In crs_acont371 +Endif + +*** 378 +lcSql=[select count(*) as cnt from balana where an = ?gnAn and luna = ?gnLuna and cont = '378' ] +lcCursor = 'crs_acont378' +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") +Endif + +Select crs_acont378 +lnAnalitice378 = Cnt + +If lnAnalitice378 > 0 + loCauta = caut_acont('378') + pcAcont378 = loCauta.acont +Endif + +If Used('crs_acont378') + Use In crs_acont378 +Endif + +*** 4111 +lcSql=[select count(*) as cnt from balana where an = ?gnAn and luna = ?gnLuna and cont = '4111' ] +lcCursor = 'crs_acont4111' +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") +Endif + +Select crs_acont4111 +lnAnalitice4111 = Cnt + +If lnAnalitice4111 > 0 + loCauta = caut_acont('4111') + pcAcont4111 = loCauta.acont +Endif + +If Used('crs_acont4111') + Use In crs_acont4111 +Endif + +*** 4428 +lcSql=[select count(*) as cnt from balana where an = ?gnAn and luna = ?gnLuna and cont = '4428' ] +lcCursor = 'crs_acont4428' +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") +Endif + +Select crs_acont4428 +lnAnalitice4428 = Cnt + +If lnAnalitice4428 > 0 + loCauta = caut_acont('4428') + pcAcont4428 = loCauta.acont +Endif + +If Used('crs_acont4428') + Use In crs_acont4428 +Endif +***--------------------------------------------------- + +If llStergeNotaPrecedenta + lnSucces = sterge_nota(lnCod, lnId_Set) + If lnSucces < 0 + Return + Endif +Endif + +* lcSel = [{call pack_inchideri.K_transferuri(?gnAn, ?gnLuna)}] +lcSel = [{call pack_inchideri.K_transferuri(]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+ [)}] +lcCursor = 'crsTransferuri' +lnSucces = goExecutor.oExecute(lcSel, lcCursor) +If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return +Endif + +Select Count(*) As Cnt From crsTransferuri Into Cursor cNrTransf +Select cNrTransf +lnTransferuri = Cnt +If Used('cNrTransf') + Use In cNrTransf +Endif +If lnTransferuri > 0 + lnRaspuns = AMESSAGEBOX('Doriti sa faceti nota de reglare transferuri?',4, 'Reglare transferuri') + + If lnRaspuns = 6 +***--------------------------------------- +* lcSel = [{call pack_inchideri.K_general(?gnAn, ?gnLuna, ?pcAcont371, ?pcAcont378, ?pcAcont4428)}] + lcSel = [{call pack_inchideri.K_general(]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,]+; + IIF(!Empty(pcAcont371),['] + Alltrim(pcAcont371) + ['],'NULL')+[,]+ ; + IIF(!Empty(pcAcont378),['] + Alltrim(pcAcont378) + ['],'NULL')+[,]+; + IIF(!Empty(pcAcont4428),['] + Alltrim(pcAcont4428) + ['],'NULL')+[)}] + lcCursor = 'crsK' + lnSucces = goExecutor.oExecute(lcSel, lcCursor) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + Select crsK + pnK = Round(Nvl(k, 0),gnPC) + +***--------------------------------------- + + Create Cursor crsCorecturi (id_partd N(10), partd C(70), id_partc N(10), partc C(70), scd C(4), scc C(4), suma N(20,4)) + + Select crsTransferuri + Scan + lnId_partd = id_partd + lcPartd = partd + lnId_partc = id_partc + lcPartc = partc + lnsuma = suma + + *!* 21.09.2010 + + Insert Into crsCorecturi (id_partd, partd, id_partc, partc, scd, scc, suma) ; + VALUES (lnId_partc, lcPartc, lnId_partd, lcPartd, '4428', '4428', Round(lnsuma * m.lnCoeficientTva,gnPC)) + lnTva = ROUND(lnsuma * m.lnCoeficientTva, gnPc) + *!* 21.09.2010 ^ +*!* Insert Into crsCorecturi (id_partd, partd, id_partc, partc, scd, scc, suma) ; +*!* VALUES (lnId_partc, lcPartc, lnId_partd, lcPartd, '378', '378', ROUND((lnsuma-lnTva)*pnK/100,gnPC)) + Insert Into crsCorecturi (id_partd, partd, id_partc, partc, scd, scc, suma) ; + VALUES (lnId_partc, lcPartc, lnId_partd, lcPartd, '378', '378', Round((lnsuma-lnTva)*pnK/(100+pnK),gnPC)) + Select crsTransferuri + Endscan + + If Used('crsTransferuri') + Use In crsTransferuri + Endif + +***--------------------------------------- + + llVerificAnalitic = .T. + llCompletareParteneri = .T. + lcCursor = 'crsCorecturi' + + If lnSucces > 0 + lnSucces = scrie_nota_import(lnId_Set, llVerificAnalitic, llCompletareParteneri, lcCursor) + Endif + Endif +Endif + +***--------------------------------------- +***---------------------------------- calcul K magazine + +***------------ + +* lcSel = [{call pack_inchideri.K_parteneri(?gnAn, ?gnLuna, ?pcAcont371, ?pcAcont378, ?pcAcont4111, ?pcAcont4428)}] +lcSel = [{call pack_inchideri.K_parteneri(]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,]+ ; + IIF(!Empty(pcAcont371),['] + Alltrim(pcAcont371) + ['],'NULL')+[,]+ ; + IIF(!Empty(pcAcont378),['] + Alltrim(pcAcont378) + ['],'NULL')+[,]+; + IIF(!Empty(pcAcont4111),['] + Alltrim(pcAcont4111) + ['],'NULL')+[,]+ ; + IIF(!Empty(pcAcont4428),['] + Alltrim(pcAcont4428) + ['],'NULL')+[)}] +lcCursor = 'crsK_mag' +lnSucces = goExecutor.oExecute(lcSel,lcCursor) +If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return +Endif +***---------------------------------- calcul K magazine + +Create Cursor crsInchKmag (id_partd N(10), partd C(70), id_partc N(10), partc C(70), scd C(4), scc C(4), ascc C(4), suma N(20,4)) + +Select crsK_mag +Scan For rc4111 + rd4111 <> 0 + lnId_part = id_part + lcPartener = Alltrim(denumire) + lnK = Round(k/100,gnPC) + ln4111 = Round(rc4111+rd4111 ,gnPC) + + lnTva = Round(ln4111 * m.lnCoeficientTva,gnPC) + *lnAD = Round((ln4111-lnTva)*lnK,gnPC) + *!* 09.09.2008 + *!* MARIUS MUTU - TREBUIE SESIZARE DE LA FRUVIMED +*!* lnAD = Round((ln4111-lnTva)*k/(100+k),gnPC) + lnAD = Round((ln4111-lnTva)*k/100,gnPC) + *!* 09.09.2008 ^ + Insert Into crsInchKmag (id_partd, partd, id_partc, partc, scd, scc, suma) ; + VALUES (lnId_part, lcPartener,lnId_part, lcPartener,'4428', '371', lnTva) + Insert Into crsInchKmag (id_partd, partd, id_partc, partc, scd, scc, suma) ; + VALUES (lnId_part, lcPartener,lnId_part, lcPartener,'378', '371', lnAD) + Insert Into crsInchKmag (id_partd, partd, id_partc, partc, scd, scc, suma) ; + VALUES (0, '',lnId_part, lcPartener,'607', '371', ln4111-lnTva-lnAD) + + Select crsK_mag +Endscan + +***------------------------------- +llStergeNotaPrecedenta = .T. +lnId_Set = 90018 +lnCod = 0 +llVerificAnalitic = .T. +llCompletareParteneri = .T. +lcCursor = 'crsInchKmag' + +If llStergeNotaPrecedenta + lnSucces = sterge_nota(lnCod, lnId_Set) +Endif + +If lnSucces > 0 + Select crsInchKmag + Replace All ascc With pcAcont371 + lnSucces = scrie_nota_import(lnId_Set, llVerificAnalitic, llCompletareParteneri, lcCursor) +Endif + +If lnSucces > 0 + Private pcTitlu, pcDataOra + pcTitlu = "Inchidere folosind metoda cu k" + pcDataOra = get_ora(2) + + Select km.*, 1 As tip, ; + 0000000000 As id_partd, Space(70) As partd, ; + 0000000000 As id_partc, Space(70) As partc, ; + SPACE(4) As scd, ; + SPACE(4) As scc, ; + SPACE(4) As ascc, ; + 0000000000000000000000.00 As suma ; + From crsK_mag km Into Cursor crsList Readwrite + + + If Used('crsCorecturi') + Select C.*, 2 As tip From crsCorecturi C Into Cursor c2 + Select crsList + Append From Dbf('c2') + If Used('c2') + Use In c2 + Endif + + Use In crsCorecturi + Endif + + Select C.*, 3 As tip From crsInchKmag C Into Cursor c3 + + If Used('crsInchKmag') + Use In crsInchKmag + Endif + + Select crsList + Append From Dbf('c3') + If Used('c3') + Use In c3 + Endif + + Select crsList + Report Form rap_inchidere_k.frx To Printer Prompt Preview + +* Select * From crsList Into Table C:\List.Dbf + + If Used('crsList') + Use In crsList + Endif +Endif + +If Used('crsK_mag') + Use In crsK_mag +Endif + +Endproc && inchidere_k +************************************************************************************************************************ +*!* modificare v 2.2.35 +Procedure inchidere_k_custodie + Local lcCursor, lcCursorFinal, llStergeNotaPrecedenta, lnId_Set, lnCod, llVerificAnalitic, llCompletareParteneri + Store .T. To llVerificAnalitic, llCompletareParteneri, llStergeNotaPrecedenta + Store 0 To lnCod + lnId_Set = 90019 + lcCursorFinal = [crsK] + lcCursor = [crsK_custodie] + If llStergeNotaPrecedenta + lnSucces = sterge_nota(lnCod, lnId_Set) + Endif +SET STEP ON + ************************* + *** Analitice 371,378,4428 versiune noua + *** FactAnaliticCustK_5 / FactAnaliticCustK_9 / FactAnaliticCustK_19 + ************************* + lcSql = [SELECT procent FROM cote_tva WHERE an = ?gnAn AND luna = ?gnLuna and procent <> 0] + llSucces = goExecutor.oExecuta(m.lcSql, "cCoteTVATemp") + IF m.llSucces + SELECT cCoteTVATemp + SCAN + lcProcent = ALLTRIM(STR(INT(procent))) + lcVariabilaName = 'gcFactAnaliticCustK_' + m.lcProcent && gcFactAnaliticCustK_5 / gcFactAnaliticCustK_9 / gcFactAnaliticCustK_19 + + If TYPE(m.lcVariabilaName) <> "U" + lcAnaliticK = &lcVariabilaName + IF !EMPTY(m.lcAnaliticK) + lcSel = [{call pack_inchideri.K_custodie(]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,] + m.lcProcent + [)}] + llSucces = goExecutor.oExecuta(lcSel,lcCursor) + If m.llSucces + IF !USED(m.lcCursorFinal) + SELECT * FROM (lcCursor) WHERE .F. INTO CURSOR (m.lcCursorFinal) READWRITE + ENDIF && !USED(m.lcCursorFinal) + + Insert Into (m.lcCursorFinal) Select * From (m.lcCursor) + USE IN (SELECT(m.lcCursor)) + ENDIF && m.llSucces + ENDIF && !EMPTY(m.lcAnaliticK) + ENDIF + ENDSCAN + ENDIF && m.llSucces + + ************************* + *** Daca nu am gasit analiticele versiune noua, caut si analitice versiune veche + IF !USED(m.lcCursorFinal) + lcSel = [{call pack_inchideri.K_custodie(]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,1)}] + llSucces = goExecutor.oExecuta(lcSel,lcCursor) + If llSucces + copiaza_structura_cursor(lcCursor,lcCursorFinal) + If !Empty(NVL(IIF(TYPE("gcFactAnaliticCustK2")=="U",NULL,gcFactAnaliticCustK2),"")) + Insert Into (lcCursorFinal) Select * From (lcCursor) + If Used(lcCursor) + Use In (lcCursor) + Endif + lcSel = [{call pack_inchideri.K_custodie(]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,2)}] + llSucces = goExecutor.oExecuta(lcSel,lcCursor) + Endif + If llSucces + Insert Into (lcCursorFinal) Select * From (lcCursor) + lnSucces = scrie_nota_import(lnId_Set, llVerificAnalitic, llCompletareParteneri, lcCursorFinal) + Endif + + Endif + If Used(lcCursor) + Use In (lcCursor) + ENDIF + ELSE + lnSucces = scrie_nota_import(lnId_Set, llVerificAnalitic, llCompletareParteneri, lcCursorFinal) + ENDIF && !USED(m.lcCursorFinal) + + Use In (SELECT(lcCursorFinal)) +Endproc && inchidere_k_custodie +*!* modificare v 2.1.8 ^ +************************************************************************************************************************ diff --git a/Programe/ofactureaza.prg b/Programe/ofactureaza.prg new file mode 100644 index 0000000..4677e54 --- /dev/null +++ b/Programe/ofactureaza.prg @@ -0,0 +1,412 @@ +*** AVIZ TRANSFER (apelat din ointroduceri.prg dupa scrierea NIR-ului pret de lista id_set 231, 247, 266) + +*!* 30.03.2010 +*!* marius.mutu +*!* completare parametrii V_SERIE_ACT_INCASARE, V_DATAORA_EXP la apelul pack_facturare.scrie_factura2 + +*!* 19.05.2010 +*!* marius.mutu +*!* finalizeaza_scriere_verificare - apel parametru aditional + + +*!* 05.11.2010 +*!* marius.mutu +*!* adauga_articol_factura + parametru multiplicator_curs = 1 + +*!* 13.06.2017 +*!* marius.mutu +*!* scatter name poArt memo - nu exporta campul "explicatia" MEMO + +Private ptDataOra +Local lnIdSet,lnIdTipDoc,lcCursorVerificare,lcCursorFinal,pcSirDifAcont ,pcSirDifPart,lnSucces +lnSucces = 1 +lcCursorVerificare = [crsactverif] +lcCursorFinal = [tmpactactan] +pcSirDifAcont = [] +pcSirDifPart = [] + + + +lnIdSet = 25000 + 30 - 1 + gnScadereStoc * 10 +*!* lcObiect = [frm_date_aviz_lucrare] +lnIdTipDoc = 6 +If Type('poDate') <> 'O' + poDate=Createobject("oDateFactura",lnIdSet,30) + Private poGeneratorNumere + poGeneratorNumere = Createobject("oGeneratorNumere") +Else + If Type('poGeneratorNumere') <> 'U' + poGeneratorNumere.ResetNumere() + Endif +Endif + +poDate.rezultat_serii=poGeneratorNumere.creeaza_cursor_serii(lnIdTipDoc) + +If Type('poDateGestiuneDest') <> 'O' + poDateGestiuneDest = Createobject("oDateGestiune") +Endif +Select actactan +*!* SCATTER NAME poclient FIELDS nract +*!* ADDPROPERTY(poclient,'denumire','') +poDate.id_client = actactan.id_gestin +poDate.nume_client = actactan.GESTIN +poDate.DATAACT = actactan.DATAACT +poDate.tip = 30 +*!* poClient.denumire = poDate.descriere +pnButon=1 +ofrmceredate=Createobject('frm_date_aviz') +ofrmceredate.Show(1) +Release ofrmceredate +If pnButon=2 + poGeneratorNumere.dezaloca_numar(lnIdTipDoc) + Release poDate,poGeneratorNumere + Return +Else + poGeneratorNumere.verifica_numar(lnIdTipDoc,poDate.nract) +Endif + +*!* Select 0 As id_c,id_articol,serie,id_gestiune,id_valuta,discunitar As discount_unitar ,codmat,denumire,um,1 As gestionabil,; +*!* cant As cantitate,proc_tvav,0 As preturi_cu_tva,Curs,Pret As preta,pretv As Pret,tvav,0 As pret_val,nume_val,; +*!* 0 As discount_unitar_val,0 As tip_valuta,Cont,acont From rul_temp ; +*!* into Cursor crs_artTemp + +*!* modificare v 2.0.77 +*!* Create Cursor crsfactura(id_c N(20),id_temp N(20),id_articol N(20),id_pol N(20) Null,id_gestiune N(20),Cont c(4),um c(10), ; +*!* id_valuta N(10),gestionabil N(1),tip_valuta N(1),Curs N(20,4),id_jtva_coloana N(20) Null,codmat c(100),codbare c(50),codmatf c(100),; +*!* pret_achizitie N(20,4),denumire c(100),pretftva N(20,4),pretctva N(20,4),valftva N(20,4), valtva N(20,4),valctva N(20,4),; +*!* cantitate N(20,4),discountftva N(20,4), discountctva N(20,4), valdiscountftva N(20,4),valdiscounttva N(20,4),; +*!* valdiscountctva N(20,4),valdiminuatftva N(20,4),valdiminuattva N(20,4), valdiminuatctva N(20,4),proc_tvav N(20,4),cu_tva N(1),serie c(100),; +*!* vpretftva N(20,4),vpretctva N(20,4),vvalftva N(20,4),vvaltva N(20,4),vvalctva N(20,4),; +*!* vdiscountftva N(20,4),vdiscountctva N(20,4),vvaldiscountftva N(20,4),vvaldiscounttva N(20,4),; +*!* vvaldiscountctva N(20,4),vvaldiminuatftva N(20,4),vvaldiminuattva N(20,4),vvaldiminuatctva N(20,4),id_set_fact N(20) Null,explicatie c(100),; +*!* id_part_rez N(10) Null,id_lucrare_rez N(10) Null,pretv_orig N(20,4),pretd N(20,4),id_valuta_d N(20)) +*!* modificare v 2.0.142 +*!* creeaza_crsfactura() +creeaza_facturacrs([crsfactura]) +*!* modificare v 2.0.142 ^ +*!* modificare v 2.0.77 ^ + +*!* modificare roagest2.0.46 +*!* Local lcIdJtva +*!* Select crs_artTemp +*!* Local lni +*!* Store 0 To lni +*!* Scan +*!* Scatter Name loArticole +*!* lni = lni +1 +*!* Select crsfactura +*!* update_jtva_coloane([JV],'CrsCotaTva',0) +*!* Select CrsCotaTva +*!* Locate For cota_tva = (loArticole.proc_tvav*100-100) +*!* If Found() +*!* lcIdJtva = id_jtva_coloana +*!* Else +*!* lcIdJtva = Null +*!* Endif +*!* Use In CrsCotaTva +*!* Insert Into crsfactura ; +*!* (id_c,id_temp,id_articol,id_gestiune,Cont,um,; +*!* id_valuta,gestionabil ,tip_valuta ,Curs ,id_jtva_coloana ,codmat ,; +*!* pret_achizitie,denumire ,pretftva ,pretctva ,valftva , valtva ,valctva ,; +*!* cantitate ,discountftva , discountctva , valdiscountftva ,valdiscounttva ,; +*!* valdiscountctva ,valdiminuatftva ,valdiminuattva , valdiminuatctva ,proc_tvav ,cu_tva ,serie ,; +*!* id_set_fact ,explicatie,id_pol ) ; +*!* values (; +*!* lni,loArticole.id_c,loArticole.id_articol,loArticole.id_gestiune,loArticole.Cont,loArticole.um,; +*!* loArticole.id_valuta,loArticole.gestionabil,loArticole.tip_valuta,loArticole.Curs,lcIdJtva ,loArticole.codmat,; +*!* loArticole.preta,loArticole.denumire,loArticole.Pret,loArticole.Pret+loArticole.tvav,Round(loArticole.cantitate*loArticole.Pret,gnpa),Round(loArticole.cantitate*loArticole.tvav,gnpa),Round((loArticole.cantitate*loArticole.Pret)+(loArticole.cantitate*loArticole.tvav),gnpa),; +*!* loArticole.cantitate,0,0,0,0,; +*!* 0,Round(loArticole.cantitate*loArticole.Pret,gnpa),Round(loArticole.cantitate*loArticole.tvav,gnpa),Round((loArticole.cantitate*loArticole.Pret)+(loArticole.cantitate*loArticole.tvav),gnpa),loArticole.proc_tvav,loArticole.preturi_cu_tva,'',; +*!* null,'',Null) +*!* &&25039 + +*!* Select crs_artTemp +*!* Endscan + +*!* ar trebui comasat if-ul de mai jos cu completeaza_facturacrs din ofacturare_stoc.prg +Local lnPretCuTva +lnPretCuTva = Iif(INLIST(gnTipGest,6,7), 1, 0) +If !INLIST(gnTipGest,6,7) + Insert Into crsfactura (id_gestiune,id_articol,Cont,gestionabil,denumire,serie,cantitate,cu_tva,pretftva,pretctva,; + valftva,valtva,valctva,discountftva,discountctva,valdiscountftva,; + valdiscounttva, valdiscountctva, valdiminuatftva, valdiminuattva, valdiminuatctva, proc_tvav,um,codmat,codbare,codmatf,; + vpretftva,vvalftva,vvaltva,vdiscountftva,vvaldiscountftva,vvaldiscounttva,; + vvaldiminuatftva,vvaldiminuattva,vvaldiminuatctva,pretd,id_valuta_d,pret_achizitie) ; + Select id_gestiune,id_articol,Cont,; + 1 as gestionabil,denumire, Nvl(serie,' ') As serie, cant As cantitate,m.lnPretCuTva As cu_tva,; + Round(pretv,gnPPretV) As pretftva,; + Round(pretv,gnPPretV) + Round(Round(pretv,gnPPretV) * (proc_tvav-1),gnPPretV) As pretctva,; + Round(Round(pretv,gnPPretV)*cant,gnPc) As valftva,; + ROUND(Round(pretv*cant,gnPc)*(proc_tvav-1),gnPc) As valtva, ; + Round(Round(pretv,gnPPretV)*cant,gnPc) + Round(Round(pretv*cant,gnPc)*(proc_tvav-1),gnPc) As valctva, ; + ROUND(discunitar,gnPPretV) As discountftva,; + ROUND(discunitar,gnPPretV)+Round(Round(discunitar,gnPPretV)*(proc_tvav-1),gnPPretV) As discountctva,; + Round(Round(discunitar,gnPPretV)*cant,gnPc) As valdiscountftva, ; + ROUND(Round(discunitar*cant,gnPc)*(proc_tvav-1),gnPc) As valdiscounttva, ; + Round(Round(discunitar,gnPPretV)*cant,gnPc) + Round(Round(discunitar*cant,gnPc)*(proc_tvav-1),gnPc) As valdiscountctva,; + Round(Round(pretv-discunitar,gnPPretV)*cant,gnPc) As valdiminuatftva,; + ROUND(Round((pretv-discunitar)*cant,gnPc)*(proc_tvav-1),gnPc) As valdiminuattva,; + ROUND(Round(Round(pretv-discunitar,gnPPretV)*cant,gnPc)*proc_tvav,gnPc) As valdiminuatctva,; + proc_tvav, Nvl(um,Space(50)) As um, Nvl(codmat,Space(50)) As codmat, Nvl(codbare,Space(50)) As codbare,Nvl(codmatf,Space(50)) As codmatf,; + Round(pretvval,gnPVal) As vpretftva,; + ROUND(Round(pretvval,gnPVal)*cant,gnPVal) As vvalftva,; + ROUND(Round(Round(pretvval,gnPVal)*cant,gnPVal)*(proc_tvav-1),gnPVal) As vvaltva,; + 0 As vdiscountftva,0 As vvaldiscountftva,0 As vvaldiscounttva,; + Round(Round(pretvval-0,gnPVal)*cant,gnPVal) As vvaldiminuatftva,; + ROUND(Round((pretvval-0)*cant,gnPVal)*(proc_tvav-1),gnPVal) As vvaldiminuattva,; + ROUND(Round(Round(pretvval-0,gnPVal)*cant,gnPVal)*proc_tvav,gnPVal) As vvaldiminuatctva,; + pretd,id_valuta,pret From rul_temp + *!* modificare v 2.0.77 : am adaugat pretd,id_valuta + *!* modificare v 2.0.142 : am completat vvaldiminuatftva, vvaldiminuattva, vvaldiminuatctva +Else + Insert Into crsfactura (id_gestiune,id_articol,Cont,gestionabil,denumire,serie,cantitate,cu_tva,pretftva,pretctva,; + valftva,valtva,valctva,discountftva,discountctva,valdiscountftva,; + valdiscounttva, valdiscountctva, valdiminuatftva, valdiminuattva, valdiminuatctva, proc_tvav,um,codmat,codbare,codmatf,; + vpretftva,vvalftva,vvaltva,vdiscountftva,vvaldiscountftva,vvaldiscounttva,; + vvaldiminuatftva,vvaldiminuattva,vvaldiminuatctva,pretd,id_valuta_d,pret_achizitie) ; + Select id_gestiune,id_articol,Cont,; + 1 as gestionabil,denumire, Nvl(serie,' ') As serie, cant As cantitate,m.lnPretCuTva As cu_tva,Round(pretv,gnPPretV) As pretftva, ; + Round(pretv+tvav,gnPPretV) As pretctva,; + Round(Round((pretv+tvav),gnPPretV)*cant,gnPc) - Round(Round((pretv+tvav)*cant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) As valftva, ; + Round(Round((pretv+tvav)*cant,gnPc)*(proc_tvav-1)/proc_tvav,gnPc) As valtva, ; + Round(Round((pretv+tvav),gnPPretV)*cant,gnPc) As valctva, ; + ROUND(discunitar,gnPPretV) As discountftva, ; + ROUND(discunitar,gnPPretV)+Round(Round(discunitar,gnPPretV)*(proc_tvav-1),gnPPretV) As discountctva,; + Round(Round(discunitar,gnPPretV)*cant,gnPc) As valdiscountftva, ; + Round(Round(discunitar*cant,gnPc)*(proc_tvav-1),gnPc) As valdiscounttva, ; + Round(Round(discunitar,gnPPretV)*cant,gnPc) + Round(Round(discunitar*cant,gnPc)*(proc_tvav-1),gnPc) As valdiscountctva, ; + Round(Round(pretv-discunitar,gnPPretV)*cant,gnPc) As valdiminuatftva,; + ROUND(Round((pretv-discunitar)*cant,gnPc)*(proc_tvav-1),gnPc) As valdiminuattva,; + ROUND(Round(Round(pretv-discunitar,gnPPretV)*cant,gnPc)*proc_tvav,gnPc) As valdiminuatctva,; + proc_tvav, Nvl(um,Space(50)) As um,Nvl(codmat,Space(50)) As codmat, Nvl(codbare,Space(50)) As codbare,Nvl(codmatf,Space(50)) As codmatf,; + Round(pretvval,gnPVal) As vpretftva,; + ROUND(Round(pretvval,gnPVal)*cant,gnPVal) As vvalftva,; + ROUND(Round(Round(pretvval,gnPVal)*cant,gnPVal)*(proc_tvav-1),gnPVal) As vvaltva,; + 0 As vdiscountftva,0 As vvaldiscountftva,0 As vvaldiscounttva,; + Round(Round(pretvval-0,gnPVal)*cant,gnPVal) As vvaldiminuatftva,; + ROUND(Round((pretvval-0)*cant,gnPVal)*(proc_tvav-1),gnPVal) As vvaldiminuattva,; + ROUND(Round(Round(pretvval-0,gnPVal)*cant,gnPVal)*proc_tvav,gnPVal) As vvaldiminuatctva,; + pretd,id_valuta,pret From rul_temp + *!* modificare v 2.0.77 : am adaugat pretd,id_valuta + *!* modificare v 2.0.142 : am completat vvaldiminuatftva, vvaldiminuattva, vvaldiminuatctva +Endif + +update_jtva_coloane([JV],'CrsCotaTva',0) +Select crsFactura +Scan + Scatter Name loArticole + Select CrsCotaTva + Locate For cota_tva = (loArticole.proc_tvav*100-100) + If Found() + lcIdJtva = id_jtva_coloana + Else + lcIdJtva = Null + Endif + Select crsFactura + Replace id_jtva_coloana With lcIdJtva +Endscan + + +Use In CrsCotaTva +*!*\ modificare roagest2.0.46 +*!* DEBUG +*!* SUSPEND +lnSucces = SQLSetprop(gnHandle,"Transactions", 2) +If lnSucces < 0 + aMESSAGEBOX('Programul nu a reusit trecerea pe tranzactie manuala',0+16,'Eroare') +Else + + Select actactan + Locate For Alltrim(scd) = '371' And INLIST(Alltrim(scc), '401', '408') + Select actactan + ptDataOra = dataora + poDate.DATAACT = DATAACT + lcSql = [pack_facturare.initializeaza_date_factura(] + ; + [to_date('] + Dtoc(actactan.dataireg,2) + [','YYYYMMDD'),] + ; + Nvl(Alltrim(Str(poDate.id_fdoc)),[NULL]) + [,to_date('] + Dtoc(actactan.DATAACT,2) + [','YYYYMMDD'),] + ; + [to_date('] + Alltrim(Dtoc(actactan.datascad,2)) + [','YYYYMMDD'),'] + Nvl(poDate.serie_act,[]) + [',] + ; + Alltrim(Str(poDate.nract)) + [,] + ; + Iif(Isnull(actactan.id_gestin),[NULL],Alltrim(Str(actactan.id_gestin))) + [,] + ; + Iif(Isnull(actactan.id_lucrare),[NULL],Alltrim(Str(actactan.id_lucrare))) + [,] + ; + Iif(Isnull(actactan.id_sectie),[NULL],Alltrim(Str(actactan.id_sectie))) + [,] + ; + Iif(IsNull(poDate.id_venchelt),[NULL],Alltrim(Str(poDate.id_venchelt))) + [,] + ; + Iif(Isnull(actactan.id_responsabil),[NULL],Alltrim(Str(actactan.id_responsabil))) + [,] + ; + IIF(EMPTY(nvl(poDate.explicatia4,[])),[NULL],['] + STRTRAN(ALLTRIM(poDate.explicatia4),['],['']) + [']) + [,] + ; && modificare ROAGEST v 2.1.11 + Iif(Isnull(poDate.listaid),[NULL],['] + Alltrim(Iif(Type('podate.listaid')='C',poDate.listaid,Str(poDate.listaid))) + [']) + [,] + ; + ['] + Alltrim(Nvl('',[])) + [',] + ; + Alltrim(Str(30)) + [,] + Alltrim(Str(actactan.id_set)) + [,] + ; + [to_date('] + Dtoc(actactan.DATAACT,2) + [','YYYYMMDD'),] + Alltrim(Str(actactan.id_valuta)) + [,] + ; + Alltrim(Str(0)) + [,] + ; + alltrim(str(actactan.tva_incasare)) + [,] + ; && modificare ROAGEST v 2.2.0 + Iif(Isnull(gnIdSucursala),[NULL],Alltrim(Str(gnIdSucursala))) + [,] + ; + Alltrim(Str(gnIdUtil)) + [);] + + lcSql = lcSql + [ pack_facturare.initializeaza_date_gestiune(] + Alltrim(Str(poDateGestiuneDest.id_gestiune)) + [,] + ; + Alltrim(Str(poDateGestiuneDest.id_tipgest)) + [,'] + Alltrim(poDateGestiuneDest.Cont) +[',] + ; + ['] + Alltrim(Nvl(poDateGestiuneDest.acont,[])) + [');] + + lcSql = [begin ] + lcSql + [ end;] + + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,"Eroare") + llReturn = .F. + Else + lcSql = [] + Private poArt + lcSql = [] + Select crsfactura + Scan + Scatter Name poArt MEMO + *!* modificare v 2.0.77 : am adaugat pretd,id_valuta_d + *!* modificare v 2.0.121 : am adaugat NULL pentru id_ctr ( in id_set_fact ) + *!* 05.11.2010 + lcSql = lcSql + [pack_facturare.adauga_articol_factura(] + Alltrim(Str(poArt.id_temp)) + [,] + ; + Alltrim(Str(poArt.id_articol)) + [,'] + Alltrim(Nvl(poArt.serie,[])) + [',] + ; + ['] + Alltrim(Nvl(poArt.explicatie,'')) + [',] + Nvl(Alltrim(Str(poact.id_pol)),[NULL]) + [,] + ; + Nvl(Alltrim(Str(poArt.id_gestiune)),[NULL]) + [,] + Alltrim(Str(poArt.pret_achizitie,18,gnPPret)) + [,] + ; + Alltrim(Str(poArt.pretd,18,gnPPretVal)) + [,] + ; + Iif(IsNull(poArt.id_valuta_d),[NULL],Alltrim(Str(poArt.id_valuta_d))) + [,] + ; + IIF(poArt.cu_tva=0,; + IIF(poArt.tip_valuta = 0,Alltrim(Str(poArt.pretftva,18,gnPPretV)),Alltrim(Str(poArt.vpretftva,18,gnPVal))),; + IIF(poArt.tip_valuta = 0,Alltrim(Str(poArt.pretctva,18,gnPPretV)),Alltrim(Str(poArt.vpretctva,18,gnPVal)))) + [,] + ; + Alltrim(Str(poArt.id_valuta)) + [,] + Alltrim(Str(poArt.cu_tva)) + [,] + Alltrim(Str(poArt.gestionabil)) + [,] + ; + Alltrim(Str(poArt.cantitate,18,gnPCant)) + [,] + ; + IIF(poArt.cu_tva = 0,; + Iif(poArt.tip_valuta = 0,Alltrim(Str(poArt.discountftva,18,gnPPretV)),Alltrim(Str(poArt.vdiscountftva,18,gnPVal))), ; + IIF(poArt.tip_valuta = 0,Alltrim(Str(poArt.discountctva,18,gnPPretV)),Alltrim(Str(poArt.vdiscountctva,18,gnPVal)))) + [,] + ; + ['] + Alltrim(Nvl(poArt.Cont,'')) + [',] + Alltrim(Str(poArt.Curs,18,4)) + [,1,] + Alltrim(Str(poArt.id_jtva_coloana)) + [,] + ; + Nvl(Alltrim(Str(poArt.id_part_rez)),[NULL]) + [,] + Nvl(Alltrim(Str(poArt.id_lucrare_rez)),[NULL]) + [,] + ; + Alltrim(Str(poArt.pretv_orig,18,gnPPretV)) + [,] + ; + Nvl(Alltrim(Str(poArt.id_set_fact)),[NULL]) + [,NULL,] + Alltrim(Str(gnIdUtil)) + [);] + *!* 05.11.2010 ^ + lcSql = [begin ] + lcSql + [ end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,"Eroare") + llReturn = .F. + Exit + Else + lcSql = [] + Endif + Endscan + Endif + + If lnSucces > 0 + *!* modificare v 2.0.79 : am adaugat poDate.nid_vanzare +*!* modificare v 2.0.142 +*!* lcSql = [{call pack_facturare.scrie_factura(0,0,] + ; +*!* ALLTRIM(Str(0,18,gnPc)) + [,0,] + ; +*!* [NULL,] + ; +*!* [0,] + ; +*!* [NULL,] + ; +*!* [NULL,] + ; +*!* [NULL,] + ; +*!* [null,0,0,?poDate.nid_vanzare)}] +*!* 30.03.2010 + lcSql = [{call pack_facturare.scrie_factura2(0,0,] + ; + ALLTRIM(Str(0,18,gnPc)) + [,'',0,] + ; + [NULL,] + ; + [NULL,] + ; + [NULL,] + ; + [NULL,] + ; + [0,] + ; + [SYSDATE,] + ; + [NULL,] + ; + [null,0,0,?poDate.nid_vanzare)}] +*!* 30.03.2010 ^ +*!* modificare v 2.0.142 ^ + lnSucces = goExecutor.oExecute(lcSql,lcCursorVerificare) + If lnSucces < 0 + aMESSAGEBOX(goExecutor.oPrelucrareEroare(),0+16,"Eroare") + llReturn = .F. + Endif + Endif + If lnSucces > 0 + If Reccount(lcCursorVerificare)>0 + gnButon = 1 + Select a.*,a.suma As totftva, a.suma As tottva, Ttod(a.dataactt) As DATAACT, ; + Ttod(a.datairegt) As dataireg, Ttod(a.datascadt) As datascad, ; + 0 As pozitie_1, 0 As pozitie_2 From (lcCursorVerificare) a Into Cursor (lcCursorFinal) Readwrite + Use In (lcCursorVerificare) + Select (lcCursorFinal) + Do Form verificare With .T.,.T. + If gnButon = 1 + Select (lcCursorFinal) + Scan For Nvl(ascd,'') <> Nvl(ascd1,'') Or Nvl(ascc,'') <> Nvl(ascc1,'') Or ; + NVL(id_partd,0) <> Nvl(id_partd1,0) Or Nvl(id_partc,0) <> Nvl(id_partc1,0) + If Nvl(ascd,'') <> Nvl(ascd1,'') Or Nvl(ascc,'') <> Nvl(ascc1,'') + pcSirDifAcont = pcSirDifAcont + Alltrim(Str(id_act)) + [|] + Alltrim(Nvl(ascd,'')) + [|] + Alltrim(Nvl(ascc,'')) + [;] + Endif + If Nvl(id_partd,0) <> Nvl(id_partd1,0) Or Nvl(id_partc,0) <> Nvl(id_partc1,0) + If (Like([41*],scd) And Nvl(id_partd,0) <> Nvl(id_partd1,0)) ; + Or (Like([41*],scc) And Nvl(id_partc,0) <> Nvl(id_partc1,0)) + aMESSAGEBOX("Nu puteti modifica clientul!",48,"Atentie") + Return .F. + Else + pcSirDifPart = pcSirDifPart + Alltrim(Str(id_act)) + [|] + Alltrim(Str(Nvl(id_partd,0))) + [|] + Alltrim(Str(Nvl(id_partc,0))) + [;] + Endif + Endif + Endscan + lnReturn = 1 + gnButon = 2 + llReturn = .F. + *!* modificare v 2.0.79 : am adaugat poDate.nid_vanzare + *!* 19.05.2010 + lcSql = [begin pack_facturare.finalizeaza_scriere_verificare(0,] + ; + [NULL]+ [,] + ; + [NULL]+ [,] + ; + [NULL]+ [,] + ; + [0]+ [,] + ; + [SYSDATE]+ [,] + ; + [NULL]+ [,] + ; + [null,'] + Alltrim(Nvl(pcSirDifAcont,[])) + [','] + ; + ALLTRIM(Nvl(pcSirDifPart,[])) + [',0,?poDate.nid_vanzare); end;] + lnSucces = goExecutor.oExecute(lcSql) + Endif + If lnSucces<0 + aMESSAGEBOX(goExecutor.oPrelucrareEroare(),16,"Eroare") + gnButon = 2 + llReturn = .F. + Endif + Use In (lcCursorFinal) + Endif + Endif + Use In (Select(lcCursorVerificare)) + + If lnSucces > 0 + Private PNTIPFACTURARE + Store 0 To PNTIPFACTURARE + listeaza_ofacturare_stoc() + Endif +Endif &&SQLSETPROP + +USE IN crsfactura + +IF lnSucces > 0 + lnSucces = goexecutor.oexecute('COMMIT') +ELSE + poGeneratorNumere.dezaloca_numar(lnIdTipDoc) + Release poDate,poGeneratorNumere + lnSucces = goexecutor.oexecute('ROLLBACK') +ENDIF +If lnSucces < 0 + aMESSAGEBOX(goexecutor.ceroare,0+16,'Eroare') +ENDIF + +lnSucces = SQLSetprop(gnHandle,"Transactions", 1) +If lnSucces < 0 + aMESSAGEBOX('Programul nu a reusit trecerea pe tranzactie automata',0+16,'Eroare') +ENDIF +*!* DEBUG +*!* SUSPEND +*!* prelucreaza_factura(0,0,0,; +*!* Iif(InList(poDate.tip,23,25,27,28,29,30,41) and Nvl(gnPretListSubunitati,2)=1,1,2)) && ofacturare_comun.prg + +*!* lcRaport = [AVIZ_TRANSFER] +*!* lnVizualizare = Iif(Type('gnVizualAviz')='N',gnVizualAviz,1) +*!* lcSetare = [AVIZ] +*!* Local loExport +*!* loExport = Createobject("oExportConfig") +*!* loExport.listareUserReport('crsfacturafinala','FRX',lcRaport,lnVizualizare,lcSetare) + diff --git a/Programe/oimportdinxml.prg b/Programe/oimportdinxml.prg new file mode 100644 index 0000000..30c82bf --- /dev/null +++ b/Programe/oimportdinxml.prg @@ -0,0 +1,476 @@ +*!* 22.12.2016 +*!* marius.mutu +*!* completez_date_xml - corectat eroare sql din versiunea 10/2015 + +PROCEDURE importbonconsumLE + LPARAMETERS tnIdSet + Local loXMLRequest as "Msxml2.xmlhttp" + Local lcExtract, lcImportXML, lcUserlogIMPPath, lcXML, llCreareGeneratorNumere,lcImportXMLSTR + Local lnNrmixuri, loEx, loMixMare,lnI + PRIVATE pcFisierImport,pnIdGestiune,pnI + STORE 0 TO pnIdGestiune + pcFisierImport = gcDirimportxml + [\pour.log] + lcUserlogIMPPath = gcDirMare + 'USERLOGS\' + m.GCS + '\' + m.gcNumeProgram + [\IMP_PROFITMANAGER] + lcImportXML = ADDBS(lcUserlogIMPPath) + [pour_] + ttoc(DATETIME(), 1) + [.xml] + If !Directory(m.lcUserlogIMPPath) + Md (m.lcUserlogIMPPath) + ENDIF +SET STEP ON + IF !FILE(m.pcFisierImport) + aMESSAGEBOX('Nu exista fisierul de import ' + m.pcFisierImport + '!', 0 + 16, _screen.Caption) + RETURN + ENDIF + lcImportXMLSTR = FILETOSTR(m.pcFisierImport) +*!* lcImportXMLSTR = STRTRAN(STRTRAN(STRTRAN(STRTRAN(STRTRAN(strtran(strtran(strtran(strtran(strtran(lcImportXMLSTR ,CHR(227),[a]),CHR(226),[a]),CHR(238),[i]),CHR(186),[s]),CHR(254),[t]),CHR(195),; +*!* [A]),CHR(194),[A]),CHR(206),'I'),CHR(170),'S'),CHR(222),'T') + lcImportXMLSTR = STRTRAN(strtran(strtran(strtran(strtran(strtran(lcImportXMLSTR ,CHR(227),[a]),CHR(226),[a]),CHR(238),[i]),CHR(186),[s]),CHR(254),[t]),CHR(39),[ ]) + lcImportXMLSTR = Strtran(Strtran(Strtran(Strtran(Strtran(lcImportXMLSTR,Chr(195),[A]),Chr(206),[I]),Chr(194),[A]),Chr(170),[S]),Chr(222),[T]) + TRY + STRTOFILE(m.lcImportXMLSTR, m.lcImportXML) +*!* Copy File (pcFisierImport) To (lcImportXML) + CATCH TO loEx + aMESSAGEBOX(loEx.Message, 0 + 16, _screen.Caption) + RETURN + ENDTRY + + If Type('poGeneratorNumere') = 'U' + Private poGeneratorNumere + poGeneratorNumere = Createobject('oGeneratorNumere') + llCreareGeneratorNumere = .T. + ENDIF + + XMLTOCURSOR(lcImportXML, 'crsXMLmare', 512) + + SELECT crsXmlMare + LOCATE FOR LEFT(ALLTRIM(TRANSFORM(date)),6)<> ALLTRIM(STR(gnAn))+PADL(ALLTRIM(STR(gnLuna)),2,'0') + IF FOUND() + aMESSAGEBOX('Fisierul de importat are documente cu data actului din alta luna decat cea in care se lucreaza!', 0 + 16, _screen.Caption) + USE IN crsXmlMare + RETURN + + ENDIF + SELECT crsXmlMare + loXMLRequest = CreateObject("Msxml2.xmlhttp") + loXMLRequest.open("GET", lcImportXML, .F.) + loXMLRequest.send(.null.) + lcXML = loXMLRequest.responseText + lnNrmixuri = OCCURS([], lcXML) + CREATE CURSOR crsExecutii (instr m, nrord c(50)) + CREATE CURSOR crsAtentionari (mesaj c(100), afara l, codmat c(50),rezolvat l, nrord c(50),pret n(16,4),id_lucrare n(10),time n(20)) + CREATE CURSOR crsBontot (id_articol n(20), denumire c(100), cant n(14, 3), pret n(16, 4), valoare n(16, 4), proc_tvav n(5, 2), id_lucrare n(10), codmat c(50),time n(20)) + CREATE CURSOR crsIesiritot (id_lucrare n(10), serie c(100), cant n(14, 3), nract n(14), id_fdoc n(5), dataact d, dataireg d, id_gestout n(5), id_responsabil n(10), id_venchelt n(5), id_sectie n(5), id_articol n(20),suma_imp n(16,4),suma n(16,4), nrord c(50),time n(20)) + + loTherm = Newobject("_thermometer","_therm","","Import bon de consum pe lucrare in curs de executie ...") + lcTask = "Import ..." + _Screen.MousePointer= 11 + With loTherm + .AlwaysOnTop=.T. + .Show() + + lnPercent = 5 + .Update(lnPercent, lcTask) + + pnI = 1 + FOR lnI = 1 TO lnNrmixuri + pnI = lnI + lcExtract = [] + STREXTRACT(lcXML, '', '', lnI) + [] + XMLTOCURSOR(lcExtract, 'crsingrediente') + + lnPercent = 50 / (lnNrmixuri - lnI) + .Update(lnPercent, lcTask) + + SELECT crsXmlMare + GOTO lnI + SCATTER NAME loMixMare + IF !completez_date_xml(loMixMare, tnIdSet) + USE IN crsingrediente + aMESSAGEBOX('Bonul de consum NU a fost importat!', 0 + 48, _screen.Caption) + EXIT + ENDIF + USE IN crsingrediente + + ENDFOR + .AlwaysOnTop=.F. + IF !afiseaza_mesaje() + lnPercent = 70 + .Update(lnPercent, lcTask) + DO executa_instr WITH tnIdSet + ENDIF + + lnPercent = 100 + .Update(lnPercent, lcTask) + + USE IN crsExecutii + USE IN crsAtentionari + USE IN crsBontot + USE IN crsIesiritot + USE IN crsXmlMare + .Complete() + .AlwaysOnTop=.F. + Endwith + Release loTherm + _Screen.MousePointer= 0 +ENDPROC +*--------------------------------- + + +PROCEDURE completez_date_xml + LPARAMETERS toMixMare, tnIdSet + PRIVATE poActActan, pcXMLDetaliiBon, pcXMLDetaliiIesiri, pnIdVanzare, pcMesaj + LOCAL lnRaspunReset + STORE 0 TO lnRaspunReset + + Dimension taValori[1,3] + taValori[1,1]="poAct.nract" + taValori[1,2]= [1] + taValori[1,3]= .T. +*!* lans(id_set_operatie,.F.,.T.,@taValori) + + Local lcActactanSave, lcCursor, lcSql, lnBut, lnCante, lnPret, lnSucces, lnnr, loLucrari, loart,lnValImport + Local loing + lnValImport = 0 + lcActactanSave = gcTempPath + 'oscrie_in_fisiere_actactan' + ALLTRIM(TRANSFORM(toMixMare.date)) + '.xml' + IF pnI = 1 + lnRaspunReset = aMESSAGEBOX('Resetati datele documentului deja introduse?',4+32,_screen.Caption) + ENDIF + IF !FILE(lcActactanSave) OR lnRaspunReset = 6 + + IF lans(tnIdSet,.F.,.T.,@taValori) = 2 + RETURN .f. + ENDIF + *----salvez xml-ul cu datele introduse + SELECT ACTACTAN + CURSORTOXML('actactan', lcActactanSave, 1, 2 + 512, 0, "1") + ELSE + XMLTOCURSOR(lcActactanSave, 'actactan', 512) + SELECT ACTACTAN + ENDIF + SET STEP ON + + *----------------------- + *!* generez numarul de bon urmator + LOCAL lCursorSerii, lcNumeCursor, lcSerieCursor + llCreareGeneratorNumere = .T. + lCursorSerii = poGeneratorNumere.creeaza_cursor_serii(22) + lcNumeCursor = poGeneratorNumere.getNumeCursor(22) + lcSerieCursor = poGeneratorNumere.getSerieCursor(22) + *!* If poGeneratorNumere.verifica_serie(2) + lnnr = poGeneratorNumere.aloca_numar(22, Null) + *!* ENDIF + SELECT ACTACTAN + REPLACE ALL nract WITH lnnr, nnir WITH lnnr + *----------------------- + *-------------------- + *!* caut id_lucrare in nom_lucrari unde nrord = jobnumber - daca nu exista lucrarea = atentionare = afara din bon + lcSql = [select id_lucrare,nrord from nom_lucrari where nrord = '] + ALLTRIM(toMixMare.jobnumber) + [' and sters = 0] + lcCursor = [v_lucrari] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + goExecutor.oReset() + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + RETURN .f. + ENDIF + + SELECT v_Lucrari + SCATTER NAME loLucrari + IF EMPTY(NVL(id_lucrare, 0)) + INSERT INTO crsAtentionari (mesaj, afara,nrord) VALUES ('Nu exista lucrarea ' + ALLTRIM(toMixMare.jobnumber) + [!], .t.,ALLTRIM(toMixMare.jobnumber)) + ELSE + SELECT ACTACTAN + REPLACE ALL id_lucrare WITH loLucrari.id_lucrare, nrord WITH loLucrari.nrord + ENDIF + USE IN v_Lucrari + *-------------------- + *!* caut daca lucrarea a fost validata, daca este validat => atentionare => il scoate din bon + lcSql = [select validat from dev_ordl d left join nom_lucrari l on d.id_lucrare = l.id_lucrare where d.sters = 0 and l.sters = 0 and l.nrord = '] + ALLTRIM(toMixMare.jobnumber) + ['] + lcCursor = [v_validat] + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + goExecutor.oReset() + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") + RETURN .f. + ENDIF + + SELECT v_validat + IF validat = 1 + INSERT INTO crsAtentionari (mesaj, afara,nrord) VALUES ('Lucrarea ' + ALLTRIM(toMixMare.jobnumber) + [ a fost validata si nu se mai pot face modificari asupra ei!!], .t.,ALLTRIM(toMixMare.jobnumber)) + ENDIF + USE IN v_validat +*------------------------------- + SELECT ACTACTAN + LOCATE FOR nr_nota = 1 + SCATTER NAME poActActan + pnIdGestiune = poActActan.id_gestout + USE IN ACTACTAN + + SELECT crsingrediente + SCAN + SCATTER NAME loing + lnCante = ROUND((VAL(STRTRAN(ALLTRIM(TRANSFORM(loing.amount)), ',', '.')) / VAL(STRTRAN(ALLTRIM(TRANSFORM(loing.density)), ',', '.'))) / 1000, gnpcant) && transform in litri din grame +*!* lnPret = VAL(STRTRAN(ALLTRIM(TRANSFORM(loing.price)), ',', '.')) + + lcSql = [select a.id_articol,a.denumire,a.codmat] + ; + [,SUM(a.cants+a.cant-a.cante) as stoc,a.pret from vstoc a where a.an = ?gnAn and a.luna = ?gnluna and a.codmat = '] + ALLTRIM(loing.code) + [' and id_gestiune = ]+ ALLTRIM(STR(poActActan.id_gestout)); + +[ group by a.id_articol,a.denumire,a.codmat,a.pret] + lcCursor = [v_articole] + + + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + goExecutor.oReset() + IF lnSucces < 0 + aMESSAGEBOX(ALLTRIM(toMixMare.jobnumber)+ [ ] + goExecutor.cEroare, 0 + 16, "Eroare") + RETURN .f. + ENDIF + + SELECT v_articole + DELETE for stoc < lnCante + GO TOP + + SCATTER NAME loart + lnPret = loart.pret + *--------------------------- + *!* daca nu exista articolul respectiv in nom_articole/in stoc => atentionare => il scoate din bon + IF EMPTY(NVL(loart.id_articol, 0)) + INSERT INTO crsAtentionari (mesaj, afara, codmat,nrord) VALUES ('Nu exista articolul ' + ALLTRIM(loing.code) + [ in stocul gestiunii ]+ALLTRIM(poActActan.gestout)+[!], .t., ALLTRIM(loing.code),ALLTRIM(toMixMare.jobnumber)) + ENDIF + *---------------------------- + + *--------------------------- + *!* daca exista mai multe articole cu acelasi codmat, sa il pun sa aleaga (dar ii arat si stocul pe fiecare posibilitate de alegere) + SELECT v_articole + IF RECCOUNT() > 1 + INSERT INTO crsAtentionari (mesaj, afara, codmat,nrord,pret,id_lucrare,time) VALUES ('Exista mai multe articole cu codul material = ' + ALLTRIM(loart.codmat) + [!], .f., ALLTRIM(loart.codmat),ALLTRIM(toMixMare.jobnumber),loart.pret,loLucrari.id_lucrare,VAL(TRANSFORM(toMixMare.time))) + ENDIF + *---------------------------- + + INSERT INTO crsBontot (id_articol, denumire, cant, pret, valoare, proc_tvav, id_lucrare, codmat,time); + VALUES (loart.id_articol, ALLTRIM(loart.denumire), lnCante, lnPret, lnCante * lnPret, gnProcTvaImp, loLucrari.id_lucrare, ALLTRIM(loing.code),VAL(TRANSFORM(toMixMare.time))) + lnValImport = lnValImport + round(lnCante * lnPret,2) + SELECT crsingrediente + ENDSCAN + + + INSERT INTO crsIesiritot (id_lucrare, serie, cant, nract, id_fdoc, dataact, dataireg, id_gestout, id_responsabil, id_venchelt, id_sectie, id_articol,suma_imp,nrord,suma,time); + VALUES (loLucrari.id_lucrare, ALLTRIM(NVL(TRANSFORM(toMixMare.colorcode),[])) + [ - ] + ALLTRIM(toMixMare.colorname), VAL(strtran(ALLTRIM(TRANSFORM(toMixMare.mixsize)), [,], [.])), ; + poActActan.nract, poActActan.id_fdoc, poActActan.dataact, poActActan.dataireg, poActActan.id_gestout, poActActan.id_responsabil, poActActan.id_venchelt, poActActan.id_sectie, -100009,lnValImport,ALLTRIM(toMixMare.jobnumber),0,VAL(TRANSFORM(toMixMare.time))) + + + poGeneratorNumere.resetAll() + + + + + + RETURN .t. + *!* ----------------afiseaza mesaje---------------- +PROCEDURE afiseaza_mesaje + LOCAL llErori + Local loAfisMesaje as 'frm_atenterori' + Private pcselect, pcschema, pcfiltru, pcorder, postoc, llAfiseaza + Store '' To postoc + pcschema = ['stoc n(16,4),id_articol n(10),codmat c(50),denumire c(100),nume_gestiune c(50),cgest c(20),pret n(16,4), ales n(1)'] + pcselect = ['select a.cants+a.cant-a.cante as stoc,a.id_articol,a.codmat,a.denumire,a.nume_gestiune,a.cgest,a.pret, 0 as ales from vstoc a '+] + ; + ['where 1=2'] + pcfiltru = [ 1 = 2] + pcorder = [a.denumire] + llAfiseaza = .F. + gencursor('poStoc', 'v_stoc', pcselect, pcfiltru, pcschema, pcorder, llAfiseaza) + postoc.ca_baza1.afisare() + *!* SELECT v_stoc + *!* BROWSE + + SELECT crsAtentionari + LOCATE FOR afara = .t. + IF FOUND() + llErori = .t. + ENDIF + + SELECT crsAtentionari + IF RECCOUNT() > 0 + GO TOP + loAfisMesaje = CREATEOBJECT('frm_atenterori') + loAfisMesaje._grdrow2.ReadOnly = .f. + loAfisMesaje.nidgestiune = pnIdGestiune + loAfisMesaje.but_termin1.visible = !llErori + loAfisMesaje.show(1) + ENDIF + + IF gnButon = 2 + llErori = .t. + ENDIF + SELECT crsIesiritot + SCAN + SCATTER NAME loiesiri + SELECT round(SUM(cant * pret),2) as suma FROM crsBontot INTO CURSOR crsBonsume WHERE id_lucrare = loiesiri.id_lucrare AND time = loiesiri.time + SELECT crsIesiritot + REPLACE suma_imp WITH crsBonsume.suma + USE IN crsBonsume + SELECT crsIesiritot + ENDSCAN + RELEASE loiesiri + + SELECT crsBontot + RETURN llErori + *!* ----------------afiseaza mesaje---------------- + + *!* ----------------executa_instr---------------- + +PROCEDURE executa_instr + LPARAMETERS tnIdSet + PRIVATE pcXMLDetaliiIesiri, pcXMLDetaliiBon, pnIdVanzare + LOCAL lcCursorVerificare + Local lcCursorFinal, lcSql, llReturn, lnReturn, lnSucces, loexec, loiesiri,lnSume0 + STORE 0 TO lnSume0 + + PRIVATE pcSirDifAcont, pcSirDifPart + lcCursorVerificare = [crsactverif] + lcCursorFinal = [actactan] + pcSirDifAcont = [] + pcSirDifPart = [] + SELECT crsIesiritot + GO TOP + oModificSumaLuc = CREATEOBJECT('frm_lucrari_sume') + oModificSumaLuc._grdBase1.column3.readonly = .f. + oModificSumaLuc.show(1) + SELECT crsIesiritot + COUNT FOR suma_imp=0 TO lnSume0 + IF lnSume0 > 0 + aMESSAGEBOX('Atentie! Bonurile cu sume = 0 nu vor fi importate!',0+64,_screen.Caption) + SELECT crsIesiritot + DELETE ALL FOR suma_imp = 0 &&AND suma = 0 + ENDIF + IF gnButon = 2 + poGeneratorNumere.dezaloca_numar(22) + Release poDate, poGeneratorNumere + RETURN .f. + ENDIF + SELECT crsIesiritot + SCAN + SCATTER NAME loiesiri + SELECT id_lucrare, serie, cant, id_articol,suma FROM crsIesiritot INTO CURSOR crsIesiri WHERE id_lucrare = loiesiri.id_lucrare AND time = loiesiri.time + Cursortoxml("crsIesiri", "pcXMLDetaliiIesiri", 1, 1, 0, "") + SELECT crsIesiri + USE IN crsIesiri + SELECT * FROM crsBontot INTO CURSOR crsBon WHERE id_lucrare = loiesiri.id_lucrare AND time = loiesiri.time + Cursortoxml("crsBon", "pcXMLDetaliiBon", 1, 1, 0, "") + USE IN crsBon + + SELECT crsExecutii + SCATTER NAME loexec MEMO BLANK + loexec.instr = [{call pack_gest_import.import_BON(] + ALLTRIM(STR(loiesiri.nract)) + [,] + loexec.instr = loexec.instr + ALLTRIM(STR(loiesiri.id_fdoc)) + [,] + loexec.instr = loexec.instr + [ TO_DATE('] + NVL(DTOS(loiesiri.dataact), "") + [','YYYYMMDD'),] + loexec.instr = loexec.instr + [ TO_DATE('] + NVL(DTOS(loiesiri.dataireg), "") + [','YYYYMMDD'),] + loexec.instr = loexec.instr + ALLTRIM(STR(loiesiri.id_gestout)) + [,] + loexec.instr = loexec.instr + ALLTRIM(STR(loiesiri.id_responsabil)) + [,] + loexec.instr = loexec.instr + ALLTRIM(STR(loiesiri.id_venchelt)) + [,] + loexec.instr = loexec.instr + ALLTRIM(STR(loiesiri.id_sectie)) + [,] + loexec.instr = loexec.instr + [?gnIdutil,] + loexec.instr = loexec.instr + [?gnIdSucursala,] + loexec.instr = loexec.instr + ALLTRIM(STR(tnIdSet)) + [,'] + loexec.instr = loexec.instr + ALLTRIM(pcXMLDetaliiBon) + [','] + loexec.instr = loexec.instr + ALLTRIM(pcXMLDetaliiIesiri) + [')}] + + loexec.nrord = ALLTRIM(loIesiri.nrord) + + INSERT INTO crsExecutii (instr,nrord) VALUES (loexec.instr,loexec.nrord) + + SELECT crsIesiritot + ENDSCAN + + SELECT crsExecutii + lnSucces = SQLSetprop(gnHandle, "Transactions", 2) + If lnSucces < 0 + aMESSAGEBOX('Programul nu a reusit trecerea pe tranzactie manuala', 0 + 16, 'Eroare') + ELSE + + SELECT crsExecutii + SCAN + SCATTER NAME loexec memo + + lnSucces = goExecutor.oExecute(loexec.instr, lcCursorVerificare) + + If lnSucces < 0 + aMESSAGEBOX(ALLTRIM(loexec.nrord)+[ ]+goExecutor.oPrelucrareEroare(), 0 + 16, "Eroare") + llReturn = .F. + EXIT + else + If Reccount(lcCursorVerificare) > 0 + gnButon = 1 + Select a.*, a.suma As totftva, a.suma As tottva, Ttod(a.dataactt) As dataact, ; + Ttod(a.datairegt) As dataireg, Ttod(a.datascadt) As datascad, ; + 0 As pozitie_1, 0 As pozitie_2 From (lcCursorVerificare) a Into Cursor (lcCursorFinal) Readwrite + Use In (lcCursorVerificare) + Select (lcCursorFinal) + Do Form verificare With .T., .T. + If gnButon = 1 + Select (lcCursorFinal) + Scan For Nvl(ascd, '') <> Nvl(ascd1, '') Or Nvl(ascc, '') <> Nvl(ascc1, '') Or ; + NVL(id_partd, 0) <> Nvl(id_partd1, 0) Or Nvl(id_partc, 0) <> Nvl(id_partc1, 0) + If Nvl(ascd, '') <> Nvl(ascd1, '') Or Nvl(ascc, '') <> Nvl(ascc1, '') + pcSirDifAcont = pcSirDifAcont + Alltrim(Str(id_act)) + [|] + Alltrim(Nvl(ascd, '')) + [|] + Alltrim(Nvl(ascc, '')) + [;] + Endif + If Nvl(id_partd, 0) <> Nvl(id_partd1, 0) Or Nvl(id_partc, 0) <> Nvl(id_partc1, 0) + If (Like([41*], scd) And Nvl(id_partd, 0) <> Nvl(id_partd1, 0)) ; + Or (Like([41*], scc) And Nvl(id_partc, 0) <> Nvl(id_partc1, 0)) + aMESSAGEBOX("Nu puteti modifica clientul!", 48, "Atentie") + llReturn = .F. + Else + pcSirDifPart = pcSirDifPart + Alltrim(Str(id_act)) + [|] + Alltrim(Str(Nvl(id_partd, 0))) + [|] + Alltrim(Str(Nvl(id_partc, 0))) + [;] + Endif + Endif + Endscan + + + lcSql = [begin pack_gest_import.finalizeaza_scriere_verificare(?gnAn,?gnLuna,] + ; + ['] + Alltrim(Nvl(pcSirDifAcont, [])) + [','] + ; + ALLTRIM(Nvl(pcSirDifPart, [])) + ['); end;] + lnSucces = goExecutor.oExecute(lcSql) + Endif + If lnSucces < 0 + aMESSAGEBOX(goExecutor.oPrelucrareEroare(), 16, "Eroare") + Endif + Use In (lcCursorFinal) + Endif + Endif + Use In (Select(lcCursorVerificare)) + + + ENDSCAN + + ENDIF + IF lnSucces < 0 OR gnButon = 2 + poGeneratorNumere.dezaloca_numar(22) + Release poDate, poGeneratorNumere + lnSucces = goExecutor.oExecute('ROLLBACK') + aMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') + aMESSAGEBOX('Bonul de consum NU a fost importat!', 0 + 48, _screen.Caption) + llReturn = .F. + + ELSE + lnSucces = goExecutor.oExecute('COMMIT') + aMESSAGEBOX('Importul bonului de consum a luat sfarsit!', 0 + 64, _screen.Caption) + DELETE File (pcFisierImport) + llReturn = .T. + SELECT crsIesiritot + SCAN + SCATTER NAME loiesiri + lnTip = gnTipGest + DO listare_descarcare_productie WITH loiesiri.nract, lnTip + SELECT crsIesiritot + ENDSCAN + + ENDIF + + lnSucces = SQLSetprop(gnHandle, "Transactions", 1) + If lnSucces < 0 + aMESSAGEBOX('Programul nu a reusit trecerea pe tranzactie automata', 0 + 16, 'Eroare') + ENDIF + + RETURN llReturn +ENDPROC +*!* ----------------executa_instr---------------- + + diff --git a/Programe/ovariabile_globale.prg b/Programe/ovariabile_globale.prg new file mode 100644 index 0000000..fa8eb82 --- /dev/null +++ b/Programe/ovariabile_globale.prg @@ -0,0 +1,96 @@ +**OVARIABILE_GLOBALE.PRG + + +PUBLIC gcGestPermis, gcGrupePermis,gnTipGest,gcGestPermis_Nume,gcGrupePermis_Nume +STORE '' TO gcGestPermis,gcGrupePermis,gcGestPermis_Nume,gcGrupePermis_Nume +STORE 0 TO gnTipGest + +IF TYPE('gcContObInv') = 'U' + PUBLIC gcContObInv + gcContObInv = '8039' +ENDIF +SET TEXTMERGE ON TO MEMVAR lcSql NOSHOW +\select DISTINCT C.ID_GRUPE, C.NUME_GRUPA +\ from <>.VGEST_NOM_GRUPE C +\ JOIN (select id_grupe +\ from <>.gest_nom_grupe +\ where sters = 0 +\ start with ID_GRUPE IN (SELECT ID_GRUPE FROM <>.VGEST_CORESP_UTIL_GRUPE WHERE ID_UTIL = <>) +\ connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe +SET TEXTMERGE TO + +*!* lcSql = [select * from ] + gcs + [.VGEST_CORESP_UTIL_GRUPE where id_util =] + ALLTRIM(STR(gnIdUtil)) + +lcCursor = [GRUPE_permis] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') +ELSE + SELECT grupe_permis + SCAN + gcGrupePermis = gcGrupePermis + ',' + ALLTRIM(STR(id_grupe)) + gcGrupePermis_Nume = gcGrupePermis_Nume + ',' + ALLTRIM(nume_grupa) + ENDSCAN + gcGrupePermis = SUBSTR(gcGrupePermis,2) + gcGrupePermis_Nume = SUBSTR(gcGrupePermis_Nume,2) + USE IN grupe_permis +ENDIF +goExecutor.oReset() +*!* AMESSAGEBOX(gcGrupePermis_nume) + +IF '-1' $ gcGrupePermis + gcGestPermis = '-1' +ELSE +*!* lcSql = [SELECT * FROM ] + gcs + [.VGEST_CORESP_GRUPE_GESTIUNI A JOIN ] + gcs + [.VGEST_CORESP_UTIL_GRUPE B ]+ ; +*!* [ON A.ID_GRUPE = B.ID_GRUPE WHERE B.ID_UTIL = ] + ALLTRIM(STR(gnIdUtil)) + + SET TEXTMERGE ON TO MEMVAR lcSql NOSHOW + \select DISTINCT ID_GESTIUNE, NUME_GESTIUNE + \ from <>.vgest_coresp_grupe_gestiuni c + \ join (select id_grupe + \ from <>.gest_nom_grupe + \ where sters = 0 + \ start with ID_GRUPE IN (SELECT ID_GRUPE FROM <>.VGEST_CORESP_UTIL_GRUPE WHERE ID_UTIL = <>) + \ connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe + SET TEXTMERGE TO + + + lcCursor = [gest_permis] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ELSE + SELECT gest_permis + SCAN + gcGestPermis = gcGestPermis + ',' + ALLTRIM(STR(id_gestiune)) + gcGestPermis_Nume = gcGestPermis_Nume + ',' + ALLTRIM(nume_gestiune) + ENDSCAN + gcGestPermis = SUBSTR(gcGestPermis,2) + gcGestPermis_Nume = SUBSTR(gcGestPermis_Nume,2) + USE IN gest_permis + ENDIF + goExecutor.oReset() +ENDIF +*!* AMESSAGEBOX(gcGestPermis_nume) +*WAIT WINDOW gcGestPermis + ',' + gcGrupePermis + +***************************************************************************** +*** Citesc setarea pentru ReportBehaviour +IF TYPE('gnReportBehaviour') = 'U' + PUBLIC gnReportBehaviour + gnReportBehaviour = 90 +ENDIF + +LOCAL lcReportBehaviour +lcReportBehaviour = NVL(getini(m.gcGeneralIniFile,'report','reportbehaviour'), '') +IF EMPTY(m.lcReportBehaviour) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 +ELSE + gnReportBehaviour = VAL(m.lcReportBehaviour) +ENDIF +IF !INLIST(gnReportBehaviour, 80, 90) + setini(m.gcGeneralIniFile,'report','reportbehaviour', '90') + gnReportBehaviour = 90 +ENDIF +***************************************************************************** \ No newline at end of file diff --git a/Programe/roagest.prg b/Programe/roagest.prg new file mode 100644 index 0000000..2f5e134 --- /dev/null +++ b/Programe/roagest.prg @@ -0,0 +1,1093 @@ +*!* 22.02.2010 +*!* marius.mutu +*!* nu se mai face verificarea seriei hdd + +*!* 12.10.2016 +*!* marius.mutu +*!* excelxml.vcx + +PARAMETERS tparam + +&&& cont2003 + +PUBLIC gcNumeProgram, gcAntet +LOCAL lchost, lcUserName, lcPassword, lnIdUtil, lnIdProgram, lcUserNameApp,lcPasswordApp +STORE '' TO lchost, lcUserName, lcPassword, lcUserNameApp,lcPasswordApp,gcAntet +STORE 0 TO lnIdUtil, lnIdProgram +gcNumeProgram = [ROAGEST] +_Screen.Icon = gcNumeProgram+[.ICO] +*_screen.Icon = 'D:\CONTAFIN_ORACLE\COMUN\GRAFICE\ICONITE\GESTIUNI.ICO' + + +IF !LIKE(gcNumeProgram + '*', UPPER(ALLTRIM(JUSTSTEM(SYS(16,0))))) + Messagebox("Nu puteti porni acest program!",0+16,"Atentie") + RETURN +ENDIF + +SET CENTURY ON +SET DELETED ON +SET DATE TO DMY +SET MARK TO '/' +SET EXCLUSIVE OFF +SET CPDIALOG OFF +SET TALK OFF +SET SAFETY OFF +SET ESCAPE OFF +SET EXACT ON +SET ANSI ON +SET CONSOLE OFF +SET NOTIFY OFF +SET SECONDS OFF +SET HOURS TO 24 +*SET NULLDISPLAY TO '*' +SET NULLDISPLAY TO '' +SET DECIMALS TO 4 +SET POINT TO '.' + +*!* SET REPORTBEHAVIOR 90 && sa se seteze inainte de raport + + +_SCREEN.WINDOWSTATE=2 +_SCREEN.VISIBLE=.T. + + + + +*VARIABILE_______ +LOCAL lcMainClassLib +LOCAL lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown + +*VARIABILE__________________________________________________________________________ +DECLARE nror[65000] +DECLARE RTVA[22,2] +err1=.F. + +PUBLIC CRLF +STORE CHR(13) + CHR(10) TO CRLF +PUBLIC pcNl,pcAn +STORE "" TO pcNl,pcAn && se initializeaza in start00 + +PUBLIC pcTitlu ,pl_verificat +STORE "" TO pcTitlu +STORE .F. TO pl_verificat + +PUBLIC BUTON, luna_inchisa, luna_neplatita, PRIMADATA, m.ctva, m.ctvam, m.ctvai, antet, m.nivel +PUBLIC OStart,OSETVIZ,OSETTULBAR,OSETINSTRUM,orm,OTEXT,OJUR,osetgest,tlbr_INSTR,tlbr_VIZ,oprinc,DIRGEN,gcDirMare +PUBLIC pcapsocsub,pcapsocvar +pcapsocsub=0 +pcapsocvar=0 +m.nivel = 0 +PUBLIC a4 +a4=.T. +m.nrgrup=999 + +STORE .F. TO luna_inchisa,tlbr_INSTRum,tlbr_VIZ +STORE 1 TO BUTON,col_menu +STORE .T. TO PRIMADATA,luna_neplatita + +*-- Save and configure environment.*********************** + +lcLastSetTalk=SET("TALK") +SET TALK OFF +lcLastSetPath=SET("PATH") + +*!* gcAppPath=ADDBS(JUSTPATH(SYS(16,0))) && d:\contafin\cont2003\ +Set Procedure To "D:\ROA\ROAGEST\COMUN\UTILE\web\WWUTILS.PRG" Additive +Set Procedure To "D:\ROA\ROAGEST\COMUN\UTILE\web\WWAPI.PRG" Additive + +gcAppPath = Addbs(ShortPath(GetAppStartPath())) +If Right(gcAppPath ,9)="PROGRAME\" + gcAppPath = Substr(gcAppPath ,1,Len(gcAppPath )-9) +Endif +gcAppName=Allt(Uppe(Juststem(Sys(16,0)))) && "cont2003" +*!*Set Path To Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] Additive && modificare v 2.0.59 + + +*gcAppDataPath=gcAppPath+"Date_"+gcAppName+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI +gcUtilizatoriPath = gcAppPath + "UTILIZATORI\" + +Set Default To (gcAppPath) +lcPath = gcAppPath + 'Date;' + ; + gcAppPath + 'Include;' + ; + gcAppPath + 'FERESTRE;' + ; + gcAppPath + 'GRAFICE;' + ; + gcAppPath + 'CLASE;' + ; + gcAppPath + 'MENIURI;' + ; + gcAppPath + 'PROGRAME;' + ; + gcAppPath + 'RAPOARTE;' + ; + gcAppPath + 'COMUN;' + ; + gcAppPath + 'COMUN\CLASE;' + ; + gcAppPath + 'COMUN\FERESTRE;' + ; + gcAppPath + 'COMUN\PROGRAME;' + ; + gcAppPath + 'COMUN\GRAFICE;' + ; + gcAppPath + 'COMUN\RAPOARTE;' + ; + gcAppPath + 'COMUN\MENIURI;' + ; + gcAppPath + 'COMUN\UTILE\GRIDEXTRAS;' + ; + gcAppPath + 'COMUN\UTILE\CTL32;' + ; + gcAppPath + 'COMUN\UTILE\HPDF;' + ; + gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ; + gcAppPath + 'COMUN\UTILE\WEB;' + ; + gcAppPath + 'COMUN\UTILE\EXCEL;' + ; + Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] + +*!*Set Path To Date;Include;FERESTRE;GRAFICE;Help;CLASE;MENIURI;PROGRAME;RAPOARTE;PROGS;LIBS + +SET PATH TO &lcPath ADDITIVE + + + PUSH MENU _MSYSMENU +lcLastSetClassLib=SET("CLASSLIB") +lcMainClassLib= gcAppPath + "comun\clase\appwiz" + + + +*CLASE__________________________________________________________ +SET CLASSLIB TO (lcMainClassLib) ADDITIVE +SET CLASSLIB TO GESTIUNI ADDITIVE +SET CLASSLIB TO CAUT ADDITIVE +*SET CLASSLIB TO FERESTREBAZA ADDITIVE +*SET CLASSLIB TO CONT2000-1 ADDITIVE +*SET CLASSLIB TO CONT2000-2 ADDITIVE +*SET CLASSLIB TO CONT2000-3 ADDITIVE +SET CLASSLIB TO BAZA ADDITIVE +SET CLASSLIB TO comun ADDITIVE +SET CLASSLIB TO accessibility.vcx ADDITIVE +*!* messagebox in romana - ar trebui bagat intr-o librarie de utilitati +*!* messagebox.vcx, functia amessagebox in oproceduri_comune, imagini mb_*.bmp, messagebox.h +SET CLASSLIB TO messagebox ADDITIVE +SET CLASSLIB TO registry ADDITIVE +SET CLASSLIB TO cauta_alfa_forms.vcx ADDITIVE + +&& CLASE ORACLE +SET CLASSLIB TO DECABAZA ADDITIVE +SET CLASSLIB TO onomenclatoare ADDITIVE +SET CLASSLIB TO stocuri.vcx ADDITIVE +SET CLASSLIB TO rulaje.vcx ADDITIVE +SET CLASSLIB TO ointroduceri ADDITIVE +SET CLASSLIB TO ointroduceri_web ADDITIVE +SET CLASSLIB TO ointroduceri_depozit ADDITIVE +SET CLASSLIB TO overificari ADDITIVE +SET CLASSLIB TO ferestre_oracle ADDITIVE +SET CLASSLIB TO ferestre_cere_date.vcx ADDITIVE +SET CLASSLIB TO configurare.vcx ADDITIVE +SET CLASSLIB TO serii_numere.vcx ADDITIVE +SET CLASSLIB TO omodificari.vcx ADDITIVE +SET CLASSLIB TO ocompensari.vcx ADDITIVE +SET CLASSLIB TO caut_ora ADDITIVE +SET CLASSLIB TO onote_contabile ADDITIVE +SET CLASSLIB TO otoolbar ADDITIVE +SET CLASSLIB TO bon_fisc ADDITIVE &&serii bonuri fiscale +SET CLASSLIB TO onom_articole ADDITIVE +SET CLASSLIB TO onom_retete ADDITIVE +Set Classlib To oinventar ADDITIVE + +SET CLASSLIB TO orapoarte ADDITIVE +SET CLASSLIB TO orapoarte_gestiuni ADDITIVE +SET CLASSLIB TO orapoarte_parametri ADDITIVE +SET CLASSLIB TO ONOM_CURS ADDITIVE + +SET CLASSLIB TO ctl32_statusbar_fals.vcx additive +SET CLASSLIB TO ctl32_common.vcx additive +SET CLASSLIB TO ctl32_structs.vcx additive +SET CLASSLIB TO ctl32_progressbar.vcx additive +SET CLASSLIB TO ctl32_balloontip.vcx additive +SET CLASSLIB TO ocriterii.vcx ADDITIVE +SET CLASSLIB TO oavize.vcx ADDITIVE +SET CLASSLIB TO onomenclatoare2 ADDITIVE +*!* v 2.0.62 +Set Classlib To oschimbare_pret.vcx additive +*!* modificare v 2.0.118 +SET CLASSLIB TO wwdialogs.vcx additive +SET CLASSLIB TO oimportxml.vcx additive +SET CLASSLIB TO excelxml.vcx ADDITIVE + +SET CLASSLIB TO orapoarte_obinv.vcx ADDITIVE + +*!* modificare v 2.0.118 ^ +&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + +*PROCEDURI______________________________________________________ +SET PROCEDURE TO PROCEDURI +SET PROCEDURE TO acces_meniu additive +SET PROCEDURE TO cauta_alfa additive +*SET PROCEDURE TO totPROC ADDITIVE +*SET PROCEDURE TO refverif ADDITIVE +*SET PROCEDURE TO PROCMENIU ADDITIVE +*SET PROCEDURE TO TOTV ADDITIVE +SET PROCEDURE TO pmenu ADDITIVE +SET PROCEDURE TO proceduri_comune ADDITIVE +*SET PROCEDURE TO totv.prg ADDITIVE +SET PROCEDURE TO quitapp ADDITIVE +SET PROCEDURE TO init_program ADDITIVE +SET PROCEDURE TO oproceduri_listari.prg ADDITIVE +SET PROCEDURE TO oproceduri_configurare.prg ADDITIVE +SET PROCEDURE TO oproceduri_articole.prg ADDITIVE +SET PROCEDURE TO oproceduri_retete.prg ADDITIVE +SET PROCEDURE TO orapoarte.prg ADDITIVE +SET PROCEDURE TO mesaje ADDITIVE +SET PROCEDURE TO oserii_numere.prg ADDITIVE +SET PROCEDURE TO oexport.prg ADDITIVE +SET PROCEDURE TO wwConfig.prg ADDITIVE +SET PROCEDURE TO proceduri_rapoarte.prg additive +SET PROCEDURE TO OPROCEDURI_CURS.PRG ADDITIVE +Set procedure to orapoarte_dinamice.prg additive +SET PROCEDURE TO validare.prg additive + +&& PROCEDURI ORACLE +SET PROCEDURE TO GENCURSOR.PRG ADDITIVE +SET PROCEDURE TO OPROCEDURI_COMUNE.PRG ADDITIVE +SET PROCEDURE TO OINIT_OPTIUNI.PRG ADDITIVE +SET PROCEDURE TO updateserver.prg ADDITIVE +SET PROCEDURE TO oinainte_de.prg ADDITIVE +SET PROCEDURE TO ooperatii_comune.prg ADDITIVE + +SET PROCEDURE TO Ocompensari.PRG ADDITIVE +SET PROCEDURE TO OPROCEDURI_aMS.PRG ADDITIVE +SET PROCEDURE TO oproceduri_rulaje additive +SET PROCEDURE TO oproceduri_stocuri additive +SET PROCEDURE TO OINTRODUCERI ADDITIVE +SET PROCEDURE TO oHeader.prg ADDITIVE +SET PROCEDURE TO proceduri_excel.PRG ADDITIVE +SET PROCEDURE TO onomenclatoare.PRG ADDITIVE +*!* SET PROCEDURE TO orapoarte.prg ADDITIVE +*!* SET PROCEDURE TO orap_trezorerie ADDITIVE +*!* SET PROCEDURE TO omeniu_initializari ADDITIVE +SET PROCEDURE TO osecurity ADDITIVE +SET PROCEDURE TO ocautare ADDITIVE +SET PROCEDURE TO orefaceri ADDITIVE +SET PROCEDURE TO ofacturare_comun.PRG ADDITIVE +SET PROCEDURE TO ofacturare_stoc.PRG ADDITIVE + +&& modificare 06.03 +&& casa de marcat +SET PROCEDURE TO oproceduri_casademarcat ADDITIVE +SET PROCEDURE TO oproceduri_casa_marcat_e500 ADDITIVE + +&& sfarsit modificare 06.03 +SET PROCEDURE TO oproceduri_casa_marcat_mp500 ADDITIVE +*!* 12.05.2006 +*!* marius mutu +SET PROCEDURE TO oproceduri_util.prg ADDITIVE +*!* + +*!* 16.06.2006 +*!* marius.mutu +SET PROCEDURE TO wwxmlhttp.prg ADDITIVE +SET PROCEDURE TO ini.prg ADDITIVE + +*!* 25.08.2006 +*!* marius.mutu +SET PROCEDURE TO odocumente.prg ADDITIVE + +*!* 28.05.2007 +*!* marius.mutu +SET PROCEDURE TO regex.prg ADDITIVE +SET PROCEDURE TO wwutils.prg ADDITIVE +SET PROCEDURE TO inchidere_k ADDITIVE + +*!* v 2.0.62 +Set procedure to oschimbare_pret.prg additive + +*!* modificare v 2.0.118 +SET PROCEDURE TO iniacces.prg ADDITIVE +SET PROCEDURE TO oupdate.prg additive +SET PROCEDURE TO procese.prg additive +SET PROCEDURE TO version.prg additive +SET PROCEDURE TO xmlaccess.prg additive +SET PROCEDURE TO xmlparser.prg additive +SET PROCEDURE TO filebringer.prg additive +SET PROCEDURE TO wwcodeupdate.prg additive +SET PROCEDURE TO wwhttp.prg ADDITIVE +Set Procedure To wwApi.prg Additive +*!* modificare v 2.0.118 ^ +SET PROCEDURE TO xdate.prg Additive && modificare v 2.0.120 +SET PROCEDURE TO ofacturare.prg ADDITIVE && modificare v 2.0.142 +SET PROCEDURE TO oproceduri_obinv.prg ADDITIVE && 2.6.0 +SET PROCEDURE TO oproceduri_facturare.prg ADDITIVE +SET PROCEDURE TO email.prg ADDITIVE + +*!* modificare v 2.0.188 +Declare Integer GetPrivateProfileString In Kernel32 ; + string, String, String, String @, Integer, String +Declare Integer WritePrivateProfileString In Kernel32 ; + string, String, String, String +Declare Integer CopyFile In kernel32; + STRING lpExistingFileName,; + STRING lpNewFileName,; + INTEGER bFailIfExists +Declare Integer URLDownloadToFile In urlmon.Dll; + INTEGER pCaller, String szURL, String szFileName,; + INTEGER dwReserved, Integer lpfnCB +Declare Integer PathFileExists In shlwapi; + STRING pszPath +*!* modificare v 2.0.188 ^ +&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + +IF PCOUNT() = 1 AND TYPE('tparam') = 'C' + glParametri = .T. + PRIVATE laParametri + DECLARE LAPARAMETRI[1] + lcParam = ALLTRIM(tParam) + lnNr = lista2array(lcParam,@laParametri,";") + IF lnNr < 5 + aMESSAGEBOX('Numar incorect de parametri',0+16,'Eroare') + RETURN + ENDIF + lcHost = laParametri[1] + lcUserName = laParametri[2] + lcPassword = laParametri[3] + lnIdUtil = ROUND(VAL(laParametri[4]),0) + lnIdProgram = ROUND(VAL(laParametri[5]),0) +ELSE + glParametri = .F. + lcHost = 'JCSSERVER' + lcUserName = 'CONTAFIN_ORACLE' + lcPassword = '' + lnIdUtil = 0 + lnIdProgram = 0 + +ENDIF + +PUBLIC glVerificTabel && daca se verifica structura tabelelor in totv.prg +glVerificTabel=.T. + +PUBLIC glQuit +glQuit = .F. + +PUBLIC gnIdIstoric +gnIdIstoric = 0 + + +*!* PUBLIC gcAppPath,gcAppName, gcTempPath, gcCaleServerDate, gcUserNameApp, gcPasswordApp +*!* STORE '' TO gcUserNameApp, gcPasswordApp, gnNivelUtilizator, gnGrupUtilizator, gcAcces +*!* PUBLIC gcSchemaPath +*!* STORE '' TO gcSchemaPath +*!* *!* 10.09.2007 +*!* *!* marius.mutu +*!* *!* folosesc shortpath ca sa pot instala in "c:\program files\..." +*!* *!* gcAppPath = UPPER(ADDBS(JUSTPATH(SYS(16,0)))) && d:\contafin\cont2003\ +*!* gcAppPath = ADDBS(ShortPath(GetAppStartPath())) && wwutils.prg +*!* gcAppName = ALLT(UPPE(JUSTSTEM(SYS(16,0)))) && "cont2003" +*!* Set Path To Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] Additive && modificare v 2.0.80 + +*!* gcAppPath = STRTRAN(gcAppPath, "\PROGRAME", "") + +*!* gcUtilizatoriPath = gcAppPath + "UTILIZATORI\" + +_reportpreview = gcAppPath + "reportpreview.app" + +STORE "" TO gcTempPath, gcCaleServerDate + + + + + +*** DIRGEN +liat=RAT("\",gcAppPath,2) +*!* modificare v 2.0.141 : am adaugat gcDirMare +gcDirMare=ADDBS(LEFT(gcAppPath,liat-1)) +dirgen = gcDirMare +*!* modificare v 2.0.141 + +gcSecurityPath = DIRGEN + 'Security\' +gcSecurityFile = gcSecurityPath + 'ROA_SECURITY.TXT' + +CD &gcDirMare + +Private gcGeneralIniFile, gcSettingsFile +gcGeneralIniFile = m.gcDirMare + "settings.ini" +gcSettingsFile = m.gcGeneralIniFile + +IF !FILE(gcGeneralIniFile) + + TEXT TO lcSettings NOSHOW +[errors] +host= + ENDTEXT + + STRTOFILE(lcSettings, gcGeneralIniFile) +ENDIF + +*** Tin conexiunea deschisa. La wert??? apare eroarea odbc "timeout occured" daca se lasa peste 1 minut programul fara sa se lucreze +LOCAL lcKeepAlive, lnKeepAlive +PRIVATE goKeepAlive +lcKeepAlive = NVL(getini(m.gcGeneralIniFile,'update','keepalive_seconds'), '') +lnKeepAlive = 0 +IF EMPTY(m.lcKeepAlive) + setini(m.gcGeneralIniFile,'update','keepalive_seconds', '0') + lnKeepAlive = 0 +ELSE + lnKeepAlive = VAL(m.lcKeepAlive) +ENDIF +IF m.lnKeepAlive >= 5 && minim 5 secunde + goKeepAlive = NEWOBJECT("keepalive","utility.vcx") + goKeepAlive.interval = m.lnKeepAlive * 1000 + goKeepAlive.enabled = .T. +ENDIF + + +PRIVATE poLog,goLog && obiect pt logarea mesajelor sistemului +poLog = NEWOBJECT("Log_Mesaje","Log_Mesaje.prg") +goLog = poLog +*!* Locale +Set Classlib To locale Additive +Private gcLocalePath, goLocale, gcLocale,glTraducere +gcLocalePath = gcAppPath + "Locale\" +glTraducere = .F. +*!* lcLocaleDb = gcLocalePath + "locale.dbc" +*!* Open Database (m.lcLocaleDb) +*!* modificare ROAGEST v 2.0.107 +*!* goLocale=Newobject("Locale","Locale.vcx") +lcLanguage = getini(gcGeneralIniFile,"locale","lang") +llLocale= getini(gcGeneralIniFile,"locale","llocale") +*!* IF !EMPTY(m.llLocale) AND m.llLocale<>'0' +*!* goLocale.llocale=.T. +*!* ENDIF +*!* modificare ROAGEST v 2.0.107 ^ +If Empty(m.lcLanguage) + gcLocale = 'Romana' +Else + gcLocale = m.lcLanguage +Endif +*!* modificare ROAGEST v 2.0.107 +Local lcObjLocale +If gcLocale = 'Romana' + lcObjLocale = [Locale_dummy] +Else + lcObjLocale = [Locale] +Endif +goLocale=Newobject(lcObjLocale,"Locale.vcx") +If !Empty(m.llLocale) And m.llLocale<>'0' + goLocale.llocale=.T. +Endif +Release lcObjLocale +*!* modificare ROAGEST v 2.0.107 ^ +goLocale.locale = gcLocale +*!* Locale ^ + +*!* IF verificari() +*!* _SCREEN.VISIBLE=.T. +*!* DO mesaj WITH "Se fac verificari programului","Va rugam reveniti" +*!* glQuit= .T. +*!* QUIT +*!* ENDIF + +*!* IF !Debug_Start() +*!* lcParam=tparam +*!* WAIT WINDOW 'lcParam ' +lcParam +*!* IF EMPTY(tparam) OR (TYPE('tParam')='C' AND !verific_start(tparam,dirgen,gcAppName)) +*!* _SCREEN.VISIBLE=.T. +*!* DO mesaj WITH "Programul trebuie pornit doar din START","" +*!* QUIT +*!* ENDIF +*!* ENDIF + + + + +*!* modificare v 2.1.1 +*!* PUBLIC tipar,SER_PERM,SER_PERI,VERSIUNE +*!* STORE .F. TO SER_PERM,SER_PERI +*!* modificare v 2.1.1 ^ + +***************************** VARIABILE ORACLE +PRIVATE goUtilizator +private gnHandle,gnidutil,GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA,GNDIFZILE, gcUserNameApp, gcPasswordApp +PRIVATE gnButon && variabila pentru renunt si terminat +STORE 2 TO gnButon +STORE '' TO GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA, gcUserNameApp, gcPasswordApp, gcNivelUtilizator, gcGrupUtilizator, gcAcces +gnHandle = -1 +gnidutil = 0 + +PRIVATE gcHost, gcUserName, gcPassword,gofundal, gnIdProgram, gnId_Prg_Owner +gnIdProgram = 0 +gnId_Prg_Owner = 0 +gofundal='' + +PRIVATE goFirma,gnIdFirma,gcFirma,gnAn,gnLuna && ,gnPA,gnPC +&& STORE 0 TO gnPA,gnPC && nr. de zecimale afisare, calcul +STORE null TO gofirma +STORE 0 TO gnIdFirma,gnAn,gnLuna +STORE '' TO gcFirma + +PRIVATE glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +STORE .F. to glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +***toolbar*** +PRIVATE otool,ohelp +STORE '' TO otool,ohelp +***toolbar*** + +PRIVATE gcS && schema firmei +STORE 'CONTAFIN' TO gcS + +IF TYPE('laparametri',1)="A" + IF ALEN(laParametri,1)=10 + gnAn = VAL(laParametri[7]) + gnLuna = VAL(laParametri[8]) &&lansare noua + gcS = laParametri[9] + gnIdFirma = VAL(laParametri[10]) + ENDIF +ENDIF + +PRIVATE gcCopyRight +gcCopyRight = '© ROA Romfast SRL' + +&& modificare 06.03 +&& casa de marcat +PRIVATE glListareBonFiscal +STORE .F. TO glListareBonFiscal +&& sfarsit modificare 06.03 + +&& obiect global wrap pt sqlexec cu text eroare si succes +PRIVATE goExecutor,goConn,goExport +goExecutor = CREATEOBJECT("oExecutor") +goConn = CREATEOBJECT("oConn") +goExport = Createobject("oExportConfig") + +PRIVATE goMyXMLHTTP +lcHostErrors = getini(gcGeneralIniFile,'errors','host') +goMyXMLHTTP = CREATEOBJECT("MyXMLHTTP", lcHostErrors) + +&& obiect global pt luna aleasa din calendar +PRIVATE goCalendar +STORE null TO goCalendar + + +gcHost = lcHost +gcUserName = lcUserName +gcPassword = lcPassword +gcUserNameApp = lcUserNameApp +gcPasswordApp = lcPasswordApp +gnIdUtil = lnIdUtil +gnIdProgram = lnIdProgram + + +IF !glParametri + lnValid = getcrsSecurity(gcSecurityFile) + IF lnValid > 0 + IF USED('crsHost') + SELECT crsHost + GO top + gcHost = ALLTRIM(host) + gcUserName = ALLTRIM(schema) + gcPassword = ALLTRIM(pwd) + USE IN crsHost + ENDIF + ENDIF +ENDIF +***************************** VARIABILE ORACLE + +&& DECLARARE VARIABILE GLOBALE SPECIFICE APLICATIEI CARE NU SE AFLA IN OPTIUNI_FIRMA +&& (SE AFLA IN DIRECTORUL PROIECTULUI, NU IN COMUN) +*DO OVARIABILE_GLOBALE.PRG + +*!* modificare v 2.1.1 +*!* USE &gcAppPath\SERCONT IN 0 ALIAS SER SHARED +*!* SELECT SER +*!* GO TOP +*!* tipar=TIP +*!* SER_PERM=SER_PERMAN +*!* SER_PERI=SER_PERIOD +*!* VERSIUNE=VERcont +*!* MODEL_PROGRAM=MODEL +*!* USE IN SER +*!* parolamea=SUBSTR(tipar,MONTH(DATE()),1) +*!* parolamea=parolamea+ALLT(STR(DAY(DATE())))+ALLT(STR(MONTH(DATE()))) + +*!* *!* 22.02.2010 +*!* IF .F. +*!* IF !_DEBUG() +*!* IF SER_PERM AND !verif_ser_perm() +*!* QUIT +*!* ENDIF +*!* ENDIF +*!* ENDIF +*!* *!* 22.02.2010 ^ +*!* modificare v 2.1.1 ^ + +PUBLIC NUMEPROGRAM,FUNDALPROGRAM && MENIUPROGRAM + + + + +m.contab = 'GESIUNI' +NUMEPROGRAM = 'ROA - Gestiuni' +*!* MENIUPROGRAM = gcAppPath + "meniuri\contGEST.mpr" +FUNDALPROGRAM = gcAppPath + "FERESTRE\FUNDAL.scx" +_program='gest' + +*-- Configure application object.***************************** + +Local laVersion +Dimension laVersion(12) +If Agetfileversion(laVersion, Sys(16,0)) > 0 + NUMEPROGRAM = laVersion(10) +Endif +Release laVersion + + +*!* 20.04.2012 +PRIVATE gcReportPreviewer, gcReportPreviewerPath +gcReportPreviewer = "FoxyPreview" && oexport.prg +gcReportPreviewerPath = dirgen + "COMUNROA\" +*!* 20.04.2012 ^ + + +lcOnShutdown="ShutDown()" +ON SHUTDOWN &lcOnShutdown +ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO()) +*!* _SHELL="DO Cleanup IN progs\cont2003" + +*-- Instantiate application object.*************************** +RELEASE goApp +PUBLIC goApp +goApp=CREATEOBJECT("wzApplication") + +goApp.SetCaption(NUMEPROGRAM) +goApp.cStartupMenu = m.gcAppPath + "\meniuri\roagest.mpr" +*goApp.cStartupForm=FUNDALPROGRAM +goApp.cStartupForm = gcAppPath + "COMUN\ferestre\frm_login.scx" + +*-- Show application. +goApp.SHOW + + + +*-- Release application. +RELEASE goApp +cleanup() + +*-- Restore default menu. +POP MENU _MSYSMENU + + +*-- Restore environment. +ON ERROR +ON SHUTDOWN +*!* IF NOT lcLastSetClassLib==SET("classlib") +*!* RELEASE CLASSLIB (lcMainClassLib) +*!* ENDIF +*!* IF EMPTY(lcLastSetPath) +*!* SET PATH TO +*!* ELSE +*!* SET PATH TO &lcLastSetPath +*!* ENDIF +*!* IF lcLastSetTalk=="ON" +*!* SET TALK ON +*!* ELSE +*!* SET TALK OFF +*!* ENDIF + +RETURN + + + + +* FUNCTII______________________________________________________________________ +FUNCTION ErrorHandler(nError,cMethod,nLine) + LOCAL lcErrorMsg,lcCodeLineMsg + + WAIT CLEAR + lcErrorMsg=MESSAGE()+CHR(13)+CHR(13) + lcErrorMsg=lcErrorMsg+"Method: "+cMethod + lcCodeLineMsg=MESSAGE(1) + IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg="..." + lcErrorMsg=lcErrorMsg+CHR(13)+"Line: "+ALLTRIM(STR(nLine)) + IF NOT EMPTY(lcCodeLineMsg) + lcErrorMsg=lcErrorMsg+CHR(13)+CHR(13)+lcCodeLineMsg + ENDIF + ENDIF + + IF TYPE('goMyXMLHTTP') = 'O' + lcLunaHTTP = IIF(TYPE('gnLuna') = 'N', TRANSFORM(gnLuna) + "/","") + IIF(TYPE('GNAN') = 'N', TRANSFORM(gnAn),"") + lcErrorMsgHTTP = SYS(0) + ":" + IIF(TYPE('GCS')='C'," " + GCS,"") + ": " + lcLunaHTTP + CHR(13) +CHR(10) + lcErrorMsg + ; + CHR(13) +CHR(10) + CHR(13) + CHR(10) + GETCALLSTACK() + lcUserName = IIF(TYPE('gcUserNameApp') = 'C', gcUserNameApp, '') + lcProgram = JUSTSTEM(SYS(16,0)) + goMyXMLHTTP.postError(lcErrorMsgHTTP, lcUserName, lcProgram) + ENDIF + + IF _vfp.StartMode = 0 + DEBUG + SUSPEND + ENDIF + IF AMESSAGEBOX(lcErrorMsg,17,_SCREEN.CAPTION)#1 + ON ERROR + RETURN .F. + ENDIF +ENDFUNC + + + +FUNCTION SHUTDOWN +*!* IF start_nou() +*!* =End_Istoric(gnIdIstoric, ADDBS(DIRGEN)+"DATERETEA\", "START_ISTORIC") +*!* ENDIF + IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) + RETURN goApp.OnShutDown() + ENDIF + Cleanup() + QUIT +ENDFUNC + + +FUNCTION Cleanup + + IF CNTBAR("_msysmenu")=7 + RETURN + ENDIF + ON ERROR + ON SHUTDOWN + SET CLASSLIB TO + SET PATH TO + CLEAR ALL + *CLOSE ALL + POP MENU _MSYSMENU + RETURN + + + + + +*----------------------------------------------------- + +*!* FUNCTION verif_ser_perm +*!* CLEAR + +*!* RETURN PORNIRE() +*!* ******** +*!* *?pornire() + +*!* FUNCTION PORNIRE +*!* SET EXACT ON +*!* PRIVATE calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp,ser1,ser2,key1,KEY2 +*!* STORE '' TO calewin,serinreg,serdisk,calesys,serdisktemp,catehd,ser1,ser2,key1,KEY2 +*!* STORE 0 TO checksum1,checksum2 +*!* STORE .T. TO valret +*!* DECLARE INTEGER SHGetFolderPath IN SHFOLDER.DLL ; +*!* INTEGER hwndOwner, ; +*!* INTEGER nFolder, ; +*!* INTEGER hToken, ; +*!* INTEGER dwFlags, ; +*!* STRING @ pszPath +*!* DECLARE INTEGER GetActiveWindow IN WIN32API +*!* #DEFINE CSIDL_WINDOWS 36 +*!* #DEFINE CSIDL_SYSTEM 37 +*!* #DEFINE CSIDL_PROGRAMS 38 +*!* lcPath = REPL(CHR(0),261) +*!* =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) +*!* calewin=LEFT(lcPath,AT(CHR(0),lcPath)-1) +*!* lcPath = REPL(CHR(0),261) +*!* =SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath) +*!* calesys=LEFT(lcPath,AT(CHR(0),lcPath)-1) +*!* &&se verifica existenta celor trei fisiere +*!* IF (NOT FILE(calesys+'\diskserial.dll')) OR (NOT FILE(calesys+'\getmacip.dll')) OR (NOT FILE(calewin+'\comdir.snr')) +*!* valret=.F. +*!* ENDIF +*!* IF valret +*!* file1=FILETOSTR(calesys+'\diskserial.dll') +*!* checksum1=SYS(2007,file1) +*!* file2=FILETOSTR(calesys+'\getmacip.dll') +*!* checksum2=SYS(2007,file2) +*!* &&severifica daca dll-urile nu au fost modificate +*!* IF (VAL(checksum1) != 58755) OR (VAL(checksum2) != 30476) +*!* valret=.F. +*!* ENDIF +*!* ENDIF +*!* &&se citesc seriile tutturor celor patru hard disk-uri posibile(pe IDE primary master,primary slave...) +*!* &&se tine minte primul cu seria nenula-daca nu s-a putut citi seria de la nici unul se pune o serie default +*!* &&seria default este "NUAREHAR" +*!* IF valret +*!* DECLARE INTEGER GetSerialNumber IN diskSerial.DLL INTEGER ,STRING +*!* catehd=0 +*!* FOR i=0 TO 3 +*!* serdisktemp=SPACE(40) +*!* GetSerialNumber(i,@serdisktemp) +*!* IF (LEN(ALLTRIM(serdisktemp))!=0) AND (catehd=0) +*!* serdisktemp=sircaracter(serdisktemp) +*!* serdisk=serdisktemp +*!* catehd=catehd+1 +*!* ENDIF +*!* ENDFOR +*!* IF (LEN(ALLTRIM(serdisk))=0) +*!* serdisk='NUAREHAR' +*!* ELSE +*!* IF ((LEN(ALLTRIM(serdisk))>0) AND (LEN(ALLTRIM(serdisk))<8)) +*!* serdisk=serdisk+REPLICATE('1',8-LEN(ALLTRIM(serdisk))) +*!* ENDIF +*!* ENDIF +*!* serdisk=SUBSTR(ALLTRIM(serdisk),LEN(ALLTRIM(serdisk))-7,8) +*!* ENDIF +*!* &&se citeste din comdir.snr seria de inregistrare si se verifica egalitatea cu seria obtinuta anterior +*!* IF valret +*!* gnFileHandle = FOPEN(calewin+'\comdir.snr') +*!* nSize = FSEEK(gnFileHandle, 0, 2) && Move pointer to EOF +*!* IF nSize!=9 +*!* valret=.F. +*!* ELSE +*!* = FSEEK(gnFileHandle, 0, 0) && Move pointer to BOF +*!* cString = FREAD(gnFileHandle,9) +*!* ser1=SUBSTR(cString,1,4) +*!* ser2=SUBSTR(cString,5,4) +*!* key1=SUBSTR(cString,9,1) +*!* KEY2=DECTOBIN(ALLTRIM(HEXDEC(key1))) +*!* serinreg=decodare1(ALLTRIM(UPPER(ser1)),KEY2)+decodare1(ALLTRIM(UPPER(ser2)),KEY2) +*!* IF serdisk!=serinreg +*!* valret=.F. +*!* ENDIF +*!* ENDIF +*!* = FCLOSE(gnFileHandle) +*!* ENDIF +*!* seriedisk1=serdisk +*!* serieinreg1=serinreg +*!* ON ERROR valret=.F. +*!* RETURN valret +************* +FUNCTION decodare1 + PARAMETERS lstring,CHEIE + LOCAL lens,poz1,poz2,POZ3,lret,LRET2,lcstring,val1,lret1 + lret='' + lret1='' + LRET2='' + lcstring=ALLTRIM(UPPER(lstring)) + lens=LEN(lcstring) + FOR i=1 TO 4 + poz1=SUBSTR(lcstring,i,1) + val1=ASC(poz1) + POZ3=SUBSTR(CHEIE,i,1) + DO CASE + CASE val1>=48 AND val1<=57 + IF ((val1-47)+INT(VAL(POZ3)))<=10 + poz2=CHR(val1+INT(VAL(POZ3))) + ELSE + poz2=CHR(val1+INT(VAL(POZ3))-10) + ENDIF + CASE val1>=65 AND val1<=90 + IF ((val1-64)+2*INT(VAL(POZ3)))<=26 + poz2=CHR(val1+2*INT(VAL(POZ3))) + ELSE + poz2=CHR(val1+2*INT(VAL(POZ3))-26) + ENDIF + ENDCASE + LRET2=LRET2+poz2 + ENDFOR + FOR i=1 TO lens + poz1=SUBSTR(LRET2,i,1) + val1=ASC(poz1) + DO CASE + CASE val1>=48 AND val1<=57 + IF ((val1-47)+i)<=10 + poz2=CHR(val1+i) + ELSE + poz2=CHR(val1+i-10) + ENDIF + CASE val1>=65 AND val1<=90 + IF ((val1-64)+2*i)<=26 + poz2=CHR(val1+2*i) + ELSE + poz2=CHR(val1+2*i-26) + ENDIF + ENDCASE + lret=lret+poz2 + ENDFOR + lens=LEN(lret) + FOR i=1 TO lens + poz1=SUBSTR(lret,i,1) + val1=ASC(poz1) + DO CASE + CASE val1>=48 AND val1<=57 + poz2=CHR(val1+17)&& din 0-9 in A-J + CASE val1>=65 AND val1<=74 + poz2=CHR(val1-17)&& din A-J in 0-9 + CASE val1>=75 AND val1<=82 + poz2=CHR(val1+8)&&din K-R in S-Z + CASE val1>=83 AND val1<=90 + poz2=CHR(val1-8)&&din S-Z in K-R + ENDCASE + lret1=lret1+poz2 + ENDFOR + RETURN lret1 +*********** +&&transformarea in decimal a unui caracter hexa +FUNCTION HEXDEC + LPARAMETERS LC + LOCAL LV + DO CASE + CASE LC=='0' + LV='0' + CASE LC=='1' + LV='1' + CASE LC=='2' + LV='2' + CASE LC=='3' + LV='3' + CASE LC=='4' + LV='4' + CASE LC=='5' + LV='5' + CASE LC=='6' + LV='6' + CASE LC=='7' + LV='7' + CASE LC=='8' + LV='8' + CASE LC=='9' + LV='9' + CASE LC=='A' + LV='10' + CASE LC=='B' + LV='11' + CASE LC=='C' + LV='12' + CASE LC=='D' + LV='13' + CASE LC=='E' + LV='14' + CASE LC=='F' + LV='15' + ENDCASE + RETURN LV +**************** +&&codarea binara din hexa pe patru biti +FUNCTION DECTOBIN + PARAMETERS sc + LOCAL lretf + DO CASE + CASE sc=='0' + lretf='0000' + CASE sc=='1' + lretf='0001' + CASE sc=='2' + lretf='0010' + CASE sc=='3' + lretf='0011' + CASE sc=='4' + lretf='0100' + CASE sc=='5' + lretf='0101' + CASE sc=='6' + lretf='0110' + CASE sc=='7' + lretf='0111' + CASE sc=='8' + lretf='1000' + CASE sc=='9' + lretf='1001' + CASE sc=='10' + lretf='1010' + CASE sc=='11' + lretf='1011' + CASE sc=='12' + lretf='1100' + CASE sc=='13' + lretf='1101' + CASE sc=='14' + lretf='1110' + CASE sc=='15' + lretf='1111' + ENDCASE + RETURN lretf +*********** +FUNCTION ECARACTER + PARAMETERS strg1 + PRIVATE pz,ch,lcstring,vret,lg1 + STORE 0 TO pz,lg1 + STORE '' TO ch,lcstring + STORE .T. TO vret + lcstring=UPPER(strg1) + lg1=LEN(lcstring) + FOR ind1=1 TO lg1 + ch=SUBSTR(lcstring,ind1,1) + IF (NOT BETWEEN(ASC(ch),48,57)) AND (NOT BETWEEN(ASC(ch),65,90)) + vret=.F. + EXIT + ENDIF + ENDFOR + RETURN vret +************ +FUNCTION sircaracter + PARAMETERS strg1 + PRIVATE pz,ch,lcstring,vret,lg1,lciesire + STORE 0 TO pz,lg1 + STORE '' TO ch,lcstring,lciesire + STORE .T. TO vret + strg1=STRTRAN(strg1,ALLTRIM(CHR(39)),'')&&caracterul ' + strg1=STRTRAN(strg1,ALLTRIM(CHR(39)),'')&&caracterul " + lcstring=UPPER(ALLTRIM(strg1)) + lg1=LEN(lcstring) + FOR ind1=1 TO lg1 + ch=SUBSTR(lcstring,ind1,1) + IF BETWEEN(ASC(ch),48,57) OR BETWEEN(ASC(ch),65,90) + lciesire=lciesire+ch + ENDIF + ENDFOR + RETURN lciesire + + + +***------------------------------------- +PROCEDURE _DEBUG + + PRIVATE lcret,lcfisier,lcPath,lccalewin + DECLARE INTEGER SHGetFolderPath IN SHFOLDER.DLL ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + DECLARE INTEGER GetActiveWindow IN WIN32API + #DEFINE CSIDL_WINDOWS 36 + + + lcPath = REPL(CHR(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + lccalewin=LEFT(lcPath,AT(CHR(0),lcPath)-1) + + lcret=.F. + lcfisier=ADDBS(lccalewin)+[DEBUG.TXT] + + IF FILE(lcfisier) + LCVAL=FILETOSTR(lcfisier) + + LNVAL1=MOD(VAL(RIGHT(LCVAL,1)),2) && restul 1 sau 0; daca e impar e 1 + lnval2=VAL(LEFT(LCVAL,LEN(LCVAL)-1)) + IF LNVAL1=1 OR YEAR(DATE())-MONTH(DATE())=lnval2 + lcret=.T. + ENDIF + ENDIF + RETURN lcret + +ENDPROC + + +FUNCTION Start_Nou + + RETURN Exista_Branch(,,dirgen) + +ENDFUNC && start_nou + +PROCEDURE Debug_Start + + lcFile = gcAppPath + "debug.txt" + + IF FILE(lcFile) &&OR !Start_Nou() + RETURN .T. + ENDIF + RETURN .F. + +ENDPROC && Debug_Start +************************************************************************ +PROCEDURE verificari +PARAMETERS tcFisierVerif + +lcverificari = ADDBS(gcAppPath)+gcAppName+".txt" + + +IF FILE(lcverificari) + RETURN .T. +ENDIF +RETURN .F. + +ENDPROC && verificari \ No newline at end of file diff --git a/Programe/shutdown.prg b/Programe/shutdown.prg new file mode 100644 index 0000000..91623e3 --- /dev/null +++ b/Programe/shutdown.prg @@ -0,0 +1,3 @@ +IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) + RETURN goApp.OnShutDown() +ENDIF diff --git a/Programe/suma_in_vorbe.prg b/Programe/suma_in_vorbe.prg new file mode 100644 index 0000000..ef7fdd3 --- /dev/null +++ b/Programe/suma_in_vorbe.prg @@ -0,0 +1,157 @@ +*---------------------------------------------------------------------------------- +*FUNCTION SUMA_IN_VORBE +param suma +local i,lit,numar1 +store 0 to i +store '' to lit,numar1 + +copy file &dirgen\_ALFA\datean\mila1.* to &loc\&nfscurt\tempo\mila1.* +use &loc\&nfscurt\tempo\mila1 in 0 alias mila1 +numar1=space(12) + +numar1=str(suma,12) +dimension a(12) +a(1)=subs(numar1,12,1) +a(2)=subs(numar1,11,1) +a(3)=subs(numar1,10,1) +a(4)=subs(numar1,9,1) +a(5)=subs(numar1,8,1) +a(6)=subs(numar1,7,1) +a(7)=subs(numar1,6,1) +a(8)=subs(numar1,5,1) +a(9)=subs(numar1,4,1) +a(10)=subs(numar1,3,1) +a(11)=subs(numar1,2,1) +a(12)=subs(numar1,1,1) +sele mila1 +********************* + loca for nr=val(a(12)) + lit=lit+alltri(cr1) + + if val(a(11))=1 + if val(a(10))=0 + loca for nr=val(a(11)) + lit=lit+alltri(cr5) + else + loca for nr=val(a(10)) + lit=lit+alltri(cr4) + endif + else + if val(a(10))=0 + loca for nr=val(a(11)) + lit=lit+alltrim(cr5) + else + loca for nr=val(a(11)) + lit=lit+alltrim(cr2) + loca for nr=val(a(10)) + lit=lit+alltrim(cr3) + endif + endif + do case + case val(a(12)) # 0 + lit=lit+' miliarde' + case val(a(11)) # 0 + lit=lit+' miliarde' + case val(a(10)) # 0 + lit=lit+' miliarde' + endcase + *********************** + loca for nr=val(a(9)) + lit=lit+alltri(cr1) + + if val(a(8))=1 + if val(a(7))=0 + loca for nr=val(a(8)) + lit=lit+alltri(cr5) + else + loca for nr=val(a(7)) + lit=lit+alltri(cr4) + endif + else + if val(a(7))=0 + loca for nr=val(a(8)) + lit=lit+alltrim(cr5) + else + loca for nr=val(a(8)) + lit=lit+alltrim(cr2) + loca for nr=val(a(7)) + lit=lit+alltrim(cr3) + endif + endif + do case + case val(a(9)) # 0 + lit=lit+' milioane' + case val(a(8)) # 0 + lit=lit+' milioane' + case val(a(7)) # 0 + lit=lit+' milioane' + endcase +*********************** + loca for nr=val(a(6)) + lit=lit+alltri(cr1) + + if val(a(5))=1 + if val(a(4))=0 + loca for nr=val(a(5)) + lit=lit+alltri(cr5) + else + loca for nr=val(a(4)) + lit=lit+alltri(cr4) + endif + else + if val(a(4))=0 + loca for nr=val(a(5)) + lit=lit+alltrim(cr5) + else + loca for nr=val(a(5)) + lit=lit+alltrim(cr2) + loca for nr=val(a(4)) + lit=lit+alltrim(cr3) + endif + endif + do case + case val(a(6)) # 0 + lit=lit+' mii' + case val(a(5)) # 0 + lit=lit+' mii' + case val(a(4)) # 0 + lit=lit+' mii' + endcase + +********************* + loca for nr=val(a(3)) + lit=lit+alltri(cr1) + + if val(a(2))=1 + if val(a(1))=0 + loca for nr=val(a(2)) + lit=lit+alltri(cr5) + else + loca for nr=val(a(1)) + lit=lit+alltri(cr4) + endif + else + if val(a(1))=0 + loca for nr=val(a(2)) + lit=lit+alltrim(cr5) + else + loca for nr=val(a(2)) + lit=lit+alltrim(cr2) + loca for nr=val(a(1)) + lit=lit+alltrim(cr3) + endif + endif + do case + case val(a(3)) # 0 + lit=lit+' lei' + case val(a(2)) # 0 + lit=lit+' lei' + case val(a(1)) # 0 + lit=lit+' lei' + endcase + +sele mila1 +use + +lit=strtran(lit,' ','') +return lit \ No newline at end of file diff --git a/Programe/update_nomenclator.prg b/Programe/update_nomenclator.prg new file mode 100644 index 0000000..5af2355 --- /dev/null +++ b/Programe/update_nomenclator.prg @@ -0,0 +1,69 @@ +********************************************************** +PROCEDURE update_nomenclator + + *!* DO update_coresp_tip_part + *!* DO update_coresp_tip_cont + DO update_lunilean + + *** tabele meniu deschise din proiect + LOCAL lcCaleDateMenu + + lcCaleDateMenu=gcAppPath+[\COMUN\DATEMENU\] + +*!* modificare v 2.0.120 + lnSucces = xdate() +*!* IF !USED('XREQUEST') +*!* USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST +*!* ENDIF +*!* IF !USED('xitems') +*!* USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems +*!* ENDIF +*!* *!* IF !USED('YACT') +*!* *!* USE &lcCaleDateMenu.YACT IN 0 ALIAS YACT +*!* *!* ENDIF +*!* IF !USED('XSETS') +*!* USE &lcCaleDateMenu.XSETS IN 0 ALIAS XSETS ORDER TAG ID_SET +*!* ENDIF +*!* IF !USED('xACT') +*!* USE &lcCaleDateMenu.xACT IN 0 ALIAS xACT +*!* ENDIF +*!* IF !USED('xnote') +*!* USE &lcCaleDateMenu.xnote IN 0 ALIAS xnote +*!* ENDIF +*!* modificare v 2.0.120 ^ + + IF !USED('menu1') + USE &lcCaleDateMenu.menu1 IN 0 ALIAS menu1 EXCL + ENDIF + + IF !USED('INFISIERE') + USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE + ENDIF + + IF !USED('selectii') + USE &lcCaleDateMenu.gest_selectii IN 0 ALIAS selectii + ENDIF + + IF !USED('nom_meniu') + USE &lcCaleDateMenu.nom_meniu IN 0 ALIAS nom_meniu + ENDIF + + *!* modificare v 2.2.3 + If !Used('mila1') + Use &lcCaleDateMenu.mila1 In 0 Alias mila1 + endif + *!* modificare v 2.2.3 ^ + +*!* IF !USED('refaceri') +*!* USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri +*!* ENDIF + +*!* IF !USED('tabela_fisa_cont') +*!* USE &lcCaleDateMenu.tabela_fisa_cont IN 0 ALIAS tabela_fisa_cont +*!* ENDIF + + *!* 03.09.2007 + *!* marius.mutu + CREATE CURSOR dual (dummy c(10)) + INSERT INTO dual (dummy) VALUES ("x") +ENDPROC && update_nomenclator \ No newline at end of file diff --git a/ROAGEST.ini.tmpl b/ROAGEST.ini.tmpl new file mode 100644 index 0000000..7aa1550 --- /dev/null +++ b/ROAGEST.ini.tmpl @@ -0,0 +1,4 @@ +[Main] +UpdateFrequency=-1 +VersionUpdateUrl=http://SERVER/codeupdate/roagest/roagest.xml +DownloadPath=D:\ROA_RB\CODEUPDATE\ diff --git a/Rapoarte/Nefolosite/rap2_nir_marfuri.fr2 b/Rapoarte/Nefolosite/rap2_nir_marfuri.fr2 new file mode 100644 index 0000000..19b42d5 --- /dev/null +++ b/Rapoarte/Nefolosite/rap2_nir_marfuri.fr2 @@ -0,0 +1,1170 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="rap2_nir_marfuri.frx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + +