campo-sirio/ve/vetbcmt.uml

#include "vetbcmt.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Conti ricavo dei materiali" 0 2 0 0

GROUPBOX DLG_NULL 75 5
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

NUMBER F_CODRIC 3
BEGIN
  PROMPT 2 1  "Conto ricavi    "
  FIELD CODTAB[1,3]
  USE &CMT
	FLAGS "Z"
	INPUT CODTAB[1,3] F_CODRIC
  INPUT CODTAB[4,6] F_CODRIC1
  INPUT CODTAB[7,12] F_CODRIC2
  DISPLAY "Gruppo"   CODTAB[1,3] 
  DISPLAY "Conto"    CODTAB[4,6] 
  DISPLAY "Sottoconto" CODTAB[7,12]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODRIC CODTAB[1,3]
  OUTPUT F_CODRIC1 CODTAB[4,6]
  OUTPUT F_CODRIC2 CODTAB[7,12]
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
	KEY 1
END

NUMBER F_CODRIC1 3
BEGIN
  PROMPT 25 1  ""
  USE LF_PCON SELECT INDBIL=="4"
  INPUT GRUPPO      F_CODRIC
  INPUT CONTO       F_CODRIC1
  DISPLAY "Gruppo"   GRUPPO
  DISPLAY "Conto"    CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODRIC GRUPPO
  OUTPUT F_CODRIC1 CONTO
  FIELD CODTAB[4,6]
  CHECKTYPE NORMAL
	KEY 1
	FLAGS "Z"
  WARNING "Il conto deve essere un ricavo"
END

NUMBER F_CODRIC2 6
BEGIN
  PROMPT 33 1  ""
  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO      F_CODRIC
  INPUT CONTO       F_CODRIC1
  INPUT SOTTOCONTO  F_CODRIC2
  DISPLAY "Gruppo"   GRUPPO
  DISPLAY "Conto"    CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODRIC GRUPPO
  OUTPUT F_CODRIC1 CONTO
  OUTPUT F_CODRIC2 SOTTOCONTO
  WARNING "Sottoconto errato"
  FIELD CODTAB[7,12]
  CHECKTYPE NORMAL
	FLAGS "Z"
	KEY 1
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 3  "Descrizione    "
  FIELD S0
  KEY 2
  USE &CMT KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo"   CODTAB[1,3] 
  DISPLAY "Conto"    CODTAB[4,6] 
  DISPLAY "Sottoconto" CODTAB[7,12]
  COPY OUTPUT F_CODRIC
  CHECKTYPE REQUIRED
END

NUMBER F_CODCON 3
BEGIN
  PROMPT 2 5  "Conto materiali "
  FIELD I0
  CHECKTYPE NORMAL
END

NUMBER F_CODCON1 3
BEGIN
  PROMPT 25 5  ""
  FIELD I1
  USE LF_PCON SELECT INDBIL=="4"
  INPUT GRUPPO      F_CODCON
  INPUT CONTO       F_CODCON1
  DISPLAY "Gruppo"   GRUPPO
  DISPLAY "Conto"    CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCON GRUPPO
  OUTPUT F_CODCON1 CONTO
  CHECKTYPE NORMAL
  ADD RUN CG0 -0
  WARNING "Il conto deve essere un ricavo"
END

NUMBER F_CODCON2 6
BEGIN
  PROMPT 33 5  ""
  FIELD I2
  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO      F_CODCON
  INPUT CONTO       F_CODCON1
  INPUT SOTTOCONTO  F_CODCON2
  DISPLAY "Gruppo"   GRUPPO
  DISPLAY "Conto"    CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCON GRUPPO
  OUTPUT F_CODCON1 CONTO
  OUTPUT F_CODCON2 SOTTOCONTO
  OUTPUT F_DESCR1 DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING F_DESCR1 50
BEGIN
  PROMPT 2 7  "Descrizione    "
  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_DESCR1
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_CODCON2
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

ENDPAGE

ENDMASK