campo-sirio/cg/cg6804a.uml

#include "cg6804a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 9 2
BEGIN
    PROMPT -12 -1 "~Conferma"
    MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
    PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Variazione Movimenti Saldaconto" -1 -1 78 10

LIST F_TIPOCF 1 12
BEGIN
  PROMPT 1 1 "Tipo conto  "
  ITEM " |Conto"     
    MESSAGE SHOW,1@|RESET,1@|HIDE,2@|HIDE,3@
  ITEM "C|Cliente"   
    MESSAGE HIDE,1@|SHOW,2@|RESET,2@|HIDE,3@
  ITEM "F|Fornitore" 
    MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|RESET,3@
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 28 1 "Gruppo "
  USE LF_PCON SELECT CONTO==""
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  CHECKTYPE NORMAL
  ADD RUN cg0 -0
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 41 1 "Conto "
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF 
  OUTPUT F_TIPOCF TMCF
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  CHECKTYPE NORMAL
  ADD RUN cg0 -0
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 54 1 "Sottoconto "
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT F_CONTO
  INPUT SOTTOCONTO F_SOTTOCONTO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_DESCR DESCR
  ADD RUN cg0 -0
  GROUP 1
  CHECKTYPE NORMAL
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 54 1 "Cliente    "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Cliente" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_DESCRCLI RAGSOC
  ADD RUN cg0 -1 C
  GROUP 2
  CHECKTYPE NORMAL
  MESSAGE COPY,F_SOTTOCONTO
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 54 1 "Fornitore  "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Fornitore" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_DESCRFOR RAGSOC
  ADD RUN cg0 -1 F
  GROUP 3
  CHECKTYPE NORMAL
  MESSAGE COPY,F_SOTTOCONTO
END

STRING F_DESCR 50 58
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  CHECKTYPE NORMAL
  GROUP 1
  ADD RUN cg0 -0
END

STRING F_DESCRCLI 50 58
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DESCRCLI
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  COPY OUTPUT F_CLIENTE
  CHECKTYPE NORMAL
  GROUP 2
  ADD RUN cg0 -1
END

STRING F_DESCRFOR 50 58
BEGIN
  PROMPT 1 2 "Descrizione "
  USE LF_CLIFO KEY 2      
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DESCRFOR
  COPY DISPLAY F_DESCRCLI
  COPY OUTPUT F_FORNITORE
  CHECKTYPE NORMAL
  GROUP 3
  ADD RUN cg0 -1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 4 "Anno riferimento partita        "
END

STRING F_NUMPART 7
BEGIN
  PROMPT 1 5 "Numero riferimento partita      "
  FLAGS "_U"
END

NUMBER F_NRIGA 4
BEGIN
  PROMPT 1 6 "Numero riga riferimento partita "
END

ENDPAGE