campo-sirio/m770/770200a.uml

#include "770200a.h"

PAGE "MODULO 770 - Collegamento 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

/**
NUMBER F_ANNODIC 4
BEGIN
    PROMPT 52 4 "Anno dichiarazione "
    FLAGS "DR"
END
**/

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

// Questo campo serve solo per poter istanziare un browse_sheet nel programma
NUMBER F_CODANAGRPERC 5
BEGIN
  PROMPT 15 8 "" 
  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
  JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR  
  INPUT CODDITTA F_CODDITTA
  INPUT TIPOA    F_TIPOA
  INPUT CODANAGR F_CODANAGRPERC
  DISPLAY "Tipo "               TIPOA
  DISPLAY "Codice "             CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
  OUTPUT F_TIPOA        TIPOA
  OUTPUT F_CODANAGRPERC CODANAGR
//  OUTPUT F_RAGSOCPER    LF_ANAG->RAGSOC
  FLAGS "HG"  
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|Concessione"
  OUTPUT F_LUOGO
  OUTPUT 71
  FLAGS "U"         
  CHECKTYPE REQUIRED
  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
  CHECKTYPE REQUIRED
  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
 
/*
LIST 104 16
BEGIN
  PROMPT 42 3 "Tipo "
  ITEM " |Nessuno"
  MESSAGE SHOW,210|SHOW,212|HIDE,209|HIDE,211|SHOW,105
  ITEM "C|C/C Postale"
  MESSAGE HIDE,209|SHOW,211|HIDE,210|HIDE,212|HIDE,105
  ITEM "D|Distinta"                          
  MESSAGE SHOW,209|SHOW,211|HIDE,210|HIDE,212|SHOW,105
  ITEM "B|Delega bancaria" 
  MESSAGE SHOW,210|SHOW,212|HIDE,209|HIDE,211|SHOW,105
  GROUP 1
END
*/

STRING F_SERIE 5 
BEGIN
  PROMPT 16 7 ""
//  VALIDATE REQIF_FUNC 2 103 104
  CHECKTYPE REQUIRED
  FLAGS "G"
  WARNING "Inserire il numero di serie/codice CAB"
  HELP "Inserire la serie"
  GROUP 1 2 4 6
END

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

NUMBER 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 9 2
BEGIN
    PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
    PROMPT -22 -1 "" 
//    MESSAGE CLEAR,103|CLEAR,104|CLEAR,105|CLEAR,106|CLEAR,107
END

ENDPAGE

ENDMASK