campo-sirio/m770/770200a.uml

#include "770200a.h"

PAGE "Versamento ritenute" -1 -1 75 15

GROUPBOX DLG_NULL 74 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 2 1 "Ditta "
    FLAGS "FRD"
    KEY 1
    CHECKTYPE REQUIRED             
    USE LF_NDITTE KEY 1
    INPUT CODDITTA F_CODDITTA
    DISPLAY "Codice" CODDITTA
    DISPLAY "Ragione sociale @50" RAGSOC
    OUTPUT F_RAGDITTA RAGSOC
END

STRING F_RAGDITTA 50
BEGIN
    PROMPT 15 1 "Ragione "
    FLAGS "D"
END

LIST F_TIPOA 1 12
BEGIN
  PROMPT 1 8 ""    
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
  FLAGS "H"
END

GROUPBOX DLG_NULL 74 5
BEGIN
  PROMPT 1 4 "@bDati versamento"
END

DATE F_DATA 
BEGIN
  PROMPT 2 5 "Data "
  CHECKTYPE REQUIRED
  WARNING "Inserire la data del versamento"
  HELP "Inserire la data del versamento"
  GROUP 1
END

STRING F_LUOGO 1
BEGIN
  PROMPT 21 5 "Luogo "       
  HELP "Indicare il luogo del versamento"
  SHEET "Cod.|Descrizione@30"
  INPUT F_LUOGO
  ITEM " |Nessuno"
  ITEM "T|Tesoreria"
  ITEM "C|F24"
  OUTPUT F_LUOGO
  OUTPUT 71
  FLAGS "U"         
  WARNING "Manca il luogo del versamento"
  HELP "Inserire il luogo del versamento"
  VALIDATE NOT_EMPTY_FUNC
  GROUP 1
END

STRING 71 12
BEGIN
  PROMPT 31 5 ""
  FLAGS "D"
END
 
TEXT 209
BEGIN
  PROMPT  2 7 "Serie        "
  GROUP 2 4
END

TEXT 210
BEGIN
  PROMPT  2 7 "Codice ABI   "
  GROUP 2 6
END 

TEXT 212
BEGIN
  PROMPT 25 7 "Codice CAB   "
  GROUP 2 6
END

TEXT 213
BEGIN
  PROMPT 25 7 "Quietanza    "
  GROUP 2 3
END

TEXT 211
BEGIN
  PROMPT 25 7 "Numero       "
  GROUP 2 4 5
END

STRING F_TIPO 1
BEGIN
  PROMPT 46 5 "Tipo "
  SHEET "Cod.|Descrizione@30"
  INPUT F_TIPO
  ITEM " |Nessuno"
  ITEM "C|C/C Postale"
  ITEM "D|Distinta"                          
  ITEM "B|Delega bancaria"
  OUTPUT F_TIPO
  OUTPUT 70
  GROUP 1
  HELP "Inserire il tipo di versamento"
  WARNING "Manca il tipo di versamento"
  FLAGS "U"              
  VALIDATE NOT_EMPTY_FUNC  
END

STRING 70 16
BEGIN
  PROMPT 55 5 ""
  FLAGS "D"
END
 
NUMBER F_ABI 5
BEGIN
  PROMPT 16 7 ""
  FLAGS "Z"
  WARNING "Inserire il codice CAB"  
  GROUP 2 6
END

NUMBER F_CAB 5
BEGIN
  PROMPT 39 7 ""
  FLAGS "Z"
  WARNING "Inserire il codice CAB"
  GROUP 2 6
END

STRING F_SERIE 5 
BEGIN
  PROMPT 16 7 ""
  CHECKTYPE REQUIRED
  FLAGS "G"
  WARNING "Inserire il numero di serie"
  HELP "Inserire la serie"
  GROUP 1 2 4
END

STRING F_NUMERO 11
BEGIN
  PROMPT 39 7 ""
  VALIDATE REQIF_FUNC 2 103 104
  WARNING "Inserire il numero/quietanza"
  HELP "Inserire il numero"
  FLAGS "G"  
  GROUP 1 2 3 4 5 
END

CURRENCY F_VERSATO 15
BEGIN
  PROMPT 2 10 "Importo versato "
  PICTURE "."
  HELP "Inserire l'importo versato"
  WARNING "Manca l'importo versato"
  CHECKTYPE REQUIRED
END

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

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

ENDPAGE

ENDMASK