#include "pe1.h"
TOOLBAR "" 0 19 0 3
#include <toolbar.h>
ENDPAGE

PAGE "Prospetto del Quadro E1" -1 -1 78 18
                  
GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END
                  
NUMBER PE1F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "GRDP"
  KEY 1
  CHECKTYPE REQUIRED             
  USE LF_NDITTE KEY 1
  INPUT CODDITTA PE1F_CODDITTA
  OUTPUT PE1F_RAGDITTA RAGSOC
  FIELD LF_PROSPE1->CODDITTA
END

STRING PE1F_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "DP"
END

STRING PE1F_CODCAUS 2
BEGIN
  PROMPT 3 4 "Causale "         
  USE LF_PROSPE1 SELECT (CODDITTA=#PE1F_CODDITTA)
  JOIN %CA7 TO LF_PROSPE1 INTO CODTAB=CODCAUS
  INPUT CODDITTA	PE1F_CODDITTA
  INPUT CODCAUS		PE1F_CODCAUS
  DISPLAY "Codcaus" CODCAUS
  DISPLAY "Compenso@15" COMPENSO
  DISPLAY "Imponibile@15" IMPONIBILE
  DISPLAY "Ritenuta@15" RITENUTA
  OUTPUT PE1F_CODCAUS CODCAUS                   
  OUTPUT PE1F_DESCRCAUS %CA7->S0
  OUTPUT PE1F_HPERC     %CA7->R0
  CHECKTYPE REQUIRED
  FLAGS "Z"    
  FIELD LF_PROSPE1->CODCAUS
  KEY 1          
  GROUP 8               
  MESSAGE COPY,PE1F_CODCAUS2
END

STRING PE1F_CODCAUS2 2
BEGIN
  PROMPT 3 4 "Causale "         
  USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0=" ")) 
  INPUT CODTAB PE1F_CODCAUS
  DISPLAY "Codice " CODTAB 
  DISPLAY "Descrizione @60" S0  
  OUTPUT PE1F_CODCAUS		CODTAB
  OUTPUT PE1F_DESCRCAUS	S0
  OUTPUT PE1F_HPERC		R0
  CHECKTYPE REQUIRED
  FLAGS "Z"    
  WARNING "Manca la causale"  
  FIELD LF_PROSPE1->CODCAUS
  ADD RUN 773mod -3 %CA7
  KEY 1  
  GROUP 9
  MESSAGE COPY,PE1F_CODCAUS
END

NUMBER PE1F_HPERC 6
BEGIN
  PROMPT 3 4 "Usata nel programma per calcolo ritenuta"
  PICTURE ".2"
  FLAGS "H"
END

STRING PE1F_DESCRCAUS 58
BEGIN
  PROMPT 17 4 ""
  FLAGS "D"
END

NUMBER PE1F_COMPENSO 15
BEGIN
  PROMPT 3 7 "Ammontare complessivo              "
  FIELD LF_PROSPE1->COMPENSO       
  PICTURE "."  
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
  PROMPT 3 9 "Ammontare delle somme sulle quali"
END

NUMBER PE1F_IMPONIBILE 15
BEGIN
  PROMPT 3 10 "le ritenute sono state commisurate "
  FIELD LF_PROSPE1->IMPONIBILE
  PICTURE "."  
  FLAGS "R"                            
END

NUMBER PE1F_RITENUTA 15
BEGIN
  PROMPT 3 12 "Ritenuta operata                   "
  FIELD LF_PROSPE1->RITENUTA
  PICTURE "."
  FLAGS "R"                            
END

ENDPAGE

ENDMASK