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     
  PROMPT 80 80 ""
  FLAGS "D"
  FIELD LF_SCPERC->CODDITTA
  KEY 1
END

LIST F_TIPOA 1 9
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 12 0 ""
  FIELD LF_SCPERC->CODANAGR
  MESSAGE COPY, F_CODANAGR_G
  KEY 1
  FLAGS "D"
END

STRING F_RAGSOC2 50
BEGIN
  PROMPT 19 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
  CHECKTYPE REQUIRED
  INPUT CODTAB F_CODCAUS
  DISPLAY "Cod." CODTAB 
  DISPLAY "Quadro" S1
  DISPLAY "Descrizione @35" S0
  DISPLAY "Cod.trib." I0
  DISPLAY "Art.bil." I3 
  DISPLAY "C.SC" S2 
  DISPLAY "C.SE" S3 
  DISPLAY "C.SF" S8
  DISPLAY "C.SG" S9
  DISPLAY "T.S." S4
  OUTPUT F_CODCAUS  CODTAB  
  OUTPUT F_CODTRIB  I0
  OUTPUT F_DESCRCAUS S0
  OUTPUT F_CODQUA   S1
  OUTPUT F_ARTBIL   I3    
  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 F_TABCAUSQUASC S2 
  OUTPUT F_TABCAUSQUASE S3
  OUTPUT F_TABCAUSQUASF S8
  OUTPUT F_TABCAUSQUASG S9
  OUTPUT F_FLAGTS S4
  FLAGS "Z"    
  WARNING "Manca la causale"
  ADD RUN 773mod -3 %CA7
END

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

STRING F_CODQUA 2
BEGIN
  PROMPT 12 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

STRING F_CAUSQUA 1
BEGIN             
  PROMPT 12 2 "Causale quadro "
  SHEET "Codice|Descrizione@60"
  INPUT F_CAUSQUA
  ITEM " |Niente"
  OUTPUT F_CAUSQUA
  FIELD LF_SCPERC->CAUSQUA 
  FLAGS "U"
END

STRING F_FLAGTS 1
BEGIN             
  PROMPT 32 2 "T.S."
  SHEET "Codice|Descrizione@60"
  INPUT F_FLAGTS
  ITEM " |Niente"
  ITEM "1|legge"
  ITEM "2|contratti collettivi"
  ITEM "3|sentenze"
  ITEM "4|atti amministrativi"
  ITEM "5|altre cause non dipendenti dalla volont<6E> delle parti"
  ITEM "6|se concorrono due o pi<70> dei codici precedenti"
  OUTPUT F_FLAGTS
  FIELD LF_SCPERC->FLAGTS
END

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

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

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

CURRENCY F_COMPENS 15
BEGIN
  PROMPT 33 4 "Compenso "
  FIELD LF_SCPERC->COMPENSO
  NUM_EXPR {(#THIS!=0) || (#F_SPESE!=0)}
  WARNING "Indicare il compenso e/o le spese"       
  MESSAGE K_TAB, F_TOTDOC
END

CURRENCY F_IVA 15
BEGIN
  PROMPT 59 4 "Iva "
  FIELD LF_SCPERC->IVA
  PICTURE "."  
  FLAGS "R"
  MESSAGE K_TAB, F_TOTDOC
END

CURRENCY F_SPESE 15
BEGIN
  PROMPT 0 5 "Spese "
  FIELD LF_SCPERC->SPESE
  PICTURE "."  
  FLAGS "R"           
  NUM_EXPR {(#THIS!=0) || (#F_COMPENS!=0)}
  WARNING "Indicare il compenso e/o le spese"       
  MESSAGE K_TAB, F_TOTDOC  
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 47 5 "Competenza:"
END             

NUMBER F_MESECOMP 2
BEGIN
  PROMPT 58 5 "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 67 5 "Anno "
  FIELD LF_SCPERC->ANNOC
  NUM_EXPR {(#THIS==0)||((#THIS>1900)&&(#THIS<2100))}
  WARNING "Anno non valido"
  HELP "Inserire l'anno di competenza"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "@bPagamenti"
END                          

SPREADSHEET F_PAGAMENTI_C 0 5
BEGIN
  PROMPT 0 8 ""
  ITEM "Data@10"
  ITEM "Compenso@15"
  ITEM "Spese@15"
  ITEM "Imponibile@15"
  ITEM "% R.a."
  ITEM "Ritenuta@15"
  ITEM "Somme reg.conv.@15" 
  ITEM "% Imp.10%"          
  ITEM "Con.10% perc.@15"  
  ITEM "Con.10% compl.@15"  
  ITEM "Cod.10%" 
  ITEM "Compenso netto@15"   
  ITEM "Som.non sog.rit@15"   
  ITEM "Ammontare lordo@15"   
  ITEM "Quota provvig.@15"  
  ITEM "Imp.netto rit.@15"   
  ITEM "Comp.netto rit.@15"  
  ITEM "Numver@5"
  FLAGS "H"
END

SPREADSHEET F_PAGAMENTI_D 0 5
BEGIN
  PROMPT 0 8 ""
  ITEM "Data@10"
  ITEM "Compenso@15" 
  ITEM "CPA@15"
  ITEM "Imponibile@15"
  ITEM "% R.a."
  ITEM "Ritenuta@15" 
  ITEM "Spese@15"
  ITEM "Somme reg.conv.@15"
  ITEM "Compenso netto@15"    
  ITEM "Som.non sog.rit@15"   
  ITEM "Ammontare lordo@15"   
  ITEM "Quota provvig.@15"  
  ITEM "Imp.netto rit.@15"   
  ITEM "Comp.netto rit.@15"  
  ITEM "Numver@5"
  FLAGS "H"
END                             

TEXT DLG_NULL
BEGIN
  PROMPT 1 14 "@bVersamenti"
END

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

// MAI VISUALIZZATO
NUMBER F_CODANAGR_G 5
BEGIN
  PROMPT 80 80 ""
  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

// MAI VISUALIZZATO
NUMBER F_PERC_INPS 6
BEGIN
  PROMPT 80 80 ""
  PICTURE ".2"
  FLAGS "H"
END

// MAI VISUALIZZATO
NUMBER F_PERC_ASS_INPS 6
BEGIN
  PROMPT 80 80 ""
  PICTURE ".2"  
  FLAGS "H"
END

// MAI VISUALIZZATO
NUMBER F_PERC_COMMIT_INPS 6
BEGIN
  PROMPT 80 80 ""
  PICTURE ".2"  
  FLAGS "H"
END

// MAI VISUALIZZATO
BOOLEAN F_FLAG_INPS
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END

// MAI VISUALIZZATO
NUMBER F_CASSA_PREV 6
BEGIN
  PROMPT 80 80 ""
  PICTURE ".2"  
  FLAGS "H"
END

// MAI VISUALIZZATO
NUMBER F_QUOTAIMP 6
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END

// MAI VISUALIZZATO
NUMBER F_PERRIT 6
BEGIN
  PROMPT 80 80 ""
  PICTURE ".2"
  FLAGS "H"
END                

// MAI VISUALIZZATO
STRING F_TABCAUSQUASC 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END                

// MAI VISUALIZZATO
STRING F_TABCAUSQUASE 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END                 

// MAI VISUALIZZATO
STRING F_TABCAUSQUASF 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END                  

// MAI VISUALIZZATO
STRING F_TABCAUSQUASG 1
BEGIN
  PROMPT 80 80 ""
  FLAGS "H"
END                  
                   
// MAI VISUALIZZATO (ma da registrare)                  
CURRENCY F_TOTRIT 15
BEGIN
  PROMPT 80 80 ""
  FIELD LF_SCPERC->TOTRIT
  FLAGS "H"
END
                                                        
// MAI VISUALIZZATO (ma da registrare)                  
CURRENCY F_RITOPE 15
BEGIN
  PROMPT 80 80 ""
  FIELD LF_SCPERC->RITOPE
  FLAGS "H"
END                                                     

// MAI VISUALIZZATO (ma da registrare)                  
CURRENCY F_RITVER 15
BEGIN
  PROMPT 80 80 ""
  FIELD LF_SCPERC->RITVER
  FLAGS "H"
END                                                     
                                                        
ENDPAGE

ENDMASK

#include "770100f.uml" 
#include "770100e.uml"
//#include "770100c.uml"    inutilizz. con i nuovi quadri (12/07/00)
//#include "770100g.uml"    inutilizz. con i nuovi quadri (12/07/00)
#include "770100d.uml"