campo-sirio/cg/cg0500b.uml

#include "cg0500.h"

PAGE "" -1 -1 68 11

STRING SS_TIPO 21
BEGIN
  PROMPT 1 1 "Tipo "
  FLAGS "D"
END

LISTBOX SS_TIPOCF 11 
BEGIN
  PROMPT 33 1 "C/F "
  ITEM " |Conto"     MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307
  ITEM "C|Cliente"   MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307
  ITEM "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207
  FLAGS "DGU"
  GROUP 1
END

NUMBER SS_GRUPPO 3
BEGIN
  PROMPT 1 3 "Gruppo "
  HELP "Codice del gruppo"
  FIELD LF_RCAUSALI->GRUPPO
  USE LF_PCON KEY 1 SELECT (CONTO="")
  INPUT GRUPPO SS_GRUPPO 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo C/F" TMCF
  CHECKTYPE NORMAL
  OUTPUT SS_GRUPPO GRUPPO
  OUTPUT 107 DESCR     
  WARNING "Gruppo assente"
  CHECKTYPE NORMAL
  GROUP 1
  ADD RUN CG0 -0
END

NUMBER SS_CONTO 3
BEGIN
  PROMPT 15 3 "Conto  "
  HELP "Codice del conto"
  FIELD LF_RCAUSALI->CONTO
  USE LF_PCON KEY 1 SELECT SOTTOCONTO=""
  INPUT GRUPPO SS_GRUPPO 
  INPUT CONTO  SS_CONTO    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo C/F" TMCF
  CHECKTYPE NORMAL
  OUTPUT SS_TIPOCF TMCF     
  OUTPUT SS_CONTO CONTO  
  OUTPUT SS_GRUPPO GRUPPO
  OUTPUT 107 DESCR
  OUTPUT 207 DESCR
  OUTPUT 307 DESCR
  MESSAGE DIRTY,106|DIRTY,206|DIRTY,306
  WARNING "Conto assente"
  ADD RUN CG0 -0
  GROUP 1
END

// Sottoconto NORMALE
NUMBER SS_SOTTOCONTO 6
BEGIN
  PROMPT 29 3 "Sottoconto "
  HELP "Codice del sottoconto"
  FIELD LF_RCAUSALI->SOTTOCONTO
  USE LF_PCON
  INPUT GRUPPO SS_GRUPPO 
  INPUT CONTO  SS_CONTO 
  INPUT SOTTOCONTO SS_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "C/R" TIPOSPRIC
  OUTPUT SS_SOTTOCONTO SOTTOCONTO
  OUTPUT 206 SOTTOCONTO
  OUTPUT 306 SOTTOCONTO
  OUTPUT SS_GRUPPO GRUPPO
  OUTPUT SS_CONTO CONTO  
  OUTPUT 107 DESCR
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  WARNING "Sottoconto assente"
  GROUP 1
END


// Sottoconto CLIENTI
NUMBER 206 6
BEGIN
  PROMPT 29 3 "Cliente    "
  HELP "Codice sottoconto del cliente"
  FIELD LF_RCAUSALI->SOTTOCONTO
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF  206
  DISPLAY "Sottoconto" CODCF
  DISPLAY "Ragione sociale cliente@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT 206 CODCF
  OUTPUT 106 CODCF
  OUTPUT 306 CODCF
  OUTPUT 207 RAGSOC     
  CHECKTYPE NORMAL
  WARNING "Cliente assente"
  ADD RUN CG0 -1
  GROUP 1
END

// Sottoconto FORNITORI
NUMBER 306 6
BEGIN
  PROMPT 29 3 "Fornitore  "
  HELP "Codice sottoconto del cliente"
  FIELD LF_RCAUSALI->SOTTOCONTO
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "F"
  INPUT CODCF  306 
  DISPLAY "Sottoconto" CODCF
  DISPLAY "Ragione sociale fornitore@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT 306 CODCF
  OUTPUT 106 CODCF
  OUTPUT 206 CODCF
  OUTPUT 307 RAGSOC     
  CHECKTYPE NORMAL
  WARNING "Fornitore assente"
  ADD RUN CG0 -1
  GROUP 1
END

LISTBOX SS_SEZIONE 5
BEGIN
  PROMPT 51 3 "Sezione "
  HELP "Indicare la sezione del conto"
  ITEM " | "
  ITEM "D|Dare"
  ITEM "A|Avere"
  FIELD LF_RCAUSALI->SEZIONE
  FLAGS "U"
  GROUP 1
END

// Descrizione normale
STRING 107 50
BEGIN
  PROMPT 1 5 "Descrizione "
  HELP "Indicare la descrizione della riga"
  FIELD LF_RCAUSALI->DESC
  USE LF_PCON KEY 2
  INPUT DESCR 107
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "C/R" TIPOSPRIC
  OUTPUT SS_SOTTOCONTO SOTTOCONTO
  OUTPUT SS_CONTO CONTO
  OUTPUT SS_GRUPPO GRUPPO
  OUTPUT 107 DESCR
  ADD RUN CG0 -0
  GROUP 1
END

// Descrizione CLIENTE
STRING 207 50
BEGIN
  PROMPT 1 5 "Rag. Soc.   "
  HELP "Ragione sociale del cliente"
  FIELD LF_RCAUSALI->DESC
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC  207
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Ragione sociale Cliente@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" CODCF
  OUTPUT 206 CODCF
  OUTPUT 207 RAGSOC     
  GROUP 1
  ADD RUN CG0 -1 C
END

// Descrizione FORNITORE
STRING 307 50
BEGIN
  PROMPT 1 5 "Rag. Soc.   "
  HELP "Ragione sociale del fornitore"
  FIELD LF_RCAUSALI->DESC
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC  307
  DISPLAY "Tipo C/F" TIPOCF
  DISPLAY "Ragione sociale Fornitore@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" CODCF
  OUTPUT 306 CODCF
  OUTPUT 307 RAGSOC     
  GROUP 1
  ADD RUN CG0 -1 F
END

STRING SS_DESCAGG 5
BEGIN
  PROMPT 1 7 "Descrizione aggiuntiva"
  HELP "Codice della descrizione aggiuntiva"
  FIELD LF_RCAUSALI->CODDESC
  FLAGS "UZ"
  USE %DPN
  INPUT CODTAB SS_DESCAGG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT SS_DESCAGG CODTAB
  OUTPUT SS_DESCRIPTION S0
  CHECKTYPE NORMAL
  WARNING "Codice descrizione aggiuntiva errato"
  GROUP 1
END

STRING SS_DESCRIPTION 50
BEGIN
  PROMPT 1 8 ""
  USE %DPN KEY 2
  INPUT S0 SS_DESCRIPTION
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT SS_DESCAGG
  CHECKTYPE NORMAL
  WARNING "Descrizione aggiuntiva errata"
  GROUP 1
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -33 -1 "A~zzera"
  MESSAGE RESET,1@      
  MESSAGE EXIT,K_ENTER
END

ENDPAGE

ENDMASK