campo-sirio/ve/batbcra.uml

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


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

PAGE "Tabella categoria ricavi articoli " 11 60 14

STRING F_CODICE 3
BEGIN
  PROMPT 3 3 "Codice tabella "
  FIELD CRA->CODTAB
  KEY 1
  USE CRA

  FLAG "U"
  INPUT CODTAB  F_CODICE

  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@30 " S0

  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 30
BEGIN
  PROMPT 3 5  "Descrizione    "
  FIELD CRA->S0
  KEY 2
  USE CRA KEY 2
  INPUT S0  F_DESCR

  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@30 " S0

  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED

END

STRING F_CODCON 3
BEGIN
  PROMPT 3 7  "Codice conto   "
  FIELD CRA->S1
  FLAG "R"
END

STRING F_CODCON1 3
BEGIN
  PROMPT 25 7  ""
  FIELD CRA->S2
  USE LF_PCON SELECT INDBIL="4"
  FLAG "R"
  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
  OUTPUT F_DESCR1 DESCR
  ADD RUN CG0 -0
END

STRING F_CODCON2 6
BEGIN
  PROMPT 34 7  ""
  FIELD CRA->S3
  USE LF_PCON SELECT INDBIL="4"
  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
  ADD RUN CG0 -0

END

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

ENDPAGE


ENDMASK