a6bbb2800e
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 01.05 patch 282 git-svn-id: svn://10.65.10.50/trunk@8076 c028cbd2-c16b-5b4b-a496-9718f37d4682
437 lines
8.8 KiB
Plaintext
Executable File
437 lines
8.8 KiB
Plaintext
Executable File
#include "in0700a.h"
|
|
|
|
TOOLBAR "Toolbar" 0 -3 0 3
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Rettifiche INTRA" -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 "@bDitta"
|
|
END
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
FLAGS "DF"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_DITTA
|
|
OUTPUT F_DITTA_DESCR RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DITTA_DESCR 50
|
|
BEGIN
|
|
PROMPT 10 1 "Ragione Sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 8
|
|
BEGIN
|
|
PROMPT 1 3 "@bRiepilogo originale"
|
|
END
|
|
|
|
LIST O_TIPO 1 10
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo "
|
|
ITEM "C|Cessioni"
|
|
MESSAGE "C",O_TIPO_CF
|
|
ITEM "A|Acquisti"
|
|
MESSAGE "F",O_TIPO_CF
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER O_ANNO 4
|
|
BEGIN
|
|
PROMPT 21 4 "Anno "
|
|
FLAGS "AU"
|
|
FIELD ANNORETT
|
|
CHECKTYPE REQUIRED
|
|
NUM_EXPR #O_ANNO<=#O_ANNO
|
|
WARNING "Si possono rettificare solo gli anni precedenti"
|
|
END
|
|
|
|
LIST O_PERIODO_M 2 16
|
|
BEGIN
|
|
PROMPT 33 4 "Periodo "
|
|
FLAGS "AM"
|
|
FIELD PERETT
|
|
NUM_EXPR (#O_ANNO=#F_ANNO)||(#O_PERIODO_M<#F_PERIODO_M)
|
|
WARINIG "Si possono rettificare solo i periodi precedenti"
|
|
END
|
|
|
|
LIST O_PERIODO_T 2 16
|
|
BEGIN
|
|
PROMPT 33 4 "Periodo "
|
|
ITEM "01|Gennaio-Marzo"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
ITEM "02|Aprile-Giugno"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
ITEM "03|Luglio-Settembre"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
ITEM "04|Ottobre-Dicembre"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
FIELD PERETT
|
|
NUM_EXPR (#O_ANNO=#F_ANNO)||(#O_PERIODO_T<#F_PERIODO_T)
|
|
WARINIG "Si possono rettificare solo i periodi precedenti"
|
|
END
|
|
|
|
LIST O_PERIODO_A 2 16
|
|
BEGIN
|
|
PROMPT 33 4 "Periodo "
|
|
ITEM "01|Annuale"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
END
|
|
|
|
NUBER O_NUM_RIG 7
|
|
BEGIN
|
|
PROMPT 63 4 "Riga "
|
|
USE LF_RIEPRETT
|
|
INPUT TIPO O_TIPO SELECT
|
|
INPUT ANNO O_ANNO SELECT
|
|
INPUT PERIODO O_PERIODO_M
|
|
INPUT NUMRIG O_NUM_RIG
|
|
DISPLAY "Tipo" TIPO
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Periodo" PERIODO
|
|
DISPLAY "Numero" NUMRIG
|
|
DISPLAY "Stato" STATO
|
|
DISPLAY "Partita IVA" PIVA
|
|
DISPLAY "Natura" NATURA
|
|
DISPLAY "Nomenclatura" NOMENCL
|
|
DISPLAY "Consegna" CONSEGNA
|
|
DISPLAY "Trasporto" TRASPORTO
|
|
DISPLAY "Paese" PAESE
|
|
OUTPUT O_PERIODO_M PERIODO
|
|
OUTPUT O_PERIODO_T PERIODO
|
|
OUTPUT O_NUM_RIG NUMRIG
|
|
OUTPUT O_STATO STATO
|
|
OUTPUT O_PARTITA_IVA PIVA
|
|
OUTPUT O_NATURA_TRANS NATURA
|
|
OUTPUT O_NOMENCLATURA NOMENCL
|
|
OUTPUT O_AMM_LIRE AMMLIRE
|
|
OUTPUT O_VALUTA CODVAL
|
|
OUTPUT F_VALUTA CODVAL
|
|
OUTPUT O_AMM_VALUTA AMMVALUTA
|
|
OUTPUT O_VALORE_STAT VALSTAT
|
|
CHECKTYPE SEARCH
|
|
FIELD NUMRETT
|
|
END
|
|
|
|
LIST O_STATO 2 16
|
|
BEGIN
|
|
PROMPT 2 5 "Stato CEE "
|
|
ITEM "AT|Austria"
|
|
ITEM "BE|Belgio"
|
|
ITEM "DE|Germania"
|
|
ITEM "DK|Danimarca"
|
|
ITEM "EL|Grecia"
|
|
ITEM "ES|Spagna"
|
|
ITEM "FR|Francia"
|
|
ITEM "GB|Gran Bretagna"
|
|
ITEM "IE|Irlanda"
|
|
ITEM "IT|Italia"
|
|
ITEM "LU|Lussemburgo"
|
|
ITEM "NL|Olanda"
|
|
ITEM "PT|Portogallo"
|
|
ITEM "SE|Svezia"
|
|
GROUP GR_ORIGINAL
|
|
END
|
|
|
|
LIST O_TIPO_CF 1 10
|
|
BEGIN
|
|
PROMPT 33 5 ""
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING O_PARTITA_IVA 12
|
|
BEGIN
|
|
PROMPT 51 5 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF O_TIPO_CF SELECT
|
|
INPUT STATOPAIV O_STATO
|
|
INPUT PAIV O_PARTITA_IVA
|
|
DISPLAY "Stato" STATOPAIV
|
|
DISPLAY "Partita IVA@12" PAIV
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT O_STATO STATOPAIV
|
|
OUTPUT O_PARTITA_IVA PAIV
|
|
OUTPUT O_PARTITA_DESC RAGSOC
|
|
VALIDATE PI_FUNC O_STATO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Lunghezza partita IVA errata"
|
|
GROUP GR_ORIGINAL
|
|
END
|
|
|
|
STRING O_PARTITA_DESC 50
|
|
BEGIN
|
|
PROMPT 2 6 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER O_NATURA_TRANS 1
|
|
BEGIN
|
|
PROMPT 2 7 "Natura transazione "
|
|
SHEET "Cod.|Descrizione@66"
|
|
INPUT O_NATURA_TRANS
|
|
ITEM "1|Acquisto o vendita (compreso il baratto)"
|
|
ITEM "2|Restituzione o sostituzione di merci"
|
|
ITEM "3|Aiuti gernativi, privati o finanziati dalla comunita' europea"
|
|
ITEM "4|Operazione in vista di una lavorazione per conto terzi o di una riparazione"
|
|
ITEM "5|Operazione successiva ad una lavorazione per conto terzi o di una riparazione"
|
|
ITEM "6|Movimento di merci senza trasferimento di proprieta' (per noleggio, leasing operativo, ecc.)"
|
|
ITEM "7|Operazione a titolo di un programma comune di difesa o di un altro programma intergovernativo di fabbricazione coordinata"
|
|
ITEM "8|Fornitura di materiali e macchinari nel quadro di un contratto generale di costruzione o di genio civile"
|
|
ITEM "9|Altre transazioni"
|
|
OUTPUT O_NATURA_TRANS
|
|
GROUP GR_ORIGINAL
|
|
END
|
|
|
|
NUMBER O_NOMENCLATURA 8
|
|
BEGIN
|
|
PROMPT 30 7 "Nomenclatura combinata "
|
|
FLAGS "Z"
|
|
USE %NOC
|
|
INPUT CODTAB O_NOMENCLATURA
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT O_NOMENCLATURA CODTAB
|
|
CHECKTYPE REQUIRED
|
|
GROUP GR_ORIGINAL
|
|
END
|
|
|
|
CURRENCY O_AMM_LIRE 18
|
|
BEGIN
|
|
PROMPT 2 8 "Ammontare in lire "
|
|
CHECKTYPE REQUIRED
|
|
GROUP GR_ORIGINAL
|
|
END
|
|
|
|
STRING O_VALUTA 3
|
|
BEGIN
|
|
PROMPT 43 8 "in valuta "
|
|
FLAGS "D"
|
|
FIELD CODVAL
|
|
END
|
|
|
|
CURRENCY O_AMM_VALUTA 18
|
|
BEGIN
|
|
PROMPT 59 8 ""
|
|
DRIVENBY O_VALUTA
|
|
CHECKTYPE REQUIRED
|
|
GROUP GR_ORIGINAL
|
|
END
|
|
|
|
NUMBER O_VALORE_STAT 18
|
|
BEGIN
|
|
PROMPT 2 9 "Valore statistico "
|
|
PICTURE "."
|
|
GROUP GR_ORIGINAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 8
|
|
BEGIN
|
|
PROMPT 1 11 "@bRettifica"
|
|
END
|
|
|
|
LIST F_TIPO 1 10
|
|
BEGIN
|
|
PROMPT 2 12 "Tipo "
|
|
ITEM "D|Cessioni"
|
|
MESSAGE "C",F_TIPO_CF|"C",O_TIPO
|
|
ITEM "B|Acquisti"
|
|
MESSAGE "F",F_TIPO_CF|"A",O_TIPO
|
|
KEY 1
|
|
FIELD TIPO
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 21 12 "Anno "
|
|
FLAGS "AU"
|
|
KEY 1
|
|
FIELD ANNO
|
|
END
|
|
|
|
LIST F_PERIODO_M 2 16
|
|
BEGIN
|
|
PROMPT 33 12 "Periodo "
|
|
FLAGS "AM"
|
|
FIELD PERIODO
|
|
KEY 1
|
|
END
|
|
|
|
LIST F_PERIODO_T 2 16
|
|
BEGIN
|
|
PROMPT 33 12 "Periodo "
|
|
ITEM "01|Gennaio-Marzo"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
ITEM "02|Aprile-Giugno"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
ITEM "03|Luglio-Settembre"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
ITEM "04|Ottobre-Dicembre"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
FIELD PERIODO
|
|
END
|
|
|
|
LIST F_PERIODO_A 2 16
|
|
BEGIN
|
|
PROMPT 33 12 "Periodo "
|
|
ITEM "01|Annuale"
|
|
MESSAGE COPY,O_PERIODO_M
|
|
END
|
|
|
|
NUBER F_NUM_RIG 7
|
|
BEGIN
|
|
PROMPT 63 12 "Riga "
|
|
USE LF_RIEPRETT
|
|
INPUT TIPO F_TIPO SELECT
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT PERIODO F_PERIODO_M
|
|
INPUT NUMRIG F_NUM_RIG
|
|
DISPLAY "Tipo" TIPO
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Periodo" PERIODO
|
|
DISPLAY "Numero" NUMRIG
|
|
DISPLAY "Anno rett." ANNORETT
|
|
DISPLAY "Periodo rett." PERETT
|
|
DISPLAY "Numero rett." NUMRETT
|
|
OUTPUT F_PERIODO_M PERIODO
|
|
OUTPUT F_PERIODO_T PERIODO
|
|
OUTPUT F_NUM_RIG NUMRIG
|
|
CHECKTYPE REQUIRED
|
|
FIELD NUMRIG
|
|
KEY 1
|
|
END
|
|
|
|
LIST F_STATO 2 16
|
|
BEGIN
|
|
PROMPT 2 13 "Stato CEE "
|
|
ITEM "AT|Austria"
|
|
ITEM "BE|Belgio"
|
|
ITEM "DE|Germania"
|
|
ITEM "DK|Danimarca"
|
|
ITEM "EL|Grecia"
|
|
ITEM "ES|Spagna"
|
|
ITEM "FR|Francia"
|
|
ITEM "GB|Gran Bretagna"
|
|
ITEM "IE|Irlanda"
|
|
ITEM "IT|Italia"
|
|
ITEM "LU|Lussemburgo"
|
|
ITEM "NL|Olanda"
|
|
ITEM "PT|Portogallo"
|
|
ITEM "SE|Svezia"
|
|
FIELD STATO
|
|
END
|
|
|
|
LIST F_TIPO_CF 1 10
|
|
BEGIN
|
|
PROMPT 33 13 ""
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PARTITA_IVA 12
|
|
BEGIN
|
|
PROMPT 51 13 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF O_TIPO_CF SELECT
|
|
INPUT STATOPAIV O_STATO
|
|
INPUT PAIV O_PARTITA_IVA
|
|
DISPLAY "Stato" STATOPAIV
|
|
DISPLAY "Partita IVA@12" PAIV
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT O_STATO STATOPAIV
|
|
OUTPUT O_PARTITA_IVA PAIV
|
|
OUTPUT O_PARTITA_DESC RAGSOC
|
|
VALIDATE PI_FUNC O_STATO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Lunghezza partita IVA errata"
|
|
FIELD PIVA
|
|
END
|
|
|
|
STRING F_PARTITA_DESC 50
|
|
BEGIN
|
|
PROMPT 2 14 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NATURA_TRANS 1
|
|
BEGIN
|
|
PROMPT 2 15 "Natura transazione "
|
|
SHEET "Cod.|Descrizione@66"
|
|
INPUT O_NATURA_TRANS
|
|
ITEM "1|Acquisto o vendita (compreso il baratto)"
|
|
ITEM "2|Restituzione o sostituzione di merci"
|
|
ITEM "3|Aiuti gernativi, privati o finanziati dalla comunita' europea"
|
|
ITEM "4|Operazione in vista di una lavorazione per conto terzi o di una riparazione"
|
|
ITEM "5|Operazione successiva ad una lavorazione per conto terzi o di una riparazione"
|
|
ITEM "6|Movimento di merci senza trasferimento di proprieta' (per noleggio, leasing operativo, ecc.)"
|
|
ITEM "7|Operazione a titolo di un programma comune di difesa o di un altro programma intergovernativo di fabbricazione coordinata"
|
|
ITEM "8|Fornitura di materiali e macchinari nel quadro di un contratto generale di costruzione o di genio civile"
|
|
ITEM "9|Altre transazioni"
|
|
OUTPUT O_NATURA_TRANS
|
|
FIELD NATURA
|
|
END
|
|
|
|
NUMBER F_NOMENCLATURA 8
|
|
BEGIN
|
|
PROMPT 30 15 "Nomenclatura combinata "
|
|
FLAGS "Z"
|
|
USE %NOC
|
|
INPUT CODTAB O_NOMENCLATURA
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT O_NOMENCLATURA CODTAB
|
|
CHECKTYPE REQUIRED
|
|
FIELD NOMENCL
|
|
END
|
|
|
|
LIST F_SEGNO 1
|
|
BEGIN
|
|
PROMPT 68 15 "Segno "
|
|
ITEM "+|+"
|
|
ITEM "-|-"
|
|
FIELD SEGNORETT
|
|
END
|
|
|
|
CURRENCY F_AMM_LIRE 18
|
|
BEGIN
|
|
PROMPT 2 16 "Ammontare in lire "
|
|
FIELD AMMLIRE
|
|
END
|
|
|
|
STRING F_VALUTA 3
|
|
BEGIN
|
|
PROMPT 43 16 "in valuta "
|
|
FLAGS "D"
|
|
FIELD CODVAL
|
|
END
|
|
|
|
CURRENCY F_AMM_VALUTA 18
|
|
BEGIN
|
|
PROMPT 59 16 ""
|
|
DRIVENBY F_VALUTA
|
|
FIELD AMMVALUTA
|
|
END
|
|
|
|
NUMBER F_VALORE_STAT 18
|
|
BEGIN
|
|
PROMPT 2 17 "Valore statistico "
|
|
PICTURE "."
|
|
FIELD VALSTAT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|