diff --git a/ef/ef0100a.uml b/ef/ef0100a.uml index 460aa48d1..b39bfe44d 100755 --- a/ef/ef0100a.uml +++ b/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"