effettuata modifica della maschera

git-svn-id: svn://10.65.10.50/trunk@3872 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
paola 1996-11-05 16:45:05 +00:00
parent 838e98f229
commit 850eee8323

View File

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