campo-sirio/cg/cg0500b.uml

#include "cg0500.h"

PAGE "" -1 -1 68 11

STRING 101 22
BEGIN
  PROMPT 1 1 "Tipo "
  FLAGS "D"
END

LISTBOX 102 1 11 
BEGIN
  PROMPT 33 1 "C/F "
  ITEM " |Conto"
    MESSAGE SHOW,105|HIDE,205|HIDE,305
  ITEM "C|Cliente"
    MESSAGE SHOW,205|HIDE,105|HIDE,305
  ITEM "F|Fornitore"
    MESSAGE SHOW,305|HIDE,105|HIDE,205
  FLAGS "DG"
  GROUP 1
//  FLAGS "U"
END

NUMBER 103 3
BEGIN
  PROMPT 1 3 "Gruppo "
  FIELD LF_RCAUSALI->GRUPPO
  USE LF_PCON KEY 1 SELECT (CONTO="") && (SOTTOCONTO="")
  INPUT GRUPPO 103 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo C/F" TMCF
  CHECKTYPE NORMAL
  OUTPUT 103 GRUPPO
  OUTPUT 107 DESCR     
//  OUTPUT 102 TMCF     
  WARNING "Gruppo inesistente o mancante"
//  CHECKTYPE REQUIRED
  CHECKTYPE NORMAL
  GROUP 1
  ADD RUN CG0 -0
END

NUMBER 104 3
BEGIN
  PROMPT 15 3 "Conto  "
  FIELD LF_RCAUSALI->CONTO
  USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="")
  INPUT GRUPPO 103 
  INPUT CONTO  104    
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo C/F" TMCF
  CHECKTYPE NORMAL
  OUTPUT 102 TMCF     
  OUTPUT 104 CONTO  
  OUTPUT 103 GRUPPO
  OUTPUT 107 DESCR     
  WARNING "Conto inesistente o mancante"
  ADD RUN CG0 -0
  GROUP 1
END

// Sottoconto NORMALE
NUMBER 105 6
BEGIN
  PROMPT 29 3 "Sottoconto "
  FIELD LF_RCAUSALI->SOTTOCONTO
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO 103 
  INPUT CONTO  104 
  INPUT SOTTOCONTO 105 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT 103 GRUPPO
  OUTPUT 104 CONTO
  OUTPUT 105 SOTTOCONTO
  OUTPUT 107 DESCR
  ADD RUN CG0 -0
  CHECKTYPE NORMAL
  GROUP 1
END


// Sottoconto CLIENTI
NUMBER 205 6
BEGIN
  PROMPT 29 3 "Cliente    "
  FIELD LF_RCAUSALI->SOTTOCONTO
  USE LF_CLIFO KEY 1 SELECT (TIPOCF=="C")
  INPUT TIPOCF "C"
  INPUT CODCF  205 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Tipo C/F" TIPOCF
  OUTPUT 205 CODCF
  OUTPUT 107 RAGSOC     
  CHECKTYPE NORMAL
  FLAGS "H"
  MESSAGE COPY,105
  ADD RUN CG0 -1
  GROUP 1
END

// Sottoconto FORNITORI
NUMBER 305 6
BEGIN
  PROMPT 29 3 "Fornitore  "
  FIELD LF_RCAUSALI->SOTTOCONTO
  USE LF_CLIFO KEY 1 SELECT (TIPOCF=="F")
  INPUT TIPOCF "F"
  INPUT CODCF  305 
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Tipo C/F" TIPOCF
  OUTPUT 305 CODCF
  OUTPUT 107 RAGSOC     
  CHECKTYPE NORMAL
  FLAGS "H"
  MESSAGE COPY,105
  ADD RUN CG0 -1
  GROUP 1
END

LISTBOX 106 5
BEGIN
  PROMPT 51 3 "Sezione "
  ITEM "D|Dare"
  ITEM "A|Avere"
  FIELD LF_RCAUSALI->SEZIONE
  CHECKTYPE REQUIRED
  FLAGS "U"
END

// Descrizione normale
STRING 107 50
BEGIN
  PROMPT 1 5 "Descrizione "
  USE LF_PCON KEY 2
  FIELD LF_RCAUSALI->DESC
  GROUP 1
END

// Descrizione CLIENTE
STRING 207 50
BEGIN
  PROMPT 1 5 "Descrizione "
  FIELD LF_RCAUSALI->DESC
  GROUP 1
  FLAGS "H"
END

// Descrizione FORNITORE
STRING 307 50
BEGIN
  PROMPT 1 5 "Descrizione "
  FIELD LF_RCAUSALI->DESC
  GROUP 1
  FLAGS "H"
END

STRING 108 3
BEGIN
  PROMPT 1 7 "Descrizione aggiuntiva "
  FIELD LF_RCAUSALI->CODDESC
  USE %DPN
  INPUT CODTAB 108
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT 108 CODTAB
  FLAGS "R"
  CHECKTYPE NORMAL
  GROUP 1
END

BOOLEAN 109
BEGIN
  PROMPT 34 7 "Riga iva "
  FIELD LF_RCAUSALI->RIGAIVA
  FLAGS "D"
END

STRING 110 4
BEGIN
  USE %IVA
  PROMPT 48 7 "Codice iva "
  INPUT CODTAB 110
  FIELD LF_RCAUSALI->CODIVA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT 110 CODTAB
  FLAGS "D"
  GROUP 1
END

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

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

BUTTON DLG_NULL 9 2
BEGIN
	PROMPT -33 -1 "Azzera"
	MESSAGE RESET,1@      
END

ENDPAGE

ENDMASK