campo-sirio/ve/ve2400.uml

#include "VE2400.H"
#define ANAMAG  47  
#define PCON    19  
#define CLIFOR  20   

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Gestione anagrafica di magazzino " 0 0 70 20

STRING F_CODART 30 
BEGIN
    PROMPT 2 1 "Codice articolo  "
    FIELD ANAMAG->CODART
    KEY 1
    FLAG "U"
    USE ANAMAG
    INPUT CODART F_CODART
    DISPLAY "Codice@30" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART CODART
    OUTPUT F_DESCR DESCR
    
    CHECKTYPE REQUIRED


END

STRING F_TIPO 1
BEGIN
    PROMPT 55 1  "Tipo  "
    FIELD ANAMAG->TIPO

END

STRING F_DESCR 50 
BEGIN
    PROMPT 2 3 "Descrizione  "
    FIELD ANAMAG->DESCR
    KEY 2
    USE ANAMAG KEY 2
    INPUT DESCR F_DESCR
    DISPLAY "Codice@30" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART CODART
    OUTPUT F_DESCR DESCR
    
    CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 71 5
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END



STRING F_GRMERC1 3 
BEGIN
    PROMPT 1 5 "Gruppo merc. 1 "
    FIELD ANAMAG->GRMERC1
    USE GMC
    INPUT CODTAB F_GRMERC1
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC1 CODTAB
    OUTPUT F_GRMERC1A S0
END

STRING F_GRMERC1A 50 
BEGIN
    PROMPT 23 5 ""
    USE GMC KEY 2
    INPUT S0 F_GRMERC1A
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC1 CODTAB
    OUTPUT F_GRMERC1A S0
END

STRING F_GRMERC2 3 
BEGIN
    PROMPT 1 6 "Gruppo merc. 2 "
    FIELD ANAMAG->GRMERC2
    USE GMC
    INPUT CODTAB F_GRMERC2
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC2 CODTAB
    OUTPUT F_GRMERC2A S0
END

STRING F_GRMERC2A 50 
BEGIN
    PROMPT 23 6 ""
    USE GMC KEY 2
    INPUT S0 F_GRMERC2A
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC2 CODTAB
    OUTPUT F_GRMERC2A S0
END

STRING F_GRMERC3 3 
BEGIN
    PROMPT 1 7 "Gruppo merc. 3 "
    FIELD ANAMAG->GRMERC3
    USE GMC
    INPUT CODTAB F_GRMERC3
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC3 CODTAB
    OUTPUT F_GRMERC3A S0
END

STRING F_GRMERC3A 50 
BEGIN
    PROMPT 23 7 ""
    USE GMC KEY 2
    INPUT S0 F_GRMERC3A
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC3 CODTAB
    OUTPUT F_GRMERC3A S0
END

STRING F_UMA 3
BEGIN
   PROMPT 1 8 "U.M. di acq.  "
   FIELD ANAMAG->UMA
END

NUMBER F_FCA 15 5
BEGIN
   PROMPT 21 8 "Fatt. di conv.  "
   FIELD ANAMAG->FCA
END

STRING F_UMV 3
BEGIN
   PROMPT 55 8 "U.M. di vendita  "
   FIELD ANAMAG->UMV
END

STRING F_UM2 3
BEGIN
   PROMPT 1 9 "Seconda U.M.  "
   FIELD ANAMAG->UM2
END

NUMBER F_FC2 15 5
BEGIN
   PROMPT 21 9 "Fatt. di conv.  "
   FIELD ANAMAG->FC2
END

STRING F_UM3 3
BEGIN
   PROMPT 55 9 "Terza U.M.  "
   FIELD ANAMAG->UM3
END

STRING F_CATCONA 3
BEGIN
   PROMPT 1 10 "Categoria conto acquisti "
   FIELD ANAMAG->CATCONA
//   MESSAGE CLEAR , F_GRUPPOA
//   MESSAGE CLEAR , F_CONTOA
//   MESSAGE CLEAR , F_SOTTOCA
//   MESSAGE CLEAR , F_DESCRA
   USE CAA
   INPUT CODTAB F_CATCONA
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   DISPLAY "Gruppo" S1
   DISPLAY "Conto"  S2
   DISPLAY "Sottoconto" S3
   
   OUTPUT F_CATCONA CODTAB
   OUTPUT F_CATCONA1 S0
END

STRING F_CATCONA1 40
BEGIN
    PROMPT 33 10 ""
    FLAG "D"      
END



STRING F_GRUPPOA 2
BEGIN
   PROMPT 1 11 "Conto d'acquisto "
   FIELD ANAMAG->GRUPPOA
//   MESSAGE CLEAR , F_CATCONA
//   MESSAGE CLEAR , F_CATCONA1
   
   USE PCON
   INPUT GRUPPO F_GRUPPOA
   INPUT CONTO  F_CONTOA
   INPUT SOTTOCONTO F_SOTTOCA
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   
   OUTPUT F_GRUPPOA GRUPPO
   OUTPUT F_CONTOA  CONTO
   OUTPUT F_SOTTOCA SOTTOCONTO
   OUTPUT F_DESCRA  DESCR
END

STRING F_CONTOA 2
BEGIN
    PROMPT  24 11 ""
    FIELD ANAMAG->CONTOA
END

STRING F_SOTTOCA 6
BEGIN
    PROMPT  28 11 ""
    FIELD ANAMAG->SOTTOCA
END

STRING F_DESCRA 40
BEGIN
    PROMPT  36 11 ""
    FLAG "D"    
END



STRING F_CATCONV 3
BEGIN
   PROMPT 1 12 "Categoria conto vendite  "
   FIELD ANAMAG->CATCONV
//   MESSAGE CLEAR , F_GRUPPOV
//   MESSAGE CLEAR , F_CONTOV
//   MESSAGE CLEAR , F_SOTTOCV
//   MESSAGE CLEAR , F_DESCRV
   USE CRA
   INPUT CODTAB F_CATCONV
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   DISPLAY "Gruppo" S1
   DISPLAY "Conto"  S2
   DISPLAY "Sottoconto" S3
   
   OUTPUT F_CATCONV CODTAB
   OUTPUT F_CATCONV1 S0
END

STRING F_CATCONV1 40
BEGIN
    PROMPT 33 12 ""
    FLAG "D"      
END

STRING F_GRUPPOV 2
BEGIN
   PROMPT 1 13 "Conto di vendita "
   FIELD ANAMAG->GRUPPOV
//   MESSAGE CLEAR , F_CATCONV
//   MESSAGE CLEAR , F_CATCONV1
   
   USE PCON
   INPUT GRUPPO F_GRUPPOV
   INPUT CONTO  F_CONTOV
   INPUT SOTTOCONTO F_SOTTOCV
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   
   OUTPUT F_GRUPPOV GRUPPO
   OUTPUT F_CONTOV CONTO
   OUTPUT F_SOTTOCV SOTTOCONTO
   OUTPUT F_DESCRV  DESCR
END

STRING F_CONTOV 2
BEGIN
    PROMPT  24 13 ""
    FIELD ANAMAG->CONTOV
END

STRING F_SOTTOCV 6
BEGIN
    PROMPT  28 13 ""
    FIELD ANAMAG->SOTTOCV
END

STRING F_DESCRV 40
BEGIN
    PROMPT  36 13 ""
    FLAG "D"    
END



STRING F_UMP 3
BEGIN
    PROMPT  1 14 "U.M. peso  "
    FIELD ANAMAG->UMP
END

NUMBER F_PESO 15 5
BEGIN
    PROMPT 30 14 "Peso  "
    FIELD ANAMAG->PESO
END

STRING F_CLASSDOG 10
BEGIN
    PROMPT  1 15 "Classe doganale  "
    FIELD ANAMAG->CLASSDOG
END

STRING F_CLASSDOG1 40
BEGIN
    PROMPT  34 15 ""
    FLAG "D"    
END


STRING F_UBICAZIONE 10
BEGIN
    PROMPT  1 16 "Ubicazione     "
    FIELD ANAMAG->CLASSDOG
    USE UBI
    INPUT CODTAB  F_UBICAZIONE
    DISPLAY "Codice " CODTAB
    DISPLAY "Descrizione@40" S0
    DISPLAY "Piano  "     S6
    DISPLAY "Corridoio "  S7
    DISPLAY "Fila "       S8
    DISPLAY "Scaffale "   S9
    DISPLAY "Piano scaffale " S5
    OUTPUT F_UBICAZIONE CODTAB
    OUTPUT F_UBICAZIONE1 S0
END



STRING F_UBICAZIONE1 40
BEGIN
    PROMPT  34 16 ""
    FLAG "D"    
END

/*
STRING F_LINEAPROD 5
BEGIN
    PROMPT  1 17 "Linea prodotto      "
    FIELD ANAMAG->LINEAPROD
    USE LIC
    INPUT CODTAB  F_LINEAPROD
    DISPLAY "Codice " CODTAB
    DISPLAY "Descrizione@40" S0
    OUTPUT F_LINEAPROD CODTAB
    OUTPUT F_LINEAPROD1 S0
END

STRING F_LINEAPROD1 40
BEGIN
    PROMPT  34 17 ""
    FLAG "D"    
END

*/

ENDPAGE



PAGE "Gestione anagrafica di magazzino " 0 0 70 20


STRING F_CODIVA 4
BEGIN
    PROMPT  2 1 "Codice IVA  "
    FIELD ANAMAG->CODIVA
    USE %IVA
    INPUT CODTAB  F_CODIVA
    DISPLAY "Codice " CODTAB
    DISPLAY "Descrizione@40" S0
    OUTPUT F_CODIVA CODTAB
    OUTPUT F_CODIVA1 S0

END

STRING F_CODIVA1 40
BEGIN
    PROMPT  23 1 ""
    FLAG "D"    
END

NUMBER F_COSTSTD 18 2
BEGIN
    PROMPT  37 2 "Costo standard  "
    FIELD ANAMAG->COSTSTD
END


LISTBOX F_TIPOCF 1
BEGIN
    PROMPT  0 0 ""
    FLAG "H"    
    ITEM "F|"
END

NUMBER F_CODFORN 6
BEGIN
    PROMPT  2 2 "Codice fornitore "
    FIELD ANAMAG->CODFORN
    USE CLIFOR
    INPUT TIPOCF  F_TIPOCF SELECT
    INPUT CODCF   F_CODFORN
    DISPLAY "Codice " CODCF
    DISPLAY "Ragione sociale@50" RAGSOC
    OUTPUT F_CODFORN  CODCF
    OUTPUT F_CODFORN1 RAGSOC

END

STRING F_CODFORN1 50
BEGIN
    PROMPT  2 3 "Ragione sociale  "
    USE CLIFOR KEY 2
    INPUT TIPOCF  F_TIPOCF SELECT
    INPUT RAGSOC   F_CODFORN1
    DISPLAY "Codice " CODCF
    DISPLAY "Ragione sociale@50" RAGSOC
    OUTPUT F_CODFORN  CODCF
    OUTPUT F_CODFORN1 RAGSOC
END



BOOLEAN F_ARTFIS 
BEGIN
    PROMPT  2 4 "Articolo fiscale  "
    FIELD ANAMAG->ARTFIS
END



STRING F_RAGGFIS 1
BEGIN
    PROMPT  2 5 "Raggruppamento fiscale  "
    FIELD ANAMAG->RAGGFIS
END

STRING F_RAGGFIS1 40
BEGIN
    PROMPT  32 5 ""
    FLAG "D"    
END

STRING F_CLASSEFIS 3
BEGIN
    PROMPT  2 6 "Classe fiscale        "
    FIELD ANAMAG->CLASSEFIS
END

STRING F_CLASSEFIS1 40
BEGIN
    PROMPT  32 6 ""
    FLAG "D"    
END

BOOLEAN F_ARTPROD
BEGIN
   PROMPT 2 7 "Articolo di produzione "
   FIELD ANAMAG->ARTPROD
END

SPREADSHEET 300 70 5 
   BEGIN
     PROMPT 2 8 ""
     ITEM "Cod. lingua"
     ITEM "Descrizione@50"
        
END

SPREADSHEET 301 60 5 
   BEGIN
     PROMPT 2 14 ""
     ITEM "Cod. art.@30"
     ITEM "Tipo@10"
   
END



ENDPAGE




ENDMASK

 #include "VE2400B.UML"
 #include "VE2400C.UML"