root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.00 1418

Browse Source 
Files correlati     : 770100a.msk
Commento

Ricerca sulle schede nella scheda percipienti
This commit is contained in:
Alessandro Bonazzi 2026-09-22 23:47:22 +02:00
parent e7f99de842
commit 71d4d3760c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/m770/770100a.uml
View File

@ -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