effettuata modifica della maschera
git-svn-id: svn://10.65.10.50/trunk@3872 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
838e98f229
commit
850eee8323
@ -15,7 +15,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_NPROGTR 7
|
NUMBER F_NPROGTR 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Numero "
|
PROMPT 2 2 "Numero "
|
||||||
FIELD LF_EFFETTI->NPROGTR
|
FIELD LF_EFFETTI->NPROGTR
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
KEY 1
|
KEY 1
|
||||||
@ -36,8 +36,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODCF 6
|
NUMBER F_CODCF 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Cod. cliente "
|
PROMPT 2 3 "Cliente "
|
||||||
FIELD LF_EFFETTI->CODCF
|
FIELD LF_EFFETTI->CODCF
|
||||||
USE LF_CLIFO
|
USE LF_CLIFO
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
@ -59,24 +59,26 @@ END
|
|||||||
|
|
||||||
STRING F_CFRAGSOC 50
|
STRING F_CFRAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 3 ""
|
PROMPT 26 3 ""
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
//JOIN LF_EFFETTI TO LF_CLIFO KEY 2 INTO CODCF==CODCF
|
//JOIN LF_EFFETTI TO LF_CLIFO KEY 2 INTO CODCF==CODCF
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
INPUT RAGSOC F_CFRAGSOC
|
INPUT RAGSOC F_CFRAGSOC
|
||||||
DISPLAY "Ragione sociale@60" RAGSOC
|
DISPLAY "Ragione sociale@60" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
/*DISPLAY "Nr. progressivo" LF_EFFETTI->NPROGTR
|
/*
|
||||||
|
DISPLAY "Nr. progressivo" LF_EFFETTI->NPROGTR
|
||||||
DISPLAY "Data scadenza" LF_EFFETTI->DATASCAD
|
DISPLAY "Data scadenza" LF_EFFETTI->DATASCAD
|
||||||
DISPLAY "Tipo distinta" LF_EFFETTI->TIPODIST
|
DISPLAY "Tipo distinta" LF_EFFETTI->TIPODIST
|
||||||
DISPLAY "Nr. distinta" LF_EFFETTI->NDIST*/
|
DISPLAY "Nr. distinta" LF_EFFETTI->NDIST
|
||||||
|
*/
|
||||||
COPY OUTPUT F_CODCF
|
COPY OUTPUT F_CODCF
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASCAD
|
DATE F_DATASCAD
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Data scadenza "
|
PROMPT 2 4 "Data scadenza "
|
||||||
FIELD LF_EFFETTI->DATASCAD
|
FIELD LF_EFFETTI->DATASCAD
|
||||||
KEY 3
|
KEY 3
|
||||||
USE LF_EFFETTI KEY 3
|
USE LF_EFFETTI KEY 3
|
||||||
@ -94,8 +96,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
LIST F_TIPOPAG 24
|
LIST F_TIPOPAG 24
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Tipo pagamento "
|
PROMPT 2 6 "Tipo pagamento "
|
||||||
FIELD LF_EFFETTI->TIPOPAG
|
FIELD LF_EFFETTI->TIPOPAG
|
||||||
ITEM "2|Tratta"
|
ITEM "2|Tratta"
|
||||||
ITEM "3|Ricevuta Bancaria"
|
ITEM "3|Ricevuta Bancaria"
|
||||||
@ -108,8 +110,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
STRING F_ULTCLASS 1
|
STRING F_ULTCLASS 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 6 "Ulteriore classificazione "
|
PROMPT 46 6 "Ulteriore classificazione "
|
||||||
FIELD LF_EFFETTI->ULTCLASS
|
FIELD LF_EFFETTI->ULTCLASS
|
||||||
USE %CLR
|
USE %CLR
|
||||||
INPUT CODTAB[1,1] F_TIPOPAG SELECT
|
INPUT CODTAB[1,1] F_TIPOPAG SELECT
|
||||||
@ -120,8 +122,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODVAL 3
|
STRING F_CODVAL 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Codice valuta "
|
PROMPT 2 7 "Codice valuta "
|
||||||
FIELD LF_EFFETTI->CODVAL
|
FIELD LF_EFFETTI->CODVAL
|
||||||
FLAGS "UZ"
|
FLAGS "UZ"
|
||||||
USE %VAL
|
USE %VAL
|
||||||
@ -133,8 +135,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
DATA F_DATACAM
|
DATA F_DATACAM
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 7 "Data cambio "
|
PROMPT 46 7 "Data cambio "
|
||||||
FIELD LF_EFFETTI->DATACAMBIO
|
FIELD LF_EFFETTI->DATACAMBIO
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
USE CAM
|
USE CAM
|
||||||
@ -151,7 +153,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_CAMBIO 15 5
|
NUMBER F_CAMBIO 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Cambio "
|
PROMPT 2 8 "Cambio "
|
||||||
FIELD LF_EFFETTI->CAMBIO
|
FIELD LF_EFFETTI->CAMBIO
|
||||||
FLAGS "RU"
|
FLAGS "RU"
|
||||||
PICTURE ".5"
|
PICTURE ".5"
|
||||||
@ -161,7 +163,7 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ULTRATA
|
BOOLEAN F_ULTRATA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 8 "Ultima rata"
|
PROMPT 46 8 "Ultima rata"
|
||||||
FIELD LF_EFFETTI->ULTRATA
|
FIELD LF_EFFETTI->ULTRATA
|
||||||
END
|
END
|
||||||
@ -219,7 +221,7 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODCAB 5
|
NUMBER F_CODCAB 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Codice CAB "
|
PROMPT 2 3 "Codice CAB "
|
||||||
FIELD LF_EFFETTI->CODCAB
|
FIELD LF_EFFETTI->CODCAB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
@ -242,7 +244,7 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODABIP 5
|
NUMBER F_CODABIP 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 2 "Codice ABI "
|
PROMPT 42 2 "Codice ABI "
|
||||||
FIELD LF_EFFETTI->CODABIP
|
FIELD LF_EFFETTI->CODABIP
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
@ -280,14 +282,14 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAEMISS
|
DATE F_DATAEMISS
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Data di emissione "
|
PROMPT 2 6 "Data di emissione "
|
||||||
FIELD LF_EFFETTI->DATAEMISS
|
FIELD LF_EFFETTI->DATAEMISS
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NUMEMISS 8
|
NUMBER F_NUMEMISS 8
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 6 "Nr. di emissione "
|
PROMPT 42 6 "Nr. di emissione "
|
||||||
FIELD LF_EFFETTI->NUMEMISS
|
FIELD LF_EFFETTI->NUMEMISS
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -303,8 +305,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
LIST F_TIPODIST 15
|
LIST F_TIPODIST 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Tipo distinta "
|
PROMPT 2 10 "Tipo distinta "
|
||||||
FIELD LF_EFFETTI->TIPODIST
|
FIELD LF_EFFETTI->TIPODIST
|
||||||
ITEM " |** Nessuno **"
|
ITEM " |** Nessuno **"
|
||||||
MESSAGE DISABLE,2@|RESET,2@
|
MESSAGE DISABLE,2@|RESET,2@
|
||||||
@ -317,8 +319,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NDIST 8
|
NUMBER F_NDIST 8
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 52 10 "Nr. distinta "
|
PROMPT 42 10 "Nr. distinta "
|
||||||
FIELD LF_EFFETTI->NDIST
|
FIELD LF_EFFETTI->NDIST
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
VALIDATE NOT_EMPTY_FUNC
|
VALIDATE NOT_EMPTY_FUNC
|
||||||
@ -327,8 +329,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATADIST
|
DATE F_DATADIST
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 "Data distinta "
|
PROMPT 2 11 "Data distinta "
|
||||||
FIELD LF_EFFETTI->DATADIST
|
FIELD LF_EFFETTI->DATADIST
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
@ -343,8 +345,8 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NRIGADIST 6
|
NUMBER F_NRIGADIST 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 52 12 "Nr. di riga "
|
PROMPT 42 12 "Nr. di riga "
|
||||||
FIELD LF_EFFETTI->NRIGADIST
|
FIELD LF_EFFETTI->NRIGADIST
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
@ -356,14 +358,14 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATARIBA
|
DATE F_DATARIBA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Data Ri.Ba. "
|
PROMPT 2 15 "Data Ri.Ba. "
|
||||||
FIELD LF_EFFETTI->DATARIBA
|
FIELD LF_EFFETTI->DATARIBA
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_DISRIBAEST
|
BOOLEAN F_DISRIBAEST
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 52 15 "Distinta Ri.Ba. estratta"
|
PROMPT 42 15 "Distinta Ri.Ba. estratta"
|
||||||
FIELD LF_EFFETTI->DISRIBAEST
|
FIELD LF_EFFETTI->DISRIBAEST
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -375,7 +377,7 @@ END
|
|||||||
|
|
||||||
BOOLEAN F_EFFCOMP
|
BOOLEAN F_EFFCOMP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 52 17 "Effetto completato"
|
PROMPT 42 17 "Effetto completato"
|
||||||
FIELD LF_EFFETTI->EFFCOMP
|
FIELD LF_EFFETTI->EFFCOMP
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -383,9 +385,14 @@ ENDPAGE
|
|||||||
|
|
||||||
PAGE "Gestione Effetti 3/3" 0 -1 0 19
|
PAGE "Gestione Effetti 3/3" 0 -1 0 19
|
||||||
|
|
||||||
|
TEXT DLG_NULL
|
||||||
|
BEGIN
|
||||||
|
PROMPT 3 1 "OBBLIGATI PRINCIPALI"
|
||||||
|
END
|
||||||
|
|
||||||
SPREADSHEET F_SHEET_EFF 76 8
|
SPREADSHEET F_SHEET_EFF 76 8
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "OBBLIGATI PRINCIPALI"
|
PROMPT 3 2 "OBBLIGATI PRINCIPALI"
|
||||||
ITEM "Ragione Sociale@50"
|
ITEM "Ragione Sociale@50"
|
||||||
ITEM "Localita'@35"
|
ITEM "Localita'@35"
|
||||||
ITEM "Stato"
|
ITEM "Stato"
|
||||||
|
Loading…
x
Reference in New Issue
Block a user