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
@ -37,7 +37,7 @@ 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
@ -95,7 +97,7 @@ 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"
@ -109,7 +111,7 @@ 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
@ -121,7 +123,7 @@ 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
@ -134,7 +136,7 @@ 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"
@ -281,13 +283,13 @@ 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
@ -304,7 +306,7 @@ 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@
@ -318,7 +320,7 @@ 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
@ -328,7 +330,7 @@ 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
@ -344,7 +346,7 @@ 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
@ -357,13 +359,13 @@ 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"