campo-sirio/ve/batbrfa.uml

#include "batbrfa.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Raggruppamento fiscali articoli" -1 -1 78 9

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
    USE RFA KEY 2
    CHECKTYPE REQUIRED
    WARNING "Manca la descrizione"
    INPUT S0 FLD_TABRFA_S0
    DISPLAY "Descrizione@50" S0
    DISPLAY "Codice" CODTAB
    COPY OUTPUT FLD_TABRFA_CODTAB
    KEY 2
  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
    WARNING "Unita' di misura errata"
  END

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

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

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

STRING FLD_DESIVA 50
  BEGIN
    PROMPT 30 10 ""
    FLAG "D"
  END

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

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

NUMBER FLD_TABRFA_R2 12 2
  BEGIN
    PROMPT 40 12 "massimo  "
    FIELD R2
  END

LIST FLD_TABRFA_I0 1 30
  BEGIN
    PROMPT 2 13 "Tipo costo          "
    FIELD I0
    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_GRUPPOA 3
BEGIN
   PROMPT 2 14 "Conto d'acquisto    "
   FIELD I0
END

NUMBER F_CONTOA 3
BEGIN
    PROMPT  27 14 ""
    FIELD I1
END

NUMBER F_SOTTOCA 6
BEGIN
   PROMPT  32 14 ""
   FIELD I2
   USE LF_PCON
   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
END

STRING F_DESCRA 50
BEGIN
   PROMPT  22 15 ""
   FLAG "U"
   USE LF_PCON KEY 2
   INPUT DESCR F_DESCRA
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCA
END

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

NUMBER F_CONTOV 3
BEGIN
   PROMPT  27 16 ""
   FIELD I4
END

NUMBER F_SOTTOCV 6
BEGIN
   PROMPT  32 16 ""
   FIELD I5
   USE LF_PCON
   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
END

STRING F_DESCRV 50
BEGIN
   PROMPT  22 17 ""
   FLAG "U"
   USE LF_PCON KEY 2
   INPUT DESCR F_DESCRV
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCV
END

ENDPAGE

ENDMASK