campo-sirio/ve/batbgmc.uml

#include "batbgmc.h"

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

PAGE "Tabella gruppi merceologici " 11 60 14

GROUPBOX DLG_NULL 78 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODGRU 3
BEGIN
  PROMPT 2 2 "Codice gruppo          "
  FLAG "U"
  FIELD CODTAB[1,3]
  KEY 1
  USE GMC SELECT CODTAB[4,5]==""
  INPUT CODTAB F_CODGRU
  DISPLAY "Gruppo"         CODTAB[1,3]
  DISPLAY "Descrizione gruppo@50" S0
  OUTPUT F_CODGRU CODTAB[1,3]
  OUTPUT H_DESGRU S0
  MESSAGE COPY,H_CODGRU
  CHECKTYPE REQUIRED
END

STRING F_CODSGR 2
BEGIN
  PROMPT 35 2 "Codice sottogruppo "
  FIELD CODTAB[4,5]
  FLAGS "U"
  KEY 1
  USE GMC
  INPUT CODTAB[1,3] F_CODGRU
  INPUT CODTAB[4,5] F_CODSGR
  DISPLAY "Codice gruppo" CODTAB[1,3]
  DISPLAY "Codice sottogruppo" CODTAB[4,5]
  DISPLAY "Descrizione sottogruppo@50" S0
  OUTPUT F_CODGRU CODTAB[1,3]
  OUTPUT F_CODSGR CODTAB[4,5]
  OUTPUT F_DESSGR S0
  MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
  MESSAGE EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
  //VALIDATE AUTOEXIT_FUNC 2 F_CODGRU F_CODSGR
  GROUP GR_SEARCH
END

STRING H_CODGRU 3
BEGIN
  PROMPT 2 2 "Codice gruppo          "
  FLAG "U"
  FLAGS "H"
  COPY USE F_CODGRU
  INPUT CODTAB F_CODGRU
  COPY DISPLAY F_CODGRU
  OUTPUT F_DESGRU S0
  CHECKTYPE NORMAL
END

STRING F_DESGRU 50
BEGIN
  PROMPT 2 4 "Descrizione gruppo     "
  FLAGS "D"
END

STRING F_DESSGR 50
BEGIN
  PROMPT 2 5 "Descrizione sottogruppo"
  FIELD S0
  USE GMC KEY 2
  KEY 2
  INPUT S0 F_DESSGR
  DISPLAY "Descrizione sottogruppo@50" S0
  DISPLAY "Codice gruppo" CODTAB[1,3]
  DISPLAY "Codice sottogruppo" CODTAB[4,5]
  COPY OUTPUT F_CODSGR
  MESSAGE K_TAB,F_CODSGR
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

STRING H_DESGRU 50
BEGIN
  PROMPT 2 4 "Descrizione gruppo     "
  FIELD S0
  KEY 2
  USE GMC KEY 2
  INPUT S0 H_DESGRU
  DISPLAY "Descrizione gruppo@50" S0
  DISPLAY "Codice gruppo" CODTAB[1,3]
  DISPLAY "Codice sottogruppo" CODTAB[4,5]
  COPY OUTPUT F_CODSGR
  OUTPUT H_DESGRU S0
  MESSAGE K_TAB,F_CODSGR
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione del gruppo"
END

STRING F_CODAGGDOC 2
BEGIN
  PROMPT 2 8  "Codice aggiornamento documenti  "
  FIELD S4
END

STRING F_CODAGGOMA 2
BEGIN
  PROMPT 2 9  "Codice aggiornamento omaggi     "
  FIELD S5
END

STRING F_CODAGGSCO 2
BEGIN
  PROMPT 2 10  "Codice aggiornamento sconti     "
  FIELD S6
END

STRING F_CODIVARIF 4
BEGIN
  PROMPT 2 11  "Codice iva di riferimento       "
  FIELD S7
  USE %IVA
  INPUT CODTAB F_CODIVARIF
  DISPLAY "Codice IVA" CODTAB
  DISPLAY "Aliquota" R0
  OUTPUT F_CODIVARIF CODTAB
  CHECKTYPE NORMAL
END

NUMBER F_GRUPPOA 3
BEGIN
   PROMPT 2 13 "Conto d'acquisto"
   FIELD I0
END

NUMBER F_CONTOA 3
BEGIN
    PROMPT  23 13 ""
    FIELD I1
END

NUMBER F_SOTTOCA 6
BEGIN
   PROMPT  28 13 ""
   FIELD I2
   USE LF_PCON
   INPUT GRUPPO F_GRUPPOA
   INPUT CONTO  F_CONTOA
   INPUT SOTTOCONTO F_SOTTOCA
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_GRUPPOA GRUPPO
   OUTPUT F_CONTOA  CONTO
   OUTPUT F_SOTTOCA SOTTOCONTO
   OUTPUT F_DESCRA  DESCR
   CHECKTYPE NORMAL
END

STRING F_DESCRA 50
BEGIN
   PROMPT  18 14 ""
   FLAG "U"
   USE LF_PCON KEY 2
   INPUT DESCR F_DESCRA
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCA
END

NUMBER F_GRUPPOV 3
BEGIN
   PROMPT 2 15 "Conto di vendita"
   FIELD I3
END

NUMBER F_CONTOV 3
BEGIN
   PROMPT  23 15 ""
   FIELD I4
END

NUMBER F_SOTTOCV 6
BEGIN
   PROMPT  28 15 ""
   FIELD I5
   USE LF_PCON
   INPUT GRUPPO F_GRUPPOV
   INPUT CONTO  F_CONTOV
   INPUT SOTTOCONTO F_SOTTOCV
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_GRUPPOV GRUPPO
   OUTPUT F_CONTOV CONTO
   OUTPUT F_SOTTOCV SOTTOCONTO
   OUTPUT F_DESCRV  DESCR
   CHECKTYPE NORMAL
END

STRING F_DESCRV 50
BEGIN
   PROMPT  18 16 ""
   FLAG "U"
   USE LF_PCON KEY 2
   INPUT DESCR F_DESCRV
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCV
END

ENDPAGE

ENDMASK