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_CODGRU CODTAB[1,3]
  OUTPUT H_DESGRU S0
  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
	STR_EXPR (#H_CODGRU!="")||(#F_CODSGR=="")
  GROUP GR_SEARCH
	WARNING "Gruppo merceologico inesistente"
  CHECKTYPE NORMAL
END

STRING H_CODGRU 3
BEGIN
  PROMPT 2 1 "Codice gruppo          "
  FLAG "U"
  FLAGS "H"
  COPY USE F_CODGRU
  INPUT CODTAB F_CODGRU
  COPY DISPLAY F_CODGRU
  OUTPUT F_DESGRU S0
  CHECKTYPE REQUIRED
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_CODIVARIF 4
BEGIN
  PROMPT 2 8  "Codice IVA     "
  FIELD S7
  USE %IVA
  INPUT CODTAB F_CODIVARIF
  DISPLAY "Codice IVA" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVARIF CODTAB
  OUTPUT F_CODIVARIF1 S0
  CHECKTYPE NORMAL
END

STRING F_CODIVARIF1 50
BEGIN
  PROMPT 25 8 ""
  USE %IVA KEY 2
  INPUT S0  F_CODIVARIF1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice " CODTAB
  OUTPUT F_CODIVARIF CODTAB
  OUTPUT F_CODIVARIF1 S0
  CHECKTYPE NORMAL
END

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

NUMBER F_CONTOV 3
BEGIN
  PROMPT  22 10 ""
  FIELD I4
  USE LF_PCON SELECT INDBIL=="4"
  INPUT GRUPPO      F_GRUPPOV
  INPUT CONTO       F_CONTOV
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOV  GRUPPO
  OUTPUT F_CONTOV  CONTO
  CHECKTYPE NORMAL
  ADD RUN CG0 -0
  WARNING "Il conto deve essere un ricavo"
END

NUMBER F_SOTTOCV 6
BEGIN
   PROMPT  30 10 ""
   FIELD I5
   USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   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
   WARNING "Sottoconto errato"
   ADD RUN CG0 -0
END

STRING F_DESCRV 50
BEGIN
   PROMPT  17 11 ""
   FLAG "U"
   USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   INPUT DESCR F_DESCRV
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCV
   CHECKTYPE NORMAL
   WARNING "Il conto deve essere un ricavo"
   ADD RUN CG0 -0
END

NUMBER F_GRUPPOA 3
BEGIN
   PROMPT 2 13 "Conto acquisti "
   FIELD I0
END

NUMBER F_CONTOA 3
BEGIN
  PROMPT  22 13 ""
  FIELD I1
  USE LF_PCON SELECT INDBIL=="3"
  INPUT GRUPPO      F_GRUPPOA
  INPUT CONTO       F_CONTOA
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOA  GRUPPO
  OUTPUT F_CONTOA  CONTO
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un costo"
  ADD RUN CG0 -0
END

NUMBER F_SOTTOCA 6
BEGIN
   PROMPT  30 13 ""
   FIELD I2
   USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   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
   WARNING "Sottoconto errato"
   ADD RUN CG0 -0
END

STRING F_DESCRA 50
BEGIN
   PROMPT  17 14 ""
   FLAG "U"
   USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   INPUT DESCR F_DESCRA
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCA
   CHECKTYPE NORMAL
   WARNING "Il conto deve essere un ricavo"
   ADD RUN CG0 -0
END

ENDPAGE

ENDMASK