campo-sirio/m770/770100b.uml

#include "770100a.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Scheda percipienti" -1 -1 78 20

NUMBER F_CODDITTA 5
BEGIN
  FLAGS "AH"
  FIELD LF_SCPERC->CODDITTA
  KEY 1
END

LIST F_TIPOA 1 12
BEGIN
  PROMPT 0 0 ""
  FIELD LF_SCPERC->TIPOA
  ITEM "F|Fisica"
  ITEM "G|Giuridica"  
  KEY 1
  FLAGS "D"  
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 14 0 ""
  FIELD LF_SCPERC->CODANAGR
  MESSAGE COPY, F_CODANAGR_G
  KEY 1
  FLAGS "D"
END

NUMBER F_CODANAGR_G 5
BEGIN
  PROMPT 17 0 ""
  USE LF_ANAG KEY 1
  INPUT TIPOA    F_TIPOA 
  INPUT CODANAGR F_CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50"    RAGSOC
  OUTPUT F_RAGSOC2  RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "HG"
END

STRING F_RAGSOC2 45
BEGIN
  PROMPT 24 0 ""
  FLAGS "D"
END

NUMBER F_NPROG 4
BEGIN
  PROMPT 72 0 ""
  FIELD LF_SCPERC->NPROG
  FLAGS "D"  
  KEY 1
END

STRING F_CODCAUS 2
BEGIN
  FIELD LF_SCPERC->CODCAUS
  PROMPT 0 1 ""
  USE %CA7 SELECT ((I0!="1015") && ((S1="C")||(S1="D")||(S1="D1")||(S1="E")||(S1="E1")||(S1="E2")) 
  CHECKTYPE REQUIRED
  INPUT CODTAB F_CODCAUS
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione @60" S0
  DISPLAY "Codice tributo" I0
  DISPLAY "Articolo di bilancio" I3
  DISPLAY "C.T."    B2
  DISPLAY "T.S."    B3
  DISPLAY "R.A."    B0
  DISPLAY "Causale D"	S2
  DISPLAY "Causale D1"	S3
  OUTPUT F_CODCAUS  CODTAB  
  OUTPUT F_CODTRIB  I0
  OUTPUT F_DESCRCAUS S0
  OUTPUT F_CODQUA   S1
  OUTPUT F_ARTBIL   I3
  OUTPUT F_IC       B3
  OUTPUT F_CT       B2
  OUTPUT F_RIT      B0
  OUTPUT F_QUOTAIMP R4
  OUTPUT F_PERRIT   R0
  OUTPUT F_FLAG_INPS	B4
  OUTPUT F_PERC_INPS	R1    
  OUTPUT F_PERC_ASS_INPS	R2  
  OUTPUT F_PERC_COMMIT_INPS	R3
  OUTPUT F_CASSA_PREV		R5 
  OUTPUT SPF_CAUSD	S2
  OUTPUT SPF_CAUSD1	S3
  FLAGS "Z"    
  WARNING "Manca la causale"
  ADD RUN 773mod -3 %CA7
END

NUMBER F_PERC_INPS 6
BEGIN
  PROMPT 1 10 ""
  PICTURE ".2"
  FLAGS "H"
END

NUMBER F_PERC_ASS_INPS 6
BEGIN
  PROMPT 1 11 ""
  PICTURE ".2"  
  FLAGS "H"
END

NUMBER F_PERC_COMMIT_INPS 6
BEGIN
  PROMPT 1 12 ""
  PICTURE ".2"  
  FLAGS "H"
END

BOOLEAN F_FLAG_INPS
BEGIN
  PROMPT 1 13 ""
  FLAGS "H"
END

NUMBER F_CASSA_PREV 6
BEGIN
  PROMPT 1 14 ""
  PICTURE ".2"  
  FLAGS "H"
END

STRING F_CODQUA 2
BEGIN
  PROMPT 12 1 ""
  FLAGS "D"
END

NUMBER F_CODTRIB 4
BEGIN
  PROMPT 6 1 ""
  FLAGS "D"
END

STRING F_DESCRCAUS 60
BEGIN
  PROMPT 16 1 ""
  FLAGS "D"
END
           
NUMBER F_ARTBIL 2
BEGIN
  PROMPT 0 2 "Art.bil."
  FLAGS "D"
END

BOOLEAN F_IC
BEGIN
  PROMPT 13 2 "T.S."
  FLAGS "D"
END

BOOLEAN F_CT
BEGIN
  PROMPT 22 2 "C.T."
  FLAGS "D"
END

BOOLEAN F_RIT
BEGIN    
  PROMPT 29 2 "Rit."
  FLAGS "D"
END

NUMBER F_QUOTAIMP 6
BEGIN
  PROMPT 1 1 ""
  FLAGS "H"
END

NUMBER F_PERRIT 5
BEGIN
  PROMPT 1 1 ""
  PICTURE ".2"
  FLAGS "H"
END

DATE F_DATADOC
BEGIN
  PROMPT 0 3 "Data "
  FIELD LF_SCPERC->DATADOC
  WARNING "Manca la data del documento"
  CHECKTYPE REQUIRED
END

STRING F_NUMDOC 7
BEGIN
  PROMPT 17 3 "Numero"
  FIELD LF_SCPERC->NUMDOC
END

NUMBER F_COMPENS 15
BEGIN
  PROMPT 32 3 "Compenso "
  FIELD LF_SCPERC->COMPENSO
  PICTURE "."
  FLAGS "R"
  MESSAGE K_TAB, F_TOTDOC
END

NUMBER F_IVA 15
BEGIN
  PROMPT 58 3 "Iva "
  FIELD LF_SCPERC->IVA
  PICTURE "."  
  FLAGS "R"
  MESSAGE K_TAB, F_TOTDOC
END

NUMBER F_SPESE 15
BEGIN
  PROMPT 0 4 "Spese "
  FIELD LF_SCPERC->SPESE
  PICTURE "."  
  FLAGS "R"
  MESSAGE K_TAB, F_TOTDOC  
END

NUMBER F_TOTDOC 15
BEGIN
  PROMPT 23 4 "Totale "
  FIELD LF_SCPERC->TOTALE
  PICTURE "."  
  FLAGS "R"
  NUM_CALC {#F_COMPENS + #F_SPESE + #F_IVA}
END

TEXT DLG_NULL
BEGIN
  PROMPT 48 4 "Competenza:"
END             

NUMBER F_MESECOMP 2
BEGIN
  PROMPT 59 4 "Mese "
  FIELD LF_SCPERC->MESEC  
  NUM_EXPR {(#THIS>=0) && (#THIS<13)}
  WARNING "Mese non valido"       
  HELP "Inserire il mese di competenza"
  FLAGS "Z"
END

NUMBER F_ANNOCOMP 4
BEGIN
  PROMPT 68 4 "Anno "
  FIELD LF_SCPERC->ANNOC
  NUM_EXPR {(#THIS==0)||((#THIS>1900)&&(#THIS<2100))}
  WARNING "Anno non valido"
  HELP "Inserire l'anno di competenza"
END

NUMBER F_TOTRIT 15
BEGIN
  PROMPT 53 5 ""
  FIELD LF_SCPERC->TOTRIT
  FLAGS "H"
END

STRING SPF_CAUSD 1
BEGIN
  PROMPT 38 2 "Causale D "
  FLAGS "D"
END

STRING SPF_CAUSD1 1
BEGIN
  PROMPT 52 2 "Causale D1 "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "@bPagamenti"
END

SPREADSHEET F_PAGAMENTI 0 6
BEGIN
  PROMPT 0 6 ""
  ITEM "Data@10"
  ITEM "Compenso@15"
  ITEM "Spese@15"
  ITEM "Imponibile@15"
  ITEM "% R.a.@7"
  ITEM "Ritenuta effettuata"
  ITEM "Cont.SSN/INPS perc."
  ITEM "Cont.SSN/INPS complessivi"  
  ITEM "Netto corrisposto"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "@bVersamenti"
END

SPREADSHEET F_VERSAMENTI 79 5
BEGIN
  PROMPT 0 13 ""
  ITEM "1015"
  ITEM "Data@10"
  ITEM "Luogo"
  ITEM "Tipo"
  ITEM "Serie-ABI@5"
  ITEM "Numero-CAB@11"
  ITEM "Progressivo banca"
  ITEM "Ritenuta@15"
  WARNING "Versamento inconsistente"
END

BOOLEAN F_FORCED
BEGIN
  FIELD LF_SCPERC->FORZATURA
  PROMPT 1 18 "Forzatura"
  HELP "Attivare questo flag per forzare la registrazione anche di dati incongruenti"
END

ENDPAGE

ENDMASK

#include "770100c.uml"
#include "770100d.uml"