Patch level :10.0 724

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
This commit is contained in:
luca 2010-05-03 10:48:57 +00:00
parent 0c1d585185
commit b4aeec6e56

View File

@ -16,7 +16,7 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
PROMPT 2 1 "Ditta "
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
@ -30,92 +30,110 @@ END
STRING F_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
PROMPT 15 1 "Rag.soc. "
FLAGS "D"
END
STRING F_TIPODA 1
BEGIN
PROMPT 3 4 "Da codice "
FLAGS "U"
END
TEXT DLG_NULL
BEGIN
PROMPT 23 4 "/"
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 25 4 ""
PROMPT 13 4 ""
HELP "Codice anagrafico del percipiente"
USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPODA
INPUT CODANAGR F_CODDA
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
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
OUTPUT F_RAGDA LF_ANAG->RAGSOC
WARNING "Percipiente inesistente"
CHECKTYPE NORMAL
END
STRING F_RAGDA 50
BEGIN
PROMPT 3 5 "Ragione sociale "
FLAGS "D"
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
STRING F_TIPOA 1
BEGIN
PROMPT 3 6 "A codice "
FLAGS "U"
END
TEXT DLG_NULL
BEGIN
PROMPT 23 6 "/"
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 25 6 ""
PROMPT 13 6 ""
HELP "Codice anagrafico del percipiente"
USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODA
DISPLAY "Tipo" TIPOA
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
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
OUTPUT F_RAGA LF_ANAG->RAGSOC
WARNING "Percipiente inesistente"
END
CHECKTYPE NORMAL
END
STRING F_RAGA 50
BEGIN
PROMPT 3 7 "Ragione sociale "
FLAGS "D"
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 3 9 "Tipo stampa "
PROMPT 1 9 "Tipo stampa "
ITEMS "1|132 caratteri"
ITEMS "2|198 caratteri"
END
LIST F_TIPOSEL 25
BEGIN
PROMPT 35 9 "Tipo selezione "
PROMPT 32 9 "Tipo selezione "
ITEMS "1|per data pagamento"
ITEMS "2|per periodo di competenza"
END