#include "batbcve.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Categorie di vendita " -1 -1 78 8

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

STRING F_CODICE 2
BEGIN
  PROMPT 4 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 4 4 "Descrizione "
  HELP "Descrizione della categoria di vendita"
  FIELD LF_TABCOM->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 6 2
BEGIN
        PROMPT 4 8 "Provvigione "
        HELP "Percentuale di provvigione della categoria"
  FIELD LF_TABCOM->R0
END

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

NUMBER F_CONTO 3
BEGIN
  PROMPT 25 10 "Conto "
  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 16 12 ""
  FLAGS "D"
  CHECKTYPE NORMAL
END

ENDPAGE
ENDMASK