hPROD

Pentru ca hPROD și hMARFA să conlucreze, trebuie configurate următoarele:

• în hPROD > hUTIL > Catalogul fișierelor trebuie creată/configurată calea de acces la baza de date hMARFA: aliasul m
• în hPROD trebuie configurat scriptul P_EXTN - Extragere date din nomenclator, modul cum să delimiteze din hMARFA > Nomenclator articole produsele. În varianta standard:

    nomm->GRUPA="P"

• în hPROD trebuie configurat scriptul N_EXTN - Extragere date din nomenclator, modul cum să delimiteze din hMARFA > Nomenclator articole materiile prime/materialele. În varianta standard:

    nomm->GRUPA="GP"

• în hPROD trebuie configurat scriptul de extragere al raportului de producție, modul în care să identifice cantitățile fabricate.
  • dacă raportul de producție se extrage din ieșiri, atunci trebuie configurat scriptul _EXT Extrage productie din hMARFA. În varianta standard:

    // conditia de identificare produse in iesirile valide ("V")
    xx_cond   := {||facr->GRUPA="P" .AND. facr->GEST="P"}

• dacă raportul de producție se extrage din intrări, atunci trebuie configurat scriptul _EXTP Extrage productie din hMARFA. În varianta standard:

    // conditia de identificare produse in intrarile valide ("V")
    xx_cond   := {||lotm->GRUPA="P" .AND. lotm->GEST="P"}
    ...
    // extrage din hMARFA
    ...
    DBSELECTAREA("tran")
    DBSETFILTER(tran->TIPDCM="BPP  ")

• în hPROD trebuie configurată constanta IND-STORNO: dacă la extragerea raportului de producție loturile storno să fie luate în considerare sau nu:

      Cod:      IND-STORNO
      Denumire: Indicator includere storno
      Temei legal:                  D-se include storno in raport
      Ce reprezinta valoarea ?      N-nu se include storno
      Valoare:  N
      

Dacă N, loturile de ieșire/intrare cu cantitate negativă se ignoră, nu intra în Raport producție.
Dacă D, loturile de ieșire/intrare cu cantitate negativă se includ, însă dacă în final cantitatea însumată din produs este negativă, nu se include.

• în hPROD trebuie aleasă varianta de extragerea din hMARFA: varianta din Ieșiri sau varianta din BPP/BPS. Astfel, în funcție de implementare trebuie lăsat deschis fie T_NIV2 - Calcul general consum/iesiri, fie T_NIVB - Calcul general consum/BPP,BPS.

• în hMARFA > hUTIL > Catalogul fișierelor trebuie creat accesul la hPROD > Articole, pentru a putea importa consumul:

      Alias:           ext6
      Cale (path):     ..\PROD2Z.DEM\PROD             Nume: ARTICOLE
      Nume utilizator:
      - fisier:         Articole
      - articol:        Articol
      Aplicatii:       M
      Reorganizare/indexare ? [D/N]: N       Reorg. cu sortare ? [D/N]: N
      Indecsi: Fisier:       Cheie:
      1.:      ARTICOL1      SN_05
      2.:      ARTICOL2       SN_05

• în HMARFA trebuie adăugate elementele specifice:
  • în tipuri de documente: BCM_P
  • în scripturi:

    IFAC_6 - Generare BCM_P
    IFAC_7 - Stergere BCM_P
    ITRAN3 - A . Inchidere BPP(BPS)
    ETRAN2 - B1. Copiere BPP(BPS)
    ITRAN2 - B2. Creare BPP (BPS)

• în hMARFA trebuie adaptat scriptul IFAC_6 - Generare BCM_P cu logica de numerotare aleasă pentru BCM_P. În varianta standard este:

    pac_nrdoc := h_DTOC(pac_data,"aallzz")

• trebuie revizuiţi şi parametrii:

    // --- Parametri ------------------------------------------------------------
    // gestiunea din care se scad articolele
    pac_gest   := "G   "
    // sectia de productie (partener)
    pac_part   := "P   "
    // tip document
    pac_tdoc   := "BCM_P"
    // --------------------------------------------------------------------------

• în hMARFA trebuie adaptat scriptul ITRAN2 - B2. Creare BPP (BPS) cu logica de numerotare aleasă pentru BPP eventual și BPS. În varianta standard:

  // varianta dacă se creează mai multe BPP-uri pe lună şi unul pe zi
  // de ex. pt. 17.07.03  va fi 17P184 pt. BPP
  //                            17S184 pt. BPS
  // fiindca 17.07.03 este a 184-a zi a anului
  xx_data  := DataCurenta()
  cc_data  := h_DTOC(xx_data,"AALLZZ")
  cc_nrdoc := LEFT(cc_data,2)
  #IF ext2->DOC_TIP="BPP"
    cc_nrdoc := cc_nrdoc + "P"
  #ENDIF
  #IF ext2->DOC_TIP="BPS"
    cc_nrdoc := cc_nrdoc + "S"
  #ENDIF
  cc_nrdoc := cc_nrdoc+STR(xx_data-h_CTOD(LEFT(cc_data,2)+"0101","AALLZZ")+1,3,0)