campo-sirio/m770/77qp.uml

// Quadro P
#include "77qp.h"   

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
//
// Lista modifiche
// 2.4.96	Messo CAB di 5. Abi e Cab zerofilled
//

#define	G_ABICAB			7
#define	G_DISTINTA		8
#define	G_CC					9

PAGE "Quadro P" -1 -1 78 18

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER QPF_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA QPF_CODDITTA
  OUTPUT QPF_RAGDITTA RAGSOC
  FIELD LF_QUAP->CODDITTA
  CHECKTYPE REQUIRED             
  KEY 1
END
   
STRING QPF_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"
END

NUMBER QPF_ANNODIC 4
BEGIN
  PROMPT 52 3 "Anno dichiarazione "
  FLAGS "DRP"
END   
   
NUMBER QPF_NPROG 4
BEGIN
  PROMPT 1 5 "Numero  "  
  FIELD LF_QUAP->NPROG  
  USE LF_QUAP SELECT (CODDITTA=#QPF_CODDITTA)
  INPUT CODDITTA QPF_CODDITTA SELECT
  INPUT NPROG    QPF_NPROG 
  DISPLAY "Num."												NPROG
  DISPLAY "Imposta versata"							IMPOSTA
  DISPLAY "Interessi dipendente" 				INTERDIP
  DISPLAY "Interessi datore di lavoro" 	INTERDAT
  DISPLAY "Tipo" 												TIPOVERS
  DISPLAY "Codice tributo" 							CODTRIB 
  DISPLAY "Data versamento" 						DATAVERS
  DISPLAY "Serie/ABI" 									SERIE
  DISPLAY "Numero/Bollettino/CAB"				NUMERO
  OUTPUT QPF_NPROG    NPROG       
  CHECKTYPE REQUIRED
  KEY 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "Imposta o soprattassa"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "versata"
END

NUMBER QPF_IMPOSTA 15
BEGIN
  PROMPT 2 9 ""    
  FIELD LF_QUAP->IMPOSTA
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
  PROMPT 26 7 "Interessi a carico del"
END

TEXT DLG_NULL
BEGIN
  PROMPT 26 8 "lavoratore dipendente "
END

NUMBER QPF_INTERDIP 15
BEGIN
  PROMPT 26 9 ""         
  PICTURE "."
  FLAGS "R"
  FIELD LF_QUAP->INTERDIP
END

TEXT DLG_NULL
BEGIN
  PROMPT 54 7 "Interessi a carico del"
END

TEXT DLG_NULL
BEGIN
  PROMPT 54 8 "datore di lavoro"
END

NUMBER QPF_INTERDAT 15
BEGIN
  PROMPT 54 9 ""
  FIELD LF_QUAP->INTERDAT
  PICTURE "."  
  FLAGS "R"         
END

GROUPBOX DLG_NULL 0 6
BEGIN
  PROMPT 1 10 ""
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "Modalit<69> versamento "
END

LIST QPF_TIPOVERS 1 18
BEGIN              
  PROMPT 2 12 ""
  ITEM " |Nessuno"   
  MESSAGE HIDE,G_DISTINTA@|HIDE,G_ABICAB@|HIDE,G_CC@
  ITEM "B|Delega bancaria"
  MESSAGE RESET,G_CC@|HIDE,G_CC@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_ABICAB@
  ITEM "D|Distinta"
  MESSAGE RESET,G_CC@|HIDE,G_CC@|RESET,G_ABICAB@|HIDE,G_ABICAB@|SHOW,G_DISTINTA@
  ITEM "C|C/C Postale"                   
  MESSAGE RESET,G_DISTINTA@|HIDE,G_DISTINTA@|RESET,G_ABICAB@|HIDE,G_ABICAB@|SHOW,G_CC@
  FIELD LF_QUAP->TIPOVERS
END

NUMBER QPF_CODTRIB 4
BEGIN
  PROMPT 23 12 "Codice tributo "
  FIELD LF_QUAP->CODTRIB
END

DATE QPF_DATAVERS 
BEGIN
  PROMPT 44 12 "Data versamento "
  FIELD LF_QUAP->DATAVERS           
  WARNING "Manca la data versamento"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
END                  

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "Numero serie "             
  GROUP G_DISTINTA
END

TEXT DLG_NULL
BEGIN
  PROMPT 40 14 "Numero quietanza "
  GROUP G_DISTINTA G_CC
END

STRING QPF_SERIE 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAP->SERIE
  WARNING "Manca la serie"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  GROUP G_DISTINTA
END

STRING QPF_NUMERO 11
BEGIN
  PROMPT 58 14 ""        
  WARNING "Manca il numero"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  FIELD LF_QUAP->NUMERO  
  GROUP G_DISTINTA
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "Codice ABI "
  GROUP G_ABICAB
END

NUMBER QPF_ABI 5
BEGIN
  PROMPT 23 14 ""
  FIELD LF_QUAP->SERIE    
  WARNING "Manca il codice ABI"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  FLAGS "Z"
  GROUP G_ABICAB
END                             

TEXT DLG_NULL
BEGIN
  PROMPT 42 14 "Codice CAB "
  GROUP G_ABICAB
END

NUMBER QPF_CAB 5
BEGIN
  PROMPT 58 14 ""
  FIELD LF_QUAP->NUMERO       
  WARNING "Manca il codice CAB"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  FLAGS "Z"
  GROUP G_ABICAB
END

STRING QPF_CCQUIETANZA 11
BEGIN
  PROMPT 58 14 ""        
  WARNING "Manca il numero quietanza"
  VALIDATE REQIF_FUNC 1 QPF_TIPOVERS
  FIELD LF_QUAP->NUMERO  
  GROUP G_CC
END

ENDPAGE

ENDMASK