campo-sirio/cg/cg6804g.uml

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 "~Conferma"
  MESSAGE EXIT,K_SAVE
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 28 4 "Numero    "  
  FLAGS "_UD"
END

NUMBER 110 4
BEGIN
  PROMPT 56 4 "Numero riga    "   
  FLAGS "D"
END

NUMBER 109 4
BEGIN
  PROMPT 1 5 "Numero rata fatt.  "   
  FLAGS "D"
END
    
NUMBER 108 4
BEGIN
  PROMPT 53 5 "Numero riga fatt. "  
  FLAGS "D"
END

STRING 111 1
BEGIN
  PROMPT 1 7 "Acconto/Saldo  "  
  FLAGS "U"
END

STRING 112 1
BEGIN
  PROMPT 1 8 "Importo pagato "
  FLAGS "D"
END        

NUMBER 113 15
BEGIN
  PROMPT 20 8 ""  
  PICTURE "."
END

STRING 114 1
BEGIN
  PROMPT 1 9 "Ritenute prof. "
  FLAGS "D"
END

CURRENCY 115 15
BEGIN
  PROMPT 20 9 ""  
  PICTURE "."
END

STRING 116 1   
BEGIN
  PROMPT 1 10 "Abbuoni        "
  FLAGS "U"
END
   
NUMBER 117 15
BEGIN
  PROMPT 20 10 ""
  PICTURE "."    
END

STRING 118 1
BEGIN
  PROMPT 1 11 "Diff. cambio   " 
  FLAGS "U"
END

CURRENCY 119 15
BEGIN
  PROMPT 20 11 ""
  PICTURE "."
END

NUMBER 120 15
BEGIN
  PROMPT 41 8 "Importo in valuta  "
  PICTURE ".3"
END

LIST 121 1 12
BEGIN
  PROMPT 1 30 ""
  ITEM " |Conto"     
  ITEM "C|Cliente"   
  ITEM "F|Fornitore" 
  FLAGS "D"
END

NUMBER 122 3
BEGIN
  PROMPT 1 12 "Cod.contropartita  "
END

NUMBER 123 3
BEGIN
  PROMPT 27 12 ""
END

NUMBER 124 6
BEGIN
  PROMPT 34 12 ""
  USE LF_PCON 
  INPUT GRUPPO 122
  INPUT CONTO 123  
  INPUT SOTTOCONTO 124
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT 122 GRUPPO    
  OUTPUT 123 CONTO               
  OUTPUT 124 SOTTOCONTO
  OUTPUT 125 DESCR
  CHECKTYPE NORMAL
END

STRING 125 50
BEGIN
  PROMPT 1 13 "Descrizione        "
  FLAGS "D"
END

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

NUMBER 127 5
BEGIN
  PROMPT 28 14 ""  
  USE %BAN  
  INPUT CODTAB[1,5] 126
  INPUT CODTAB[6,10] 127 
  DISPLAY "Cod. ABI" CODTAB[1,5]
  DISPLAY "Cod. CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT 126 CODTAB[1,5]
  OUTPUT 127 CODTAB[6,10]
  CHECKTYPE NORMAL          
  FLAGS "Z"   
END

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

NUMBER 129 5
BEGIN
  PROMPT 28 15 ""      
  USE %BAN  
  INPUT CODTAB[1,5] 128
  INPUT CODTAB[6,10] 129    
  DISPLAY "Cod. ABI" CODTAB[1,5]
  DISPLAY "Cod. CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT 128 CODTAB[1,5]
  OUTPUT 129 CODTAB[6,10]
  CHECKTYPE NORMAL
  FLAGS "Z"
END

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

STRING 131 1
BEGIN
  PROMPT 41 10 "Attivo / Passivo   "  
  FLAGS "UD"
END

ENDPAGE