AlexBonazzi
30eb2a3d00
Files correlati : cg3.exe cg3100a.msk cg3100b.msk np0.exe np0.exe np0300a.msk np0400a.msk np0500a.msk np0500b.msk np0600a.msk np0600b.msk Ricompilato cg3 e le maschere della lista movimenti per il problema Sicart. aggiuta scelta contabilità separata nei mastini della contabilità separata. Riferimento CRPA.
399 lines
7.4 KiB
Plaintext
Executable File
399 lines
7.4 KiB
Plaintext
Executable File
#include "cg3600.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -15 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_FINDREC 10 2
|
|
BEGIN
|
|
PROMPT -25 -11 "~Ricerca"
|
|
PICTURE TOOL_FINDREC
|
|
END
|
|
|
|
BUTTON DLG_CONFIG 10 2
|
|
BEGIN
|
|
PROMPT -25 -11 "Opzioni"
|
|
PICTURE TOOL_CONFIG
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
#ifdef CONT_SEP
|
|
PAGE "Mastrini Contabilità separata" 0 0 0 2
|
|
#else
|
|
PAGE "Mastrini" 0 0 0 2
|
|
#endif
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
FLAGS "DF"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 23 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 7
|
|
BEGIN
|
|
PROMPT 1 4 "@bConto del mastrino"
|
|
FLAGS "R"
|
|
END
|
|
|
|
LIST F_TIPO 10
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo "
|
|
ITEM " |Conto" MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
|
ITEM "C|Cliente" MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
|
|
ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
|
|
END
|
|
|
|
NUMBER F_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 2 6 "Gruppo "
|
|
USE LF_PCON SELECT (CONTO="")
|
|
INPUT GRUPPO F_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_DESGRUPPO DESCR
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Gruppo assente"
|
|
END
|
|
|
|
NUMBER F_CONTO 3
|
|
BEGIN
|
|
PROMPT 2 7 "Conto "
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
|
INPUT GRUPPO F_GRUPPO
|
|
INPUT CONTO F_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Tipo" TMCF
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CONTO CONTO
|
|
OUTPUT F_TIPO TMCF
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_DESCONTO DESCR
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Conto assente"
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 2 8 "Sottoconto "
|
|
USE LF_PCON SELECT (SOTTOCONTO!="")
|
|
COPY INPUT F_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_CONTO CONTO
|
|
OUTPUT F_DESSOTTOC DESCR
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Sottoconto assente"
|
|
GROUP 1 4
|
|
END
|
|
|
|
NUMBER F_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 2 8 "Cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Codice Fiscale" COFI
|
|
OUTPUT F_CLIENTE CODCF
|
|
OUTPUT F_RAGSOCCLI RAGSOC
|
|
OUTPUT F_PAIVCLI PAIV
|
|
OUTPUT F_COFICLI COFI
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Cliente assente"
|
|
GROUP 2 4
|
|
END
|
|
|
|
NUMBER F_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 2 8 "Fornitore "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_FORNITORE
|
|
COPY DISPLAY F_CLIENTE
|
|
OUTPUT F_FORNITORE CODCF
|
|
OUTPUT F_RAGSOCFOR RAGSOC
|
|
OUTPUT F_PAIVFOR PAIV
|
|
OUTPUT F_COFIFOR COFI
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Fornitore assente"
|
|
GROUP 3 4
|
|
END
|
|
|
|
STRING F_DESGRUPPO 50
|
|
BEGIN
|
|
PROMPT 23 6 ""
|
|
USE LF_PCON KEY 2 SELECT (CONTO="")
|
|
INPUT DESCR F_DESGRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo@10" GRUPPO
|
|
COPY OUTPUT F_GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Gruppo assente"
|
|
END
|
|
|
|
STRING F_DESCONTO 50
|
|
BEGIN
|
|
PROMPT 23 7 ""
|
|
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF==#F_TIPO)
|
|
INPUT DESCR F_DESCONTO
|
|
COPY DISPLAY F_DESGRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Tipo" TMCF
|
|
COPY OUTPUT F_CONTO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Conto assente"
|
|
END
|
|
|
|
STRING F_DESSOTTOC 50
|
|
BEGIN
|
|
PROMPT 23 8 ""
|
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
|
|
INPUT DESCR F_DESSOTTOC
|
|
COPY DISPLAY F_DESCONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCONTO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Sottoconto assente"
|
|
GROUP 1 4
|
|
END
|
|
|
|
STRING F_RAGSOCCLI 50
|
|
BEGIN
|
|
PROMPT 23 8 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOCCLI
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Codice Fiscale" COFI
|
|
COPY OUTPUT F_CLIENTE
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Cliente assente"
|
|
GROUP 2 4
|
|
END
|
|
|
|
STRING F_RAGSOCFOR 50
|
|
BEGIN
|
|
PROMPT 23 8 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_RAGSOCFOR
|
|
COPY DISPLAY F_RAGSOCCLI
|
|
COPY OUTPUT F_FORNITORE
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Fornitore assente"
|
|
GROUP 3 4
|
|
END
|
|
|
|
STRING F_COFICLI 16
|
|
BEGIN
|
|
PROMPT 2 9 "Codice Fiscale "
|
|
USE LF_CLIFO KEY 4
|
|
INPUT TIPOCF "C"
|
|
INPUT COFI F_COFICLI
|
|
DISPLAY "Codice Fiscale" COFI
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Partita IVA" PAIV
|
|
COPY OUTPUT F_CLIENTE
|
|
CHECKTYPE NORMAL
|
|
GROUP 2 4
|
|
END
|
|
|
|
STRING F_PAIVCLI 12
|
|
BEGIN
|
|
PROMPT 49 9 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF "C"
|
|
INPUT PAIV F_PAIVCLI
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Codice Fiscale" COFI
|
|
COPY OUTPUT F_CLIENTE
|
|
CHECKTYPE NORMAL
|
|
GROUP 2 4
|
|
END
|
|
|
|
STRING F_COFIFOR 16
|
|
BEGIN
|
|
PROMPT 2 9 "Codice Fiscale "
|
|
USE LF_CLIFO KEY 4
|
|
INPUT TIPOCF "F"
|
|
INPUT COFI F_COFIFOR
|
|
DISPLAY "Codice Fiscale" COFI
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Partita IVA" PAIV
|
|
COPY OUTPUT F_FORNITORE
|
|
CHECKTYPE NORMAL
|
|
GROUP 3 4
|
|
END
|
|
|
|
STRING F_PAIVFOR 12
|
|
BEGIN
|
|
PROMPT 49 9 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF "F"
|
|
INPUT PAIV F_PAIVFOR
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Codice Fiscale" COFI
|
|
COPY OUTPUT F_FORNITORE
|
|
CHECKTYPE NORMAL
|
|
GROUP 3 4
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 1 11 "@bPeriodo"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_ESERCIZIO 4
|
|
BEGIN
|
|
PROMPT 2 12 "Cod. esercizio "
|
|
FLAGS "Z"
|
|
USE ESC
|
|
INPUT CODTAB F_ESERCIZIO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Inizio esercizio" D0
|
|
DISPLAY "Fine esercizio" D1
|
|
OUTPUT F_ESERCIZIO CODTAB
|
|
CHECKTYPE NORMAL
|
|
ADD NONE
|
|
END
|
|
|
|
DATE F_DADATA
|
|
BEGIN
|
|
PROMPT 26 12 "Dalla data "
|
|
END
|
|
|
|
DATE F_ADATA
|
|
BEGIN
|
|
PROMPT 52 12 "Alla data "
|
|
VALIDATE DATE_CMP_FUNC >= F_DADATA
|
|
WARNING "La data finale deve essere maggiore di quella iniziale"
|
|
END
|
|
|
|
BOOLEAN F_PROVVIS
|
|
BEGIN
|
|
PROMPT 2 13 "Includi movimenti provvisori"
|
|
END
|
|
|
|
BOOLEAN F_END
|
|
BEGIN
|
|
PROMPT 40 13 "Posizionamento in fondo al mastrino"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 15 "@bCausali"
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_DACAUSALE 3
|
|
BEGIN
|
|
PROMPT 2 16 "Da causale "
|
|
FLAGS "UZ"
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_DACAUSALE
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DACAUSALE CODCAUS
|
|
OUTPUT F_DADESCAUS DESCR
|
|
STR_EXPR (#F_ACAUSALE="")||(#F_DACAUSALE<=#F_ACAUSALE)
|
|
WARNING "La causale iniziale deve precedere quella finale"
|
|
CHECKTYPE SEARCH
|
|
GROUP 5
|
|
END
|
|
|
|
STRING F_DADESCAUS 50
|
|
BEGIN
|
|
PROMPT 23 16 ""
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR F_DADESCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@10" CODCAUS
|
|
COPY OUTPUT F_DACAUSALE
|
|
CHECKTYPE SEARCH
|
|
GROUP 5
|
|
END
|
|
|
|
STRING F_ACAUSALE 3
|
|
BEGIN
|
|
PROMPT 2 17 "A causale "
|
|
FLAGS "UZ"
|
|
COPY USE F_DACAUSALE
|
|
INPUT CODCAUS F_ACAUSALE
|
|
COPY DISPLAY F_DACAUSALE
|
|
OUTPUT F_ACAUSALE CODCAUS
|
|
OUTPUT F_ADESCAUS DESCR
|
|
STR_EXPR (#F_ACAUSALE="")||(#F_ACAUSALE>=#F_DACAUSALE)
|
|
WARNING "La causale finale deve seguire quella iniziale"
|
|
CHECKTYPE SEARCH
|
|
GROUP 5
|
|
END
|
|
|
|
STRING F_ADESCAUS 50
|
|
BEGIN
|
|
PROMPT 23 17 ""
|
|
COPY USE F_DADESCAUS
|
|
INPUT DESCR F_ADESCAUS
|
|
COPY DISPLAY F_DADESCAUS
|
|
COPY OUTPUT F_ACAUSALE
|
|
CHECKTYPE SEARCH
|
|
GROUP 5
|
|
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
|