campo-sirio/cg/cg6804f.uml

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 "~Conferma"
  MESSAGE EXIT,K_SAVE               
  PICTURE BMP_SAVEREC
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 "~Elimina"
  MESSAGE EXIT,K_DEL
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
  MESSAGE EXIT,K_ESC
END

ENDPAGE

PAGE "Variazione Movimenti Saldaconto" 0 0 0 2

LIST 101 1 12
BEGIN
  PROMPT 1 1 "Tipo conto    "
  ITEM " |Conto"     
  ITEM "C|Cliente"   
  ITEM "F|Fornitore" 
  FLAGS "DG"  
END

NUMBER 102 3
BEGIN
  PROMPT 30 1 "Gruppo "
  FLAGS "D"
END

NUMBER 103 3
BEGIN
  PROMPT 43 1 "Conto "
  FLAGS "D"
END

NUMBER 104 6
BEGIN
  PROMPT 56 1 "Sottoconto   "
  FLAGS "DG"
END

STRING 105 50 
BEGIN
  PROMPT 1 2 "Descrizione   "  
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "@bRiferimento partita  "
  FLAGS "D"
END

NUMBER 106 4
BEGIN
  PROMPT 1 4 "Anno          "  
  FLAGS "D"
END

STRING 107 7
BEGIN
  PROMPT 22 4 "Numero  "
  FLAGS "_UD"
END

NUMBER 108 4
BEGIN
  PROMPT 40 4 "N.ro riga  "
  FLAGS "D"
END

NUMBER 109 4
BEGIN
  PROMPT 59 4 "N.ro rata   "
  FLAGS "D"
END
    
DATE 110 
BEGIN
  PROMPT 1 6 "Data scadenza "
END

STRING 111 4
BEGIN
  PROMPT 1 7 "Cod.pagamento "
  USE %CPG
  INPUT CODTAB 111
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 111 CODTAB
  CHECKTYPE NORMAL    
  FLAGS "U"
  ADD RUN ba3 -6
END

NUMBER 112 1
BEGIN
  PROMPT 27 7 "Tipo pagamento "  
END

STRING 113 1
BEGIN
  PROMPT 48 7 "Ulteriore classificazione "
  FLAGS "U"
END

STRING 114 50
BEGIN
  PROMPT 1 8 "Descrizione   "
  FLAGS "D"
END

STRING 115 1 
BEGIN
  PROMPT 1 9 "Importo       " 
  FLAGS "D"
END

CURRENCY 116 15
BEGIN
  PROMPT 18 9 ""
  PICTURE "."
END

NUMBER 117 15
BEGIN
  PROMPT 40 9 "Importo in valuta   "
  PICTURE ".3"
END

STRING 118 50
BEGIN
  PROMPT 1 10 "Descrizione   "
END

NUMBER 119 5
BEGIN
  PROMPT 1 11 "Codice ns. banca "  
  USE %BAN KEY 1 SELECT CODTAB ?= "?????" 
  INPUT CODTAB 119
  DISPLAY "Cod. ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT 119 CODTAB[1,5]
  CHECKTYPE NORMAL          
  FLAGS "Z"
END

NUMBER 120 5
BEGIN
  PROMPT 26 11 ""  
  USE %BAN  
  INPUT CODTAB[1,5] 119
  INPUT CODTAB[6,10] 120 
  DISPLAY "Cod. ABI" CODTAB[1,5]
  DISPLAY "Cod. CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT 119 CODTAB[1,5]
  OUTPUT 120 CODTAB[6,10]
  CHECKTYPE NORMAL          
  FLAGS "Z"   
END

NUMBER 121 5
BEGIN
  PROMPT 1 12 "Codice vs. banca "
  USE %BAN KEY 1 SELECT CODTAB ?= "?????"                               
  INPUT CODTAB 121
  DISPLAY "Cod. ABI" CODTAB[1,5]
  DISPLAY "Cod. CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT 121 CODTAB[1,5]
  CHECKTYPE NORMAL
  FLAGS "Z"
END

NUMBER 122 5
BEGIN
  PROMPT 26 12 ""      
  USE %BAN  
  INPUT CODTAB[1,5] 121
  INPUT CODTAB[6,10] 122    
  DISPLAY "Cod. ABI" CODTAB[1,5]
  DISPLAY "Cod. CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT 121 CODTAB[1,5]
  OUTPUT 122 CODTAB[6,10]
  CHECKTYPE NORMAL
  FLAGS "Z"
END

STRING 123 5
BEGIN
  PROMPT 1 13 "Codice agente    "  
  USE LF_AGENTI
  INPUT CODAGE 123
  DISPLAY "Codice" CODAGE
  DISPLAY "Denominazione@50" RAGSOC
  OUTPUT 123 CODAGE  
  FLAGS "UZ"          
  CHECKTYPE NORMAL
END

DATE 124
BEGIN
  PROMPT 1 14 "Data sollecito   "
END

NUMBER 125 2
BEGIN
  PROMPT 53 14 "Numero sollecito    "  
END

ENDPAGE