#include "771230a.h"

TOOLBAR "" 0 19 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Quadro E1" -1 -1 78 18

NUMBER F_CODDITTA 5
BEGIN
  FLAGS "H"
  FIELD LF_QUAE1->CODDITTA
  KEY 1
END

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

LIST F_TIPOAF 1 12
BEGIN
  PROMPT 3 1 ""    
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
  FLAGS "HG"
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 17 0 ""
  FIELD LF_QUAE1->CODANAGR
  MESSAGE COPY,F_CODANAGR2
  FLAGS "D"
  KEY 1
END

NUMBER F_CODANAGR2 5
BEGIN
  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 71 0 ""
  FIELD LF_QUAE1->NPROG
  FLAGS "D"
  KEY 1
END

STRING F_CODCAUS 2
BEGIN
  PROMPT 3 3 "Causale "
  USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0="X") 
  INPUT CODTAB F_CODCAUS
  DISPLAY "Codice " CODTAB 
  DISPLAY "Descrizione @60" S0  
  DISPLAY "Codice tributo" I0
  OUTPUT F_CODCAUS CODTAB
  OUTPUT F_CODTRIB I0  
  OUTPUT F_DESCRCAUS S0  
  OUTPUT F_PERC R0
  CHECKTYPE REQUIRED
  FLAGS "Z"    
  WARNING "Manca la causale"
  FIELD LF_QUAE1->CODCAUS
  ADD RUN 773mod -3 %CA7
END

STRING F_DESCRCAUS 58
BEGIN
  PROMPT 17 3 ""
  FLAGS "D"
END

NUMBER F_CODTRIB 4
BEGIN
  PROMPT 11 4 ""
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 8 "Somme corrisposte"
END

NUMBER F_SOMME 15
BEGIN
  PROMPT 5 9 ""
  FIELD LF_QUAE1->SOMME       
  PICTURE "."  
  FLAGS "R"
  MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO|K_TAB,F_PERC  
END

TEXT DLG_NULL
BEGIN
  PROMPT 38 6 "Amm. compl. premi riscossi"
END                                                     

TEXT DLG_NULL
BEGIN
  PROMPT 38 7 "sui quali le ritenute sono"
END

TEXT DLG_NULL
BEGIN
  PROMPT 38 8 "state commisurate"
END

NUMBER F_IMPONIBILE 15
BEGIN
  PROMPT 38 9 ""
  FIELD LF_QUAE1->AMMONTARE
  PICTURE "."  
  FLAGS "R" 
  MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO                           
END

GROUPBOX DLG_NULL 32 5
BEGIN
  PROMPT 3 11 "@bRitenute operate"
END

TEXT DLG_NULL
BEGIN
  PROMPT 5 13 "Aliquota"
END

NUMBER F_PERC 6 2
BEGIN
  PROMPT 5 14 ""
  FIELD LF_QUAE1->PERC 
  MESSAGE K_TAB,F_IMPORTO 
  PICTURE ".2"
  MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO
END

TEXT DLG_NULL
BEGIN
  PROMPT 16 13 "Importo"
END
    
NUMBER F_IMPORTO 15
BEGIN
  PROMPT 16 14 ""
  FIELD LF_QUAE1->IMPORTO
  PICTURE "."
  FLAGS "R"                            
  MESSAGE K_TAB,F_NETTO  
END

TEXT DLG_NULL
BEGIN
  PROMPT 38 13 "Netto corrisposto"
END

NUMBER F_NETTO 15
BEGIN
  PROMPT 38 14 ""
  FIELD LF_QUAE1->NETTO
  PICTURE "."
  FLAGS "DR"
  NUM_CALC {#F_SOMME-#F_IMPORTO}
END

ENDPAGE

ENDMASK