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

//Aggiunti due campi in ab1200.h

Browse Source 
//Aggiunti i file UML per la gestione degli intervalli di stampa delle tabelle
//Aggiunti i file RPT per la stampa delle varie tabelle
//Aggiunto il file FRM per la stampa del piano dei conti


git-svn-id: svn://10.65.10.50/trunk@5436 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
sauro 1997-10-23 15:56:37 +00:00
parent c8f0edda8e
commit 25cd3c0b20
8 changed files with 309 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
ab/ab1200.frm Executable file
View File

@ -0,0 +1,126 @@
//stampa piano dei conti
USE 78
END
DESCRIPRION
BEGIN
78->* "Piano dei Conti"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 7
END
SECTION HEADER ODD 6
STRINGA 1 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "--------------------------------------------------------------------------------"
END
STRINGA 2 7
BEGIN
KEY "Intestazione (Codice)"
PROMPT 1 4 "Codice"
END
STRINGA 3 40
BEGIN
KEY "Intestazione (Descrizione)"
PROMPT 25 4 "Descrizione"
END
NUMERO 4 5
BEGIN
KEY "Intestazione (I.b.)"
PROMPT 53 4 "I.b."
END
STRINGA 5 4
BEGIN
KEY "Intestazione (d/m)"
PROMPT 58 4 "D/M"
END
STRINGA 6 12
BEGIN
KEY "Intestazione (Codcontr)"
PROMPT 63 4 "Cod. Contr."
END
STRINGA 7 6
BEGIN
KEY "Intestazione (Sosp.)"
PROMPT 75 4 "Sosp."
END
STRINGA 8 80
BEGIN
KEY "Separatore (finale)"
PROMPT 1 5 "--------------------------------------------------------------------------------"
END
END
//Il -2 significa che stampa su 1 o 2 righe secondo quello che devo stampare
SECTION BODY ODD -2
STRINGA 1 12
BEGIN
KEY "Codice"
PROMPT 1 1 ""
FIELD 78->CODCBL
END
//Sintassi: TIPO id lunghezza_per_riga numero_righe
STRINGA 2 40 2
BEGIN
KEY "Descrizione"
PROMPT 14 1 ""
FIELD 78->DESCRIZ
END
NUMERO 3 1
BEGIN
KEY "Indicatore"
PROMPT 55 1 ""
FIELD 78->INDBIL
END
STRINGA 4 1
BEGIN
KEY "Dettaglio"
PROMPT 59 1 ""
FIELD 78->DETT
END
STRINGA 5 12
BEGIN
KEY "Cod. contr."
PROMPT 63 1 ""
FIELD 78->CODCONTR
END
STRINGA 6 1
BEGIN
KEY "Sospeso"
PROMPT 76 1 ""
FIELD 78->SOSPESO
END
END
END

6
ab/ab1200.h
View File

@ -1,8 +1,10 @@
#ifndef __AB1200_H
#define __AB1200_H
#define F_INIZIO 100
#define F_FINE 101
#define F_INIZIO 100
#define F_FINE 101
#define F_INIZIO1 102
#define F_FINE1 103
#endif

45
ab/bastarb.uml Executable file
View File

@ -0,0 +1,45 @@
#include "ab1200.h"
PAGE "Stampa tabella archiviazione bilanci" -1 -1 50 8
NUMBER F_INIZIO1 5
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %ARB
INPUT CODTAB[1,5] F_INIZIO1
DISPLAY "Codice" CODTAB[1,5]
DISPLAY "Anno" CODTAB[6,9]
DISPLAY "Periodo" CODTAB[10,12]
DISPLAY "Tipo" CODTAB[13,15]
OUTPUT F_INIZIO1 CODTAB[1,5]
GROUP 1
FIELD CODTAB[1,5]
FLAGS "RU"
END
NUMBER F_FINE1 5
BEGIN
PROMPT 4 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB[1,5] F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,5]
GROUP 2
FIELD CODTAB[1,5]
FLAGS "RU"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

43
ab/bastntb.uml Executable file
View File

@ -0,0 +1,43 @@
#include "ab1200.h"
PAGE "Stampa tabella tipi di bilancio" -1 -1 50 8
NUMBER F_INIZIO1 2
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %NTB
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FIELD CODTAB
FLAGS "RU"
END
NUMBER F_FINE1 2
BEGIN
PROMPT 4 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD CODTAB
FLAGS "RU"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

43
ab/bastpdb.uml Executable file
View File

@ -0,0 +1,43 @@
#include "AB1200.h"
PAGE "Stampa tabella tipi di bilancio" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
USE %PDB
INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB
GROUP 1
FIELD CODTAB
FLAGS "RU"
END
NUMBER F_FINE1 3
BEGIN
PROMPT 4 3 "A codice "
HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB
GROUP 2
FIELD CODTAB
FLAGS "RU"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

20
ab/batbarb.rpt Executable file
View File

@ -0,0 +1,20 @@
[Headers]
80
Tabella Archiviazione Bilanci
1|@2g%s|Codice
1|@10g%s|Anno
1|@20g%s|Cod.Per.
1|@30g%s|Tipo bil.
1|@35g%s|Data arc.
1|@47g%s|Data rip.
1|@58g%s|Per. Chiuso
[Rows]
1|CODTAB[1,5]|@2g@7,ls
1|CODTAB[6,9]|@11g@16,ls
1|CODTAB[10,12]|@21g@24,ls
1|CODTAB[13,15]|@31g@34,ls
1|D0|@35g@46d
1|D1|@47g@58d
1|B0|@65g@68f

9
ab/batbntb.rpt Executable file
View File

@ -0,0 +1,9 @@
[Headers]
80
Tabella Tipi di Bilancio
1|@3g%s|Codice
1|@10g%s|Descrizione
[Rows]
1|CODTAB|@3g@2,ls
1|S0|@10g@80,ls

19
ab/batbpdb.rpt Executable file
View File

@ -0,0 +1,19 @@
[Headers]
132
Tabella Periodi di Bilancio
1|@2g%s|Codice
1|@10g%s|Descrizione
1|@50g%s|gg/mm inizio
1|@65g%s|gg/mm fine
1|@80g%s|Num. Anni
1|@91g%s|Descrizione alternativa stampa raffr.
[Rows]
1|CODTAB|@2g@3,ls
1|S0|@10g@49,ls
1|I0|@50g@2,ls
1|I1|@55g@2,ls
1|I2|@65g@2,ls
1|I3|@70g@2,ls
1|I4|@80g@4,ls
1|S1|@91g@40,ls