

  :
   
      ...
    : msm2tb.qry
    1- )  TypeData
                     dbf           -    
                     txt           -       (   )
   
    2- )  Codes               -   
                     
                     ""                + () -  
                     
                     
                     
   
                      :
                     1
                     2
                     3
                     100
                     101              -  ...
					 102              -   ...  PrNDS     
   
              -   
   
    3- )      Date1            -  
    4- )      Date2
    5- )      ListDoc          -   ( )
                     ""                 +  
                     1,2,15,20          +  
    6- )      ListDep          -  
                     ""                 +  
                     1,2,3              +   3- 
   

 :
     :  --    !!!
  
          2  ()
        msm2tb.cdf  --   .
                          -     
                        .    -  
                       .
        msm2tb.crd  -- 
      
        *   MSM2TB.CDF   
        *   MSM2TB.CDF   
        *   MSM2TB.CDF   
        *   MSM2TB.CRD
      
    DBF - :
          2 :
        msm2tb.ini      --   
        msm2tb.dbf      --  
  
        # msm2tb.ini
                      
               ...
                .
               :
                __DBF : __DBF = __
                   !
                    :
              Q:\tbw\doc\import\msm2tb.ini 
              Q:\tbw\doc\import\msm2tb.dbf
  
        # msm2tb.dbf
              -     :
              Open^APBlib(Type,Kpr,Data,TipDok,NDok,Error)
              Read^APBlib(Object,Cena,Bal,Post,Pt,Prop,PrNds,NalPr,Dscnt,Piece,Error,Do)
               -       
           ( ...).    -     
           -.
                 1.    - 
               .
               -   2 ( - - ).
  
            __            __DBF        __DBF   
          
                        :INTEGER(20);       Type              /
            _            :STRING(50);        Kpr               
            _         :DATE(8);           Data                      
            _         :STRING(50);        TipDok             
            _        :STRING(50);        NDok                     
            _        :STRING(50);        PostSh             ( )
            _        :DATE(8);           DataSFP            
            _        :STRING(50);        NDokSFP           
                          :BOOLEAN(1);        Turn               -  True;
                        :STRING(200);       Comment           
                                                                         
            _             :REAL(20.2);        Sum_Post             
            _               :REAL(20.2);        NDS_Post             
            _               :REAL(20.2);        NSP_Post              = 0
            _              :REAL(20.2);        Sum_Rozn             
            _                :REAL(20.2);        NDS_Rozn             
            _                :REAL(20.2);        NSP_Rozn             
        --                                                 
             	           :REAL(20.2);	       Kol		         
                            :STRING(50);        Tables              
                            :INTEGER(20);       Bal                 (/)
            _        :INTEGER(20);       Post               (  )
                          :INTEGER(20);       Pt                 (,  )
                             :INTEGER(20);       Prop                (,:)

	  101:
                          :INTEGER(20);       PrNds               (0,10,20,9,18...)
	  102:
            .             :INTEGER(20);       PrNds               (0,10,20,9,18...)
                      :INTEGER(20);       PrNdsR              . (0,10,20,9,18...)

                          :INTEGER(20);       NalPr               (0,4,5,2...)
                             :INTEGER(20);       Dscnt             /(//)
                       :INTEGER(20);       Do                 (, , )
                         :REAL(20.2);        SumDocPost        
                         :REAL(20.2);        SumNDSPost        
                         :REAL(20.2);        SumNSPPost        
                         :REAL(20.2);        SumDocRozn        
                         :REAL(20.2);        SumNDSRozn        
                         :REAL(20.2);        SumNSPRozn        
                          :REAL(20.2);        SumDuty           
        --                                            





   1.      - 
            __            __DBF        __DBF   
            
                            :STRING(50);        -- Tables         --   
                                                          ""                 --  
                                                          ""           --   
                            :INTEGER(20);       -- Bal            --   (/)
                                                          0                  --  
                                                          1                  --  
            _        :INTEGER(20);       -- Post           --  (  )
                          :INTEGER(20);       -- Pt             --  (,  )
                                                          0                  --  
                                                          1                  -- 
                                                          2                  --  
                             :INTEGER(20);       -- Prop           --   (,:)
                                                          0                  --  
                                                          1                  -- 
                          :INTEGER(20);       -- PrNds          --   (0,10,20,9,18...)
                                                          0
                                                          9
                                                          10
                                                          18
                                                          20 
                          :INTEGER(20);       -- NalPr          --   (0,4,5,2...)
                                                          0
                                                          4
                                                          5
                             :INTEGER(20);       -- Dscnt          -- /(//)
                                                          0                  --  
                                                          1                  -- 
                                                          2                  -- 
                                                          3                  -- 
                        :INTEGER(20);       -- Piece          -- ( )
                       :INTEGER(20);       -- Do             --  (, , )
                                                          0                  --  
                                                          1                  -- 
                                                          2                  -- 
                       :BOOLEAN(1);        -- TurnStr        --      
                         :STRING(200)        -- SignStr        --    
                         :REAL(20.2);        -- SumDocPost     --
                         :REAL(20.2);        -- SumNDSPost     --
                         :REAL(20.2);        -- SumNSPPost     --
                         :REAL(20.2);        -- SumDocRozn     --
                         :REAL(20.2);        -- SumNDSRozn     --
                         :REAL(20.2);        -- SumNSPRozn     --
                          :REAL(20.2);        -- SumDuty        --
         
        --  ENDSUB;  --  





   2.    ( - - )
            __            __DBF        __DBF   
          
                           :INTEGER(20);       -- Type           -- /
            _            :STRING(50);        -- Kpr            -- 
            _         :DATE(8);           -- Data           --         
            _         :STRING(50);        -- TipDok         --  
            _        :STRING(50);        -- NDok           --        
            _        :STRING(50);        -- PostSh         --  ( )
            _        :DATE(8);           -- DataSFP        --  
            _        :STRING(50);        -- NDokSFP        -- 
                         :STRING(50);        -- Payer          -- 
                          :BOOLEAN(1);        -- Turn           -- 
                        :STRING(200);       -- Comment        -- 
                           :STRING(200);       -- Sign           --     
            _           :STRING(50);        -- KodOper        --   (  )
            _             :REAL(20.2);        -- Sum_Post       --    
            _               :REAL(20.2);        -- NDS_Post       --    
            _               :REAL(20.2);        -- NSP_Post       --     = 0
            _              :REAL(20.2);        -- Sum_Rozn       --    
            _                :REAL(20.2);        -- NDS_Rozn       --    
            _                :REAL(20.2);        -- NSP_Rozn       --    
                                :;      -- SFP            --    
                                :;          -- SFN            --    
                               :;          -- ASFN           --    
        --  SUBTAB ;  --   
             	           :REAL(20.2);	       -- Kol		     -- 
			                :STRING(50);        -- Tables         --   
                                                          ""                 --  
                                                          ""           --   
                            :INTEGER(20);       -- Bal            --   (/)
                                                          0                  --  
                                                          1                  --  
                          :INTEGER(20);       -- Post           --  (  )
                          :INTEGER(20);       -- Pt             --  (,  )
                                                          0                  --  
                                                          1                  -- 
                                                          2                  --  
                             :INTEGER(20);       -- Prop           --   (,:)
                                                          0                  --  
                                                          1                  -- 
                          :INTEGER(20);       -- PrNds          --   (0,10,20,9,18...)
                                                          0
                                                          9
                                                          10
                                                          18
                                                          20 
                          :INTEGER(20);       -- NalPr          --   (0,4,5,2...)
                                                          0
                                                          4
                                                          5
                             :INTEGER(20);       -- Dscnt          -- /(//)
                                                          0                  --  
                                                          1                  -- 
                                                          2                  -- 
                                                          3                  -- 
                       :INTEGER(20);       -- Do             --  (, , )
                                                          0                  --  
                                                          1                  -- 
                                                          2                  -- 
                       :BOOLEAN(1);        -- TurnStr        --      
                         :STRING(200)        -- SignStr        --    
                         :REAL(20.2);        -- SumDocPost     --
                         :REAL(20.2);        -- SumNDSPost     --
                         :REAL(20.2);        -- SumNSPPost     --
                         :REAL(20.2);        -- SumDocRozn     --
                         :REAL(20.2);        -- SumNDSRozn     --
                         :REAL(20.2);        -- SumNSPRozn     --
                          :REAL(20.2);        -- SumDuty        --

        --  ENDSUB;  --  
        --  SUBTAB ;  --  
                       :BOOLEAN(1);        -- TurnOpl        --   
                         :STRING(200);       -- SignOpl        --    
                      :REAL(20.2);        -- SumDocPostOpl  --
                      :REAL(20.2);        -- SumNDSPostOpl  --
                      :REAL(20.2);        -- SumNSPPostOpl  --
                      :REAL(20.2);        -- SumDocRoznOpl  --
                      :REAL(20.2);        -- SumNDSRoznOpl  --
                      :REAL(20.2);        -- SumNSPRoznOpl  --
                 :STRING(50);        -- NameCrdOpl     --  
                       :STRING(50);        -- RecordOpl      --   
                      :STRING(50);        -- SignDocOpl     --  
        --  ENDSUB;    --   

   



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





                                                             
                                                             
                                                             
                                                             
                                                             