Errori aga002-003-004-005-008
git-svn-id: svn://10.65.10.50/trunk@4316 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
1c714b3c3a
commit
e9be165a5e
245
ef/ef0100a.uml
245
ef/ef0100a.uml
@ -1,4 +1,3 @@
|
||||
// DEFINIZIONE CAMPI MASCHERA PRINCIPALE PER LA GESTIONE EFFETTI
|
||||
#include "ef0100.h"
|
||||
|
||||
TOOLBAR "" 0 19 0 2
|
||||
@ -9,14 +8,14 @@ ENDPAGE
|
||||
|
||||
PAGE "Testata/Righe" 0 -1 0 19
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
PROMPT 0 0 ""
|
||||
END
|
||||
|
||||
NUMBER F_NPROGTR 7
|
||||
BEGIN
|
||||
PROMPT 2 1 "Numero "
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero "
|
||||
FIELD LF_EFFETTI->NPROGTR
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
@ -34,37 +33,44 @@ BEGIN
|
||||
OUTPUT F_TIPOPAG TIPOPAG
|
||||
OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,10@
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cliente "
|
||||
BEGIN
|
||||
PROMPT 1 2 "Cliente "
|
||||
FIELD LF_EFFETTI->CODCF
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Ragione sociale@60" RAGSOC
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CFRAGSOC RAGSOC
|
||||
OUTPUT F_CODABI CODABI
|
||||
OUTPUT F_CODCAB CODCAB
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
MESSAGE COPY,11@
|
||||
END
|
||||
|
||||
STRING F_CFRAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 26 2 ""
|
||||
PROMPT 27 2 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_CFRAGSOC
|
||||
INPUT RAGSOC F_CFRAGSOC
|
||||
DISPLAY "Ragione sociale@60" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CODCF
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
MESSAGE COPY,12@
|
||||
END
|
||||
|
||||
DATE F_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 2 3 "Data scadenza "
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data scadenza "
|
||||
FIELD LF_EFFETTI->DATASCAD
|
||||
KEY 3
|
||||
USE LF_EFFETTI KEY 3
|
||||
@ -78,11 +84,12 @@ BEGIN
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
COPY OUTPUT F_NPROGTR
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,13@
|
||||
END
|
||||
|
||||
LIST F_TIPOPAG 24
|
||||
BEGIN
|
||||
PROMPT 2 5 "Tipo pagamento "
|
||||
BEGIN
|
||||
PROMPT 1 5 "Tipo pagamento "
|
||||
FIELD LF_EFFETTI->TIPOPAG
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
@ -91,14 +98,14 @@ BEGIN
|
||||
ITEM "6|Lettera di credito"
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Rapporti interb. diretti"
|
||||
ITEM "9|Bonifici"
|
||||
ITEM "9|Bonifico"
|
||||
END
|
||||
|
||||
STRING F_ULTCLASS 1
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 46 5 "Ulteriore classificazione "
|
||||
FIELD LF_EFFETTI->ULTCLASS
|
||||
USE %CLR
|
||||
USE %CLR
|
||||
INPUT CODTAB[1,1] F_TIPOPAG SELECT
|
||||
INPUT CODTAB[2,2] F_ULTCLASS
|
||||
DISPLAY "Classificazione" CODTAB[2,2]
|
||||
@ -107,8 +114,8 @@ BEGIN
|
||||
END
|
||||
|
||||
STRING F_CODVAL 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Codice valuta "
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice valuta "
|
||||
FIELD LF_EFFETTI->CODVAL
|
||||
FLAGS "UZ"
|
||||
USE %VAL
|
||||
@ -120,7 +127,7 @@ BEGIN
|
||||
END
|
||||
|
||||
DATA F_DATACAM
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 46 6 "Data cambio "
|
||||
FIELD LF_EFFETTI->DATACAMBIO
|
||||
FLAGS "R"
|
||||
@ -137,8 +144,8 @@ BEGIN
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 15 5
|
||||
BEGIN
|
||||
PROMPT 2 7 "Cambio "
|
||||
BEGIN
|
||||
PROMPT 1 7 "Cambio "
|
||||
FIELD LF_EFFETTI->CAMBIO
|
||||
FLAGS "RU"
|
||||
PICTURE ".5"
|
||||
@ -148,14 +155,14 @@ BEGIN
|
||||
END
|
||||
|
||||
BOOLEAN F_ULTRATA
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT 46 7 "Ultima rata"
|
||||
FIELD LF_EFFETTI->ULTRATA
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_RIGHE 76 7
|
||||
SPREADSHEET F_SHEET_RIGHE 0 7
|
||||
BEGIN
|
||||
PROMPT 2 9 "RIGHE EFFETTO"
|
||||
PROMPT 1 9 "RIGHE EFFETTO"
|
||||
ITEM "Importo fatt.@20"
|
||||
ITEM "Importo effet.@14"
|
||||
ITEM "Imp.fatt.val.@20"
|
||||
@ -165,44 +172,77 @@ BEGIN
|
||||
ITEM "Nr. riga"
|
||||
ITEM "Nr. rata"
|
||||
ITEM "Numerazione"
|
||||
ITEM "Codice numeraz."
|
||||
ITEM "Codice numeraz."
|
||||
ITEM "Anno fattura"
|
||||
ITEM "Nr. fattura"
|
||||
ITEM "Data fattura"
|
||||
END
|
||||
|
||||
NUMBER F_TOTIMP 18 2
|
||||
BEGIN
|
||||
PROMPT 2 17 "Totale importi "
|
||||
FIELD LF_EFFETTI->IMPORTO
|
||||
BEGIN
|
||||
PROMPT 1 17 "Totale importi "
|
||||
FIELD LF_EFFETTI->IMPORTO
|
||||
PICTURE "###.###.###.###,@@"
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_TOTIMPVAL 18 3
|
||||
BEGIN
|
||||
PROMPT 2 18 "Totale importi in valuta "
|
||||
BEGIN
|
||||
PROMPT 1 18 "Totale importi in valuta "
|
||||
FIELD LF_EFFETTI->IMPORTOVAL
|
||||
PICTURE "###.###.###.###,@@@"
|
||||
FLAG "D"
|
||||
//GROUP 1
|
||||
END
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Parametri" 0 -1 0 19
|
||||
|
||||
GROUPBOX DLG_NULL 38 4
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "BANCA D'APPOGGIO"
|
||||
PROMPT 0 0 ""
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 7
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero "
|
||||
FLAGS "RD"
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 6
|
||||
BEGIN
|
||||
PROMPT 1 2 "Cliente "
|
||||
FLAGS "RD"
|
||||
GROUP 11
|
||||
END
|
||||
|
||||
STRING DLG_NULL 50
|
||||
BEGIN
|
||||
PROMPT 27 2 ""
|
||||
FLAGS "D"
|
||||
GROUP 12
|
||||
END
|
||||
|
||||
DATE DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data scadenza "
|
||||
FLAGS "D"
|
||||
GROUP 13
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 38 4
|
||||
BEGIN
|
||||
PROMPT 0 5 "Banca d'appoggio"
|
||||
END
|
||||
|
||||
NUMBER F_CODABI 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice ABI "
|
||||
PROMPT 1 6 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABI
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB F_CODABI
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
@ -213,8 +253,8 @@ BEGIN
|
||||
END
|
||||
|
||||
NUMBER F_CODCAB 5
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice CAB "
|
||||
BEGIN
|
||||
PROMPT 1 7 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCAB
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
||||
@ -232,15 +272,15 @@ END
|
||||
|
||||
GROUPBOX DLG_NULL 38 4
|
||||
BEGIN
|
||||
PROMPT 41 1 "BANCA DI PRESENTAZIONE"
|
||||
PROMPT 41 5 "Banca di presentazione"
|
||||
END
|
||||
|
||||
NUMBER F_CODABIP 5
|
||||
BEGIN
|
||||
PROMPT 42 2 "Codice ABI "
|
||||
BEGIN
|
||||
PROMPT 42 6 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABIP
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
|
||||
INPUT CODTAB F_CODABIP
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
@ -252,7 +292,7 @@ END
|
||||
|
||||
NUMBER F_CODCABP 5
|
||||
BEGIN
|
||||
PROMPT 42 3 "Codice CAB "
|
||||
PROMPT 42 7 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCABP
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
|
||||
@ -263,113 +303,91 @@ BEGIN
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE NORMAL
|
||||
VALIDATE REQIF_FUNC 1 F_CODCABP
|
||||
WARNING "Banca assente"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 5 ""
|
||||
END
|
||||
|
||||
DATE F_DATAEMISS
|
||||
BEGIN
|
||||
PROMPT 2 6 "Data di emissione "
|
||||
BEGIN
|
||||
PROMPT 1 10 "Data di emissione "
|
||||
FIELD LF_EFFETTI->DATAEMISS
|
||||
END
|
||||
|
||||
NUMBER F_NUMEMISS 8
|
||||
BEGIN
|
||||
PROMPT 42 6 "Nr. di emissione "
|
||||
BEGIN
|
||||
PROMPT 42 10 "Nr. di emissione "
|
||||
FIELD LF_EFFETTI->NUMEMISS
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFSTAMP
|
||||
BEGIN
|
||||
PROMPT 2 7 "Effetto stampato"
|
||||
PROMPT 1 11 "Effetto stampato"
|
||||
FIELD LF_EFFETTI->EFFSTAMP
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 9 ""
|
||||
END
|
||||
|
||||
LIST F_TIPODIST 15
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tipo distinta "
|
||||
BEGIN
|
||||
PROMPT 1 13 "Tipo distinta "
|
||||
FIELD LF_EFFETTI->TIPODIST
|
||||
ITEM " |** Nessuno **"
|
||||
MESSAGE DISABLE,2@|RESET,2@
|
||||
ITEM " | "
|
||||
ITEM "I|All'incasso"
|
||||
MESSAGE ENABLE,2@
|
||||
ITEM "B|Salvo buon fine"
|
||||
MESSAGE ENABLE,2@
|
||||
ITEM "S|Allo sconto"
|
||||
MESSAGE ENABLE,2@
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NDIST 8
|
||||
BEGIN
|
||||
PROMPT 42 10 "Nr. distinta "
|
||||
BEGIN
|
||||
PROMPT 42 13 "Nr. distinta "
|
||||
FIELD LF_EFFETTI->NDIST
|
||||
FLAGS "D"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
DATE F_DATADIST
|
||||
BEGIN
|
||||
PROMPT 2 11 "Data distinta "
|
||||
BEGIN
|
||||
PROMPT 1 14 "Data distinta "
|
||||
FIELD LF_EFFETTI->DATADIST
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NRIGADIST 6
|
||||
BEGIN
|
||||
PROMPT 42 14 "Nr. di riga "
|
||||
FIELD LF_EFFETTI->NRIGADIST
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_DISTSTAM
|
||||
BEGIN
|
||||
PROMPT 2 12 "Distinta stampata"
|
||||
PROMPT 1 15 "Distinta stampata"
|
||||
FIELD LF_EFFETTI->DISTSTAM
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NRIGADIST 6
|
||||
BEGIN
|
||||
PROMPT 42 12 "Nr. di riga "
|
||||
FIELD LF_EFFETTI->NRIGADIST
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 14 ""
|
||||
END
|
||||
|
||||
DATE F_DATARIBA
|
||||
BEGIN
|
||||
PROMPT 2 15 "Data Ri.Ba. "
|
||||
BEGIN
|
||||
PROMPT 1 17 "Data Ri.Ba. "
|
||||
FIELD LF_EFFETTI->DATARIBA
|
||||
END
|
||||
|
||||
BOOLEAN F_DISRIBAEST
|
||||
BEGIN
|
||||
PROMPT 42 15 "Distinta Ri.Ba. estratta"
|
||||
BEGIN
|
||||
PROMPT 42 17 "Distinta Ri.Ba. estratta"
|
||||
FIELD LF_EFFETTI->DISRIBAEST
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFCONT
|
||||
BOOLEAN F_EFFCONT
|
||||
BEGIN
|
||||
PROMPT 2 17 "Effetto contabilizzato"
|
||||
PROMPT 1 19 "Effetto contabilizzato"
|
||||
FIELD LF_EFFETTI->EFFCONT
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFCOMP
|
||||
BEGIN
|
||||
PROMPT 42 17 "Effetto completato"
|
||||
PROMPT 42 19 "Effetto completato"
|
||||
FIELD LF_EFFETTI->EFFCOMP
|
||||
END
|
||||
|
||||
@ -377,9 +395,42 @@ ENDPAGE
|
||||
|
||||
PAGE "Cessionari" 0 -1 0 19
|
||||
|
||||
SPREADSHEET F_SHEET_EFF 76 8
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
BEGIN
|
||||
PROMPT 3 2 "OBBLIGATI PRINCIPALI"
|
||||
PROMPT 0 0 ""
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 7
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero "
|
||||
FLAGS "RD"
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
NUMBER DLG_NULL 6
|
||||
BEGIN
|
||||
PROMPT 1 2 "Cliente "
|
||||
FLAGS "RD"
|
||||
GROUP 11
|
||||
END
|
||||
|
||||
STRING DLG_NULL 50
|
||||
BEGIN
|
||||
PROMPT 27 2 ""
|
||||
FLAGS "D"
|
||||
GROUP 12
|
||||
END
|
||||
|
||||
DATE DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data scadenza "
|
||||
FLAGS "D"
|
||||
GROUP 13
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_EFF 0 8
|
||||
BEGIN
|
||||
PROMPT 1 6 "Obbligati principali"
|
||||
ITEM "Ragione Sociale@50"
|
||||
ITEM "Localita'@35"
|
||||
ITEM "Stato"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user