root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

effettuata modifica della maschera

Browse Source 
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
1 changed files with 45 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
ef/ef0100a.uml
View File

@ -15,7 +15,7 @@ END
NUMBER F_NPROGTR 7
BEGIN
PROMPT 2 2 "Numero "
PROMPT 2 2 "Numero "
FIELD LF_EFFETTI->NPROGTR
FLAGS "R"
KEY 1
@ -37,7 +37,7 @@ END
NUMBER F_CODCF 6
BEGIN
PROMPT 2 3 "Cod. cliente "
PROMPT 2 3 "Cliente "
FIELD LF_EFFETTI->CODCF
USE LF_CLIFO
INPUT TIPOCF "C"
@ -59,24 +59,26 @@ END
STRING F_CFRAGSOC 50
BEGIN
PROMPT 25 3 ""
PROMPT 26 3 ""
USE LF_CLIFO KEY 2
//JOIN LF_EFFETTI TO LF_CLIFO KEY 2 INTO CODCF==CODCF
INPUT TIPOCF "C"
INPUT RAGSOC F_CFRAGSOC
DISPLAY "Ragione sociale@60" RAGSOC
DISPLAY "Codice" CODCF
/*DISPLAY "Nr. progressivo" LF_EFFETTI->NPROGTR
/*
DISPLAY "Nr. progressivo" LF_EFFETTI->NPROGTR
DISPLAY "Data scadenza" LF_EFFETTI->DATASCAD
DISPLAY "Tipo distinta" LF_EFFETTI->TIPODIST
DISPLAY "Nr. distinta" LF_EFFETTI->NDIST*/
DISPLAY "Nr. distinta" LF_EFFETTI->NDIST
*/
COPY OUTPUT F_CODCF
CHECKTYPE REQUIRED
END
DATE F_DATASCAD
BEGIN
PROMPT 2 4 "Data scadenza "
PROMPT 2 4 "Data scadenza "
FIELD LF_EFFETTI->DATASCAD
KEY 3
USE LF_EFFETTI KEY 3
@ -95,7 +97,7 @@ END
LIST F_TIPOPAG 24
BEGIN
PROMPT 2 6 "Tipo pagamento "
PROMPT 2 6 "Tipo pagamento "
FIELD LF_EFFETTI->TIPOPAG
ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria"
@ -109,7 +111,7 @@ END
STRING F_ULTCLASS 1
BEGIN
PROMPT 46 6 "Ulteriore classificazione "
PROMPT 46 6 "Ulteriore classificazione "
FIELD LF_EFFETTI->ULTCLASS
USE %CLR
INPUT CODTAB[1,1] F_TIPOPAG SELECT
@ -121,7 +123,7 @@ END
STRING F_CODVAL 3
BEGIN
PROMPT 2 7 "Codice valuta "
PROMPT 2 7 "Codice valuta "
FIELD LF_EFFETTI->CODVAL
FLAGS "UZ"
USE %VAL
@ -134,7 +136,7 @@ END
DATA F_DATACAM
BEGIN
PROMPT 46 7 "Data cambio "
PROMPT 46 7 "Data cambio "
FIELD LF_EFFETTI->DATACAMBIO
FLAGS "R"
USE CAM
@ -151,7 +153,7 @@ END
NUMBER F_CAMBIO 15 5
BEGIN
PROMPT 2 8 "Cambio "
PROMPT 2 8 "Cambio "
FIELD LF_EFFETTI->CAMBIO
FLAGS "RU"
PICTURE ".5"
@ -281,13 +283,13 @@ END
DATE F_DATAEMISS
BEGIN
PROMPT 2 6 "Data di emissione "
PROMPT 2 6 "Data di emissione "
FIELD LF_EFFETTI->DATAEMISS
END
NUMBER F_NUMEMISS 8
BEGIN
PROMPT 42 6 "Nr. di emissione "
PROMPT 42 6 "Nr. di emissione "
FIELD LF_EFFETTI->NUMEMISS
END
@ -304,7 +306,7 @@ END
LIST F_TIPODIST 15
BEGIN
PROMPT 2 10 "Tipo distinta "
PROMPT 2 10 "Tipo distinta "
FIELD LF_EFFETTI->TIPODIST
ITEM " |** Nessuno **"
MESSAGE DISABLE,2@|RESET,2@
@ -318,7 +320,7 @@ END
NUMBER F_NDIST 8
BEGIN
PROMPT 52 10 "Nr. distinta "
PROMPT 42 10 "Nr. distinta "
FIELD LF_EFFETTI->NDIST
FLAGS "D"
VALIDATE NOT_EMPTY_FUNC
@ -328,7 +330,7 @@ END
DATE F_DATADIST
BEGIN
PROMPT 2 11 "Data distinta "
PROMPT 2 11 "Data distinta "
FIELD LF_EFFETTI->DATADIST
FLAGS "D"
GROUP 2
@ -344,7 +346,7 @@ END
NUMBER F_NRIGADIST 6
BEGIN
PROMPT 52 12 "Nr. di riga "
PROMPT 42 12 "Nr. di riga "
FIELD LF_EFFETTI->NRIGADIST
FLAGS "D"
GROUP 2
@ -357,13 +359,13 @@ END
DATE F_DATARIBA
BEGIN
PROMPT 2 15 "Data Ri.Ba. "
PROMPT 2 15 "Data Ri.Ba. "
FIELD LF_EFFETTI->DATARIBA
END
BOOLEAN F_DISRIBAEST
BEGIN
PROMPT 52 15 "Distinta Ri.Ba. estratta"
PROMPT 42 15 "Distinta Ri.Ba. estratta"
FIELD LF_EFFETTI->DISRIBAEST
END
@ -375,7 +377,7 @@ END
BOOLEAN F_EFFCOMP
BEGIN
PROMPT 52 17 "Effetto completato"
PROMPT 42 17 "Effetto completato"
FIELD LF_EFFETTI->EFFCOMP
END
@ -383,9 +385,14 @@ ENDPAGE
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
BEGIN
PROMPT 2 1 "OBBLIGATI PRINCIPALI"
PROMPT 3 2 "OBBLIGATI PRINCIPALI"
ITEM "Ragione Sociale@50"
ITEM "Localita'@35"
ITEM "Stato"