========================================================================
14.04.2009

     
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

       
      "  "

  ,     
 -       <Ctrl>

      
         
   


========================================================================
13.02.2007

,      : SQL_UNIV
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 SQL_UNIV       
   Univers     .

  ( ,  Memo)   PL/SQL ,
        Univers
    (  ,   .)

    ,   
    ,  
    SQL-  (,  )

:

::::::::::::::::::::
BEGIN
ENVUN4.SetEnvValue('DOC12345_DEST',:DTDEP);
ENVUN4.SetEnvValue('DOC12345_EXPED',:CTDEP);
END;
/*
DTDEP=indoc_m_dtdep
CTDEP=indoc_m_ctdep
*/
::::::::::::::::::::

      
    GR1   '\'

:

::::::::::::::::::::
TIP=P
GR1=2171\STRIH1_CODPRODUCER=SYS_CONTEXT('ENVUN4','DOC12345_EXPED')
::::::::::::::::::::

 ,   STRIH1_CODPRODUCER    
        'P'.

========================================================================
11.01.2007

   Univers   
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  Univers   : MainAttr
   MenuAttr,    (!) 
 ,    
  (  "A")

:
MainAttr=ATTR_PRC

     :
ShowModal, ShowFullScreen, ShowStd, StdCaption

ShowModal=true
     () 

ShowFullScreen=true
      

ShowStd=true
    ,
      

StdCaption=Cartela generala
   ShowStd   ,
    .

 ,    ,  
  .     :
TabCount, Tab?Caption, Tab?DetailHeight

TabCount=3
   (  )
    0  9.

Tab1Caption=Preturi
   (    -  ,
 Tab0Caption      ).

Tab2DetailHeight=121
 Detail        
(    -  ).


========================================================================
26.12.2006

  -     Univers
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

       Univers,
   ,       .

   ,  :
 Cartela     
   .

HideTopPanel
     COD, CODVECHI, DENUMIREA.

:
HideTopPanel=true

FocusOnGrid
       
(      HideTopPanel)

:
FocusOnGrid=true

 ,     DetailHeight,
  (detail)    .

:
DetailHeight=121

========================================================================
15.12.2006

   -  "SO"   
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

        
  .   - F8.
       "SoldAllowGrids"
     ,    
   .       
,     .
 ,     ,   .
          
   (     :-)   
    ,      .

 &REZTABLE   !
        UN$SLD.MAKE
       "Edit Query",
 VSLD, VSLD1..4   XSLD.
           
"SQL Prepare".     ,
        :m_dtdep.
      - :indoc_m_dtdep.

   "UniquePosition", "UseDefCant", "GRB_CANT",
"ListFields"  "RezultFields".       Sold,
     ,      .
      "Sold": "SoldUniquePosition".

    ,    , 
  .    "GRB_CANT" -    .
     ,    
FieldCant (  ,   ).
,       ,    
 "CANT" -        .

========================================================================
07.11.2006

      
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
         
  F12       .

        
XBarCodeQuery   .     ,
    BARCODE     
 .  BARCODE    -.

 XBarCodePrefix   ,   
 -.       
     .    .

 XBarCodeAutoPost  true    ,
       
(,  ),   -,  
      .

 ,   ,   
 "Edit Query"    .   
        
    .


========================================================================
06.11.2006

    
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    (    )
   ,    .   
       FastReport.

     : Zebra LP, DATEX  
,        
(, COM1-COM8, LPT1-LPT4, PRN  ..)

      -   .

     Stick_NAME, STRIH1_CODPRODUCER, PRET,
      FormText.

      ,    
        , 
    :

PrintSpecialDevice=true
PrintSpecialDeviceIndex=1
PrintSpecialDeviceName=ZEBRA Label Printer 2824
PrintSpecialDeviceCopies=2
PrintSpecialDevicePort=COM2
Stick_MAGAZ=Supermarket 'SUPER'
Stick_ADRES=Chisinau blvd Stefan cel Mare 1
Stick_TITLE=Bine ati venit!

        ,
   -   PrintSpecialDeviceIndex.

         
     ( 4 )
          .

      PrintSpecialDevice=true
 (  )    .

 PrintSpecialDeviceIndex   0, 1  2.
   ,     
    ,      
 .  0  1      Zebra LP 2824,
       PRET  -:
 1 -    (),  0 -   .
 2 -    DATEX      .

 PrintSpecialDeviceName - ,   
         
       .

 PrintSpecialDeviceCopies -  (  "1"),
       ( "20")

 PrintSpecialDevicePort -  (  "COM1"),
   PrintSpecialDeviceIndex=2.   
  ,    ( ) 
  ,     .
     FormText  -  
       .

 Stick_MAGAZ   PrintSpecialDeviceIndex=0  1
    (),    .

 Stick_ADRES   PrintSpecialDeviceIndex=0  1
    (),    .

 Stick_TITLE   PrintSpecialDeviceIndex=2  ,
  -   FormText,   
.       ,  
""     .

  ,       FormText
(  PrintSpecialDeviceIndex=2),   
 ,    FormText    .
       
 ,      .


========================================================================
27.06.2006

      SQL-
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   -      .
         
   ".Captions"  ".Widths"  .

:
::::::::::::::::::::
SELECT COD,CODVECHI,DENUMIREA FROM VMS_UNIVERS
WHERE TIP='O' AND GR1='R'
/*
.Captions=," ",
.Widths=0,10,40
*/
::::::::::::::::::::

  0   "COD"   ,   
    ,       .
    "="   .  ,
   ,     (" ")
       ,   .

      ,  .
       ,
  .

========================================================================
30.05.2006

      
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
,    CREATE TABLE   
     :
-   COMMIT,    
-     
-       ""
-   , ,   
  Oracle -       .

         " ",
      ,     
 .      , 
       .   
     .

       
 ,    ,  
    .     
   :

1.         "TMP_",
   ,   - ,
     ,    .

2.    (VIEW),     ,
    "VTMP_",  -    .

3.  ,   ,  
 InitObjects  DropObjects     
( , , , ,   ..)
     ,   
          .

4.         "X",
      "V" ( )

    
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  UN4PUBLIC    UN$SLD.    
InitObjects  DropObjects      ,
   MAKE   GET_SOLDT.  MAKE 
 XSLD  ,   ,  
 UN$SOLD.GET_SOLDT,    sTableName, 
    ,      ID.
     SELECT * FROM XSLD WHERE ID=:ID

     VSLD  VSLD1 .. VSLD4

 GET_SOLDT   MAKE     
 : VSLD, VSLD1, VSLD2, VSLD3  VSLD4,
     sTableName (NULL, 1, 2, 3  4).
     sTableName   .
 GET_SOLDT       
    :   
    UN$SOLD  UN$SLD,     
       '1'  '4'.

     (XSLD)   !

========================================================================
19.05.2006

     
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     build 4.1.1.52

      ,
     .

     :

1.  WARN

      UN4PUBLIC   
SAY  MSG   WARN.    MSG,
      ,  
     .

 ,      ,
    ,    Enter.

2.  ShowDBMSOutput

  Sagi Properties    ShowDBMSOutput,
     DML-  
   (   ,   -
).      
 ,    .

 ,       SAY,
    ,      
    .     
,   WARN   (  ).

========================================================================
11.05.2006

     TMS_UNIVERS.CODVECHI
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     build 4.1.1.51

       ""
  Cartela   CopyCodFiscal=false

[ZZZ]
CopyCodFiscal=false
.type.CopyCodFiscal=Boolean
.listValue.CopyCodFiscal=true,false

========================================================================
03.05.2006

    201 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     build 4.1.1.49
1.  VIEW   VMDB_201D   BGCOLOR NUMBER(10)
2.       VIEW   DetailTableName
3.      DetailTableUseBgColor=true
4.     "Use BgColor"  "Save Grid Properties"

     Oracle9i
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      build 4.1.1.48
     Oracle9i=true

========================================================================
21.04.2006

      -
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.  UseSmartEnter -  <Enter>  ,  <Tab>,
            (Insert)
2.       ,  
   "Using speed search", "Search text value"  "Search whole text"
3.    ,   Univers,   
   Origin=[code_field_name] (,  DTSC: Origin=DTSC)
4.   Insert    ,  
   StartField=1
5.      SQL-, 
    List Fields  Result Fields
   (2   :   Univers   -)

    Insert,   -   <Enter>

========================================================================
16.02.2006

      
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
       
         
,    .

:
~~~~~~~~~~~
1.      370

2.   TMS_UNIVLOCK   :
   INSERT INTO TMS_UNIVLOCK (TIP,GR1,PERSON) VALUES ('O','E','Vasea')
         .

3.     InitSQL   :
   INSERT INTO VUNIVUNLOCK (TIP,GR1) VALUES ('O','E')

:
~~~~~~~~~~~
-    GR1 -   GR1   .
-     TIP,  GR1 -   .

========================================================================
12.01.2005

      
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      :

0.   un4sysdata  administrator  -
    UserRecords,  UserRecords=1,2,3
1.     
2.      
3.      

       
NewDesignMethod=1
  startup.ini

    
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        
GridPropCacheLimit=20

   -   , 
   .     ,
  .    ( SysFID) 
     .
 GridPropCacheLimit      startup.ini,
 'System Settings',      
(    ).

     
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
         
UseLocalCache=1
  startup.ini

        
   (    ),  
     (   ).
     ,  
 .       
    (timestamp).     
         
      .   
        ,
         
     ,    
.

     
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        
:       ( 
     ),    
 
UsePackedIni=1
  startup.ini

  -   PackSrv.exe
       PackSrv.ini
   ,    PackSrv.exe -    
        
   Oracle,     .
     c Oracle  UN4PUBLIC


~~~~~~~~~~
 NewDesignMethod, UseLocalCache  UsePackedIni
     startup.ini,    
     .

========================================================================
 

   
prm_COD_UNIV VARCHAR2(10)  := \'\';
prm_IDNO VARCHAR2(20):=\'\';


TVA
:
1.
      5342     cont1 
     ,   100 - "   
     ". 
2.
     cont1  
      "_"/"_"   
  5,8,20 %        .
3. 
    "_"   summa_GAAP   
     "_"  ,  
         ,     
 ,  , ,  .   
            .
4.
       GFC_UTIL cont1  5342   
     UN$FUNCTS.TVA.


:
1.    TMG:
 "  ().txt"
 "  ().txt"

2. templates:
 reg_proc_v2.vts
 reg_vinz_v2.vts

3.     
 VMDB_TVAREG_PURCHASES2.vw
 VMDB_TVAREG_VINZ2.vw

4. ins_cont1_5342.sql -   5342
INSERT INTO TMS_PDC ( ATTR1, ATTR2, CONT, DENUMIREA, CONT1 ) VALUES ( 
53, 534, 5342, 'TVA 5%', 5); 
INSERT INTO TMS_PDC ( ATTR1, ATTR2, CONT, DENUMIREA, CONT1 ) VALUES ( 
53, 534, 5342, 'TVA 8%', 8); 
INSERT INTO TMS_PDC ( ATTR1, ATTR2, CONT, DENUMIREA, CONT1 ) VALUES ( 
53, 534, 5342, 'TVA 20%', 20); 
INSERT INTO TMS_PDC ( ATTR1, ATTR2, CONT, DENUMIREA, CONT1 ) VALUES ( 
53, 534, 5342, 'TVA 0%', 91); 
INSERT INTO TMS_PDC ( ATTR1, ATTR2, CONT, DENUMIREA, CONT1 ) VALUES ( 
53, 534, 5342, 'Fara TVA', 92); 
INSERT INTO TMS_PDC ( ATTR1, ATTR2, CONT, DENUMIREA, CONT1 ) VALUES ( 
53, 534, 5342, 'TVA la import', 93); 
INSERT INTO TMS_PDC ( ATTR1, ATTR2, CONT, DENUMIREA, CONT1 ) VALUES ( 
53, 534, 5342, 'TVA care nu se includ in registre procurari si vinzari', 100); 
COMMIT;


5.
 GFC_UTIL.SQL --     1  1    
         (  UN$FUNCTS.SQL )
 UN$FUNCTS.SQL --    cont1  5342 (TVA_CONT1)
 ABM_UTIL.SQL --      SQLH ("  " ... )
                    header'a 

/*5. update_cm_migrating_on_cont1_5342.sql --     */

---------------------------------------------------------

  UnivList_P_TVR    AutoFilterTree=1
  UnivList_P_Marfuri - 

[ZZZ]
AutoFilterTree=1
.type.AutoFilterTree=String


[ZZZ]
InsertUnderTree=true
.type.InsertUnderTree=Boolean
.listValue.InsertUnderTree=true,false


  :
1.   General  BG_FILTER_SECTION
-   ,     -     DefNrSet,  SubSet  . . 
-     
2.       XDEF_BGFILTER
-   ,          ID
-   == "*" (  ),    "  "
3.       LACObjectsSelectedOnly  LACSetupBlockObjects
-        NRSET,   SubSet  
 
   (vvv,vvv)   User_VVV.txt
XDEF_BGFILTER=332,333
.type.XDEF_BGFILTER=String


[ZZZ]
SpeedSearchQuery=SELECT cod,(SELECT denumirea__1 FROM vms_univers u WHERE u.cod=t.cod ) denumirea__1 FROM TMS_MPT t WHERE
.type.SpeedSearchQuery=String
StartField=STRIH1_CODPRODUCER
.type.StartField=String

 

 SQL  UnivList  grupe
[ZZZ]
SagiEditQuery=true
.type.SagiEditQuery=Boolean
.listValue.SagiEditQuery=true,false



 System Settings 

[CARTELA]
.Parent=System settings
.Caption=CARTELA
.TypeNODE=CM
.BasedOn=CM
AdditionalColumns=false
.type.AdditionalColumns=Boolean
.ListValue.AdditionalColumns=true,false

[ATTR_PRC]
.Parent=CARTELA
.Caption=ATTR_PRC
.TypeNODE=CM
.BasedOn=CM
UseTimer=false
.type.UseTimer=Boolean
.listValue.UseTimer=true,false
SQL_Init=
.type.SQL_Init=String
Caption=Preturi
.type.Caption=String

[ATTR_SLD]
.Parent=CARTELA
.Caption=ATTR_SLD
.TypeNODE=CM
.BasedOn=CM
UseTimer=true
.type.UseTimer=Boolean
.ListValue.UseTimer=true,false
Caption=Solduri
.type.Caption=String
SQL_Init=
.type.SQL_Init=String



-   univlist

[ZZZ]
MenuAttr=ATTR_PRC,ATTR_SLD
.type.MenuAttr=String

VMS_UNIV_P15TVR_PR


========================================================================
24.11.2004

Params	JoinFields	CONT,CONT1,SC


========================================================================
22.11.2004

   UniversalStructure (DLL ID=4201,Report ID=24) 
  SQLBefore, SQLMaster  SQLDetail.  
     SQL   
   master  detail. SQLBefore  ,
    (  SQLMaster  SQLDetail).

  SQLMaster  SQLDetail    
:RESULT,        .

  SQL-      
 :FILTER_xxx,  xxx -   RSE.    -
      ,  
       master  detail.

  SQL-      
 :USE_xxx,  xxx -   RSE.    -
"1"  "0",  "1" ,     .

========================================================================
19.11.2004

  ,   RSE,    
 ref       (TMS_SYSGRP)
   (TMS_STRGRPUNIV_ARR) - .  RSE.txt

========================================================================
20.10.2004

      "-  " - 
, ,        
 "+"   .       .
 -        ,
     .  "-"  
   ,    -    .

   (  INSERT  UPDATE,   )
  UseDefCant=true    Sold.  
        ,  
  "  ".    "
 "     ,   ,
         
  ( "   "
   ,    )

 "  "    ,   
     CantInTara

========================================================================
19.10.2004

    - CantInTara.   
   -     
   TMS_UMS (VMS_UMS).   : 
    UN4UMS.FillTable   UN4PUBLIC,
   UN4PUBLIC.XUMS      VMS_UMS,
    Univers.   
   UN4PUBLIC.XUMS,       CANT.
         
   CANT_UM ( CANT  VMS_UMS)   
 ,     .

  :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:::::::::::::::
LISTTYPE=CantInTara
FIELD_COD=DTSC
:::::::::::::::

:
~~~~~~~~~~~
 FIELD_COD    ,     Univers,
       .

========================================================================
15.10.2004

       FormulaOne
  ,    .
     Detail1  Detail2.  :
-----
(a)    (    1)
UseWhen(ISTOTAL) -     ISTOTAL = 1
-----
(b)      -   
UseWhen(ISTOTAL, 0) -     ISTOTAL = 0
UseWhen(ISTOTAL = 0) -     ISTOTAL = 0
UseWhen(ISTOTAL == 0) -     ISTOTAL = 0
-----
(c)      -   
UseWhen(ISTOTAL <> 0) -     ISTOTAL <> 0
UseWhen(ISTOTAL != 0) -     ISTOTAL <> 0
UseWhen(ISTOTAL ! 0) -     ISTOTAL <> 0
-----
,   "ISTOTAL"   "0"    .
          .

========================================================================
12.10.2004

    -    
   ,   Master-Detail,  
    -       -
.

 ()  :

DLL ID=8101
DLL FormName=FSal1p01

  (   ):

FormNoGrid=false
FormUseDetail=false
MasterSize=201

 FormNoGrid,   true,    .
 FormUseDetail,   true,    
,     Master-.

  MasterSize    Master-.
   MasterSize   Master-,
  Detail-      .
   MasterSize   Master-,
  Detail-      .

 SQL-       Administrator,
        XGRIDPROP.   
 ,  SQL- Detail-, 
   Master-    'X':

SQL=
SQL_Insert=
SQL_Delete=
SQL_Update=
SQL_Refresh=
SagiQuery=
SagiTable=
SagiWhere=
Sagi_OrderBy=

XSQL=
XSQL_Insert=
XSQL_Delete=
XSQL_Update=
XSQL_Refresh=
XSagiQuery=
XSagiTable=
XSagiWhere=
XSagi_OrderBy=

  ,  SagiTable  XSagiTable,    Memo,
  String.   SagiTable  XSagiTable   String.

   SQL-   Administrator'  
    ,    .

========================================================================
05.10.2004

    ,    
,      
   .     
  (.  -   26.06.2004)

 ,       ,
     -    
.         
   (      ).
         
       .

       SQL-
  ,       INI-.

 (     SQL1    ):
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
:::::::::::::::
begin
raise_application_error(-20000,'Param values:
SimpleString: '''||:SimpleString||'''
   AnyNumber: '''||:AnyNumber||'''
     AnyDate: '''||:AnyDate||'''
     Univers: '''||:Univers||'''
        SysS: '''||:SysS||'''
');
end;
/*
Captions:
.text.SimpleString= 
.text.AnyNumber= 
.text.AnyDate= 
.text.Univers=. .
.text.SysS=. .
English captions:
.text.E.SimpleString=Simple string
.text.E.AnyNumber=Any number
.text.E.AnyDate=Any date
.text.E.Univers=Universal list
.text.E.SysS=System list
Types:
.type.AnyNumber=Number
.type.AnyDate=Date
.type.Univers=List,U,O,E
.type.SysS=List,S,F,2
*/
:::::::::::::::

  :
~~~~~~~~~~~~~~~~~~~~~
 "Captions:", "English captions:"  "Types:"   
       (  ).

      "E", "M"  "R".

  .type.*     ,  
(date, Date  DATE   ,     Number  List).

========================================================================
29.06.2004

         
SQLAllInOne     SQLHeader, SQLMaster  SQLDetail

 (     ):
:::::::::::::::
SQLHeader=SELECT :NRDOC AS NRDOC FROM DUAL
SQLMaster=SELECT * FROM VMDB_DOCS WHERE COD=:NRDOC
SQLDetail=SELECT * FROM VMDB_CMR WHERE NRDOC=:NRDOC
:::::::::::::::
SQLAllInOne=
begin
:SQLHeader:='SELECT :NRDOC AS NRDOC FROM DUAL';
:SQLMaster:='SELECT * FROM VMDB_DOCS WHERE COD=:NRDOC';
:SQLDetail:='SELECT * FROM VMDB_CMR WHERE NRDOC=:NRDOC';
end;
:::::::::::::::

  (, SQLDetail   )
   (      )

    -  
       
    .

 :
~~~~~~~~
       :DATEBEGIN
 :DATEFINAL (. )

:
:::::::::::::::
SQLHeader=SELECT :DATEBEGIN AS DATEBEGIN, :DATEFINAL AS DATEFINAL FROM DUAL
SQLMaster=SELECT * FROM VMDB_DOCS WHERE DATAMANUAL BETWEEN :DATEBEGIN AND :DATEFINAL
:::::::::::::::

 :
~~~~~~~~
      , 
    - (  ).  SQLDetail
-  SQLMaster,   SQLMaster -
 SQLHeader.  SQLHeader     SQLDetail
   ,  SQLMaster       .

:
:::::::::::::::
SQLHeader=SELECT TRUNC(:DATEBEGIN,'M') AS DATAS, LAST_DAY(:DATEFINAL) AS DATAE FROM DUAL
SQLMaster=SELECT * FROM VMDB_DOCS WHERE DATAMANUAL BETWEEN :DATAS AND :DATAE
:::::::::::::::

:        DATAS  DATAE,
 DATEBEGIN  DATEFINAL,   SQLMaster     
     :DATEBEGIN  :DATEFINAL,    SQLHeader.
        -.

========================================================================
28.06.2004

  Actions        ID,
         .
Actions   ID   Caption ( ).

========================================================================
28.06.2004

     
   SagiEdit    ,    .
      
,      Oracle,   .

     
     ,   
<Ctrl>  <Alt>,  (  )   <Alt>+<D>.

,        
        .

========================================================================
28.06.2004

       ,
   201,      UsePickList
 Boolean     true:

UsePickList=true

========================================================================
27.06.2004

       
   SQL-   .

       INI-,
        ( ).

  - TIP,     .
 : U, S, P, I, i, M, Q.
     :

 U ( Univers):
~~~~~~~~~~~~~~~~~~~~~~~~~~~
FIELD_COD - ,     Univers ( COD)
FIELD_CONT -   ,    
U_FILTER_LEVEL -   (0: Sc, 1: Dep, 2:Sc1)
U_FILTER_TIP -    TIP
U_FILTER_GR1 -    GR1

  FIELD_CONT       
U_FILTER_LEVEL,  U_FILTER_TIP  U_FILTER_GR1  .
   FIELD_CONT   
U_FILTER_TIP  U_FILTER_GR1,   U_FILTER_LEVEL  .

:
::::::::::::::::::::
TIP=U
FIELD_COD=DTSC
FIELD_CONT=DT
U_FILTER_LEVEL=0
::::::::::::::::::::
TIP=U
FIELD_COD=CTDEP
FIELD_CONT=5311
U_FILTER_LEVEL=1
::::::::::::::::::::
TIP=U
FIELD_COD=SC_PROD
U_FILTER_TIP=P
U_FILTER_GR1=2111
::::::::::::::::::::

 S ( SysS):
~~~~~~~~~~~~~~~~~~~~~~~~
FIELD_COD - ,     SysS (  COD1)
U_FILTER_TIP -    TIP
U_FILTER_GR1 -    COD
U_SEL_FIELD -   (  COD1)
,    U_SEL_FIELD    UM

:
::::::::::::::::::::
TIP=S
FIELD_COD=CATEGOR
U_FILTER_TIP=R
U_FILTER_GR1=501
::::::::::::::::::::
TIP=S
FIELD_COD=VALUTA
U_FILTER_TIP=S
U_FILTER_GR1=3
U_SEL_FIELD=UM
::::::::::::::::::::

 P ( PDC):
~~~~~~~~~~~~~~~~~~~~~~~
FIELD_CONT - ,    
U_FILTER_CONTS -   

:
::::::::::::::::::::
TIP=P
FIELD_CONT=CT
U_FILTER_CONTS=21 !217
::::::::::::::::::::

 I  i ( UM):
~~~~~~~~~~~~~~~~~~~~~~~~~~~
FIELD_COD - ,      
    "SELECT ID_UM,SHORT_NAME,NAME FROM TMS_UM"
 I       ,
 i       .

:
::::::::::::::::::::
TIP=I
FIELD_COD=UM
::::::::::::::::::::

 M (  ):
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FIELD_MASK -
FIELD_COD -
U_FILTER_LEVEL -

:
::::::::::::::::::::
TIP=M
FIELD_MASK=
FIELD_COD=
U_FILTER_LEVEL=
::::::::::::::::::::

     ,     

 Q ( ):
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
         SQL,
      SQL1, SQL2, SQL3  ..
LISTFIELDS -   ,   
RESULTFIELDS -   ,    
CAPTIONS -   
WIDTHS -   

   :
::::::::::::::::::::
SQL=SELECT ID_CONTRACT,CONTRACTNAME FROM VMS_CONTRACT
::::::::::::::::::::
SQL1=SELECT ID_CONTRACT,CONTRACTNAME FROM VMS_CONTRACT
SQL2=WHERE TYPE=2 AND VALUTA<>'LEI'
::::::::::::::::::::

 ,       
   -   CAPTIONS  WIDTHS,  
        .
         0.

   :
::::::::::::::::::::
CAPTIONS=,
WIDTHS=0,20
::::::::::::::::::::

 LISTFIELDS  RESULTFIELDS     .
 CAPTIONS  WIDTHS     ,
      .

 LISTFIELDS  RESULTFIELDS    -  
      ,   
     .     
   .    , 
   (    ),  
   .

 :        
::::::::::::::::::::
TIP=Q
SQL=SELECT * FROM VMS_PRODUCT
LISTFIELDS=ID_PRODUCT,PRODUCT_NAME
RESULTFIELDS=CONTA.SC,CLCCONTA_SCT
::::::::::::::::::::
TIP=Q
SQL=SELECT ID_PRODUCT CONTA_SC,PRODUCT_NAME CLCCONTA_SCT FROM VMS_PRODUCT
::::::::::::::::::::
    ID_PRODUCT (  CONTA_SC)  
   CONTA.SC

      ,  
    ,      Actions
   (. ).

:
::::::::::::::::::::
TIP=Q
SQL=SELECT ID_PRODUCT,PRODUCT_NAME FROM VMS_CONTRACT WHERE DOCID=:NRDOC
::::::::::::::::::::

========================================================================
26.06.2004

   Actions    (SQL1, SQL2  . .)
      () .
     :

:RESULT -        
:NRDOC -   
:DATADOC -   
:DATAMANUAL -   

:DATEBEGIN -    
:DATEFINAL -    

       .
      
   ( General)

 ,    , 
     .

 :
~~~~~~~~
         
          
 ,       :

    20    
,   :    
   ,    
         .

:
::::::::::::::::::::
UPDATE VMDB_CMI SET CANT=NULL WHERE NRDOC=:NRDOC AND CTSC=:UVOLEN
/*
UVOLEN=\SYS\SLR\cod_uvolen
*/
::::::::::::::::::::

    UVOLEN    cod_uvolen
  SLR  ""   .

       ,
   .

     ,  
 INI-       .

   ,     
,    .  , 
  :

1.    
     "\"     ,
   ,   "\".  
   :
SYS -  ""
DOCS -  ""
REPS -  ""
FORMS -  "" ( ,   SYS,     )
    (    "\") -  
    SYS.

:
::::::::::::::::::::
/*
CTCONT=\REPS\AGRO02\CTCont -  CTCont    AGRO02
CONTLEN=\General\LengthCont -  \SYS\General\LengthCont
*/
::::::::::::::::::::


2.     
     "indoc_",   
 .

:
::::::::::::::::::::
/*
STRSC=indoc_M_CTSRTRSC -  CTSRTRSC  
DTDEP=indoc_D_DTDEP -  DTDEP  
*/
::::::::::::::::::::


3.     ( ) 
     "inform_",   
 .      .


4.         
     "field_",   
   DataModule  Form,    "_",
      Field,     DataSet
c    ,   "_"

         
"  "   "    ",
      

:
::::::::::::::::::::
/*
ID_0M=field_dmFMAgrA_sq3_03ProductID_0M
ID_1D=field_dmFMAgrA_sq3_20ProcessID_1D
*/
::::::::::::::::::::
/*
ID_0M=field_dmFMAgrA_sq3_03Product_ID_0M
ID_1D=field_dmFMAgrA_sq3_20Process_ID_1D
*/
::::::::::::::::::::

      ID_0M  ID_1D ,
  DataModule dmFMAgrA,    - 
   Field      DataSet   .

 :
~~~~~~~~
       BDE -  Oracle
   ,   
    BDE,     
      .

   BDE      ,
   PATH -   BDE.  ,
    ,     
 (, 1m  1mPriv).

      -     .
      ,  
    ,    
EXECUTE IMMEDIATE.

&BDE#<>#<> -   
&BDEQ#<>#<> -   

 ,  ,   "DB" (, "DBF"),
   :

&BDE#<>#<>#<> -   
&BDEQ#<>#<>#<> -   

:  ( . extension)    ,
          .
        ,
         .

 ( CURS.DBF  1MS_UNIVERS.DB):
::::::::::::::::::::
INSERT INTO VMDB_CMI (NRDOC,DT,CT,CTDEP,SUMA)
SELECT :NRDOC,2421,5211,CLIENTID,SUMA FROM &BDE#FINC#CURS#DBF
::::::::::::::::::::
BEGIN
EXECUTE IMMEDIATE
'CREATE TABLE OLD_UNIVERS AS SELECT * FROM '||&BDEQ#1M#1MS_UNIVERS;
END;
::::::::::::::::::::

========================================================================
13.05.2004

   

 XLOCKCONTS, vXLOCKCONTS
  CM  XTRGTMDB_CM_LOCKCONT

   

[fLockConts]
.Form=
.BasedOn=FormL8000Lregcurs
.Parent=Forms group:8000:0
.Caption=LockConts
Caption=Lock conts
Active=true
DLL ID=8101
DLL FormName=FSal1p01

   EditQuery 

   administratora -   XLOCKCONTS
    -  UPDATE  vXLOCKCONTS(ChangeMinData,ChangeMaxData)

  -  CM  XTRGTMDB_CM_LOCKCONT

========================================================================
12.05.2004

 MAC-

-   [General]
[ZZZ]
SecurityMode=0
.type.SecurityMode=Int
.listValue.SecurityMode=0,1
.listTextValue.SecurityMode=,"network card MAC-adress"
.Hint.SecurityMode= 


-   [-USER-]
[ZZZ]
CardID=00:02:44:52:6F:B3,00:E0:4C:80:05:41
.type.CardID=String
.Hint.CardID= / 

[ZZZ]
SecurityMacServers=00:02:44:52:6F:B3,00:E0:4C:80:05:41
.type.SecurityMacServers=String
.Hint.SecurityMacServers= ,      user-m

  mac-    GetMAC.hta

 packages:
UN$USERPARAMS.PKS
UNP_INI.pks
UN$G$UTIL.pks
UNP1.PKS
