campo-sirio/ve/vetbgmc.uml

#include "vetbgmc.h"

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

PAGE "Gruppi merceologici " 0 2 0 0

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

STRING F_CODGRU 3
BEGIN
  PROMPT 2 1 "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 2 2 "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 EMPTY HIDE,F_DESGRU|SHOW,H_DESGRU|HIDE,F_DESSGR
  MESSAGE SHOW,F_DESGRU|HIDE,H_DESGRU|SHOW,F_DESSGR
  STR_EXPR (#H_CODGRU?="*")||(#F_CODSGR=="")
  GROUP GR_SEARCH
  WARNING "Gruppo merceologico non corretto"
  CHECKTYPE NORMAL
END

STRING H_CODGRU 3
BEGIN
  PROMPT 2 1 "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 20 1 ""
  FLAGS "D"
END

STRING F_DESSGR 50
BEGIN
  PROMPT 20 2 ""
  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 20 1 ""
  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 5  "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 5 ""
  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 7 "Conto vendita  "
  FIELD I3
END

NUMBER F_CONTOV 3
BEGIN
  PROMPT  22 7 ""
  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 7 ""
   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 8 ""
   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
   OUTPUT F_DESCRV  DESCR
   OUTPUT F_SOTTOCV SOTTOCONTO
   OUTPUT F_GRUPPOV GRUPPO
   OUTPUT F_CONTOV CONTO
   CHECKTYPE NORMAL
   WARNING "Il conto deve essere un ricavo"
   ADD RUN CG0 -0
END

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

NUMBER F_CONTOA 3
BEGIN
  PROMPT  22 10 ""
  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 10 ""
   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 11 ""
   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
   OUTPUT F_DESCRA  DESCR
   OUTPUT F_SOTTOCA SOTTOCONTO
   OUTPUT F_GRUPPOA GRUPPO
   OUTPUT F_CONTOA  CONTO
   CHECKTYPE NORMAL
   WARNING "Il conto deve essere un ricavo"
   ADD RUN CG0 -0
END

STRING F_SCONTO 25
BEGIN
  PROMPT  2 13 "Sconto "
  FIELD S4
END

STRING F_RICARICO 25
BEGIN
  PROMPT  38 13 "Ricarico "
  FIELD S5
END

TEXT -1
BEGIN
  PROMPT 1 15 "@bRicarichi per listino"
END

SPREADSHEET F_RIGHE_LIS 78 7
BEGIN
  PROMPT 1 16 ""
  ITEM "Cat."
  ITEM "Listino"
  ITEM "Ricarico"
  ITEM "Descrizione@50"
  FLAGS "|"
END

ENDPAGE

ENDMASK

//maschera di riga dello sheet
PAGE "Riga ricarico listino" -1 -1 78 8

STRING S_CATVEN 2
BEGIN
  PROMPT 1 1 "Cat. vendita   "
  USE CVE
  INPUT CODTAB S_CATVEN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CATVEN CODTAB
  OUTPUT S_DESCAT S0
  CHECKTYPE REQUIRED
  WARNING "La categoria di vendita <20> assente!"
  FLAGS "UD"
END

STRING S_DESCAT 50
BEGIN
  PROMPT 23 1 ""
  FLAGS "D"
END

STRING S_CODLIS 3
BEGIN
  PROMPT 1 2 "Codice listino "
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN S_CATVEN SELECT  
  INPUT COD S_CODLIS
  DISPLAY "Cat." CATVEN 
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODLIS COD
  OUTPUT S_DESLIS DESCR
  CHECKTYPE REQUIRED
  WARNING "Il codice listino <20> assente!"
  FLAGS "UZ"
END

STRING S_DESLIS 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

NUMBER S_RICARICO 4
BEGIN
  PROMPT 1 3 "Ricarico       "
  CHECKTYPE REQUIRED
  WARNING "Il ricarico <20> nullo!"
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK