b4aeec6e56
Files correlati : Ricompilazione Demo : [ ] Commento : 0001598: Manca ricerca alfabetica percipienti Descrizione Manca la ricerca percipienti per ragione sociale! git-svn-id: svn://10.65.10.50/trunk@20414 c028cbd2-c16b-5b4b-a496-9718f37d4682
143 lines
2.7 KiB
Plaintext
Executable File
143 lines
2.7 KiB
Plaintext
Executable File
// 772100a.uml
|
|
// Stampa schede percipienti
|
|
|
|
#include "772100.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa schede percipienti" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 "Ditta "
|
|
FLAGS "GRD"
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_RAGDITTA RAGSOC
|
|
FIELD LF_SCPERC->CODDITTA
|
|
END
|
|
|
|
STRING F_RAGDITTA 50
|
|
BEGIN
|
|
PROMPT 15 1 "Rag.soc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 3 "@bDa percipiente"
|
|
END
|
|
|
|
LIST F_TIPODA 1 9
|
|
BEGIN
|
|
PROMPT 1 4 ""
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
END
|
|
|
|
NUMBER F_CODDA 5
|
|
BEGIN
|
|
PROMPT 13 4 ""
|
|
HELP "Codice anagrafico del percipiente"
|
|
USE LF_PERC
|
|
JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT TIPOA F_TIPODA SELECT
|
|
INPUT CODANAGR F_CODDA
|
|
DISPLAY "Tipo " TIPOA
|
|
DISPLAY "Codice " CODANAGR
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC
|
|
OUTPUT F_TIPODA TIPOA
|
|
OUTPUT F_CODDA CODANAGR
|
|
OUTPUT F_RAGDA LF_ANAG->RAGSOC
|
|
WARNING "Percipiente inesistente"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGDA 50
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA F_TIPODA
|
|
INPUT RAGSOC F_RAGDA
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
OUTPUT F_RAGDA RAGSOC
|
|
OUTPUT F_CODDA CODANAGR
|
|
OUTPUT F_TIPODA TIPOA
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 5 "@bA percipiente"
|
|
END
|
|
|
|
LIST F_TIPOA 1 9
|
|
BEGIN
|
|
PROMPT 1 6 ""
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
END
|
|
|
|
NUMBER F_CODA 5
|
|
BEGIN
|
|
PROMPT 13 6 ""
|
|
HELP "Codice anagrafico del percipiente"
|
|
USE LF_PERC
|
|
JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT TIPOA F_TIPOA SELECT
|
|
INPUT CODANAGR F_CODA
|
|
DISPLAY "Tipo " TIPOA
|
|
DISPLAY "Codice " CODANAGR
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" LF_ANAG->RAGSOC
|
|
OUTPUT F_TIPOA TIPOA
|
|
OUTPUT F_CODA CODANAGR
|
|
OUTPUT F_RAGA LF_ANAG->RAGSOC
|
|
WARNING "Percipiente inesistente"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGA 50
|
|
BEGIN
|
|
PROMPT 21 6 ""
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA F_TIPOA
|
|
INPUT RAGSOC F_RAGA
|
|
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
OUTPUT F_RAGA RAGSOC
|
|
OUTPUT F_CODA CODANAGR
|
|
OUTPUT F_TIPOA TIPOA
|
|
END
|
|
|
|
LIST F_CARATTERE 13
|
|
BEGIN
|
|
PROMPT 1 9 "Tipo stampa "
|
|
ITEMS "1|132 caratteri"
|
|
ITEMS "2|198 caratteri"
|
|
END
|
|
|
|
LIST F_TIPOSEL 25
|
|
BEGIN
|
|
PROMPT 32 9 "Tipo selezione "
|
|
ITEMS "1|per data pagamento"
|
|
ITEMS "2|per periodo di competenza"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |