From 88dc2613670f5758e816210e8b2ceb8cd8895609 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 9 Jun 2011 10:11:57 +0000
Subject: [PATCH] Patch level         : 10.1022 Files correlati     :
 Ricompilazione Demo : [ ] Commento            :
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Bug 0001873: presscolor - problemi su stampa distinta effetti passivi

non è stato rilasciato ne sulla versione 10 ne sulla versione 11 il programma df00000.frm, quindi la stampa della distinta effetti passivi decodifica i clienti anzichè i fornitori


git-svn-id: svn://10.65.10.50/branches/R_10_00@22244 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ef/df000000.frm | 389 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 389 insertions(+)
 create mode 100755 ef/df000000.frm

diff --git a/ef/df000000.frm b/ef/df000000.frm
new file mode 100755
index 000000000..70e6db619
--- /dev/null
+++ b/ef/df000000.frm
@@ -0,0 +1,389 @@
+USE 31
+JOIN 14 INTO NPROGTR==NPROGTR 
+JOIN 20 INTO TIPOCF=="F" CODCF==CODCF
+JOIN 17 TO 20 INTO TIPOCF==TIPOCF CODCF==CODCF
+JOIN 16 TO 17 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDEFF
+JOIN 13 TO 20 INTO COM==COMCF
+JOIN 13 TO 16 ALIAS 213 INTO COM==COM 
+JOIN %BAN TO 20 ALIAS 201 INTO CODTAB[1,5]==CODABI 
+JOIN %BAN TO 20 ALIAS 203 INTO CODTAB==CODABI+CODCAB
+JOIN %BAN ALIAS 202 INTO CODTAB==CODABIP+CODCABP
+JOIN %BAN ALIAS 204 INTO CODTAB[1,5]==CODABIP
+JOIN BNP ALIAS 205 INTO CODTAB==CODABIP+CODCABP
+END
+DESCRIPTION
+BEGIN
+31->* "Effetti"
+14->* "Righe effetto"
+20->* "Clienti e Fornitori"
+13->* "Comuni"
+201@->* "Tabella banche"                      
+202@->* "Tabella banche"       
+203@->* "Tabella banche" 
+204@->* "Tabella banche"  
+END 
+GENERAL
+BEGIN 
+OFFSET 0 0
+END
+SECTION GRAPHICS ODD 4
+FIGURA 1 1 1
+BEGIN
+PROMPT 1 1 ""
+END
+END
+SECTION HEADER ODD 8
+STRING 1 80 
+BEGIN
+KEY "denominazione banca presentazione"
+PROMPT 38 1 "Al/Alla   @B"
+FIELD 202@->S0
+END
+STRING 2 30
+BEGIN 
+KEY "scritta elenco riba"
+PROMPT 2 1 "@B DISPOSIZIONI"
+END
+NUMBER 3 8
+BEGIN
+KEY "numero di pagina"
+PROMPT 129 1 "pag. "
+MESSAGE _PAGENO
+END
+DATA 4 20
+BEGIN
+KEY "data emissione"
+PROMPT 2 2 "Presentati il : " 
+MESSAGE _DATA
+END 
+STRING 5 130
+BEGIN
+KEY "ditta"
+PROMPT 2 4 "Vi preghiamo di disporre per ordine e per conto           @B"
+MESSAGE _DITTA,!RAGSOC
+END
+STRING 5 130
+BEGIN
+KEY "ditta"
+PROMPT 2 5 "i bonifici di seguito indicati:"
+END
+STRING 6 20
+BEGIN
+KEY "scritta titolo righe del body"
+PROMPT 2 7 "CREDITORE"
+END
+STRING 7 10
+BEGIN
+KEY "scritta titolo righe del body"
+PROMPT 32 7 "INDIRIZZO"
+END
+STRING 8 17
+BEGIN
+KEY "scritta titolo righe del body"
+PROMPT 62 7 "BANCA D'APPOGGIO"
+END
+STRING 9 11
+BEGIN
+KEY "scritta titolo righe del body"
+PROMPT 94 7 "FATTURA NUM"
+END
+STRING 10 8
+BEGIN
+KEY "scritta titolo righe del body"
+PROMPT 111 7 "DATA FATT."
+END
+STRING 11 7
+BEGIN
+KEY "scritta titolo righe del body"
+PROMPT 129 7 "IMPORTO"
+END
+STRING 12
+BEGIN
+KEY "riga separazione dalle righe del body"
+PROMPT 2 8 "---------------------------------------------------------------------------------------------------------------------------------------------"
+END
+STRING 13 25
+BEGIN
+KEY "Numero distinta"
+PROMPT 100 2 "Distinta N. @B"
+FIELD NDIST
+END
+END
+SECTION BODY ODD 7
+STRING 15 2 1
+BEGIN
+KEY "creditore"
+PROMPT 1 1 "@B"
+END 
+STRING 16 25 2
+BEGIN
+KEY "creditore"
+PROMPT 2 1 ""
+FIELD 20->RAGSOC
+MESSAGE INC,FL->2
+END 
+STRING 27 21
+BEGIN
+KEY "codice fiscale"
+PROMPT 2 3 "P.I. "
+FIELD 20->PAIV
+END
+STRING 28 2 1
+BEGIN
+KEY "indirizzo normale"
+PROMPT 25 1 "@R"
+END 
+STRING 17 25 2 
+BEGIN
+KEY "Indirizzo debitore + nr. civico"
+PROMPT 27 1 ""
+MESSAGE _CLI,!IND
+END
+STRINGA 18 25 2
+BEGIN
+KEY "PIAZZA(LOCALITA+PROV)"
+PROMPT 27 3 ""
+MESSAGE _CLI,!PIAZZA
+END
+STRING 117 6
+BEGIN
+KEY ""
+PROMPT 2 17 ""
+MESSAGE _NUMEXPR, 20->CODABI==99999
+MESSAGE COPY,118
+FLAGS "H"
+END
+NUMBER 118 5
+BEGIN
+KEY ""
+PROMPT 55 4 ""
+MESSAGE ENABLE,119|DISABLE,19
+MESSAGE ENABLE,120|DISABLE,20|DISABLE,21
+MESSAGE ENABLE,134|DISABLE,22|DISABLE,34
+MESSAGE EMPTY ENABLE,19|DISABLE,119
+MESSAGE EMPTY ENABLE,20|DISABLE,120
+FLAGS "H"
+END
+STRING 119 40 2 
+BEGIN
+KEY "banca d'appoggio denominazione"
+PROMPT 55 1 ""
+FIELD 203@->S0
+FLAGS "D"
+END 
+STRING 120 40 1 
+BEGIN
+KEY "banca d'appoggio denominazione"
+PROMPT 55 3 ""
+FIELD 203@->S2
+FLAGS "D"
+END 
+STRING 19 40 2 
+BEGIN
+KEY "banca d'appoggio denominazione"
+PROMPT 55 1 ""
+FIELD 201@->S0
+END 
+STRING 20 40 1 
+BEGIN
+KEY "banca d'appoggio succursale"
+PROMPT 55 3 ""
+FIELD 203@->S0
+END 
+STRING 221 7 
+BEGIN
+KEY "ABI presentazione"
+PROMPT 55 4 "@B"
+END 
+STRING 21 5 
+BEGIN
+KEY "ABI presentazione"
+PROMPT 20 4 "ABI: "
+FIELD 20->CODABI
+END 
+STRING 22 5 
+BEGIN
+KEY "CAB succursale"
+PROMPT 31 4 "CAB: "
+FIELD 20->CODCAB
+END 
+LISTA 23 8
+BEGIN
+KEY "a saldo/in conto"
+FIELD 31->ULTRATA
+PROMPT 95 1 ""
+ITEM " |IN CONTO"
+ITEM "X|A SALDO"
+flags "H"
+END
+STRING 24 17 5 
+BEGIN
+KEY "dati fattura"
+PROMPT 92 1 ""
+END
+DATA 25 10
+BEGIN
+KEY "data scadenza"
+PROMPT 112 1 ""
+END
+STRING 34 20 
+BEGIN
+KEY "Conto Corrente"
+PROMPT 43 4 "C/C "
+FIELD 20->NUMCC
+END
+STRING 133 1
+BEGIN
+KEY "Conto Corrente"
+PROMPT 5 4 ""
+FIELD 20->NUMCC
+MESSAGE EMPTY DISABLE,134
+FLAGS "H"
+END
+STRING 134 35
+BEGIN
+KEY "Conto Corrente"
+PROMPT 43 4 "ACCOUNT NUM. "
+FIELD 20->NUMCC
+FLAGS "D"
+END
+STRING 135 35
+BEGIN
+KEY "Conto Corrente"
+PROMPT 61 4 "IBAN "
+FIELD 20->IBAN
+END
+STRING 35 3
+BEGIN
+KEY "test sulla valuta"
+PROMPT 2 8 ""
+FIELD CODVAL
+FLAGS "H"
+MESSAGE EMPTY ENABLE,4@|DISABLE,3@
+END
+STRING 36 17 1
+BEGIN
+KEY "cod cliente"
+PROMPT 2 4 "@RCod. For: "
+FIELD 20->CODCF
+END 
+STRING 101 15
+BEGIN
+KEY "CUP"
+PROMPT 2 5 "CUP "
+FIELD CUP
+END 
+STRING 102 10
+BEGIN
+KEY "CIG"
+PROMPT 25 5 "CIG "
+FIELD CIG
+END 
+SECTION RIGHE_EFFETTO 5 1 1 FILE 14 GROUP NPROGTR
+STRINGA 1
+BEGIN
+PROMPT 92 1 "Ft. n."
+FIELD 14->NFATT
+END
+DATA 2
+BEGIN
+PROMPT 107 1 "del "
+FIELD 14->DATAFATT
+END
+VALUTA 3 21 3
+BEGIN
+PROMPT 124 1 ""
+FIELD 14->IMPORTOVAL
+GROUP 3
+END
+VALUTA 4 18 
+BEGIN
+PROMPT 124 1 ""
+FIELD 14->IMPORTO
+GROUP 4
+FLAGS "D"
+END
+END
+STRINGA 31 32
+BEGIN
+PROMPT 110 6 "--------------------------------"
+END
+STRINGA 32 10
+BEGIN
+PROMPT 109 7 "@B Totale"
+END
+STRINGA 33 2
+BEGIN
+PROMPT 114 7 "@B"
+END
+VALUTA 26 18
+BEGIN
+KEY "importo"
+PROMPT 124 7 ""
+MESSAGE _IMPORTO
+MESSAGE ADD,FL->3
+PICTURE "###.###.###.###"
+END
+END
+SECTION FOOTER ODD 5
+STRINGA 99
+BEGIN
+KEY "riga separazione dalle righe del body"
+PROMPT 2 1 "---------------------------------------------------------------------------------------------------------------------------------------------"
+END
+STRINGA 100 12 1
+BEGIN
+KEY "stampa 'segue' in coda"
+PROMPT 120 3 "-- SEGUE --"
+END
+END
+SECTION FOOTER LAST 5
+STRINGA 1
+BEGIN
+KEY "riga separazione dalle righe del body"
+PROMPT 2 1 "---------------------------------------------------------------------------------------------------------------------------------------------"
+END
+NUMERO 2 25
+BEGIN
+KEY "scritta n. documenti"
+PROMPT 5 2 "ORDINI DI BONIFICO N. "
+END 
+NUMERO 3 50 
+BEGIN
+KEY "Totale"
+PROMPT 5 3 "Dell' importo complessivo di L.@B"
+PICTURE "###.###.###.###,@@#"
+END 
+STRING 93 3
+BEGIN
+KEY "test sulla valuta"
+PROMPT 34 3 ""
+FIELD CODVAL
+GROUP 4
+END
+STRINGA 4 40
+BEGIN
+KEY "NUMERO C/C"
+PROMPT 60 3 "@Raddebiterete  il C/C N. @B"
+FIELD 205@->S0
+END
+STRINGA 5 80
+BEGIN
+KEY "firma "
+PROMPT 5 4 "presso di Voi, intestato a:          @B"
+MESSAGE _DITTA,!RAGSOC
+END 
+STRINGA 6 40
+BEGIN
+KEY "firma "
+PROMPT 65 5 "------------------------------------"
+END 
+DATA 7 34
+BEGIN
+KEY "data valuta"
+PROMPT 100 3 "@Rcon valuta per noi: @B"
+FIELD 31->DATADIST
+FL "D"
+END
+END
+END