#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 2
  BEGIN
    PROMPT 2 9  "Classe fiscale  "
    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
    OUTPUT FLD_TABRFA_S8 CODTAB
    OUTPUT FLD_DESCFA S0
    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

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 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  23 14 ""
  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  31 14 ""
   FIELD I5
   USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   INPUT GRUPPO F_GRUPPOV SELECT
   INPUT CONTO  F_CONTOV  SELECT
   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  18 15 ""
   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

NUMBER F_GRUPPOA 3
BEGIN
   PROMPT 2 16  "Conto d'acquisto"
   FIELD I0
END

NUMBER F_CONTOA 3
BEGIN
  PROMPT  23 16 ""
  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  31 16 ""
   FIELD I2
   USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
   JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
   INPUT GRUPPO F_GRUPPOA SELECT
   INPUT CONTO  F_CONTOA  SELECT
   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  18 17 ""
   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
   COPY OUTPUT F_SOTTOCA
   CHECKTYPE NORMAL
   WARNING "Il conto deve essere un ricavo"
   ADD RUN CG0 -0
END

ENDPAGE

ENDMASK
