HAMOR Soft - demonstratie                                                                                                TEXT1FS 25/11/24 Pag.  1
                                             Lista de cimpuri / Dictionar import / formule de calcul                                             
                                                           Selectie: Fisier=F7 si Ds=D                                                           
-------------------------------------------------------------------------------------------------------------------------------------------------
| Cimp |           Denumire           |            Conditie            |                                Formule                                 |
-------------------------------------------------------------------------------------------------------------------------------------------------
 F70    Tip inregistrare               
 F79    ------------------------------ 
 F7901  Jurnal                         INITIALIZARE SPECIALA          = IF(NrFer$"12,16",SF7901,F7901)                                           
                                       MODIFICABIL MANUAL                                                                                        
 F79011 Jurnal                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_tjur(F7901),tjur->DENUM,"")                                        
 F790X  .                              
 F790Y  .                              
 F790Z  .                              
 F791   Calcul fereastra               1                              = "11"                                                                     
                                       ~~                             = ""                                                                       
 F7911  Import randuri                 INITIALIZARE SPECIALA          = IF(NrFer="12",SF7911,F7911)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7912  Cumulare la import             INITIALIZARE SPECIALA          = IF(NrFer="12",SF7912,F7912)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7913  Traducere la import            INITIALIZARE SPECIALA          = IF(NrFer="12",SF7913,F7913)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7914  Inregistrare in dictionar      INITIALIZARE SPECIALA          = IF(NrFer="12",SF7914,F7914)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7915  Inregistrare in Nomenclator    INITIALIZARE SPECIALA          = IF(NrFer="12",SF7915,F7915)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7931  Global-valoric                 INITIALIZARE SPECIALA          = IF(NrFer="12",SF7931,F7931)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7932  Valoric                        INITIALIZARE SPECIALA          = IF(NrFer="12",SF7932,F7932)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7941  Calc. pret livrare/vanzare     INITIALIZARE SPECIALA          = IF(NrFer="12",SF7941,F7941)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F79411 Calc. pret livrare/vanzare     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_dict(h_PADR("Tip pret",12)+F7941),dict->DEN,"")                    
 F79Z   ------------------------------ 
 F7A    FURNIZOR                       INITIALIZARE SPECIALA          = IF(NrFer="03",SF7A,F7A)                                                  
 F7A1   Cod furnizor                   INITIALIZARE SPECIALA          = IF(NrFer="03",SF7A1,F7A1)                                                
                                       MODIFICABIL MANUAL                                                                                        
 F7A11  Denumire furnizor              INITIALIZARE SPECIALA          = IF(NrFer="03",SF7A11,F7A11)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_firm(F7A1),firm->INITIALE,"")                                      
 F7E    ARTICOL e-Factura (XML)        INITIALIZARE SPECIALA          = IF(NrFer="03",SF7E,F7E)                                                  
 F7E1   Cod articol                    INITIALIZARE SPECIALA          = IF(NrFer="03",SF7E1,F7E1)                                                
                                       MODIFICABIL MANUAL                                                                                        
 F7E11  Denumire articol               INITIALIZARE SPECIALA          = IF(NrFer="03",SF7E11,F7E11)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7E21  UM-ECE                         INITIALIZARE SPECIALA          = IF(NrFer="03",SF7E21,F7E21)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7E22  Denumire UM-ECE                INITIALIZARE SPECIALA          = IF(NrFer="03",SF7E22,F7E22)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(u5->(DBSEEK(F7E21)),u5->su5a2,"")                                     
 F7M    ARTICOL hMARFA                 INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M  ,F7M  )                                              
 F7M1   Cod articol                    INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M1 ,F7M1 )                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7M11  Denumire articol               INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M11,F7M11)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_nomm(F7M1),nomm->DENUM,"")                                         
 F7M12  Cumulare ?                     INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M12,F7M12)                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7M2   Grupa                          INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M2 ,F7M2 )                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_nomm(F7M1),nomm->GRUPA,"")                                         
 F7M21  Denumire grupa                 INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M21,F7M21)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_grm(F7M2),grm->DENUM,"")                                           
 F7M3   UM                             INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M3 ,F7M3 )                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_nomm(F7M1),nomm->UM,"")                                            

HAMOR Soft - demonstratie                                                                                                TEXT1FS 25/11/24 Pag.  2
-------------------------------------------------------------------------------------------------------------------------------------------------
| Cimp |           Denumire           |            Conditie            |                                Formule                                 |
-------------------------------------------------------------------------------------------------------------------------------------------------
 F7M31  UM-ECE                         INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M31,F7M31)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_um(F7M3),um->CODN,"")                                              
 F7M32  Denumire UM                    INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M32,F7M32)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_um(F7M3),um->DENUM,"")                                             
 F7M41  Factor de conversie            INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M41,F7M41)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = "1 x UM/eFac = ? UM/MARF"                                                
 F7M42  Factor de conversie            INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M42,IF(x_oper="A",1,F7M42))                             
                                       MODIFICABIL MANUAL                                                                                        
 F7M51  Tip TVA                        INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M51,F7M51)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_nomm(F7M1),nomm->TVAPOZ,"")                                        
 F7M52  Cota TVA                       INITIALIZARE SPECIALA          = IF(NrFer="03",SF7M52,F7M52)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_nomm(F7M1),nomm->TVA,0)                                            
 F7P4   Gestiune                       INITIALIZARE SPECIALA          = IF(NrFer="03",SF7P4 ,F7P4 )                                              
                                       MODIFICABIL MANUAL                                                                                        
 F7P41  Denumire gestiune              INITIALIZARE SPECIALA          = IF(NrFer="03",SF7P41,F7P41)                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(vf_gest(F7P4),gest->DENUM,"")                                         
 F7U    ------------------------------ 
 F7U01  Furnizor                       MODIFICABIL MANUAL                                                                                        
 F7U011 Furnizor denumire              ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = IF(EMPTY(F7U01),"Altele",IF(vf_firm(F7U01),firm->INITIALE,""))           
 F7U21  TipCod1                        MODIFICABIL MANUAL                                                                                        
 F7U22  TipCod2                        MODIFICABIL MANUAL                                                                                        
 F7U23  TipCod3                        MODIFICABIL MANUAL                                                                                        
 F7Y    ------------------------------ 
 F7Y01  Deschis/Inchis                 INITIALIZARE SPECIALA          = "D"                                                                      
                                       MODIFICABIL MANUAL                                                                                        
 F7Z1   Eroare dubluri                 1                              = (X_1:=RECNO(),X_2:=h_vfCode(F7901,{||F7901=f7->SF7901},4),DbGoTo(X_1),IF 
                                                                        ((x_oper="A".AND.X_2).OR.(X_2.AND.RECNO()!=X_1),"Exista deja!",""))      
                                       2                              = IF(F7M12="GLO-VAL","",IF(EMPTY(F7A1).AND.EMPTY(F7E1),"Furnizor si Artico 
                                                                        l vide",""))                                                             
                                       3                              = (X_1:=RECNO(),X_2:=h_vfCode(F70+F7U01,{||F70+F7U01=f7->SF70+f7->SF7U01}, 
                                                                        5),DbGoTo(X_1),IF((x_oper="A".AND.X_2).OR.(X_2.AND.RECNO()!=X_1),"Exista 
                                       ~                              = ""                                                                       
 F7Z21  Eroare furnizor                1                              = ""                                                                       
                                       2                              = IF(EMPTY(F7A1),"",IF(vf_firm(F7A1),"","*** Furnizor  absent"))           
                                       ~~                             = ""                                                                       
 F7Z22  Eroare cod hMARFA              1                              = ""                                                                       
                                       2                              = IF(EMPTY(F7M1),"Cod articol absent",IF(vf_nomm(F7M1),"","*** Cod articol 
                                                                         absent"))                                                               
                                       ~~                             = ""                                                                       
 F7Z23  Eroare gestiune                1                              = ""                                                                       
                                       2                              = IF(EMPTY(F7P4),"",IF(vf_gest(F7p4),"","*** Gestiune absenta"))           
                                       ~~                             = ""                                                                       
 F7Z24  Eroare UM                      1                              = ""                                                                       
                                       2                              = IF(EMPTY(F7M3),"",IF(vf_um(F7M3),"","***  Um absent"))                   
                                       ~~                             = ""                                                                       
 F7ZA   Mesaj eroare                   INITIALIZARE SPECIALA          = IF(NrFer="03",SF7ZA ,F7ZA )                                              
                                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = MesajEroare()                                                            