Patch level : 12.0 324
Files correlati : np0.exe np0300a.uml np0400a.uml np0500a.uml np0600a.uml np0600b.uml npmenu.men Aggiornato tutto il modulo Contabilità Separata. Le modifiche di contabilità sono sui define per NP e non necessitano di patch. I programmi cg1 e cg3 si compilano correttamente. git-svn-id: svn://10.65.10.50/branches/R_10_00@23506 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi
parent
e171b2fd7d
commit
58380389b6
@ -786,7 +786,7 @@ void TListaMov_application::set_page(int file, int count)
|
|||||||
set_row (_n, FR("@75gdoc. @7s"),FLD(LF_MOV,MOV_NUMDOC));
|
set_row (_n, FR("@75gdoc. @7s"),FLD(LF_MOV,MOV_NUMDOC));
|
||||||
set_row (_n, FR("@88gdel@92g@d"), FLD(LF_MOV,MOV_DATADOC));
|
set_row (_n, FR("@88gdel@92g@d"), FLD(LF_MOV,MOV_DATADOC));
|
||||||
#ifdef CONT_SEP
|
#ifdef CONT_SEP
|
||||||
set_row (_n, "@37g@36s", &_descr_cs);
|
set_row (++_n, "@37g#-36t", &_descr_cs);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
current_cursor()->curr(LF_MOV).get_int(MOV_ANNOES); // qui verificare
|
current_cursor()->curr(LF_MOV).get_int(MOV_ANNOES); // qui verificare
|
||||||
@ -2077,9 +2077,8 @@ bool TListaMov_application::set_print(int)
|
|||||||
switch(toupper(_tipoc))
|
switch(toupper(_tipoc))
|
||||||
{
|
{
|
||||||
case 'C':
|
case 'C':
|
||||||
masc = "cg3100b";
|
|
||||||
#ifdef CONT_SEP
|
#ifdef CONT_SEP
|
||||||
masc = "cg0600b";
|
masc = "np0600b";
|
||||||
#else
|
#else
|
||||||
masc = "cg3100b";
|
masc = "cg3100b";
|
||||||
#endif
|
#endif
|
||||||
@ -2088,12 +2087,10 @@ bool TListaMov_application::set_print(int)
|
|||||||
case 'M':
|
case 'M':
|
||||||
default :
|
default :
|
||||||
#ifdef CONT_SEP
|
#ifdef CONT_SEP
|
||||||
masc = "cg0600a";
|
masc = "np0600a";
|
||||||
#else
|
#else
|
||||||
masc = "cg3100a";
|
masc = "cg3100a";
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
masc = "cg3100a";
|
|
||||||
_tipo_lista = movimenti;
|
_tipo_lista = movimenti;
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|||||||
@ -1,231 +1,231 @@
|
|||||||
#include "cg3100.h"
|
#include "cg3100.h"
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
#include <printbar.h>
|
#include <printbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
#ifdef CONT_SEP
|
#ifdef CONT_SEP
|
||||||
PAGE "Lista Movimenti Contabilità separata" 0 2 0 0
|
PAGE "Lista Movimenti Contabilità separata" 0 2 0 0
|
||||||
#else
|
#else
|
||||||
PAGE "Lista Movimenti" 0 2 0 0
|
PAGE "Lista Movimenti" 0 2 0 0
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Ditta "
|
PROMPT 2 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ragione sociale "
|
PROMPT 2 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASTAMPA
|
DATE F_DATASTAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 48 1 "Data stampa "
|
PROMPT 48 1 "Data stampa "
|
||||||
HELP "Data in cui viene effettuata la stampa"
|
HELP "Data in cui viene effettuata la stampa"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 3
|
GROUP 3
|
||||||
PROMPT 2 3 "Codice esercizio "
|
PROMPT 2 3 "Codice esercizio "
|
||||||
HELP "Codice esercizio per cui si vuole la lista"
|
HELP "Codice esercizio per cui si vuole la lista"
|
||||||
USE ESC
|
USE ESC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB F_ANNO
|
INPUT CODTAB F_ANNO
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Data inizio esercizio" D0
|
DISPLAY "Data inizio esercizio" D0
|
||||||
DISPLAY "Data fine esercizio" D1
|
DISPLAY "Data fine esercizio" D1
|
||||||
OUTPUT F_ANNO CODTAB
|
OUTPUT F_ANNO CODTAB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
ADD RUN cg0 -5 esc
|
ADD RUN cg0 -5 esc
|
||||||
END
|
END
|
||||||
|
|
||||||
RADIOBUTTON F_MOVIMENTI 41
|
RADIOBUTTON F_MOVIMENTI 41
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 3 "Scelta stampa "
|
PROMPT 30 3 "Scelta stampa "
|
||||||
HELP "Indicare il tipo di stampa"
|
HELP "Indicare il tipo di stampa"
|
||||||
ITEM "0|Lista movimenti"
|
ITEM "0|Lista movimenti"
|
||||||
MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@
|
MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@
|
||||||
ITEM "1|Lista movimenti di sola prima nota"
|
ITEM "1|Lista movimenti di sola prima nota"
|
||||||
MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA
|
MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
LIST F_CONTROLLO 23
|
LIST F_CONTROLLO 23
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Controllo movimenti errati "
|
PROMPT 2 7 "Controllo movimenti errati "
|
||||||
HELP "Indicare il tipo di controllo per movimenti errati"
|
HELP "Indicare il tipo di controllo per movimenti errati"
|
||||||
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA
|
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA
|
||||||
ITEM "2|Si" MESSAGE SHOW,1@
|
ITEM "2|Si" MESSAGE SHOW,1@
|
||||||
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 2 8 "Stampa messaggi : "
|
PROMPT 2 8 "Stampa messaggi : "
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ANNOC
|
BOOLEAN F_ANNOC
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 20 8 "Anno di competenza "
|
PROMPT 20 8 "Anno di competenza "
|
||||||
HELP "Indicare se stampa l'anno di competenza"
|
HELP "Indicare se stampa l'anno di competenza"
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ALLEGATO
|
BOOLEAN F_ALLEGATO
|
||||||
BEGIN
|
BEGIN
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PROMPT 44 8 "Allegato iva "
|
PROMPT 44 8 "Allegato iva "
|
||||||
HELP "Indicare se stampare l'allegato IVA"
|
HELP "Indicare se stampare l'allegato IVA"
|
||||||
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
||||||
MESSAGE FALSE ENABLE,F_STAMPA
|
MESSAGE FALSE ENABLE,F_STAMPA
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_COMPETENZA
|
BOOLEAN F_COMPETENZA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Stampa i soli movimenti con competenza nell'esercizio precedente"
|
PROMPT 2 9 "Stampa i soli movimenti con competenza nell'esercizio precedente"
|
||||||
END
|
END
|
||||||
|
|
||||||
RADIOBUTTON F_DECIDI 12
|
RADIOBUTTON F_DECIDI 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Stampa "
|
PROMPT 2 10 "Stampa "
|
||||||
HELP "Indicare il criterio di scelta dei movimenti"
|
HELP "Indicare il criterio di scelta dei movimenti"
|
||||||
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
||||||
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAINI
|
DATE F_DATAINI
|
||||||
BEGIN
|
BEGIN
|
||||||
HELP "Data da cui iniziare la stampa"
|
HELP "Data da cui iniziare la stampa"
|
||||||
PROMPT 16 11 "Stampa mov. dalla data "
|
PROMPT 16 11 "Stampa mov. dalla data "
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAFIN
|
DATE F_DATAFIN
|
||||||
BEGIN
|
BEGIN
|
||||||
HELP "Data fino a cui stampare i movimenti"
|
HELP "Data fino a cui stampare i movimenti"
|
||||||
PROMPT 52 11 "alla data "
|
PROMPT 52 11 "alla data "
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NUMEROINI 7
|
NUMBER F_NUMEROINI 7
|
||||||
BEGIN
|
BEGIN
|
||||||
HELP "Numero del movimento da cui iniziare la stampa"
|
HELP "Numero del movimento da cui iniziare la stampa"
|
||||||
PROMPT 16 12 "Stampa mov. dal numero "
|
PROMPT 16 12 "Stampa mov. dal numero "
|
||||||
USE LF_MOV KEY 1
|
USE LF_MOV KEY 1
|
||||||
INPUT NUMREG F_NUMEROINI
|
INPUT NUMREG F_NUMEROINI
|
||||||
DISPLAY "Numero@7" NUMREG
|
DISPLAY "Numero@7" NUMREG
|
||||||
DISPLAY "Data@10" DATAREG
|
DISPLAY "Data@10" DATAREG
|
||||||
DISPLAY "Causale" CODCAUS
|
DISPLAY "Causale" CODCAUS
|
||||||
DISPLAY "Documento" NUMDOC
|
DISPLAY "Documento" NUMDOC
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_NUMEROINI NUMREG
|
OUTPUT F_NUMEROINI NUMREG
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_NUMEROFIN 7
|
NUMBER F_NUMEROFIN 7
|
||||||
BEGIN
|
BEGIN
|
||||||
HELP "Numero del movimenti fino cui fare la stampa"
|
HELP "Numero del movimenti fino cui fare la stampa"
|
||||||
PROMPT 52 12 "al numero "
|
PROMPT 52 12 "al numero "
|
||||||
COPY USE F_NUMEROINI
|
COPY USE F_NUMEROINI
|
||||||
INPUT NUMREG F_NUMEROFIN
|
INPUT NUMREG F_NUMEROFIN
|
||||||
COPY DISPLAY F_NUMEROINI
|
COPY DISPLAY F_NUMEROINI
|
||||||
OUTPUT F_NUMEROFIN NUMREG
|
OUTPUT F_NUMEROFIN NUMREG
|
||||||
//CHECKTYPE NORMAL
|
//CHECKTYPE NORMAL
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
||||||
WARNING "Limite superiore errato"
|
WARNING "Limite superiore errato"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CAUSALEINI 3
|
STRING F_CAUSALEINI 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Stampa dalla causale "
|
PROMPT 2 14 "Stampa dalla causale "
|
||||||
USE LF_CAUSALI KEY 1
|
USE LF_CAUSALI KEY 1
|
||||||
INPUT CODCAUS F_CAUSALEINI
|
INPUT CODCAUS F_CAUSALEINI
|
||||||
DISPLAY "Codice causale" CODCAUS
|
DISPLAY "Codice causale" CODCAUS
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_CAUSALEINI CODCAUS
|
OUTPUT F_CAUSALEINI CODCAUS
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
||||||
VALIDATE ZEROFILL_FUNC 3
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CAUSALEFIN 3
|
STRING F_CAUSALEFIN 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 14 "alla causale "
|
PROMPT 40 14 "alla causale "
|
||||||
COPY USE F_CAUSALEINI
|
COPY USE F_CAUSALEINI
|
||||||
INPUT CODCAUS F_CAUSALEFIN
|
INPUT CODCAUS F_CAUSALEFIN
|
||||||
DISPLAY "Codice causale" CODCAUS
|
DISPLAY "Codice causale" CODCAUS
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_CAUSALEFIN CODCAUS
|
OUTPUT F_CAUSALEFIN CODCAUS
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
HELP "Causale di fine stampa: vuoto = fine archivio"
|
HELP "Causale di fine stampa: vuoto = fine archivio"
|
||||||
VALIDATE ZEROFILL_FUNC 3
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_REGISTROINI 3
|
STRING F_REGISTROINI 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Stampa dal registro iva "
|
PROMPT 2 15 "Stampa dal registro iva "
|
||||||
USE REG SELECT I0<"3"
|
USE REG SELECT I0<"3"
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[5,7] F_REGISTROINI
|
INPUT CODTAB[5,7] F_REGISTROINI
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
OUTPUT F_REGISTROINI CODTAB[5,7]
|
OUTPUT F_REGISTROINI CODTAB[5,7]
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
//CHECKTYPE NORMAL
|
//CHECKTYPE NORMAL
|
||||||
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
||||||
VALIDATE ZEROFILL_FUNC 3
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_REGISTROFIN 3
|
STRING F_REGISTROFIN 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 15 "al reg. iva "
|
PROMPT 40 15 "al reg. iva "
|
||||||
COPY USE F_REGISTROINI
|
COPY USE F_REGISTROINI
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[5,7] F_REGISTROFIN
|
INPUT CODTAB[5,7] F_REGISTROFIN
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
//CHECKTYPE NORMAL
|
//CHECKTYPE NORMAL
|
||||||
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
||||||
VALIDATE ZEROFILL_FUNC 3
|
VALIDATE ZEROFILL_FUNC 3
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA
|
BOOLEAN F_STAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||||
HELP "Indicare se stampare i valori degli imponibili, delle imposte e i codici IVA"
|
HELP "Indicare se stampare i valori degli imponibili, delle imposte e i codici IVA"
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_STAMPAMOVP 16
|
LIST F_STAMPAMOVP 16
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 17 "Tipo lista "
|
PROMPT 2 17 "Tipo lista "
|
||||||
ITEM "1|Normale"
|
ITEM "1|Normale"
|
||||||
ITEM "2|Globale"
|
ITEM "2|Globale"
|
||||||
ITEM "3|Solo provvisori"
|
ITEM "3|Solo provvisori"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -1,311 +1,311 @@
|
|||||||
#include "cg3100.h"
|
#include "cg3100.h"
|
||||||
|
|
||||||
TOOLBAR "topbar" 0 0 0 2
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
|
|
||||||
#include <printbar.h>
|
#include <printbar.h>
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
#ifdef CONT_SEP
|
#ifdef CONT_SEP
|
||||||
PAGE "Lista Fatture Contabilità separata" 0 2 0 0
|
PAGE "Lista Fatture Contabilità separata" 0 2 0 0
|
||||||
#else
|
#else
|
||||||
PAGE "Lista Fatture" 0 2 0 0
|
PAGE "Lista Fatture" 0 2 0 0
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Ditta "
|
PROMPT 2 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale @50" RAGSOC
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ragione sociale "
|
PROMPT 2 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASTAMPA
|
DATE F_DATASTAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 48 1 "Data stampa "
|
PROMPT 48 1 "Data stampa "
|
||||||
HELP "Data in cui viene effettuata la stampa"
|
HELP "Data in cui viene effettuata la stampa"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Codice esercizio "
|
PROMPT 2 4 "Codice esercizio "
|
||||||
HELP "Codice esercizio per cui si vuole la stampa"
|
HELP "Codice esercizio per cui si vuole la stampa"
|
||||||
USE ESC
|
USE ESC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB F_ANNO
|
INPUT CODTAB F_ANNO
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Data inizio esercizio" D0
|
DISPLAY "Data inizio esercizio" D0
|
||||||
DISPLAY "Data fine esercizio" D1
|
DISPLAY "Data fine esercizio" D1
|
||||||
OUTPUT F_ANNO CODTAB
|
OUTPUT F_ANNO CODTAB
|
||||||
FLAGS "Z"
|
FLAGS "Z"
|
||||||
ADD RUN cg0 -5 esc
|
ADD RUN cg0 -5 esc
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAINI
|
DATE F_DATAINI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 5 "Stampa movimenti dalla data "
|
PROMPT 2 5 "Stampa movimenti dalla data "
|
||||||
HELP "Data da cui iniziare la stampa"
|
HELP "Data da cui iniziare la stampa"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAFIN
|
DATE F_DATAFIN
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 45 5 "alla data "
|
PROMPT 45 5 "alla data "
|
||||||
HELP "Data fino a cui eseguire la stampa"
|
HELP "Data fino a cui eseguire la stampa"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_TIPOELENCO 9
|
LIST F_TIPOELENCO 9
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Tipo elenco "
|
PROMPT 2 6 "Tipo elenco "
|
||||||
HELP "Indicare cosa includere nella stampa"
|
HELP "Indicare cosa includere nella stampa"
|
||||||
ITEM "C|Clienti"
|
ITEM "C|Clienti"
|
||||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||||
ITEM "F|Fornitori"
|
ITEM "F|Fornitori"
|
||||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||||
ITEM "E|Entrambi"
|
ITEM "E|Entrambi"
|
||||||
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEINI 6
|
NUMBER F_CODICEINI 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Stampa dal codice "
|
PROMPT 2 7 "Stampa dal codice "
|
||||||
HELP "Indicare il codice da cui iniziare la stampa"
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE LF_CLIFO
|
USE LF_CLIFO
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT CODCF F_CODICEINI
|
INPUT CODCF F_CODICEINI
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEINI CODCF
|
OUTPUT F_CODICEINI CODCF
|
||||||
OUTPUT F_RAGSOCINI RAGSOC
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCINI 50
|
STRING F_RAGSOCINI 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 ""
|
PROMPT 2 8 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT RAGSOC F_RAGSOCINI
|
INPUT RAGSOC F_RAGSOCINI
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCINI RAGSOC
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
OUTPUT F_CODICEINI CODCF
|
OUTPUT F_CODICEINI CODCF
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEFIN 6
|
NUMBER F_CODICEFIN 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "al codice "
|
PROMPT 2 9 "al codice "
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
COPY USE F_CODICEINI
|
COPY USE F_CODICEINI
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT CODCF F_CODICEFIN
|
INPUT CODCF F_CODICEFIN
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEFIN CODCF
|
OUTPUT F_CODICEFIN CODCF
|
||||||
OUTPUT F_RAGSOCFIN RAGSOC
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
||||||
WARNING "Limite superiore errato"
|
WARNING "Limite superiore errato"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCFIN 50
|
STRING F_RAGSOCFIN 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 ""
|
PROMPT 2 10 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT RAGSOC F_RAGSOCFIN
|
INPUT RAGSOC F_RAGSOCFIN
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCFIN RAGSOC
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
OUTPUT F_CODICEFIN CODCF
|
OUTPUT F_CODICEFIN CODCF
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEINI1 6
|
NUMBER F_CODICEINI1 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Stampa dal codice "
|
PROMPT 2 7 "Stampa dal codice "
|
||||||
HELP "Indicare il codice da cui iniziare la stampa"
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
USE LF_CLIFO KEY 1
|
USE LF_CLIFO KEY 1
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
INPUT CODCF F_CODICEINI1
|
INPUT CODCF F_CODICEINI1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEINI1 CODCF
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCINI1 50
|
STRING F_RAGSOCINI1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 ""
|
PROMPT 2 8 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
INPUT RAGSOC F_RAGSOCINI1
|
INPUT RAGSOC F_RAGSOCINI1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
OUTPUT F_CODICEINI1 CODCF
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODICEFIN1 6
|
NUMBER F_CODICEFIN1 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "al codice "
|
PROMPT 2 9 "al codice "
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
COPY USE F_CODICEINI1
|
COPY USE F_CODICEINI1
|
||||||
INPUT TIPOCF "F"
|
INPUT TIPOCF "F"
|
||||||
INPUT CODCF F_CODICEFIN1
|
INPUT CODCF F_CODICEFIN1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEFIN1 CODCF
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
OUTPUT F_RAGSOCFIN1 RAGSOC
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
||||||
WARNING "Limite superiore errato"
|
WARNING "Limite superiore errato"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOCFIN1 50
|
STRING F_RAGSOCFIN1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 ""
|
PROMPT 2 10 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF "F"
|
INPUT TIPOCF "F"
|
||||||
INPUT RAGSOC F_RAGSOCFIN1
|
INPUT RAGSOC F_RAGSOCFIN1
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCFIN1 RAGSOC
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
OUTPUT F_CODICEFIN1 CODCF
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_CAMBIO
|
BOOLEAN F_CAMBIO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 "Cambio pagina per cliente/fornitore "
|
PROMPT 2 11 "Cambio pagina per cliente/fornitore "
|
||||||
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_SEPARATOR
|
BOOLEAN F_SEPARATOR
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Non stampare i separatori delle migliaia"
|
PROMPT 2 12 "Non stampare i separatori delle migliaia"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DACODCAUS 3
|
STRING F_DACODCAUS 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 "Da causale: "
|
PROMPT 2 13 "Da causale: "
|
||||||
FLAGS "ZU"
|
FLAGS "ZU"
|
||||||
USE LF_CAUSALI SELECT REG!=""
|
USE LF_CAUSALI SELECT REG!=""
|
||||||
INPUT CODCAUS F_DACODCAUS
|
INPUT CODCAUS F_DACODCAUS
|
||||||
DISPLAY "Cod." CODCAUS
|
DISPLAY "Cod." CODCAUS
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_DACODCAUS CODCAUS
|
OUTPUT F_DACODCAUS CODCAUS
|
||||||
OUTPUT F_DADESCRCAUS DESCR
|
OUTPUT F_DADESCRCAUS DESCR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
ADD RUN CG0 -4
|
ADD RUN CG0 -4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DADESCRCAUS 50
|
STRING F_DADESCRCAUS 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 22 13 ""
|
PROMPT 22 13 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_ACODCAUS 3
|
STRING F_ACODCAUS 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "A causale: "
|
PROMPT 2 14 "A causale: "
|
||||||
FLAGS "ZU"
|
FLAGS "ZU"
|
||||||
USE LF_CAUSALI SELECT REG!=""
|
USE LF_CAUSALI SELECT REG!=""
|
||||||
INPUT CODCAUS F_ACODCAUS
|
INPUT CODCAUS F_ACODCAUS
|
||||||
DISPLAY "Cod." CODCAUS
|
DISPLAY "Cod." CODCAUS
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT F_ACODCAUS CODCAUS
|
OUTPUT F_ACODCAUS CODCAUS
|
||||||
OUTPUT F_ADESCRCAUS DESCR
|
OUTPUT F_ADESCRCAUS DESCR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
ADD RUN CG0 -4
|
ADD RUN CG0 -4
|
||||||
STR_EXPR IF(#F_ACODCAUS!="",#F_ACODCAUS>=#F_DACODCAUS,1)
|
STR_EXPR IF(#F_ACODCAUS!="",#F_ACODCAUS>=#F_DACODCAUS,1)
|
||||||
WARNING "Indicare una causale valida successiva a quella iniziale"
|
WARNING "Indicare una causale valida successiva a quella iniziale"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_ADESCRCAUS 50
|
STRING F_ADESCRCAUS 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 22 14 ""
|
PROMPT 22 14 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DACODIVA 4
|
STRING F_DACODIVA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Da codice IVA "
|
PROMPT 2 15 "Da codice IVA "
|
||||||
USE %IVA KEY 1
|
USE %IVA KEY 1
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
INPUT CODTAB F_DACODIVA
|
INPUT CODTAB F_DACODIVA
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_DACODIVA CODTAB
|
OUTPUT F_DACODIVA CODTAB
|
||||||
OUTPUT F_DES_DACODIVA S0
|
OUTPUT F_DES_DACODIVA S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DES_DACODIVA 50 45
|
STRING F_DES_DACODIVA 50 45
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 15 ""
|
PROMPT 25 15 ""
|
||||||
USE %IVA KEY 2
|
USE %IVA KEY 2
|
||||||
INPUT S0 F_DES_DACODIVA
|
INPUT S0 F_DES_DACODIVA
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
COPY OUTPUT F_DACODIVA
|
COPY OUTPUT F_DACODIVA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_ACODIVA 4
|
STRING F_ACODIVA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "A codice IVA "
|
PROMPT 2 16 "A codice IVA "
|
||||||
COPY USE F_DACODIVA
|
COPY USE F_DACODIVA
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
INPUT CODTAB F_ACODIVA
|
INPUT CODTAB F_ACODIVA
|
||||||
COPY DISPLAY F_DACODIVA
|
COPY DISPLAY F_DACODIVA
|
||||||
OUTPUT F_ACODIVA CODTAB
|
OUTPUT F_ACODIVA CODTAB
|
||||||
OUTPUT F_DES_ACODIVA S0
|
OUTPUT F_DES_ACODIVA S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DES_ACODIVA 50 45
|
STRING F_DES_ACODIVA 50 45
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 16 ""
|
PROMPT 25 16 ""
|
||||||
COPY USE F_DES_DACODIVA
|
COPY USE F_DES_DACODIVA
|
||||||
INPUT S0 F_DES_ACODIVA
|
INPUT S0 F_DES_ACODIVA
|
||||||
COPY DISPLAY F_DES_DACODIVA
|
COPY DISPLAY F_DES_DACODIVA
|
||||||
COPY OUTPUT F_ACODIVA
|
COPY OUTPUT F_ACODIVA
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -24,7 +24,7 @@ END
|
|||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
#ifdef CONT_SEP
|
#ifdef CONT_SEP
|
||||||
PAGE "Mastrini cotabilità separata" 0 0 0 2
|
PAGE "Mastrini Contabilità separata" 0 0 0 2
|
||||||
#else
|
#else
|
||||||
PAGE "Mastrini" 0 0 0 2
|
PAGE "Mastrini" 0 0 0 2
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
@ -28,7 +28,7 @@ END
|
|||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
#ifdef CONT_SEP
|
#ifdef CONT_SEP
|
||||||
PAGE "Mastrini contabilità separata" 0 0 0 2
|
PAGE "Mastrini Contabilità separata" 0 0 0 2
|
||||||
#else
|
#else
|
||||||
PAGE "Mastrini" 0 0 0 2
|
PAGE "Mastrini" 0 0 0 2
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user