Correzioni stampa registri
git-svn-id: svn://10.65.10.50/trunk@1373 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
e89e4dfb78
commit
9d3369e983
738
cg/cg2100s.uml
738
cg/cg2100s.uml
@ -1,369 +1,369 @@
|
|||||||
#include "cg2100.h"
|
#include "cg2100.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
BUTTON DLG_OK 10 2
|
BUTTON DLG_OK 10 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -13 -1 ""
|
PROMPT -13 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_DELREC 10 2
|
BUTTON DLG_DELREC 10 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -23 -1 "~Elimina"
|
PROMPT -23 -1 "~Elimina"
|
||||||
MESSAGE EXIT,K_DEL
|
MESSAGE EXIT,K_DEL
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_CANCEL 10 2
|
BUTTON DLG_CANCEL 10 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -33 -1 ""
|
PROMPT -33 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
|
|
||||||
PAGE "Pagamento" -1 -1 77 20
|
PAGE "Pagamento" -1 -1 77 20
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 7
|
GROUPBOX DLG_NULL 78 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 "@BPartita"
|
PROMPT 1 0 "@BPartita"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_ANNO 4
|
NUMBER S_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Anno "
|
PROMPT 2 1 "Anno "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
FIELD ANNO
|
FIELD ANNO
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_NUM 7
|
STRING S_NUM 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 1 "Numero "
|
PROMPT 19 1 "Numero "
|
||||||
FLAGS "DR"
|
FLAGS "DR"
|
||||||
FIELD NUMPART
|
FIELD NUMPART
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_RIGA 4
|
STRING S_RIGA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 1 "Riga "
|
PROMPT 40 1 "Riga "
|
||||||
FLAGS "DR"
|
FLAGS "DR"
|
||||||
FIELD NRIGA
|
FIELD NRIGA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_NUMDOC 7
|
STRING S_NUMDOC 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Numero Documento "
|
PROMPT 2 2 "Numero Documento "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE S_DATADOC
|
DATE S_DATADOC
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 28 2 "Data documento "
|
PROMPT 28 2 "Data documento "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_NUMPROT 5
|
NUMBER S_NUMPROT 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 56 2 "Protocollo IVA "
|
PROMPT 56 2 "Protocollo IVA "
|
||||||
FLAGS "DR"
|
FLAGS "DR"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_DESCR 50
|
STRING S_DESCR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Descrizione "
|
PROMPT 2 3 "Descrizione "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_RATA 4
|
NUMBER S_RATA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Rata "
|
PROMPT 2 4 "Rata "
|
||||||
FLAGS "DR"
|
FLAGS "DR"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE S_DATASCAD
|
DATE S_DATASCAD
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 21 4 "Data "
|
PROMPT 21 4 "Data "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_RESIDUO 15
|
NUMBER S_RESIDUO 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 4 "Residuo "
|
PROMPT 44 4 "Residuo "
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
FLAGS "DR"
|
FLAGS "DR"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_IMPORTOVAL 15 2
|
NUMBER S_IMPORTOVAL 15 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Importo in valuta "
|
PROMPT 2 5 "Importo in valuta "
|
||||||
PICTURE ".2"
|
PICTURE ".2"
|
||||||
FLAGS "DR"
|
FLAGS "DR"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_IMPORTO 15
|
NUMBER S_IMPORTO 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 38 5 "Importo "
|
PROMPT 38 5 "Importo "
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
FLAGS "DR"
|
FLAGS "DR"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST S_SEZIONE 6
|
LIST S_SEZIONE 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 68 5 ""
|
PROMPT 68 5 ""
|
||||||
ITEM "A|Avere"
|
ITEM "A|Avere"
|
||||||
ITEM "D|Dare"
|
ITEM "D|Dare"
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 12
|
GROUPBOX DLG_NULL 78 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "@BPagamento"
|
PROMPT 1 7 "@BPagamento"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_IMPORTOPAG 15
|
NUMBER S_IMPORTOPAG 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Importo pagamento "
|
PROMPT 2 8 "Importo pagamento "
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
FIELD IMPORTO
|
FIELD IMPORTO
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
WARNING "Inserire un importo inferiore al residuo"
|
WARNING "Inserire un importo inferiore al residuo"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_RITENUTE 15
|
NUMBER S_RITENUTE 15
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 38 8 "Ritenute professionali "
|
PROMPT 38 8 "Ritenute professionali "
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
FIELD RITENUTE
|
FIELD RITENUTE
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST S_SALDOACC 1 12
|
LIST S_SALDOACC 1 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Saldo "
|
PROMPT 2 9 "Saldo "
|
||||||
ITEM "A|Acconto"
|
ITEM "A|Acconto"
|
||||||
ITEM "S|Saldo"
|
ITEM "S|Saldo"
|
||||||
FIELD SALACC
|
FIELD SALACC
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE S_DATAPAG
|
DATE S_DATAPAG
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 38 9 "Data pagamento "
|
PROMPT 38 9 "Data pagamento "
|
||||||
FIELD DATAREG
|
FIELD DATAREG
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_CODPAG 4
|
STRING S_CODPAG 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Pagamento "
|
PROMPT 2 10 "Pagamento "
|
||||||
FLAGS "UZ"
|
FLAGS "UZ"
|
||||||
USE %CPG
|
USE %CPG
|
||||||
INPUT CODTAB S_CODPAG
|
INPUT CODTAB S_CODPAG
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Tipo" I0
|
||||||
OUTPUT S_CODPAG CODTAB
|
OUTPUT S_CODPAG CODTAB
|
||||||
OUTPUT S_DESPAG S0
|
OUTPUT S_DESPAG S0
|
||||||
OUTPUT S_TIPOPAG I0
|
OUTPUT S_TIPOPAG I0
|
||||||
FIELD CODPAG
|
FIELD CODPAG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_DESPAG 50
|
STRING S_DESPAG 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 24 10 ""
|
PROMPT 24 10 ""
|
||||||
USE CPG KEY 2
|
USE CPG KEY 2
|
||||||
INPUT S0 S_DESPAG
|
INPUT S0 S_DESPAG
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Tipo" I0
|
||||||
COPY OUTPUT S_CODPAG
|
COPY OUTPUT S_CODPAG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST S_TIPOPAG 2 35
|
LIST S_TIPOPAG 2 35
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 "Tipo pagamento "
|
PROMPT 2 11 "Tipo pagamento "
|
||||||
ITEM "1|Rimessa Diretta"
|
ITEM "1|Rimessa Diretta"
|
||||||
ITEM "2|Tratta"
|
ITEM "2|Tratta"
|
||||||
ITEM "3|Ricevuta Bancaria"
|
ITEM "3|Ricevuta Bancaria"
|
||||||
ITEM "4|Cessione"
|
ITEM "4|Cessione"
|
||||||
ITEM "5|Paghero'"
|
ITEM "5|Paghero'"
|
||||||
ITEM "6|Lettera di credito"
|
ITEM "6|Lettera di credito"
|
||||||
ITEM "7|Tratta accettata"
|
ITEM "7|Tratta accettata"
|
||||||
ITEM "8|Rapporti interbancari diretti"
|
ITEM "8|Rapporti interbancari diretti"
|
||||||
ITEM "9|Bonifico"
|
ITEM "9|Bonifico"
|
||||||
ITEM "10|Altro"
|
ITEM "10|Altro"
|
||||||
FIELD TIPOPAG
|
FIELD TIPOPAG
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "@bContropartita"
|
PROMPT 2 12 "@bContropartita"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST S_TIPO 1 12
|
LIST S_TIPO 1 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Tipo "
|
PROMPT 2 12 "Tipo "
|
||||||
ITEM " |Conto"
|
ITEM " |Conto"
|
||||||
ITEM "C|Cliente"
|
ITEM "C|Cliente"
|
||||||
ITEM "F|Fornitore"
|
ITEM "F|Fornitore"
|
||||||
FIELD TIPOC
|
FIELD TIPOC
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_GRUPPO 3
|
NUMBER S_GRUPPO 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 24 12 "Gruppo "
|
PROMPT 24 12 "Gruppo "
|
||||||
FIELD GRUPPOC
|
FIELD GRUPPOC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_CONTO 3
|
NUMBER S_CONTO 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 12 "Conto "
|
PROMPT 42 12 "Conto "
|
||||||
FIELD CONTOC
|
FIELD CONTOC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_SOTTOCONTO 6
|
NUMBER S_SOTTOCONTO 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 57 12 "Sottoconto "
|
PROMPT 57 12 "Sottoconto "
|
||||||
FIELD SOTTOCONTC
|
FIELD SOTTOCONTC
|
||||||
USE LF_PCON
|
USE LF_PCON
|
||||||
INPUT GRUPPO S_GRUPPO
|
INPUT GRUPPO S_GRUPPO
|
||||||
INPUT CONTO S_CONTO
|
INPUT CONTO S_CONTO
|
||||||
INPUT SOTTOCONTO S_SOTTOCONTO
|
INPUT SOTTOCONTO S_SOTTOCONTO
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT S_GRUPPO GRUPPO
|
OUTPUT S_GRUPPO GRUPPO
|
||||||
OUTPUT S_CONTO CONTO
|
OUTPUT S_CONTO CONTO
|
||||||
OUTPUT S_SOTTOCONTO SOTTOCONTO
|
OUTPUT S_SOTTOCONTO SOTTOCONTO
|
||||||
OUTPUT S_DESCRCONTO DESCR
|
OUTPUT S_DESCRCONTO DESCR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_DESCRCONTO 50
|
STRING S_DESCRCONTO 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 "Descrizione conto "
|
PROMPT 2 13 "Descrizione conto "
|
||||||
USE LF_PCON KEY 2
|
USE LF_PCON KEY 2
|
||||||
INPUT DESCR S_DESCRCONTO
|
INPUT DESCR S_DESCRCONTO
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
COPY OUTPUT S_SOTTOCONTO
|
COPY OUTPUT S_SOTTOCONTO
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_DESCAGG 50
|
STRING S_DESCAGG 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Descrizione agg. "
|
PROMPT 2 14 "Descrizione agg. "
|
||||||
FIELD DESCR
|
FIELD DESCR
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_VSABI 5
|
NUMBER S_VSABI 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Vs. Banca ABI "
|
PROMPT 2 15 "Vs. Banca ABI "
|
||||||
FLAGS "Z"
|
FLAGS "Z"
|
||||||
USE %BAN
|
USE %BAN
|
||||||
INPUT CODTAB[1,5] S_VSABI
|
INPUT CODTAB[1,5] S_VSABI
|
||||||
INPUT CODTAB[6,10] S_VSCAB
|
INPUT CODTAB[6,10] S_VSCAB
|
||||||
DISPLAY "ABI@5" CODTAB[1,5]
|
DISPLAY "ABI@5" CODTAB[1,5]
|
||||||
DISPLAY "CAB@5" CODTAB[6,10]
|
DISPLAY "CAB@5" CODTAB[6,10]
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
OUTPUT S_VSABI CODTAB[1,5]
|
OUTPUT S_VSABI CODTAB[1,5]
|
||||||
OUTPUT S_VSCAB CODTAB[6,10]
|
OUTPUT S_VSCAB CODTAB[6,10]
|
||||||
OUTPUT S_DESCVSABI S0
|
OUTPUT S_DESCVSABI S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FIELD CODABI
|
FIELD CODABI
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_VSCAB 5
|
NUMBER S_VSCAB 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 15 "CAB "
|
PROMPT 25 15 "CAB "
|
||||||
FLAGS "Z"
|
FLAGS "Z"
|
||||||
COPY ALL S_VSABI
|
COPY ALL S_VSABI
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
FIELD CODCAB
|
FIELD CODCAB
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_DESCVSABI 50 37
|
STRING S_DESCVSABI 50 37
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 37 15 ""
|
PROMPT 37 15 ""
|
||||||
USE %BAN KEY 2
|
USE %BAN KEY 2
|
||||||
INPUT S0 S_DESCVSABI
|
INPUT S0 S_DESCVSABI
|
||||||
DISPLAY "Denominazione@50" S0
|
DISPLAY "Denominazione@50" S0
|
||||||
DISPLAY "ABI@5" CODTAB[1,5]
|
DISPLAY "ABI@5" CODTAB[1,5]
|
||||||
DISPLAY "CAB@5" CODTAB[6,10]
|
DISPLAY "CAB@5" CODTAB[6,10]
|
||||||
COPY OUTPUT S_VSABI
|
COPY OUTPUT S_VSABI
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_AGENTE 5
|
STRING S_AGENTE 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Agente "
|
PROMPT 2 16 "Agente "
|
||||||
FLAGS "UZ"
|
FLAGS "UZ"
|
||||||
USE AGE
|
USE AGE
|
||||||
INPUT CODTAB S_AGENTE
|
INPUT CODTAB S_AGENTE
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
OUTPUT S_AGENTE CODTAB
|
OUTPUT S_AGENTE CODTAB
|
||||||
OUTPUT S_DESCAGENTE S0
|
OUTPUT S_DESCAGENTE S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
FIELD CODAG
|
FIELD CODAG
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_DESCAGENTE 50
|
STRING S_DESCAGENTE 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 24 16 ""
|
PROMPT 24 16 ""
|
||||||
USE AGE KEY 2
|
USE AGE KEY 2
|
||||||
INPUT S0 S_DESCAGENTE
|
INPUT S0 S_DESCAGENTE
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
COPY OUTPUT S_AGENTE
|
COPY OUTPUT S_AGENTE
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
NUMBER S_NSABI 5
|
NUMBER S_NSABI 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 17 "Ns. Banca ABI "
|
PROMPT 2 17 "Ns. Banca ABI "
|
||||||
FLAGS "Z"
|
FLAGS "Z"
|
||||||
COPY USE S_VSABI
|
COPY USE S_VSABI
|
||||||
INPUT CODTAB[1,5] S_NSABI
|
INPUT CODTAB[1,5] S_NSABI
|
||||||
INPUT CODTAB[6,10] S_NSCAB
|
INPUT CODTAB[6,10] S_NSCAB
|
||||||
COPY DISPLAY S_VSABI
|
COPY DISPLAY S_VSABI
|
||||||
OUTPUT S_NSABI CODTAB[1,5]
|
OUTPUT S_NSABI CODTAB[1,5]
|
||||||
OUTPUT S_NSCAB CODTAB[6,10]
|
OUTPUT S_NSCAB CODTAB[6,10]
|
||||||
OUTPUT S_DESCNSABI S0
|
OUTPUT S_DESCNSABI S0
|
||||||
FIELD CODABIPR
|
FIELD CODABIPR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_NSCAB 5
|
NUMBER S_NSCAB 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 17 "CAB "
|
PROMPT 25 17 "CAB "
|
||||||
FLAGS "Z"
|
FLAGS "Z"
|
||||||
COPY ALL S_NSABI
|
COPY ALL S_NSABI
|
||||||
FIELD CODCABPR
|
FIELD CODCABPR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING S_DESCNSABI 50 37
|
STRING S_DESCNSABI 50 37
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 37 17 ""
|
PROMPT 37 17 ""
|
||||||
COPY USE S_DESCVSABI
|
COPY USE S_DESCVSABI
|
||||||
INPUT S0 S_DESCNSABI
|
INPUT S0 S_DESCNSABI
|
||||||
COPY DISPLAY S_DESCVSABI
|
COPY DISPLAY S_DESCVSABI
|
||||||
COPY OUTPUT S_NSABI
|
COPY OUTPUT S_NSABI
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
224
cg/cg4400.cpp
224
cg/cg4400.cpp
@ -131,7 +131,11 @@ bool CG4400_application::mask_tipo_stampa(TMask_field& f, KEY k)
|
|||||||
{
|
{
|
||||||
int tipo_stampa = m.get_int(TIPO_STAMPA);
|
int tipo_stampa = m.get_int(TIPO_STAMPA);
|
||||||
if (tipo_stampa == 3) //stampa su libro unico
|
if (tipo_stampa == 3) //stampa su libro unico
|
||||||
|
{
|
||||||
m.enable_page(1);
|
m.enable_page(1);
|
||||||
|
TMask_field& cc = f.mask().field(CODICE_LIB_UN);
|
||||||
|
cc.set_dirty();
|
||||||
|
}
|
||||||
else
|
else
|
||||||
m.disable_page(1);
|
m.disable_page(1);
|
||||||
}
|
}
|
||||||
@ -160,7 +164,7 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k)
|
|||||||
f.mask().hide (TIPO_RIEPILOGATIVO);
|
f.mask().hide (TIPO_RIEPILOGATIVO);
|
||||||
f.mask().hide (RIF_VID);
|
f.mask().hide (RIF_VID);
|
||||||
}
|
}
|
||||||
//TMask_field& cc = f.mask().field(CODICE_LIBRO_IVA);
|
//TMask_field& cc = f.mask().field(CODICE_LIB_UN);
|
||||||
//cc.set_dirty();
|
//cc.set_dirty();
|
||||||
}
|
}
|
||||||
if (id == FINO_A_MESE)
|
if (id == FINO_A_MESE)
|
||||||
@ -174,8 +178,8 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k)
|
|||||||
{
|
{
|
||||||
const short id = f.dlg();
|
const short id = f.dlg();
|
||||||
if (id == MESE)
|
if (id == MESE)
|
||||||
f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
|
f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -197,12 +201,16 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
|
|||||||
TDate sca_vid = _tabreg->get_date("D1");
|
TDate sca_vid = _tabreg->get_date("D1");
|
||||||
if (codlib != cod_lib_un)
|
if (codlib != cod_lib_un)
|
||||||
{
|
{
|
||||||
if (_selected[i]) message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
|
if (_selected.ones() == 1L)
|
||||||
|
if (_selected[i])
|
||||||
|
message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
if (m < *umese)
|
if (m < *umese)
|
||||||
{
|
{
|
||||||
if (_selected[i]) message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta);
|
if (_selected.ones() == 1L)
|
||||||
|
if (_selected[i])
|
||||||
|
message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta);
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
if (u_data.ok())
|
if (u_data.ok())
|
||||||
@ -212,7 +220,9 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
|
|||||||
if (sca_vid.ok())
|
if (sca_vid.ok())
|
||||||
if (sca_vid.month() < m)
|
if (sca_vid.month() < m)
|
||||||
{
|
{
|
||||||
if (_selected[i]) message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta);
|
if (_selected.ones() == 1L)
|
||||||
|
if (_selected[i])
|
||||||
|
message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta);
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -251,13 +261,16 @@ bool CG4400_application::look_regs(int anno, TString& codlib, int m, int* umese,
|
|||||||
if (sca_vid.ok())
|
if (sca_vid.ok())
|
||||||
if (sca_vid.month() < m)
|
if (sca_vid.month() < m)
|
||||||
continue;
|
continue;
|
||||||
if (u_data.ok())
|
int month;
|
||||||
if (u_data.month() < m - 1)
|
if (!u_data.ok())
|
||||||
{
|
month = 0;
|
||||||
app().set_firm(__firm);
|
else month = u_data.month();
|
||||||
*st = FALSE;
|
if (month < m - 1)
|
||||||
return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta);
|
{
|
||||||
}
|
app().set_firm(__firm);
|
||||||
|
*st = FALSE;
|
||||||
|
return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta);
|
||||||
|
}
|
||||||
ok = TRUE;
|
ok = TRUE;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -274,7 +287,13 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
|
|||||||
{
|
{
|
||||||
TString16 cod(f.mask().get(CODICE_LIBRO_IVA));
|
TString16 cod(f.mask().get(CODICE_LIBRO_IVA));
|
||||||
TString16 codlib(f.mask().get(CODICE_LIB_UN));
|
TString16 codlib(f.mask().get(CODICE_LIB_UN));
|
||||||
|
//modifica del 26/04/1995
|
||||||
|
if (codlib.empty())
|
||||||
|
{
|
||||||
|
app()._test = TRUE;
|
||||||
|
return f.error_box("Inserire il codice del libro unico");
|
||||||
|
}
|
||||||
|
//fine modifica
|
||||||
int fino_a_mese = f.mask().get_int(MESE);
|
int fino_a_mese = f.mask().get_int(MESE);
|
||||||
int anno = f.mask().get_int(ANNO);
|
int anno = f.mask().get_int(ANNO);
|
||||||
bool ok = FALSE;
|
bool ok = FALSE;
|
||||||
@ -297,11 +316,12 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
|
|||||||
{
|
{
|
||||||
//modifica del 21/04/1995 suggerita da Cinzia!!!
|
//modifica del 21/04/1995 suggerita da Cinzia!!!
|
||||||
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
|
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
|
||||||
//if (app()._selected[i]) f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
|
if (app()._selected[i])
|
||||||
f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
|
f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
|
||||||
else continue;
|
continue;
|
||||||
}
|
}
|
||||||
if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
|
//if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
|
||||||
|
if (mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no
|
||||||
{
|
{
|
||||||
app().set_firm(app().__firm);
|
app().set_firm(app().__firm);
|
||||||
can_print = FALSE;
|
can_print = FALSE;
|
||||||
@ -316,9 +336,9 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
|
|||||||
{
|
{
|
||||||
if (!can_print)
|
if (!can_print)
|
||||||
return FALSE;
|
return FALSE;
|
||||||
//if ( app()._selected[i])
|
|
||||||
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
|
if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio
|
||||||
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
|
if (app()._selected[i])
|
||||||
|
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
|
||||||
continue;
|
continue;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -339,23 +359,15 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
|
|||||||
|
|
||||||
bool CG4400_application::mask_cod (TMask_field& f, KEY k)
|
bool CG4400_application::mask_cod (TMask_field& f, KEY k)
|
||||||
{
|
{
|
||||||
TTable TabLbu ("%LBU");
|
|
||||||
TString codtab;
|
|
||||||
int anno;
|
|
||||||
|
|
||||||
if (k == K_ENTER)
|
|
||||||
{
|
|
||||||
TString16 codlib(f.get());
|
|
||||||
if (codlib.empty())
|
|
||||||
return f.warning_box("Inserire il codice del libro unico");
|
|
||||||
}
|
|
||||||
|
|
||||||
//if (k == K_TAB || f.focusdirty())
|
//if (k == K_TAB || f.focusdirty())
|
||||||
if (k == K_TAB)
|
if (k == K_TAB)
|
||||||
{
|
{
|
||||||
TString16 codlib(f.mask().get(CODICE_LIB_UN));
|
TTable TabLbu ("%LBU");
|
||||||
anno = f.mask().get_int(ANNO);
|
TString codtab;
|
||||||
|
int anno;
|
||||||
|
|
||||||
|
TString16 codlib(f.get());
|
||||||
|
anno = f.mask().get_int(ANNO);
|
||||||
TabLbu.zero();
|
TabLbu.zero();
|
||||||
codtab.format ("%04d%-3s", anno, (const char*)codlib);
|
codtab.format ("%04d%-3s", anno, (const char*)codlib);
|
||||||
TabLbu.put ("CODTAB", codtab);
|
TabLbu.put ("CODTAB", codtab);
|
||||||
@ -366,6 +378,13 @@ bool CG4400_application::mask_cod (TMask_field& f, KEY k)
|
|||||||
f.mask().set(ULTIMA_PAGINA,TabLbu.get_long("I1"));
|
f.mask().set(ULTIMA_PAGINA,TabLbu.get_long("I1"));
|
||||||
app()._codice_vidi = TabLbu.get("S4");
|
app()._codice_vidi = TabLbu.get("S4");
|
||||||
}
|
}
|
||||||
|
//modifica del 26/04/1995
|
||||||
|
if (app()._test)
|
||||||
|
{
|
||||||
|
f.mask().send_key(K_TAB, CODICE_LIBRO_IVA);
|
||||||
|
app()._test = FALSE;
|
||||||
|
}
|
||||||
|
//fine modifica
|
||||||
}
|
}
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
@ -643,16 +662,16 @@ void CG4400_application::build_nomiditte(TProgind* pnd)
|
|||||||
|
|
||||||
_nomiditte.add(d);
|
_nomiditte.add(d);
|
||||||
}
|
}
|
||||||
if (pnd) pnd->addstatus(1);
|
//if (pnd) pnd->addstatus(1);
|
||||||
//TApplication::set_firm(__firm);
|
//TApplication::set_firm(__firm);
|
||||||
}
|
}
|
||||||
|
|
||||||
bool CG4400_application::user_create()
|
bool CG4400_application::user_create()
|
||||||
{
|
{
|
||||||
TProgind* pnd = NULL;
|
//TProgind* pnd = NULL;
|
||||||
|
|
||||||
pnd = new TProgind (2,"Preparazione archivi\nPrego attendere",
|
//pnd = new TProgind (2,"Preparazione archivi\nPrego attendere",
|
||||||
FALSE, TRUE, 30);
|
// FALSE, TRUE, 30);
|
||||||
|
|
||||||
_com = new TLocalisamfile(LF_COMUNI);
|
_com = new TLocalisamfile(LF_COMUNI);
|
||||||
_anag = new TLocalisamfile(LF_ANAG);
|
_anag = new TLocalisamfile(LF_ANAG);
|
||||||
@ -684,7 +703,7 @@ bool CG4400_application::user_create()
|
|||||||
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
|
_ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte",
|
||||||
"@1|Cod.@5R|Ragione Sociale@50|Vers.");
|
"@1|Cod.@5R|Ragione Sociale@50|Vers.");
|
||||||
|
|
||||||
if (pnd) pnd->addstatus(1);
|
//if (pnd) pnd->addstatus(1);
|
||||||
|
|
||||||
_n_ditte = 0l;
|
_n_ditte = 0l;
|
||||||
__firm = TApplication::get_firm();
|
__firm = TApplication::get_firm();
|
||||||
@ -692,16 +711,14 @@ bool CG4400_application::user_create()
|
|||||||
TDate oggi(TODAY);
|
TDate oggi(TODAY);
|
||||||
_annoes = oggi.year();
|
_annoes = oggi.year();
|
||||||
|
|
||||||
build_nomiditte(pnd);
|
build_nomiditte();
|
||||||
build_ditte_sheet();
|
build_ditte_sheet();
|
||||||
|
|
||||||
//if (pnd) pnd->addstatus(1);
|
|
||||||
|
|
||||||
add_cursor(_cur);
|
add_cursor(_cur);
|
||||||
add_file(LF_MOV);
|
add_file(LF_MOV);
|
||||||
add_file(LF_RMOVIVA);
|
add_file(LF_RMOVIVA);
|
||||||
|
|
||||||
delete pnd;
|
//delete pnd;
|
||||||
|
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
@ -1165,9 +1182,9 @@ int CG4400_application::stampa_prospetto()
|
|||||||
{
|
{
|
||||||
TTipodoc& doc = (TTipodoc&)_doc_array[j];
|
TTipodoc& doc = (TTipodoc&)_doc_array[j];
|
||||||
rr = r+j;
|
rr = r+j;
|
||||||
set_row(rr, "%2s", (const char*) doc._tipodoc);
|
set_row(rr, "%2s", (const char*) doc._tipodoc);
|
||||||
set_row(rr, "@3g%s", (const char*) doc._descrdoc);
|
set_row(rr, "@3g%s", (const char*) doc._descrdoc);
|
||||||
set_row(rr, "@54g%r", &doc._totdoc);
|
set_row(rr, "@54g%r", &doc._totdoc);
|
||||||
}
|
}
|
||||||
_doc_array.destroy();
|
_doc_array.destroy();
|
||||||
}
|
}
|
||||||
@ -1861,40 +1878,6 @@ bool CG4400_application::preprocess_page(int file, int counter)
|
|||||||
|
|
||||||
_datareg = mov.get_date(MOV_DATAREG);
|
_datareg = mov.get_date(MOV_DATAREG);
|
||||||
|
|
||||||
/*
|
|
||||||
if (_tipo_stampa != 3 && _liquidazione)
|
|
||||||
{
|
|
||||||
int da;
|
|
||||||
if (_tipo_stampa == 1)
|
|
||||||
da = _data_da.month();
|
|
||||||
else da = 1;
|
|
||||||
int a = _datareg.month();
|
|
||||||
for (int m = da; m < a; m++)
|
|
||||||
{
|
|
||||||
if (!_st_liq[m])
|
|
||||||
if (stampo_liquidazione(m))
|
|
||||||
{
|
|
||||||
_datareg = format("01/%02d/%4d", m, _annoes); //serve per la preprocess_header (intestazione per la stampa liquidazione)
|
|
||||||
TFilename t;
|
|
||||||
t.temp("reg");
|
|
||||||
if (_tipo_stampa == 1)
|
|
||||||
send_message('S', t, m);
|
|
||||||
else send_message('s', t, m);
|
|
||||||
TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
|
|
||||||
if (fexist(nomef))
|
|
||||||
{
|
|
||||||
_intesta_liq = TRUE;
|
|
||||||
merge_export_file(t,FALSE,TRUE);
|
|
||||||
printer().formfeed();
|
|
||||||
_intesta_liq = FALSE;
|
|
||||||
reset_print();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
_st_liq[m] = TRUE;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
*/
|
|
||||||
|
|
||||||
if (_tipo_stampa != 3 && _liquidazione)
|
if (_tipo_stampa != 3 && _liquidazione)
|
||||||
{
|
{
|
||||||
int da;
|
int da;
|
||||||
@ -1932,10 +1915,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
|
|||||||
printer().formfeed();
|
printer().formfeed();
|
||||||
_intesta_liq = FALSE;
|
_intesta_liq = FALSE;
|
||||||
reset_print();
|
reset_print();
|
||||||
<<<<<<< cg4400.cpp
|
fremove(t);
|
||||||
=======
|
|
||||||
remove(t);
|
|
||||||
>>>>>>> 1.57
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
_st_liq[m] = TRUE;
|
_st_liq[m] = TRUE;
|
||||||
@ -2021,7 +2001,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
|
|||||||
|
|
||||||
_tipodoc = mov.get(MOV_TIPODOC);
|
_tipodoc = mov.get(MOV_TIPODOC);
|
||||||
_descr_doc = descr_doc();
|
_descr_doc = descr_doc();
|
||||||
TString app = datadoc.string(2, '/');
|
TString app(datadoc.string(brief, '/'));
|
||||||
|
|
||||||
if (stampa_totali_finali())
|
if (stampa_totali_finali())
|
||||||
_doc_array.add_riga(_tipodoc,_descr_doc,totdoc);
|
_doc_array.add_riga(_tipodoc,_descr_doc,totdoc);
|
||||||
@ -2029,7 +2009,7 @@ bool CG4400_application::preprocess_page(int file, int counter)
|
|||||||
//setto le righe di stampa
|
//setto le righe di stampa
|
||||||
_r = 1;
|
_r = 1;
|
||||||
if (!_stampa_data_reg)
|
if (!_stampa_data_reg)
|
||||||
set_row(_r, "%s", (const char*) _datareg.string(2, '/'));
|
set_row(_r, "%s", (const char* ) _datareg.string(brief, '/'));
|
||||||
set_row(_r, "@9g%5ld", protiva);
|
set_row(_r, "@9g%5ld", protiva);
|
||||||
if (datadoc.ok())
|
if (datadoc.ok())
|
||||||
set_row(_r, "@15g%s", (const char*) app);
|
set_row(_r, "@15g%s", (const char*) app);
|
||||||
@ -2437,21 +2417,28 @@ void CG4400_application::liq_b0_settato()
|
|||||||
printer().footerlen(0);
|
printer().footerlen(0);
|
||||||
merge_export_file(f,FALSE,TRUE);
|
merge_export_file(f,FALSE,TRUE);
|
||||||
_intesta_liq = FALSE;
|
_intesta_liq = FALSE;
|
||||||
<<<<<<< cg4400.cpp
|
fremove(f);
|
||||||
=======
|
|
||||||
remove(f);
|
|
||||||
>>>>>>> 1.57
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void CG4400_application::liq_other_case()
|
void CG4400_application::liq_other_case()
|
||||||
{
|
{
|
||||||
if (_scelta == prosegui_cal_stampa)
|
if (_scelta == prosegui_cal_stampa)
|
||||||
{
|
{
|
||||||
_t.temp("reg");
|
if (stampo_liquidazione(_datareg.month()))
|
||||||
if (_tipo_stampa == 1)
|
{
|
||||||
send_message('L', _t, _datareg.month());
|
_t.temp("reg");
|
||||||
else send_message('l', _t, _datareg.month());
|
if (_tipo_stampa == 1)
|
||||||
|
send_message('L', _t, _datareg.month());
|
||||||
|
else send_message('l', _t, _datareg.month());
|
||||||
|
}
|
||||||
|
else //se chiamo la liquidazione con L o l mi calcola anche i progressivi
|
||||||
|
if (_tipo_stampa != 1)
|
||||||
|
{
|
||||||
|
TFilename app;
|
||||||
|
app.temp();
|
||||||
|
send_message('C', app, _datareg.month());
|
||||||
|
}
|
||||||
}
|
}
|
||||||
if (_scelta == prosegui_stampa)
|
if (_scelta == prosegui_stampa)
|
||||||
{
|
{
|
||||||
@ -2462,11 +2449,14 @@ void CG4400_application::liq_other_case()
|
|||||||
send_message('S', _t, _datareg.month());
|
send_message('S', _t, _datareg.month());
|
||||||
else send_message('s', _t, _datareg.month());
|
else send_message('s', _t, _datareg.month());
|
||||||
}
|
}
|
||||||
TFilename app;
|
if (_tipo_stampa != 1) //in stampa di prova i progressivi me li calcolo io!!!
|
||||||
app.temp();
|
{ //Why???
|
||||||
send_message('C', app, _datareg.month());
|
TFilename app;
|
||||||
|
app.temp();
|
||||||
|
send_message('C', app, _datareg.month());
|
||||||
|
}
|
||||||
}
|
}
|
||||||
if (_scelta == no_liquidazione)
|
if (_scelta == no_liquidazione && _tipo_stampa != 1)
|
||||||
{
|
{
|
||||||
TFilename app;
|
TFilename app;
|
||||||
app.temp();
|
app.temp();
|
||||||
@ -2496,12 +2486,9 @@ print_action CG4400_application::postprocess_page (int file, int counter)
|
|||||||
printer().footerlen(0);
|
printer().footerlen(0);
|
||||||
merge_export_file(_t,FALSE,TRUE);
|
merge_export_file(_t,FALSE,TRUE);
|
||||||
_intesta_liq = FALSE;
|
_intesta_liq = FALSE;
|
||||||
<<<<<<< cg4400.cpp
|
fremove(_t);
|
||||||
=======
|
|
||||||
remove(_t);
|
|
||||||
>>>>>>> 1.57
|
|
||||||
}
|
}
|
||||||
_t = NULL;
|
//_t = NULL; Come ho potuto scrivere cio?!
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -2752,18 +2739,14 @@ void CG4400_application::no_movimenti()
|
|||||||
printer().footerlen(0);
|
printer().footerlen(0);
|
||||||
merge_export_file(f,FALSE,TRUE);
|
merge_export_file(f,FALSE,TRUE);
|
||||||
printer().formfeed();
|
printer().formfeed();
|
||||||
<<<<<<< cg4400.cpp
|
|
||||||
_intesta_liq = FALSE;
|
|
||||||
=======
|
|
||||||
_intesta_liq = FALSE;
|
_intesta_liq = FALSE;
|
||||||
remove(f);
|
fremove(f);
|
||||||
>>>>>>> 1.57
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (printer().isopen()) printer().close();
|
if (printer().isopen()) printer().close();
|
||||||
}
|
}
|
||||||
scrivi_reg(); //aggiorno il registro anche se non ho stampato proprio nulla per quel mese!
|
if (_tipo_stampa != 1) scrivi_reg(); //aggiorno il registro anche se non ho stampato proprio nulla per quel mese!
|
||||||
}
|
}
|
||||||
|
|
||||||
bool CG4400_application::stampa_registri_IVA(const TMask& m)
|
bool CG4400_application::stampa_registri_IVA(const TMask& m)
|
||||||
@ -2895,7 +2878,8 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
|
|||||||
_ok_vidi = FALSE;
|
_ok_vidi = FALSE;
|
||||||
_stampa_mese = 13;
|
_stampa_mese = 13;
|
||||||
_scelta = controlla_b0(); //sul registro non va stampata la liq. ma comunque
|
_scelta = controlla_b0(); //sul registro non va stampata la liq. ma comunque
|
||||||
//va richiamata per il calcolo progressivi (a seconda di b0)
|
//va richiamata per il calcolo progressivi (a seconda di b0)
|
||||||
|
//se non e' stampa di prova
|
||||||
ok = setta_mask(i);
|
ok = setta_mask(i);
|
||||||
if (!ok) continue;
|
if (!ok) continue;
|
||||||
|
|
||||||
@ -2936,8 +2920,8 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
|
|||||||
}
|
}
|
||||||
} //for
|
} //for
|
||||||
if (msg)
|
if (msg)
|
||||||
//if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1) ) //il messaggio seguente, nel caso di stampa su libro unico,
|
//if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1) )
|
||||||
if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1 && _selected.ones() == 1L) ) //il messaggio seguente, nel caso di stampa su libro unico,
|
if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1 && _selected.ones() == 1L) ) //il messaggio seguente, nel caso di stampa su libro unico,
|
||||||
message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", _ditta); //viene gia' dato nell'handler (che scatta pero' se il mese di
|
message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", _ditta); //viene gia' dato nell'handler (che scatta pero' se il mese di
|
||||||
} //stampa e' diverso da gennaio
|
} //stampa e' diverso da gennaio
|
||||||
}
|
}
|
||||||
@ -2961,8 +2945,8 @@ void CG4400_application::stampa_liq_mesi_succ()
|
|||||||
TFilename t;
|
TFilename t;
|
||||||
t.temp("iva");
|
t.temp("iva");
|
||||||
if (_tipo_stampa == 1)
|
if (_tipo_stampa == 1)
|
||||||
send_message('S',t, m);
|
send_message('L',t, m); //prima era S ma non andava bene!
|
||||||
else send_message('s',t,m);
|
else send_message('l',t,m); //prima era s
|
||||||
//TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
|
//TString80 nomef; nomef = t.path(); nomef << "\\" << t.name();
|
||||||
//if (fexist(nomef))
|
//if (fexist(nomef))
|
||||||
if (fexist(t))
|
if (fexist(t))
|
||||||
@ -2971,12 +2955,8 @@ void CG4400_application::stampa_liq_mesi_succ()
|
|||||||
if (m > da) printer().formfeed();
|
if (m > da) printer().formfeed();
|
||||||
printer().footerlen(0);
|
printer().footerlen(0);
|
||||||
merge_export_file(t,FALSE,TRUE);
|
merge_export_file(t,FALSE,TRUE);
|
||||||
<<<<<<< cg4400.cpp
|
|
||||||
_intesta_liq = FALSE;
|
|
||||||
=======
|
|
||||||
_intesta_liq = FALSE;
|
_intesta_liq = FALSE;
|
||||||
remove(t);
|
fremove(t);
|
||||||
>>>>>>> 1.57
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -2988,10 +2968,10 @@ void CG4400_application::send_message(char tipo, const TFilename& nome, int mese
|
|||||||
const char* app;
|
const char* app;
|
||||||
|
|
||||||
if (tipo == 'S' || tipo == 's')
|
if (tipo == 'S' || tipo == 's')
|
||||||
app = "cg4 -2 -S";
|
app = "cg4a -2 -S";
|
||||||
else if (tipo == 'C')
|
else if (tipo == 'C')
|
||||||
app = "cg4 -2 -C";
|
app = "cg4a -2 -C";
|
||||||
else app = "cg4 -2";
|
else app = "cg4a -2";
|
||||||
|
|
||||||
TToken_string ss(10);
|
TToken_string ss(10);
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user