campo-sirio/cg/cg6804c.uml

TOOLBAR "" 0 20 0 2

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

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

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

BUTTON 100 10 2
BEGIN
  PROMPT -44 -1 "~Gestione"
END                

ENDPAGE

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

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  "
END

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

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

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

DATE 109 
BEGIN
  PROMPT 1 6 "Data documento    "
END
    
STRING 110 7
BEGIN
  PROMPT 50 6 "Numero documento  "
END

STRING 111 3
BEGIN
  PROMPT 1 7 "Causale           "
  USE LF_CAUSALI KEY 1
  INPUT CODCAUS 111
  DISPLAY "Causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT 111 CODCAUS
  OUTPUT 112 DESCR  
  FLAGS "UZ"
  CHECKTYPE NORMAL
END

STRING 112 50
BEGIN
  PROMPT 25 7 ""  
  FLAGS "D"
END

NUMBER 113 7
BEGIN
  PROMPT 1 8 "Numero operazione "
END

NUMBER 114 3
BEGIN
  PROMPT 30 8 "Numero riga "
END

DATE 115 
BEGIN
  PROMPT 49 8 "Data operazione "    
END

NUMBER 116 3 
BEGIN
  PROMPT 1 9 "Codice conto C/F  "
  USE LF_PCON KEY 1 
  INPUT GRUPPO 116
  INPUT CONTO 117
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO  
  DISPLAY "Descrizione@50" DESCR
  OUTPUT 116 GRUPPO
  OUTPUT 117 CONTO              
  OUTPUT 118 DESCR
  CHECKTYPE NORMAL
END

NUMBER 117 3
BEGIN
  PROMPT 26 9 ""
  COPY ALL 116
END

STRING 118 50
BEGIN
  PROMPT 1 10 "Descrizione       "
  FLAGS "D"
END

LIST 119 20
BEGIN
  PROMPT 1 11 "Tipo movimento    "
  ITEM "1|Fattura"  
  ITEM "2|Nota credito"
  ITEM "3|Incasso/pagamento"
  ITEM "5|Insoluto" 
  ITEM "6|Pagamento insoluto"
END

STRING 120 50
BEGIN
  PROMPT 1 12 "Descrizione       "
END

LIST 121 7
BEGIN
  PROMPT 1 13 "Sezione           "
  ITEM "D|Dare"
  ITEM "A|Avere"   
END

DATE 122 
BEGIN
  PROMPT 1 14 "Data pagamento    "
END

NUMBER 123 1
BEGIN
  PROMPT 58 14 "Tipo pagamento  "
END

STRING 124 3
BEGIN
  PROMPT 1 15 "Codice valuta     "     
  USE %VAL
  INPUT CODTAB 124
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 124 CODTAB
  CHECKTYPE NORMAL
  FLAGS "U"
END

DATE 125
BEGIN
  PROMPT 1 16 "Data cambio       "
END

NUMBER 126 15 6
BEGIN
  PROMPT 53 16 "Cambio "
  PICTURE ".6"  
END

ENDPAGE