#include "BATBCAA.H"
#define  LF_PCON   19  //PIANO DEI CONTI

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

PAGE "Tabella categoria acquisti articoli " 11 60 14

STRING F_CODICE 3  
BEGIN
  PROMPT 3 3 "Codice tabella "
  FIELD CAA->CODTAB 
  KEY 1
  USE CAA  
  
  FLAG "U"
  INPUT CODTAB  F_CODICE
  
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@40 " S0
  
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED      
 
END
  
STRING F_DESCR 40
BEGIN
  PROMPT 3 5  "Descrizione "
  FIELD CAA->S0
  KEY 2
  USE CAA KEY 2  
  INPUT S0  F_DESCR
  
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@40 " S0
  
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED      
 
END

STRING F_CODCON 2
BEGIN
  PROMPT 3 7  "Codice conto "
  FIELD CAA->S1
  USE LF_PCON
//  CHECKTYPE REQUIRED
  FLAG "R"
  
  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
//  KEY 1 
END



STRING F_CODCON1 2
BEGIN
  PROMPT 23 7  ""
  FIELD CAA->S2
//  CHECKTYPE REQUIRED
  
END

STRING F_CODCON2 6
BEGIN
  PROMPT 28 7  ""
  FIELD CAA->S3
//  CHECKTYPE REQUIRED
   
END

STRING F_DESCR1 50
BEGIN
  PROMPT 10 9  ""
  FLAG "D"
END

GROUPBOX DLG_NULL 65 11
BEGIN
  PROMPT 1 1 ""
  FLAG "R"
END

ENDPAGE


ENDMASK