AlexBonazzi
1ba75cc8f2
Files correlati : cg1.exe cg2.exe cg4.exe cg5.exe np0.exe Commento : Aggiunto il conto utile IV direttiva ai parametri ditta (se non indicato vale 9 E 22) e gestito in stampa bilancio IV direttiva. Impostato il valore della riga di saldaconto all importo se non indicato. Contabilità separata letto correttamente dalla maschera il codice di contabilità separata. Non stampava il riepigolo fatture per cassa nella stampa definitiva.
327 lines
6.8 KiB
Plaintext
Executable File
327 lines
6.8 KiB
Plaintext
Executable File
#include "cg3100.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
#ifdef CONT_SEP
|
|
PAGE "Lista Fatture Contabilità separata" 0 2 0 0
|
|
#else
|
|
PAGE "Lista Fatture" 0 2 0 0
|
|
#endif
|
|
|
|
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
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 48 1 "Data stampa "
|
|
HELP "Data in cui viene effettuata la stampa"
|
|
FLAGS "A"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 4 "Codice esercizio "
|
|
HELP "Codice esercizio per cui si vuole la stampa"
|
|
USE ESC
|
|
CHECKTYPE NORMAL
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio" D1
|
|
OUTPUT F_ANNO CODTAB
|
|
FLAGS "Z"
|
|
ADD RUN cg0 -5 esc
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 5 "Stampa movimenti dalla data "
|
|
HELP "Data da cui iniziare la stampa"
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 45 5 "alla data "
|
|
HELP "Data fino a cui eseguire la stampa"
|
|
END
|
|
|
|
LIST F_TIPOELENCO 9
|
|
BEGIN
|
|
PROMPT 2 6 "Tipo elenco "
|
|
HELP "Indicare cosa includere nella stampa"
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
|
ITEM "E|Entrambi"
|
|
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
|
END
|
|
|
|
NUMBER F_CODICEINI 6
|
|
BEGIN
|
|
PROMPT 2 7 "Stampa dal codice "
|
|
HELP "Indicare il codice da cui iniziare la stampa"
|
|
GROUP 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
|
INPUT CODCF F_CODICEINI
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODICEINI CODCF
|
|
OUTPUT F_RAGSOCINI RAGSOC
|
|
FLAGS "R"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOCINI 50
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
GROUP 1
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
|
INPUT RAGSOC F_RAGSOCINI
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
OUTPUT F_RAGSOCINI RAGSOC
|
|
OUTPUT F_CODICEINI CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CODICEFIN 6
|
|
BEGIN
|
|
PROMPT 2 9 "al codice "
|
|
HELP "Indicare il codice a cui terminare la stampa"
|
|
GROUP 1
|
|
COPY USE F_CODICEINI
|
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
|
INPUT CODCF F_CODICEFIN
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODICEFIN CODCF
|
|
OUTPUT F_RAGSOCFIN RAGSOC
|
|
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
|
WARNING "Limite superiore errato"
|
|
FLAGS "R"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOCFIN 50
|
|
BEGIN
|
|
PROMPT 2 10 ""
|
|
GROUP 1
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
|
INPUT RAGSOC F_RAGSOCFIN
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
OUTPUT F_RAGSOCFIN RAGSOC
|
|
OUTPUT F_CODICEFIN CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CODICEINI1 6
|
|
BEGIN
|
|
PROMPT 2 7 "Stampa dal codice "
|
|
HELP "Indicare il codice da cui iniziare la stampa"
|
|
GROUP 2
|
|
USE LF_CLIFO KEY 1
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODICEINI1
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODICEINI1 CODCF
|
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
|
FLAGS "R"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOCINI1 50
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
GROUP 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOCINI1
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
|
OUTPUT F_CODICEINI1 CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CODICEFIN1 6
|
|
BEGIN
|
|
PROMPT 2 9 "al codice "
|
|
HELP "Indicare il codice a cui terminare la stampa"
|
|
GROUP 2
|
|
COPY USE F_CODICEINI1
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_CODICEFIN1
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODICEFIN1 CODCF
|
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
|
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
|
WARNING "Limite superiore errato"
|
|
FLAGS "R"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOCFIN1 50
|
|
BEGIN
|
|
PROMPT 2 10 ""
|
|
GROUP 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_RAGSOCFIN1
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
|
OUTPUT F_CODICEFIN1 CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BOOLEAN F_CAMBIO
|
|
BEGIN
|
|
PROMPT 2 11 "Cambio pagina per cliente/fornitore "
|
|
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
|
END
|
|
|
|
BOOLEAN F_SEPARATOR
|
|
BEGIN
|
|
PROMPT 2 12 "Non stampare i separatori delle migliaia"
|
|
END
|
|
|
|
STRING F_DACODCAUS 3
|
|
BEGIN
|
|
PROMPT 2 13 "Da causale: "
|
|
FLAGS "ZU"
|
|
USE LF_CAUSALI SELECT REG!=""
|
|
INPUT CODCAUS F_DACODCAUS
|
|
DISPLAY "Cod." CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DACODCAUS CODCAUS
|
|
OUTPUT F_DADESCRCAUS DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN CG0 -4
|
|
END
|
|
|
|
STRING F_DADESCRCAUS 50
|
|
BEGIN
|
|
PROMPT 22 13 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_ACODCAUS 3
|
|
BEGIN
|
|
PROMPT 2 14 "A causale: "
|
|
FLAGS "ZU"
|
|
USE LF_CAUSALI SELECT REG!=""
|
|
INPUT CODCAUS F_ACODCAUS
|
|
DISPLAY "Cod." CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ACODCAUS CODCAUS
|
|
OUTPUT F_ADESCRCAUS DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN CG0 -4
|
|
STR_EXPR IF(#F_ACODCAUS!="",#F_ACODCAUS>=#F_DACODCAUS,1)
|
|
WARNING "Indicare una causale valida successiva a quella iniziale"
|
|
END
|
|
|
|
STRING F_ADESCRCAUS 50
|
|
BEGIN
|
|
PROMPT 22 14 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DACODIVA 4
|
|
BEGIN
|
|
PROMPT 2 15 "Da codice IVA "
|
|
USE %IVA KEY 1
|
|
FLAGS "U"
|
|
INPUT CODTAB F_DACODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DACODIVA CODTAB
|
|
OUTPUT F_DES_DACODIVA S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DES_DACODIVA 50 45
|
|
BEGIN
|
|
PROMPT 25 15 ""
|
|
USE %IVA KEY 2
|
|
INPUT S0 F_DES_DACODIVA
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_DACODIVA
|
|
END
|
|
|
|
STRING F_ACODIVA 4
|
|
BEGIN
|
|
PROMPT 2 16 "A codice IVA "
|
|
COPY USE F_DACODIVA
|
|
FLAGS "U"
|
|
INPUT CODTAB F_ACODIVA
|
|
COPY DISPLAY F_DACODIVA
|
|
OUTPUT F_ACODIVA CODTAB
|
|
OUTPUT F_DES_ACODIVA S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DES_ACODIVA 50 45
|
|
BEGIN
|
|
PROMPT 25 16 ""
|
|
COPY USE F_DES_DACODIVA
|
|
INPUT S0 F_DES_ACODIVA
|
|
COPY DISPLAY F_DES_DACODIVA
|
|
COPY OUTPUT F_ACODIVA
|
|
END
|
|
|
|
#ifdef CONT_SEP
|
|
STRING F_CONTSEP 6
|
|
BEGIN
|
|
PROMPT 2 18 "Contabilità separata "
|
|
USE &NPENT
|
|
INPUT CODTAB F_CONTSEP
|
|
DISPLAY "Codice@6" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CONTSEP CODTAB
|
|
CHECKTYPE NORMAL
|
|
MODULE NP
|
|
END
|
|
#endif
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|