Patch level : 10.1048

Files correlati     : cg1.exe cg3.exe
Ricompilazione Demo : [ ]
Commento            :

Apertura / Chiusura a contailità separata


git-svn-id: svn://10.65.10.50/branches/R_10_00@22389 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-07-10 04:52:04 +00:00
parent 1c27aad40f
commit 3624682c0e
4 changed files with 2496 additions and 4 deletions

View File

@ -6,8 +6,11 @@ int main(int argc, char** argv)
const char op = argc < 2 ? '0' : argv[1][1];
switch (op)
{
case '1':
np0200(argc,argv); // Apertura /Chiusura
break;
default:
np0100(argc,argv);// Tabelle di modulo
np0100(argc,argv); // Tabelle di modulo
break;
}
return 0;

File diff suppressed because it is too large Load Diff

37
np/np0200.h Executable file
View File

@ -0,0 +1,37 @@
#ifndef __CG4600_H
#define __CG4600_H
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_CHIUSURA 103
#define F_APERTURA 104
#define F_DATAC 105
#define F_DATAAP 106
#define F_BILCHG 107
#define F_BILCHC 108
#define F_BILCHS 109
#define F_PROPERG 110
#define F_PROPERC 111
#define F_PROPERS 112
#define F_BILAPG 113
#define F_BILAPC 114
#define F_BILAPS 115
#define F_UTILPG 116
#define F_UTILPC 117
#define F_UTILPS 118
#define F_PERDPG 119
#define F_PERDPC 120
#define F_PERDPS 121
#define F_UTILEG 122
#define F_UTILEC 123
#define F_UTILES 124
#define F_PERDEG 125
#define F_PERDEC 126
#define F_PERDES 127
#define F_ANNO 128
#define F_ANNOCH 129
#define F_ACUTPG 130
#define F_ACUTPC 131
#define F_ACUTPS 132
#endif // __CG4600_H

363
np/np0200a.uml Normal file
View File

@ -0,0 +1,363 @@
#include "np0200.h"
TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Apertura/Chiusura conti a contabiltà separata" -1 -1 76 19
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
STRING F_CHIUSURA 3
BEGIN
PROMPT 2 4 "Codice causale chiusura "
USE LF_CAUSALI KEY 1 SELECT MOVAP="C"
INPUT CODCAUS F_CHIUSURA
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione @50" DESCR
OUTPUT F_CHIUSURA CODCAUS
CHECKTYPE REQUIRED
FLAGS "UZ"
END
STRING F_APERTURA 3
BEGIN
PROMPT 2 5 "Codice causale apertura "
USE LF_CAUSALI KEY 1 SELECT MOVAP="A"
FLAGS "UZ"
INPUT CODCAUS F_APERTURA
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_APERTURA CODCAUS
CHECKTYPE REQUIRED
END
DATE F_DATAC
BEGIN
PROMPT 36 4 "Data/Anno chiusura "
HELP "Data in cui effettuare il movimento di chiusura"
END
DATE F_DATAAP
BEGIN
PROMPT 36 5 "Data/Anno apertura "
HELP "Data in cui effettuare il movimento di apertura"
WARNING "Inserire una data non inferiore alla data di chiusura"
VALIDATE DATE_CMP_FUNC >= F_DATAC
END
NUMBER F_ANNOCH 4
BEGIN
PROMPT 69 4 ""
USE ESC
INPUT CODTAB F_ANNOCH
DISPLAY "Codice" CODTAB
DISPLAY "Inizio Es.@12" D0
DISPLAY "Fine Es.@12" D1
DISPLAY "Scarico@12" D2
OUTPUT F_ANNOCH CODTAB
OUTPUT F_DATAC D1
CHECKTYPE REQUIRED
WARNING "Codice non presente in tabella esercizi"
FLAGS "GRZD"
ADD RUN cg0 -5 esc
END
NUMBER F_ANNO 4
BEGIN
PROMPT 69 5 ""
COPY USE F_ANNOCH
INPUT CODTAB F_ANNO
COPY DISPLAY F_ANNOCH
OUTPUT F_ANNO CODTAB
OUTPUT F_DATAAP D0
CHECKTYPE REQUIRED
WARNING "Anno non presente in tabella esercizi"
FLAGS "GRZD"
ADD RUN cg0 -5 esc
END
GROUPBOX DLG_NULL 60 11
BEGIN
PROMPT 2 7 "@bCodici sottoconto"
END
NUMBER F_BILCHG 3
BEGIN
PROMPT 3 9 "Bilancio di chiusura "
HELP "Codice conto di riepilogo del bilancio di chiusura"
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione @50" DESCR
OUTPUT F_BILCHG GRUPPO
OUTPUT F_BILCHC CONTO
OUTPUT F_BILCHS SOTTOCONTO
INPUT GRUPPO F_BILCHG
INPUT CONTO F_BILCHC
INPUT SOTTOCONTO F_BILCHS
END
NUMBER F_BILCHC 3
BEGIN
PROMPT 44 9 ""
HELP "Codice conto di riepilogo del bilancio di chiusura"
COPY ALL F_BILCHG
END
NUMBER F_BILCHS 6
BEGIN
PROMPT 51 9 ""
HELP "Codice conto di riepilogo del bilancio di chiusura"
COPY ALL F_BILCHG
CHECKTYPE REQUIRED
END
NUMBER F_PROPERG 3
BEGIN
PROMPT 3 10 "Profitti e perdite "
HELP "Codice conto di riepilogo del Profitti e perdite"
COPY USE F_BILCHG
COPY DISPLAY F_BILCHG
OUTPUT F_PROPERG GRUPPO
OUTPUT F_PROPERC CONTO
OUTPUT F_PROPERS SOTTOCONTO
INPUT GRUPPO F_PROPERG
INPUT CONTO F_PROPERC
INPUT SOTTOCONTO F_PROPERS
END
NUMBER F_PROPERC 3
BEGIN
PROMPT 44 10 ""
HELP "Codice conto di riepilogo del Profitti e perdite"
COPY USE F_BILCHG
COPY DISPLAY F_BILCHG
COPY OUTPUT F_PROPERG
COPY INPUT F_PROPERG
END
NUMBER F_PROPERS 6
BEGIN
PROMPT 51 10 ""
HELP "Codice conto di riepilogo del Profitti e perdite"
COPY ALL F_PROPERC
CHECKTYPE REQUIRED
END
NUMBER F_BILAPG 3
BEGIN
PROMPT 3 11 "Bilancio di apertura "
HELP "Codice conto di riepilogo del Bilancio di apertura"
COPY USE F_BILCHG
COPY DISPLAY F_BILCHG
OUTPUT F_BILAPG GRUPPO
OUTPUT F_BILAPC CONTO
OUTPUT F_BILAPS SOTTOCONTO
INPUT GRUPPO F_BILAPG
INPUT CONTO F_BILAPC
INPUT SOTTOCONTO F_BILAPS
END
NUMBER F_BILAPC 3
BEGIN
PROMPT 44 11 ""
HELP "Codice conto di riepilogo del Bilancio di apertura"
COPY USE F_BILCHG
COPY DISPLAY F_BILCHG
COPY OUTPUT F_BILAPG
COPY INPUT F_BILAPG
END
NUMBER F_BILAPS 6
BEGIN
PROMPT 51 11 ""
HELP "Codice conto di riepilogo del Bilancio di apertura"
COPY ALL F_BILAPC
CHECKTYPE REQUIRED
END
NUMBER F_UTILPG 3
BEGIN
PROMPT 3 12 "Utile d'esercizio c/to patrim. "
HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY DISPLAY F_BILCHG
OUTPUT F_UTILPG GRUPPO
OUTPUT F_UTILPC CONTO
OUTPUT F_UTILPS SOTTOCONTO
INPUT GRUPPO F_UTILPG
INPUT CONTO F_UTILPC
INPUT SOTTOCONTO F_UTILPS
END
NUMBER F_UTILPC 3
BEGIN
PROMPT 44 12 ""
HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
COPY USE F_UTILPG
COPY DISPLAY F_BILCHG
COPY OUTPUT F_UTILPG
COPY INPUT F_UTILPG
END
NUMBER F_UTILPS 6
BEGIN
PROMPT 51 12 ""
HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
COPY ALL F_UTILPC
CHECKTYPE REQUIRED
END
NUMBER F_PERDPG 3
BEGIN
PROMPT 3 13 "Perdita d'esercizio c/to patr. "
HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY DISPLAY F_BILCHG
OUTPUT F_PERDPG GRUPPO
OUTPUT F_PERDPC CONTO
OUTPUT F_PERDPS SOTTOCONTO
INPUT GRUPPO F_PERDPG
INPUT CONTO F_PERDPC
INPUT SOTTOCONTO F_PERDPS
END
NUMBER F_PERDPC 3
BEGIN
PROMPT 44 13 ""
HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
COPY USE F_PERDPG
COPY DISPLAY F_BILCHG
COPY OUTPUT F_PERDPG
COPY INPUT F_PERDPG
END
NUMBER F_PERDPS 6
BEGIN
PROMPT 51 13 ""
HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
COPY ALL F_PERDPC
CHECKTYPE REQUIRED
END
NUMBER F_UTILEG 3
BEGIN
PROMPT 3 14 "Utile d'esercizio c/to econom. "
HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY DISPLAY F_BILCHG
OUTPUT F_UTILEG GRUPPO
OUTPUT F_UTILEC CONTO
OUTPUT F_UTILES SOTTOCONTO
INPUT GRUPPO F_UTILEG
INPUT CONTO F_UTILEC
INPUT SOTTOCONTO F_UTILES
END
NUMBER F_UTILEC 3
BEGIN
PROMPT 44 14 ""
HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
COPY USE F_UTILEG
COPY DISPLAY F_BILCHG
COPY OUTPUT F_UTILEG
COPY INPUT F_UTILEG
END
NUMBER F_UTILES 6
BEGIN
PROMPT 51 14 ""
HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
COPY ALL F_UTILEC
CHECKTYPE REQUIRED
END
NUMBER F_PERDEG 3
BEGIN
PROMPT 3 15 "Perdita d'esercizio c/to econ. "
HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY DISPLAY F_BILCHG
OUTPUT F_PERDEG GRUPPO
OUTPUT F_PERDEC CONTO
OUTPUT F_PERDES SOTTOCONTO
INPUT GRUPPO F_PERDEG
INPUT CONTO F_PERDEC
INPUT SOTTOCONTO F_PERDES
END
NUMBER F_PERDEC 3
BEGIN
PROMPT 44 15 ""
HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
COPY USE F_PERDEG
COPY DISPLAY F_BILCHG
COPY OUTPUT F_PERDEG
COPY INPUT F_PERDEG
END
NUMBER F_PERDES 6
BEGIN
PROMPT 51 15 ""
HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
COPY ALL F_PERDEC
CHECKTYPE REQUIRED
END
NUMBER F_ACUTPG 3
BEGIN
PROMPT 3 16 "Accantonamento utili "
HELP "Codice del conto patrimoniale per l'accantonamento utili"
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY DISPLAY F_BILCHG
OUTPUT F_ACUTPG GRUPPO
OUTPUT F_ACUTPC CONTO
OUTPUT F_ACUTPS SOTTOCONTO
INPUT GRUPPO F_ACUTPG
INPUT CONTO F_ACUTPC
INPUT SOTTOCONTO F_ACUTPS
END
NUMBER F_ACUTPC 3
BEGIN
PROMPT 44 16 ""
HELP "Codice del conto patrimoniale per l'accantonamento utili"
COPY USE F_UTILPG
COPY DISPLAY F_BILCHG
COPY OUTPUT F_ACUTPG
COPY INPUT F_ACUTPG
CHECKTYPE NORMAL
END
NUMBER F_ACUTPS 6
BEGIN
PROMPT 51 16 ""
HELP "Codice del conto patrimoniale per l'accantonamento utili"
COPY ALL F_ACUTPC
END
ENDPAGE
ENDMASK