#include "batbcaa.h"

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

PAGE "Tabella categoria acquisti articoli " 11 60 14

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

STRING F_CODICE 3
BEGIN
  PROMPT 2 2 "Cod. Tabella   "
  FIELD CODTAB
  KEY 1
  USE CAA
  FLAG "UZ"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 4  "Descrizione    "
  FIELD S0
  KEY 2
  USE CAA KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END

NUMBER F_CODCON 3
BEGIN
  PROMPT 2 8  "Conto acquisti "
  FIELD I0
  CHECKTYPE NORMAL
END

NUMBER F_CODCON1 3
BEGIN
  PROMPT 22 8  ""
  FIELD I1
  USE LF_PCON SELECT INDBIL=="3"
  INPUT GRUPPO      F_CODCON
  INPUT CONTO       F_CODCON1
  DISPLAY "Gruppo"   GRUPPO
  DISPLAY "Conto"    CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCON GRUPPO
  OUTPUT F_CODCON1 CONTO
  CHECKTYPE NORMAL
  ADD RUN CG0 -0
  WARNING "Il conto deve essere un costo"
END

NUMBER F_CODCON2 6
BEGIN
  PROMPT 30 8  ""
  FIELD I2
  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO      F_CODCON
  INPUT CONTO       F_CODCON1
  INPUT SOTTOCONTO  F_CODCON2
  DISPLAY "Gruppo"   GRUPPO
  DISPLAY "Conto"    CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCON GRUPPO
  OUTPUT F_CODCON1 CONTO
  OUTPUT F_CODCON2 SOTTOCONTO
  OUTPUT F_DESCR1 DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING F_DESCR1 50
BEGIN
  PROMPT 17 10  ""
  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_DESCR1
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_CODCON2
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un costo"
  ADD RUN CG0 -0
END

ENDPAGE

ENDMASK