campo-sirio/m770/770100a.uml

#include "770100a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>

ENDPAGE

PAGE "Scheda percipienti" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "DGP"
  KEY 1
  CHECKTYPE REQUIRED             
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  FIELD LF_SCPERC->CODDITTA
END

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

NUMBER F_ANNODIC 4
BEGIN
    PROMPT 52 3 "Anno dichiarazione "
    FLAGS "DRP"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 7 "@bDati percipiente"
END

LIST F_TIPOA 1 9
BEGIN
  PROMPT 2 8 ""    
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
  KEY 1
  FIELD LF_SCPERC->TIPOA
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 80 80 ""
  FLAGS "D" 
  FIELD LF_SCPERC->CODANAGR
  CHECKTYPE REQUIRED    
  KEY 1  
END

NUMBER F_CODANAGRPERC 5
BEGIN
  PROMPT 16 8 "" 
  USE LF_PERC
  JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR  
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA    F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGRPERC
  DISPLAY "Tipo " TIPOA
  DISPLAY "Codice " CODANAGR
  DISPLAY "Denominazione@50" LF_ANAG->RAGSOC
  DISPLAY "Codice Fiscale" LF_ANAG->COFI
  DISPLAY "Ditta" CODDITTA
  OUTPUT F_CODANAGRPERC CODANAGR
  OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
  OUTPUT F_COFI LF_ANAG->COFI
  MESSAGE COPY, F_CODANAGR  
  ADD RUN 775 -0
  GROUP 2
END

NUMBER F_CODANAGRCOM 5
BEGIN
  PROMPT 16 8 "" 
  USE LF_ANAG SELECT LF_PERC->CODDITTA!=#F_CODDITTA
  JOIN LF_PERC INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR==CODANAGR  
  INPUT TIPOA    F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGRCOM
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Codice Fiscale" COFI
  DISPLAY "Ditta" LF_PERC->CODDITTA
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODANAGRCOM CODANAGR
  OUTPUT F_RAGSOCCOM RAGSOC
  OUTPUT F_COFICOM COFI
  MESSAGE COPY, F_CODANAGR
  ADD RUN BA4 -1
  FLAGS "H"
  GROUP 1
END

STRING F_RAGSOCCOM 50
BEGIN
  PROMPT 25 8 ""
  USE LF_ANAG KEY 2 SELECT LF_PERC->CODDITTA!=#F_CODDITTA
  JOIN LF_PERC INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR==CODANAGR  
  INPUT TIPOA F_TIPOA SELECT
  INPUT RAGSOC F_RAGSOCCOM
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Tipo"   TIPOA
  DISPLAY "Codice" CODANAGR
  DISPLAY "Codice Fiscale" COFI
  DISPLAY "Ditta" LF_PERC->CODDITTA
  COPY OUTPUT F_CODANAGRCOM
  ADD RUN BA4 -1
  MESSAGE COPY, F_RAGSOCPER
  GROUP 1
  FLAGS "H"
END            

STRING F_RAGSOCPER 50
BEGIN
  PROMPT 25 8 ""
  USE LF_ANAG KEY 2 SELECT LF_PERC->CODDITTA==#F_CODDITTA
  JOIN LF_PERC INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR==CODANAGR  
  INPUT TIPOA F_TIPOA SELECT
  INPUT RAGSOC F_RAGSOCPER
  COPY DISPLAY F_RAGSOCCOM
  COPY OUTPUT F_CODANAGRPERC
  ADD RUN BA4 -1
  GROUP 2
END            

STRING F_COFI 16
BEGIN
  PROMPT 2 9 "Codice Fiscale" 
  USE LF_ANAG KEY 3 SELECT LF_PERC->CODDITTA==#F_CODDITTA
  JOIN LF_PERC INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR==CODANAGR  
  INPUT TIPOA F_TIPOA SELECT
  INPUT COFI F_COFI
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice Fiscale" COFI
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50" RAGSOC
  DISPLAY "Ditta" LF_PERC->CODDITTA
  OUTPUT F_COFI COFI
  OUTPUT F_CODANAGRCOM CODANAGR
  OUTPUT F_RAGSOCCOM RAGSOC
  OUTPUT F_CODANAGR CODANAGR
  ADD RUN BA4 -1
  GROUP 2
END

STRING F_COFICOM 16
BEGIN
  PROMPT 2 9 "Codice Fiscale" 
  USE LF_ANAG KEY 3 SELECT LF_PERC->CODDITTA!=#F_CODDITTA
  JOIN LF_PERC INTO CODDITTA=#F_CODDITTA TIPOA=TIPOA CODANAGR==CODANAGR  
  INPUT TIPOA F_TIPOA SELECT
  INPUT COFI F_COFICOM
  COPY DISPLAY F_COFI
  OUTPUT F_COFI COFICOM
  OUTPUT F_CODANAGRCOM CODANAGR
  OUTPUT F_RAGSOCCOM RAGSOC
  OUTPUT F_CODANAGR CODANAGR
  ADD RUN BA4 -1
  GROUP 1
END


NUMBER F_NPROG 6
BEGIN
  PROMPT 1 11 "@bScheda numero  "  
  CHECKTYPE REQUIRED
  KEY 1                      
  FIELD LF_SCPERC->NPROG  
  USE LF_SCPERC SELECT CODANAGR==#F_CODANAGR
  JOIN %CA7 INTO CODTAB=CODCAUS
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA    F_TIPOA    SELECT
  INPUT CODANAGR F_CODANAGR SELECT    
  INPUT NPROG    F_NPROG
  DISPLAY "Numero@7" NPROG
  DISPLAY "Data\nDocumento@10" DATADOC
  DISPLAY "Numero\nDocumento@8" NUMDOC   
  DISPLAY "Quadro" %CA7->S1   
  DISPLAY "Causale\nQuadro@6" CAUSQUA
  DISPLAY "Ritenute\noperate@15V" RITOPE
  DISPLAY "Ritenute\nversate@15V" RITVER
  DISPLAY "Compenso@15V" COMPENSO

  OUTPUT F_TIPOA    TIPOA
  OUTPUT F_CODANAGR CODANAGR
  OUTPUT F_NPROG    NPROG
END

BUTTON F_GESTPERC 28 2
BEGIN
  PROMPT -12 -1 "Fatture da ricevere"
  MESSAGE RUN,775,-0,#F_CODDITTA,#F_TIPOA,#F_CODANAGR
END

BUTTON F_AGGPAG 28 2
BEGIN
  PROMPT -22 -1 "Aggiornamento pagamenti"   
END

ENDPAGE

ENDMASK