campo-sirio/ba/batbcco.uml

#include "batbcco.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8

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

STRING F_CODICE 2
BEGIN
  PROMPT 2 2 "Codice      "
  HELP "Codice della categoria contabile"
  FIELD CODTAB
  FLAGS "U"
  KEY 1
  USE CCO
  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 50
BEGIN
  PROMPT 2 4 "Descrizione "
  HELP "Descrizione della categoria contabile"
  FIELD S0
  KEY 2
  USE CCO KEY 2
  INPUT CODTAB F_CODICE
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @30" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

NUMBER F_GRUPPOV 3
BEGIN
  PROMPT 2 8 "Conto di vendita   "
  FIELD I3
END

NUMBER F_CONTOV 3
BEGIN
  PROMPT  26 8 ""
  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  33 8 ""
  FIELD I5
  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO F_GRUPPOV
  INPUT CONTO  F_CONTOV
  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  21 9 ""
  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
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

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

NUMBER F_CONTOA 3
BEGIN
  PROMPT  26 11 ""
  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  33 11 ""
  FIELD I2
  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
  JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
  INPUT GRUPPO F_GRUPPOA
  INPUT CONTO  F_CONTOA
  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  21 12 ""
  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