campo-sirio/cg/cgtbcve.uml

#include "cgtbcve.h"

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

PAGE "Categorie di vendita " 0 2 0 0
GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODICE 2
BEGIN
  PROMPT 2 2 "Codice      "
  HELP "Codice della categoria di vendita"
  FIELD CODTAB
  FLAGS "U"
  KEY 1
  USE CVE
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  DISPLAY "Provvigione" R0
  DISPLAY "Gruppo" I1
  DISPLAY "Conto"  I2
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  OUTPUT F_PROVV R0
  OUTPUT F_GRUPPO I1
  OUTPUT F_CONTO  I2
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 4 "Descrizione "
  HELP "Descrizione della categoria di vendita"
  FIELD S0
  KEY 2
  USE CVE KEY 2
  INPUT CODTAB F_CODICE
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Provvigione" R0
  DISPLAY "Gruppo" I1
  DISPLAY "Conto"  I2
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  OUTPUT F_PROVV R0
  OUTPUT F_GRUPPO I1
  OUTPUT F_CONTO  I2
  CHECKTYPE REQUIRED
END

NUMBER F_PROVV 5 2
BEGIN
  PROMPT 2 8 "Provvigione        "
  HELP "Percentuale di provvigione della categoria"
  FIELD R0
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 10 "Conto Cliente      "
  HELP "Gruppo del piano dei conti della categoria"
  FIELD I1
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 26 10 ""
  HELP "Conto del piano dei conti della categoria"
  FIELD I2
  USE LF_PCON SELECT TMCF="C"
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESCONTO DESCR
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
END

STRING F_DESCONTO 50
BEGIN
  PROMPT 21 11 ""
  FLAG "U"
  USE LF_PCON KEY 2 SELECT TMCF="C"
  INPUT DESCR F_DESCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  COPY OUTPUT F_CONTO
END

NUMBER F_GRUPPOV 3
BEGIN
   PROMPT 2 13 "Conto di vendita   "
   FIELD I3
   CHECKTYPE NORMAL
END

NUMBER F_CONTOV 3
BEGIN
   PROMPT  26 13 ""
   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  33 13 ""
   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  21 14 ""
   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

ENDPAGE
ENDMASK