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

Errori aga002-003-004-005-008

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4316 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-04-29 13:42:13 +00:00
parent 1c714b3c3a
commit e9be165a5e
1 changed files with 148 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

245
ef/ef0100a.uml
View File

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