campo-sirio/ve/vetbrfa.uml

#include "vetbrfa.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Raggruppamento fiscali articoli" 0 0 0 0

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

STRING FLD_TABRFA_CODTAB 5
BEGIN
  PROMPT 2 2 "Codice       "
  FIELD CODTAB
  USE RFA
  CHECKTYPE REQUIRED
  INPUT CODTAB FLD_TABRFA_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_TABRFA_CODTAB CODTAB
  OUTPUT FLD_TABRFA_S0 S0
  KEY 1
  FLAGS "U"
END

STRING FLD_TABRFA_S0 50
BEGIN
  PROMPT 2 4 "Descrizione  "
  FIELD S0
  KEY 2
  USE RFA KEY 2
  INPUT S0 FLD_TABRFA_S0
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FLD_TABRFA_CODTAB
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

STRING FLD_TABRFA_S7 2
BEGIN
  PROMPT 2 8  "Unita' di misura "
  FIELD S7
  FLAG "U"
  USE %UMS
  INPUT CODTAB FLD_TABRFA_S7
  DISPLAY "U.M. "          CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_TABRFA_S7 CODTAB
  CHECKTYPE NORMAL
  WARNING "Unita' di misura errata"
END

STRING FLD_TABRFA_S8 2
BEGIN
  PROMPT 2 9  "Classe fiscale   "
  FLAGS "U"
  FIELD S8
  USE ASF
  INPUT CODTAB FLD_TABRFA_S8
  DISPLAY "Cl. Fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_TABRFA_S8 CODTAB
  OUTPUT FLD_DESCFA S0
  CHECKTYPE NORMAL
END

STRING FLD_DESCFA 50
BEGIN
  PROMPT 28 9 ""
  USE ASF KEY 2
  INPUT S0 FLD_DESCFA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cl. Fisc." CODTAB
  COPY OUTPUT  FLD_TABRFA_S8
  CHECKTYPE NORMAL
END

STRING FLD_TABRFA_S9 4
BEGIN
  PROMPT 2 10 "Cod.IVA          "
  FIELD S9
  USE %IVA
  INPUT CODTAB FLD_TABRFA_S9
  DISPLAY "Codice IVA" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_TABRFA_S9 CODTAB
  OUTPUT FLD_DESIVA S0
  CHECKTYPE NORMAL
END

STRING FLD_DESIVA 50
BEGIN
  PROMPT 28 10 ""
  USE %IVA KEY 2
  INPUT S0 FLD_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice IVA" CODTAB
  OUTPUT FLD_TABRFA_S9 CODTAB
  OUTPUT FLD_DESIVA S0
  CHECKTYPE NORMAL
END

NUMBER FLD_TABRFA_R0 6 2
BEGIN
  PROMPT 2 11 "% ricarico medio "
  FIELD R0
END

CURRENCY FLD_TABRFA_R1 12
BEGIN
  PROMPT 2 12 "Costo minimo     "
  FIELD R1
END

CURRENCY FLD_TABRFA_R2 12
BEGIN
  PROMPT 40 12 "massimo  "
  FIELD R2
END

LIST FLD_TABRFA_I0 1 30
BEGIN
  PROMPT 2 13 "Tipo costo       "
  FIELD S6
  HELP "Inserire il tipo di costo"
  ITEM "1|Costo medio annuale"
  ITEM "2|Costo ultimi 3 mesi"
  ITEM "3|Costo ultimo"
  ITEM "4|Costo standard"
  ITEM "5|Maggiore ultimi due costi"
  ITEM "6|Costo massimo d'acquisto"
  ITEM "7|Costo minimo d'acquisto"
END

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

NUMBER F_CONTOV 3
BEGIN
  PROMPT  25 14 ""
  FIELD I4
  USE LF_PCON SELECT  (CONTO!="") && (SOTTOCONTO=="")
  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 14 ""
  FIELD I5
  USE LF_PCON SELECT SOTTOCONTO!=""
  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  19 15 ""
   FLAG "U"
   USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
   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 16  "Conto d'acquisto "
  FIELD I0
END

NUMBER F_CONTOA 3
BEGIN
  PROMPT  25 16 ""
  FIELD I1
  COPY USE F_CONTOV
  INPUT GRUPPO      F_GRUPPOA
  INPUT CONTO       F_CONTOA
  COPY DISPLAY F_CONTOV
  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  33 16 ""
  FIELD I2
  COPY USE F_SOTTOCV
  INPUT GRUPPO F_GRUPPOA 
  INPUT CONTO  F_CONTOA  
  INPUT SOTTOCONTO F_SOTTOCA
  COPY DISPLAY F_SOTTOCV
  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  19 17 ""
  FLAG "U"
  COPY USE F_DESCRV
  INPUT DESCR F_DESCRA
  COPY DISPLAY F_DESCRV
  COPY OUTPUT F_SOTTOCA
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

ENDPAGE

ENDMASK