campo-sirio/mg/mg3300a.frm

// form stampa schede per articolo
#include "mg3300.h"
USE LF_ANAMAG
SORT LF_RMOVMAG BY LF_MOVMAG->DATAREG NUMREG 
    USING LF_MOVMAG INTO NUMREG==NUMREG 
  JOIN TO LF_ANAMAG KEY 2 INTO CODART==CODART 
JOIN LF_MAG TO LF_RMOVMAG KEY 2 INTO ANNOES==1996 CODMAG==CODMAG CODART==CODART LIVELLO==LIVGIAC
JOIN LF_MOVMAG TO LF_RMOVMAG INTO NUMREG==NUMREG
JOIN %CAU TO LF_MOVMAG INTO CODTAB==CODCAUS

JOIN MAG TO LF_RMOVMAG ALIAS 500 INTO CODTAB==CODMAG[1,3]
JOIN MAG TO LF_RMOVMAG ALIAS 501 INTO CODTAB==CODMAG
JOIN GMC TO LF_ANAMAG ALIAS ALIAS_CATMER INTO CODTAB==GRMERC[1,3]
JOIN GMC TO LF_ANAMAG ALIAS ALIAS_SOTTOCATMER INTO CODTAB==GRMERC[1,5]

JOIN LF_UMART TO LF_ANAMAG  INTO CODART==CODART 
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS 349 INTO CODART==CODART UM==UM
END
  
DESCRIPTION
BEGIN
    47->* "Anagrafica articoli"
    109->* "Archivio Giacenze"
    MAG->* "Tabella magazzini"
    110->* "Movimenti di magazzino"
    111->* "Righe Movimenti di magazzino"
    49->* "Unità di misura articoli"
END

GENERAL
BEGIN
    OFFSET 0 0
    FONT "Courier New"
    SIZE 12
    CARATTERE "X"
    INIZIALE 5 2
    FINALE 133
END

SECTION HEADER ODD 5
  STRINGA 1 40 1
  BEGIN
   KEY "nome ditta"
   PROMPT  1 1 "Ditta "
   MESSAGE _DITTA, !RAGSOC
  END
  
  STRINGA 2 10
  BEGIN
   KEY "Data"
   PROMPT  120 1 "Data "
   MESSAGE _TODAY
  END
  
  NUMERO 3 7
  BEGIN
   KEY "Nr. pagina"
   PROMPT  137 1 "Pagina "
   MESSAGE _PAGENO
  END
  
  STRINGA 4 45
  BEGIN
   KEY "Intestazione stampa"
   PROMPT  45 2 "Stampa schede di magazzino :"
   MESSAGE _USER,TIPOSCHEDA
  END
  
  STRINGA 5 146
  BEGIN
    KEY "Separatore (iniziale)"
    PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
  END
  STRINGA 6 12
  BEGIN
    PROMPT 42 4 "UM"
  END
  NUMBER 7 12
  BEGIN
    PROMPT 46 4 "Quantità"
  END
  NUMBER 8 12
  BEGIN
    PROMPT 58 4 "Prezzo"
  END
  NUMBER 9 12
  BEGIN
    PROMPT 71 4 "Valore"
  END
  STRINGA 5 146
  BEGIN
    KEY "Separatore (iniziale)"
    PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
  END
END

SECTION BODY ODD 0

  NUMBER 100 1
  BEGIN
    FLAGS "H"
    MESSAGE RESET,FF_SALDO_GART|RESET,FF_VALORE_GART
  END
  
  SECTION HEADER_ARTICOLO 1 2 2 GROUP 
    FLAGS "N"
    SECTION HEADER_CATMER 1 2 1 GROUP 
      STRINGA 10 20 1
      BEGIN
       KEY "CODICE CATMER"
       PROMPT 1 1 "Gruppo merceologico "
       MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
      END
      STRINGA 12 50 1
      BEGIN
       KEY "DESCR."
       PROMPT 30 1 ""
       MESSAGE _USER,CATMER
      END
    END //HEADER catmer
    STRINGA 10 20 1
    BEGIN
      KEY "CODICE articolo"
      PROMPT 1 1 "Articolo "
      MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
    END
        
    STRINGA 11 50 1
    BEGIN
      KEY "DESCR.articolo"
      PROMPT 30 1 ""
      MESSAGE _USER,GRUPPOART
    END
    STRINGA 24 50 1
    BEGIN
      KEY "dep" 
      PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
    END
  END //HEADER articolo 

  SECTION GRUPPI_ARTICOLO 1 0 0 FILE LF_ANAMAG BY CODART
    SECTION FILE_RMOVMAG 1 1 0 FILE LF_RMOVMAG 
      SECTION HEADER_GRMOV 1 2 2 GROUP
        FLAGS "N"
        SECTION HEADER_LIVGIACCATMER 1 1 1 GROUP 
          STRINGA 10 20 1
          BEGIN
           KEY "CODICE CATMER"
           PROMPT 1 1 "Gruppo merceologico "
           MESSAGE _USER,CODCATMER|RESET,FF_STAMPASALDOPREC
          END
          STRINGA 12 50 1
          BEGIN
           KEY "DESCR."
           PROMPT 30 1 ""
           MESSAGE _USER,CATMER
          END
        END //HEADER catmer

        STRINGA 10 20 1
        BEGIN
         KEY "CODICE articolo"
         PROMPT 1 1 "Articolo "
         MESSAGE _USER,CODGRUPPOART|RESET,FF_STAMPASALDOPREC
        END
        STRINGA 11 50 1
        BEGIN
         KEY "DESCR.articolo"
         PROMPT 30 1 ""
         MESSAGE _USER,GRUPPOART
        END
        SECTION HEADER_LIVGIAC 2 1 1 GROUP
          STRINGA 20 20 1
          BEGIN
           KEY "CODICE livello"
           PROMPT 1 1 ""
           MESSAGE _USER,CODGRUPPOGIAC
          END
          STRINGA 21 50 1
          BEGIN
            KEY "Livello giac" 
            PROMPT 23 1 ""
            MESSAGE _USER,GRUPPOGIAC
          END
        END
        SECTION HEADER_MAG 2 1 1 GROUP
          STRINGA 22 50 1
          BEGIN
            KEY "mag" 
            PROMPT 5 1 "Magazzino "
            FIELD 500@->S0
          END
          SECTION HEADER_DEP 2 1 1 GROUP
            STRINGA 23 50 1
            BEGIN
              KEY "dep" 
              PROMPT 7 1 "Deposito "
              FIELD 501@->S0
            END
          END // HEADER deposito
        END // HEADER magazzino
        STRINGA 24 50 1
        BEGIN
          KEY "dep" 
          PROMPT 1 2 "------------------------------------------------------------------------------------------------------------------------------------------------------"
        END
      END // HEADER livgiac
    
      STRINGA 10
      BEGIN
        FLAGS "H"
        MESSAGE RESET,FF_SALDO_GRMOV|RESET,FF_VALORE_GRMOV
      END

      SECTION GRUPPI_RMOVMAG 1 0 0 FILE LF_RMOVMAG GROUP CODART
        NUMERO 10
        BEGIN
          FLAGS "H"
          FIELD LF_RMOVMAG->NUMREG
          MESSAGE COPY,FF_NUM_MOV|RESET,FF_SALDO_MOV|RESET,FF_VALORE_MOV 
        END
        NUMERO 11
        BEGIN
          FLAGS "H"
          FIELD LF_MOVMAG->DATAREG
          MESSAGE COPY,FF_DATA_MOV
        END
        
        NUMERO 12
        BEGIN
          FLAGS "H"
          FIELD LF_MOVMAG->DESCR
          MESSAGE COPY,FF_DESCR_MOV
        END
        NUMERO 13
        BEGIN
          FLAGS "H"
          MESSAGE _USER,CAUSALERIGA|COPY,FF_CAUSALE_RIGA
        END
        NUMERO 14
        BEGIN
          FLAGS "H"
          MESSAGE _USER,DESCRCAUSALE|COPY,FF_DESCRCAUSALE
        END

    
        SECTION MOVIMENTO 1 0 0 FILE LF_RMOVMAG GROUP NUMREG
      
          NUMBER FF_QUANTRIGA 12
          BEGIN
            FLAGS "H"
            MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*349@->FC|_USER,*SEGNOCAUS
          END

          NUMBER FF_STAMPASALDOPREC  30
          BEGIN
            FLAGS "H"
          END

          SECTION MOVS_PRECEDENTI 1 0 0 STREXPR LF_MOVMAG->DATAREG<""
            NUMBER 103 30
            BEGIN
              PROMPT 31 1 "Quantita' a saldo prec:"
              PICTURE "###.###,@##"
              MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDOPREC
            END
          END

          SECTION MOVS_INTERESSATI 1 0 0 STREXPR LF_MOVMAG->DATAREG>=""
            SECTION STAMPASALDOPREC 1 1 1 NUMEXPR (#FF_STAMPASALDOPREC==0)&&(#FF_QUANTRIGA!=0)
              NUMBER 100 18
              BEGIN
                PROMPT 8 1 "Saldo precedente :"
              END
              NUMBER FF_SALDOPREC 12
              BEGIN
                PROMPT 31 1 ""
                PICTURE "###.###,@##"
              END
              NUMBER 101 12
              BEGIN
                FLAGS "H"
                MESSAGE RESET,FF_SALDOPREC |INC,FF_STAMPASALDOPREC
              END
              STRINGA 102 12
                BEGIN
                PROMPT 27 1 ""
                FIELD LF_UMART->UM
              END
            END // stampa saldo precedente

            STRINGA 100 30
            BEGIN
              PROMPT 1 1 ">>>"
              MESSAGE _STREXPR,LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
            END
    
            STRINGA 101 12
              BEGIN
              PROMPT 27 1 ""
              FIELD LF_RMOVMAG->UM
            END

            NUMBER 104 12
            BEGIN
              PROMPT 42 1 ""
              PICTURE "###.###.###"
              FIELD LF_RMOVMAG->PREZZO
            END
            NUMBER 103 12
              BEGIN
              PROMPT 31 1 ""
              PICTURE "###.###,@##"
              MESSAGE _NUMEXPR,#FF_QUANTRIGA|ADD,FF_SALDO_MOV
            END
            NUMBER 105 12
            BEGIN
              PROMPT 54 1 ""
              PICTURE "###.###.###"
              MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALORE_MOV
            END
          END // sezione movimento di competenza
        END // loop movimento

        SECTION TOTALI_MOV 1 2 2 NUMEXPR #FF_SALDO_MOV!=0
          NUMBER FF_NUM_MOV 32
          BEGIN
            PROMPT 2 1 "Mov. "
          END
          STRINGA FF_DATA_MOV 10
          BEGIN
            PROMPT 12 1 "del "
          END
          STRINGA FF_DESCR_MOV 50
          BEGIN
            PROMPT 27 1 ""
          END
          STRINGA FF_CAUSALE_RIGA 5
          BEGIN
            PROMPT 6 2 ""
          END
          STRINGA FF_DESCRCAUSALE 25
          BEGIN
            PROMPT 11 2 " "
          END
          STRINGA 100 2
          BEGIN
            PROMPT 42 2 ""
            FIELD LF_UMART->UM
          END
          NUMBER FF_SALDO_MOV 12
          BEGIN
            PROMPT 46 2 ""
            PICTURE "###.###,@##"
            MESSAGE ADD,FF_SALDO_GRMOV
          END
          NUMBER FF_VALORE_MOV 12
          BEGIN
            PROMPT 69 2 ""
            PICTURE "###.###.###"
            MESSAGE ADD,FF_VALORE_GRMOV
          END
          NUMBER 100 12
          BEGIN
            PROMPT 57 2 ""
            PICTURE "###.###.###"
            MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
          END
        END // totali mov
      END // loop scheda

      SECTION TOTALI_GRMOV 1 1 3 GROUP
            
        STRINGA 100 15
        BEGIN
          PROMPT 1 1 "Totale scheda"
        END
        STRINGA 100 2
        BEGIN
          PROMPT 42 1 ""
          FIELD LF_UMART->UM
          MESSAGE COPY,FF_UM_GART
        END
        NUMBER FF_SALDO_GRMOV 12
        BEGIN
          PROMPT 46 1 ""
          PICTURE "###.###,@##"
          MESSAGE ADD,FF_SALDO_GART
        END
        NUMBER FF_VALORE_GRMOV 12
        BEGIN
          PROMPT 69 1 ""
          PICTURE "###.###.###"
          MESSAGE ADD,FF_VALORE_GART
        END
      END // TOTALI scheda per articolo   
    END // loop RMOVMAG

    SECTION TOTALI_MOV_ARTICOLO 1 0 0 NUMEXPR #FF_SALDO_MOV!=0
      FLAGS "D"
      // da eliminare !!!!!!!!!!!
      /*
      NUMBER FF_NUM_MOVART 32
      BEGIN
        PROMPT 2 1 "Mov. "
      END
      STRINGA FF_DATA_MOVART 10
      BEGIN
        PROMPT 12 1 "del "
      END
      STRINGA 100 2
      BEGIN
        PROMPT 27 1 ""
        FIELD LF_UMART->UM
      END
      NUMBER FF_SALDO_MOVART 12
      BEGIN
        PROMPT 31 1 ""
        PICTURE "###.###,@##"
        MESSAGE ADD,FF_SALDO_GRMOV
      END
      NUMBER 100 12
      BEGIN
        PROMPT 42 1 ""
        PICTURE "###.###.###"
        MESSAGE _NUMEXPR,#FF_VALORE_MOV/#FF_SALDO_MOV
      END
      NUMBER FF_VALORE_MOVART 12
      BEGIN
        PROMPT 54 1 ""
        PICTURE "###.###.###"
        MESSAGE ADD,FF_VALORE_GRMOV
      END
      */
    END // totali mov

  END // ragg articolo (codice o catmer)
  SECTION TOTALI_GRUPPIART 1 1 3 GROUP
    STRINGA 100 15
    BEGIN
      PROMPT 1 1 "Totale scheda"
    END
    STRINGA FF_UM_GART 2
    BEGIN
      PROMPT 42 1 ""
      FIELD LF_UMART->UM
    END
    NUMBER FF_SALDO_GART 12
    BEGIN
      PROMPT 46 1 ""
      PICTURE "###.###,@##"
    END
    NUMBER FF_VALORE_GART 12
    BEGIN
      PROMPT 69 1 ""
      PICTURE "###.###.###"
    END
  END // TOTALI scheda per articolo   

END // *****

SECTION FOOTER ODD 2
  STRINGA 100
  BEGIN
    KEY "NUMP"
    PROMPT 50 1 "-----"
  END

  NUMERO 101
  BEGIN
    KEY "NUMPAGE"
    PROMPT 50 2 ""
    MESSAGE _PAGENO
    PICTURE "-###-"
  END

END