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 1997-04-29 13:42:13 +00:00
parent 1c714b3c3a
commit e9be165a5e

View File

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