Patch level : 10.0

Files correlati     : LV0
Ricompilazione Demo : [ ]
Commento            :
0001040: Manca ricerca alfaberica clienti in passaggi per contratto
Descrizione 	Pogramma passaggi per contratto e periodi sospensione, manca ricerca per ragione sociale ciente
La modifica , concordata, è questa:
- sul codice cliente far partire la ricerca sul anagrafica clienti
- sul codice contratto va bene quella attuale.


git-svn-id: svn://10.65.10.50/trunk@17889 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2008-12-12 15:31:35 +00:00
parent fda249a418
commit 44da57db73

View File

@ -16,7 +16,35 @@ BEGIN
PROMPT 2 2 "Cliente "
FLAGS "UG"
FIELD CODCF
USE LF_LVCONDV
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOCCLI RAGSOC
CHECKTYPE REQUIRED
KEY 1
END
STRING F_RAGSOCCLI 50
BEGIN
PROMPT 22 2 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCCLI
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_CODCF
CHECKTYPE REQUIRED
END
NUMBER F_CODCONT 6
BEGIN
PROMPT 2 3 "Contratto "
FLAGS "U"
FIELD CODCONT
USE LF_LVCONDV SELECT BETWEEN(CODCF,#F_CODCF,#F_CODCF)
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
INPUT CODCF F_CODCF
INPUT CODCONT F_CODCONT
@ -34,22 +62,6 @@ BEGIN
KEY 1
END
STRING F_RAGSOCCLI 50
BEGIN
PROMPT 22 2 ""
FLAGS "D"
END
NUMBER F_CODCONT 6
BEGIN
PROMPT 2 3 "Contratto "
FLAGS "U"
FIELD CODCONT
COPY ALL F_CODCF
CHECKTYPE FORCED
KEY 1
END
DATE F_VALIDA
BEGIN
PROMPT 22 3 "Valido dal "