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("@88gdel@92g@d"), FLD(LF_MOV,MOV_DATADOC));
|
||||
#ifdef CONT_SEP
|
||||
set_row (_n, "@37g@36s", &_descr_cs);
|
||||
set_row (++_n, "@37g#-36t", &_descr_cs);
|
||||
#endif
|
||||
|
||||
current_cursor()->curr(LF_MOV).get_int(MOV_ANNOES); // qui verificare
|
||||
@ -2077,9 +2077,8 @@ bool TListaMov_application::set_print(int)
|
||||
switch(toupper(_tipoc))
|
||||
{
|
||||
case 'C':
|
||||
masc = "cg3100b";
|
||||
#ifdef CONT_SEP
|
||||
masc = "cg0600b";
|
||||
masc = "np0600b";
|
||||
#else
|
||||
masc = "cg3100b";
|
||||
#endif
|
||||
@ -2088,12 +2087,10 @@ bool TListaMov_application::set_print(int)
|
||||
case 'M':
|
||||
default :
|
||||
#ifdef CONT_SEP
|
||||
masc = "cg0600a";
|
||||
masc = "np0600a";
|
||||
#else
|
||||
masc = "cg3100a";
|
||||
#endif
|
||||
|
||||
masc = "cg3100a";
|
||||
_tipo_lista = movimenti;
|
||||
break;
|
||||
}
|
||||
|
||||
@ -1,231 +1,231 @@
|
||||
#include "cg3100.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <printbar.h>
|
||||
ENDPAGE
|
||||
|
||||
#include "cg3100.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <printbar.h>
|
||||
ENDPAGE
|
||||
|
||||
#ifdef CONT_SEP
|
||||
PAGE "Lista Movimenti Contabilità separata" 0 2 0 0
|
||||
#else
|
||||
PAGE "Lista Movimenti" 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
|
||||
GROUP 3
|
||||
PROMPT 2 3 "Codice esercizio "
|
||||
HELP "Codice esercizio per cui si vuole la lista"
|
||||
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 "RZ"
|
||||
ADD RUN cg0 -5 esc
|
||||
END
|
||||
|
||||
RADIOBUTTON F_MOVIMENTI 41
|
||||
BEGIN
|
||||
PROMPT 30 3 "Scelta stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "0|Lista movimenti"
|
||||
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"
|
||||
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
|
||||
|
||||
|
||||
LIST F_CONTROLLO 23
|
||||
BEGIN
|
||||
PROMPT 2 7 "Controllo movimenti errati "
|
||||
HELP "Indicare il tipo di controllo per movimenti errati"
|
||||
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA
|
||||
ITEM "2|Si" MESSAGE SHOW,1@
|
||||
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 2 8 "Stampa messaggi : "
|
||||
END
|
||||
|
||||
BOOLEAN F_ANNOC
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 8 "Anno di competenza "
|
||||
HELP "Indicare se stampa l'anno di competenza"
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGATO
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 44 8 "Allegato iva "
|
||||
HELP "Indicare se stampare l'allegato IVA"
|
||||
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
||||
MESSAGE FALSE ENABLE,F_STAMPA
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
BOOLEAN F_COMPETENZA
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa i soli movimenti con competenza nell'esercizio precedente"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_DECIDI 12
|
||||
BEGIN
|
||||
PROMPT 2 10 "Stampa "
|
||||
HELP "Indicare il criterio di scelta dei movimenti"
|
||||
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
||||
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
PROMPT 16 11 "Stampa mov. dalla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
HELP "Data fino a cui stampare i movimenti"
|
||||
PROMPT 52 11 "alla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
HELP "Numero del movimento da cui iniziare la stampa"
|
||||
PROMPT 16 12 "Stampa mov. dal numero "
|
||||
USE LF_MOV KEY 1
|
||||
INPUT NUMREG F_NUMEROINI
|
||||
DISPLAY "Numero@7" NUMREG
|
||||
DISPLAY "Data@10" DATAREG
|
||||
DISPLAY "Causale" CODCAUS
|
||||
DISPLAY "Documento" NUMDOC
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_NUMEROINI NUMREG
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
HELP "Numero del movimenti fino cui fare la stampa"
|
||||
PROMPT 52 12 "al numero "
|
||||
COPY USE F_NUMEROINI
|
||||
INPUT NUMREG F_NUMEROFIN
|
||||
COPY DISPLAY F_NUMEROINI
|
||||
OUTPUT F_NUMEROFIN NUMREG
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
||||
WARNING "Limite superiore errato"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_CAUSALEINI 3
|
||||
BEGIN
|
||||
PROMPT 2 14 "Stampa dalla causale "
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CAUSALEINI
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEINI CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_CAUSALEFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 14 "alla causale "
|
||||
COPY USE F_CAUSALEINI
|
||||
INPUT CODCAUS F_CAUSALEFIN
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEFIN CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROINI 3
|
||||
BEGIN
|
||||
PROMPT 2 15 "Stampa dal registro iva "
|
||||
USE REG SELECT I0<"3"
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_REGISTROINI
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROINI CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 15 "al reg. iva "
|
||||
COPY USE F_REGISTROINI
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_REGISTROFIN
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||
HELP "Indicare se stampare i valori degli imponibili, delle imposte e i codici IVA"
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
LIST F_STAMPAMOVP 16
|
||||
BEGIN
|
||||
PROMPT 2 17 "Tipo lista "
|
||||
ITEM "1|Normale"
|
||||
ITEM "2|Globale"
|
||||
ITEM "3|Solo provvisori"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
PAGE "Lista Movimenti Contabilità separata" 0 2 0 0
|
||||
#else
|
||||
PAGE "Lista Movimenti" 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
|
||||
GROUP 3
|
||||
PROMPT 2 3 "Codice esercizio "
|
||||
HELP "Codice esercizio per cui si vuole la lista"
|
||||
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 "RZ"
|
||||
ADD RUN cg0 -5 esc
|
||||
END
|
||||
|
||||
RADIOBUTTON F_MOVIMENTI 41
|
||||
BEGIN
|
||||
PROMPT 30 3 "Scelta stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "0|Lista movimenti"
|
||||
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"
|
||||
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
|
||||
|
||||
|
||||
LIST F_CONTROLLO 23
|
||||
BEGIN
|
||||
PROMPT 2 7 "Controllo movimenti errati "
|
||||
HELP "Indicare il tipo di controllo per movimenti errati"
|
||||
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA
|
||||
ITEM "2|Si" MESSAGE SHOW,1@
|
||||
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 2 8 "Stampa messaggi : "
|
||||
END
|
||||
|
||||
BOOLEAN F_ANNOC
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 20 8 "Anno di competenza "
|
||||
HELP "Indicare se stampa l'anno di competenza"
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
BOOLEAN F_ALLEGATO
|
||||
BEGIN
|
||||
GROUP 1
|
||||
PROMPT 44 8 "Allegato iva "
|
||||
HELP "Indicare se stampare l'allegato IVA"
|
||||
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
|
||||
MESSAGE FALSE ENABLE,F_STAMPA
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
BOOLEAN F_COMPETENZA
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa i soli movimenti con competenza nell'esercizio precedente"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_DECIDI 12
|
||||
BEGIN
|
||||
PROMPT 2 10 "Stampa "
|
||||
HELP "Indicare il criterio di scelta dei movimenti"
|
||||
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
|
||||
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
PROMPT 16 11 "Stampa mov. dalla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
HELP "Data fino a cui stampare i movimenti"
|
||||
PROMPT 52 11 "alla data "
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
HELP "Numero del movimento da cui iniziare la stampa"
|
||||
PROMPT 16 12 "Stampa mov. dal numero "
|
||||
USE LF_MOV KEY 1
|
||||
INPUT NUMREG F_NUMEROINI
|
||||
DISPLAY "Numero@7" NUMREG
|
||||
DISPLAY "Data@10" DATAREG
|
||||
DISPLAY "Causale" CODCAUS
|
||||
DISPLAY "Documento" NUMDOC
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_NUMEROINI NUMREG
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
HELP "Numero del movimenti fino cui fare la stampa"
|
||||
PROMPT 52 12 "al numero "
|
||||
COPY USE F_NUMEROINI
|
||||
INPUT NUMREG F_NUMEROFIN
|
||||
COPY DISPLAY F_NUMEROINI
|
||||
OUTPUT F_NUMEROFIN NUMREG
|
||||
//CHECKTYPE NORMAL
|
||||
FLAGS "R"
|
||||
NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
|
||||
WARNING "Limite superiore errato"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_CAUSALEINI 3
|
||||
BEGIN
|
||||
PROMPT 2 14 "Stampa dalla causale "
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CAUSALEINI
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEINI CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_CAUSALEFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 14 "alla causale "
|
||||
COPY USE F_CAUSALEINI
|
||||
INPUT CODCAUS F_CAUSALEFIN
|
||||
DISPLAY "Codice causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_CAUSALEFIN CODCAUS
|
||||
FLAGS "U"
|
||||
HELP "Causale di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROINI 3
|
||||
BEGIN
|
||||
PROMPT 2 15 "Stampa dal registro iva "
|
||||
USE REG SELECT I0<"3"
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_REGISTROINI
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROINI CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
STRING F_REGISTROFIN 3
|
||||
BEGIN
|
||||
PROMPT 40 15 "al reg. iva "
|
||||
COPY USE F_REGISTROINI
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_REGISTROFIN
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Cod. registro iva" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_REGISTROFIN CODTAB[5,7]
|
||||
FLAGS "U"
|
||||
//CHECKTYPE NORMAL
|
||||
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
|
||||
VALIDATE ZEROFILL_FUNC 3
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
|
||||
HELP "Indicare se stampare i valori degli imponibili, delle imposte e i codici IVA"
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
LIST F_STAMPAMOVP 16
|
||||
BEGIN
|
||||
PROMPT 2 17 "Tipo lista "
|
||||
ITEM "1|Normale"
|
||||
ITEM "2|Globale"
|
||||
ITEM "3|Solo provvisori"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -1,311 +1,311 @@
|
||||
#include "cg3100.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
#include <printbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
#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
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
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
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -24,7 +24,7 @@ END
|
||||
ENDPAGE
|
||||
|
||||
#ifdef CONT_SEP
|
||||
PAGE "Mastrini cotabilità separata" 0 0 0 2
|
||||
PAGE "Mastrini Contabilità separata" 0 0 0 2
|
||||
#else
|
||||
PAGE "Mastrini" 0 0 0 2
|
||||
#endif
|
||||
|
||||
@ -28,7 +28,7 @@ END
|
||||
ENDPAGE
|
||||
|
||||
#ifdef CONT_SEP
|
||||
PAGE "Mastrini contabilità separata" 0 0 0 2
|
||||
PAGE "Mastrini Contabilità separata" 0 0 0 2
|
||||
#else
|
||||
PAGE "Mastrini" 0 0 0 2
|
||||
#endif
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user