campo-sirio/ve/vetbcra.uml

#include "vetbcra.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Categoria ricavi articoli " 0 2 0 0

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 CRA
  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 CRA 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 vendita  "
  FIELD I0
  CHECKTYPE NORMAL
END

NUMBER F_CODCON1 3
BEGIN
  PROMPT 22 8  ""
  FIELD I1
  USE LF_PCON SELECT INDBIL=="4"
  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 ricavo"
END

NUMBER F_CODCON2 6
BEGIN
  PROMPT 30 8  ""
  FIELD I2
  USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
  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=="4")
  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 ricavo"
  ADD RUN CG0 -0
END

ENDPAGE

ENDMASK