From 71d4d3760ca941dcaac0d1aa126e0c4d61414ef2 Mon Sep 17 00:00:00 2001 From: Alessandro Bonazzi Date: Tue, 22 Sep 2026 23:47:22 +0200 Subject: [PATCH] Patch level : 12.00 1418 Files correlati : 770100a.msk Commento Ricerca sulle schede nella scheda percipienti --- src/m770/770100a.uml | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/m770/770100a.uml b/src/m770/770100a.uml index ed6d5e5d0..dccab0d4f 100755 --- a/src/m770/770100a.uml +++ b/src/m770/770100a.uml @@ -62,19 +62,19 @@ END NUMBER F_CODANAGRPERC 5 BEGIN PROMPT 16 8 "" - USE LF_PERC - JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR + USE LF_ANAG SELECT LF_PERC->CODDITTA!=#F_CODDITTA + JOIN LF_PERC INTO CODDITTA=#F_CODDITTA 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 + DISPLAY "Denominazione@50" RAGSOC + DISPLAY "Codice Fiscale" COFI + DISPLAY "Ditta" LF_PERC->CODDITTA OUTPUT F_CODANAGRPERC CODANAGR - OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC - OUTPUT F_COFI LF_ANAG->COFI + OUTPUT F_RAGSOCPER RAGSOC + OUTPUT F_COFI COFI MESSAGE COPY, F_CODANAGR ADD RUN 775 -0 GROUP 2