Corretta gestione clifo occasionali
git-svn-id: svn://10.65.10.50/trunk@93 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
4584da5e26
commit
3067a41d90
500
cg/cg2100c.uml
500
cg/cg2100c.uml
@ -10,187 +10,187 @@ PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20
|
||||
|
||||
NUMBER F_GRUPPOCLIFO 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_CONTOCLIFO 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPORIC 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_CONTORIC 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTORIC 6
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento IVA"
|
||||
PROMPT 1 0 "@BMovimento IVA"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FGRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FGRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "DG"
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data operazione "
|
||||
FIELD LF_MOV->DATAREG
|
||||
MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER
|
||||
PROMPT 1 3 "Data operazione "
|
||||
FIELD LF_MOV->DATAREG
|
||||
MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER
|
||||
END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data competenza "
|
||||
FIELD LF_MOV->DATACOMP
|
||||
PROMPT 1 4 "Data competenza "
|
||||
FIELD LF_MOV->DATACOMP
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 5 "Data documento "
|
||||
FIELD LF_MOV->DATADOC
|
||||
HELP "Specificare la data del documento (non superiore alla data dell'operazione)"
|
||||
WARNING "Inserire una data documento non superiore alla data dell'operazione"
|
||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||
PROMPT 1 5 "Data documento "
|
||||
FIELD LF_MOV->DATADOC
|
||||
HELP "Specificare la data del documento (non superiore alla data dell'operazione)"
|
||||
WARNING "Inserire una data documento non superiore alla data dell'operazione"
|
||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||
END
|
||||
|
||||
NUMBER F_ANNOIVA 4
|
||||
BEGIN
|
||||
PROMPT 32 3 "Anno IVA "
|
||||
FIELD LF_MOV->ANNOIVA
|
||||
FLAGS "D"
|
||||
PROMPT 32 3 "Anno IVA "
|
||||
FIELD LF_MOV->ANNOIVA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 32 4 "Anno esercizio "
|
||||
FIELD LF_MOV->ANNOES
|
||||
FLAGS "DG"
|
||||
MESSAGE COPY,H_ANNOES
|
||||
PROMPT 32 4 "Anno esercizio "
|
||||
FIELD LF_MOV->ANNOES
|
||||
FLAGS "DG"
|
||||
MESSAGE COPY,H_ANNOES
|
||||
END
|
||||
|
||||
STRING F_TIPODOC 2
|
||||
BEGIN
|
||||
PROMPT 32 5 "Tipo documento "
|
||||
FIELD LF_MOV->TIPODOC
|
||||
FLAGS "D"
|
||||
PROMPT 32 5 "Tipo documento "
|
||||
FIELD LF_MOV->TIPODOC
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 57 3 "Operazione n. "
|
||||
FIELD LF_MOV->NUMREG
|
||||
FLAGS "DG"
|
||||
KEY 1
|
||||
MESSAGE COPY,H_NUMREG
|
||||
PROMPT 57 3 "Operazione n. "
|
||||
FIELD LF_MOV->NUMREG
|
||||
FLAGS "DG"
|
||||
KEY 1
|
||||
MESSAGE COPY,H_NUMREG
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 57 5 "Documento n. "
|
||||
FIELD LF_MOV->NUMDOC
|
||||
WARNING "La causale impone di specificare il numero documento"
|
||||
PROMPT 57 5 "Documento n. "
|
||||
FIELD LF_MOV->NUMDOC
|
||||
WARNING "La causale impone di specificare il numero documento"
|
||||
END
|
||||
|
||||
STRING F_DESCAGG 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Descrizione "
|
||||
FLAGS "U"
|
||||
USE %DPN
|
||||
INPUT CODTAB F_DESCAGG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESCAGG CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 1 6 "Descrizione "
|
||||
FLAGS "U"
|
||||
USE %DPN
|
||||
INPUT CODTAB F_DESCAGG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESCAGG CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 25 6 ""
|
||||
FIELD LF_MOV->DESCR
|
||||
USE %DPN KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_DESCAGG
|
||||
PROMPT 25 6 ""
|
||||
FIELD LF_MOV->DESCR
|
||||
USE %DPN KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_DESCAGG
|
||||
END
|
||||
|
||||
LIST F_PROVVISORIO 1 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Movimento provvisorio "
|
||||
FIELD PROVVIS
|
||||
ITEM " |No (movimento normale)"
|
||||
ITEM "P|Si (cancellabile)"
|
||||
ITEM "N|Si (non cancellabile)"
|
||||
PROMPT 1 7 "Movimento provvisorio "
|
||||
FIELD PROVVIS
|
||||
ITEM " |No (movimento normale)"
|
||||
ITEM "P|Si (cancellabile)"
|
||||
ITEM "N|Si (non cancellabile)"
|
||||
END
|
||||
|
||||
BOOLEAN F_SOLAIVA
|
||||
BEGIN
|
||||
PROMPT 54 7 "Movimento di sola IVA"
|
||||
PROMPT 54 7 "Movimento di sola IVA"
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Causale "
|
||||
FLAGS "U"
|
||||
FIELD LF_MOV->CODCAUS
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CODCAUS
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
OUTPUT F_CODCAUS CODCAUS
|
||||
OUTPUT F_DESCRCAUS DESCR
|
||||
OUTPUT F_CODREG REG
|
||||
OUTPUT F_TIPODOC TIPODOC
|
||||
MESSAGE COPY,H_CODCAUS
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -4
|
||||
PROMPT 1 8 "Causale "
|
||||
FLAGS "U"
|
||||
FIELD LF_MOV->CODCAUS
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CODCAUS
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
OUTPUT F_CODCAUS CODCAUS
|
||||
OUTPUT F_DESCRCAUS DESCR
|
||||
OUTPUT F_CODREG REG
|
||||
OUTPUT F_TIPODOC TIPODOC
|
||||
MESSAGE COPY,H_CODCAUS
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -4
|
||||
END
|
||||
|
||||
STRING F_DESCRCAUS 50
|
||||
BEGIN
|
||||
PROMPT 25 8 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCRCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_CODCAUS
|
||||
MESSAGE COPY,H_DESCRCAUS
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -4
|
||||
PROMPT 25 8 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCRCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_CODCAUS
|
||||
MESSAGE COPY,H_DESCRCAUS
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -4
|
||||
END
|
||||
|
||||
STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "Registro IVA "
|
||||
FLAGS "DG"
|
||||
FIELD LF_MOV->REG
|
||||
PROMPT 1 9 "Registro IVA "
|
||||
FLAGS "DG"
|
||||
FIELD LF_MOV->REG
|
||||
/*
|
||||
USE REG SELECT I0 < 3
|
||||
INPUT CODTAB[1,4] F_ANNOIVA SELECT
|
||||
@ -206,8 +206,8 @@ END
|
||||
|
||||
NUMBER F_PROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 27 9 "Protocollo IVA "
|
||||
FIELD LF_MOV->PROTIVA
|
||||
PROMPT 27 9 "Protocollo IVA "
|
||||
FIELD LF_MOV->PROTIVA
|
||||
END
|
||||
|
||||
NUMBER F_RIEPILOGO 5
|
||||
@ -244,91 +244,91 @@ BEGIN
|
||||
OUTPUT F_GRUPPORIC GRUPPORIC
|
||||
OUTPUT F_CONTORIC CONTORIC
|
||||
OUTPUT F_SOTTOCONTORIC SOTTOCRIC
|
||||
OUTPUT F_OCCASIONALE OCCAS
|
||||
OUTPUT F_CODPAG CODPAG
|
||||
OUTPUT F_STATOPAIV STATOPAIV
|
||||
OUTPUT F_PIVACLIENTE PAIV
|
||||
OUTPUT F_OCCASIONALE OCCAS
|
||||
MESSAGE COPY,F_FORNITORE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Fornitore "
|
||||
FIELD LF_MOV->CODCF
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_FORNITORE
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
OUTPUT F_CLIFO TIPOCF
|
||||
OUTPUT F_FORNITORE CODCF
|
||||
OUTPUT F_RAGSOCFORNITORE RAGSOC
|
||||
OUTPUT F_GRUPPOCLIFO GRUPPO
|
||||
OUTPUT F_CONTOCLIFO CONTO
|
||||
OUTPUT F_GRUPPORIC GRUPPORIC
|
||||
OUTPUT F_CONTORIC CONTORIC
|
||||
OUTPUT F_SOTTOCONTORIC SOTTOCRIC
|
||||
OUTPUT F_OCCASIONALE OCCAS
|
||||
OUTPUT F_CODPAG CODPAG
|
||||
OUTPUT F_STATOPAIV STATOPAIV
|
||||
OUTPUT F_PIVAFORNITORE PAIV
|
||||
MESSAGE COPY,F_CLIENTE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Fornitore "
|
||||
FIELD LF_MOV->CODCF
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_FORNITORE
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
OUTPUT F_CLIFO TIPOCF
|
||||
OUTPUT F_FORNITORE CODCF
|
||||
OUTPUT F_RAGSOCFORNITORE RAGSOC
|
||||
OUTPUT F_GRUPPOCLIFO GRUPPO
|
||||
OUTPUT F_CONTOCLIFO CONTO
|
||||
OUTPUT F_GRUPPORIC GRUPPORIC
|
||||
OUTPUT F_CONTORIC CONTORIC
|
||||
OUTPUT F_SOTTOCONTORIC SOTTOCRIC
|
||||
OUTPUT F_OCCASIONALE OCCAS
|
||||
OUTPUT F_CODPAG CODPAG
|
||||
OUTPUT F_STATOPAIV STATOPAIV
|
||||
OUTPUT F_PIVAFORNITORE PAIV
|
||||
MESSAGE COPY,F_CLIENTE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
STRING F_RAGSOCFORNITORE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_RAGSOCFORNITORE
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_FORNITORE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
STRING F_RAGSOCFORNITORE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_RAGSOCFORNITORE
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_FORNITORE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOCCLIENTE
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
STRING F_RAGSOCCLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOCCLIENTE
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
STRING F_PIVACLIENTE 14
|
||||
BEGIN
|
||||
PROMPT 1 11 "Partita IVA "
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 3
|
||||
INPUT TIPOCF "C"
|
||||
INPUT STATOPAIV F_STATOPAIV
|
||||
INPUT PAIV F_PIVACLIENTE
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
STRING F_PIVACLIENTE 14
|
||||
BEGIN
|
||||
PROMPT 1 11 "Partita IVA "
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 3
|
||||
INPUT TIPOCF "C"
|
||||
INPUT STATOPAIV F_STATOPAIV
|
||||
INPUT PAIV F_PIVACLIENTE
|
||||
DISPLAY "Partita IVA@12" PAIV
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
STRING F_PIVAFORNITORE 14
|
||||
BEGIN
|
||||
STRING F_PIVAFORNITORE 14
|
||||
BEGIN
|
||||
PROMPT 1 11 "Partita IVA "
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 3
|
||||
@ -339,10 +339,10 @@ BEGIN
|
||||
COPY OUTPUT F_FORNITORE
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
END
|
||||
|
||||
LIST F_STATOPAIV 18
|
||||
BEGIN
|
||||
LIST F_STATOPAIV 18
|
||||
BEGIN
|
||||
PROMPT 32 11 "Stato "
|
||||
HELP "Codice ISO dello stato per la partita IVA"
|
||||
ITEM " |Italia o extra CEE"
|
||||
@ -358,24 +358,23 @@ BEGIN
|
||||
ITEM "LU|Lussemburgo"
|
||||
ITEM "NL|Olanda"
|
||||
ITEM "PT|Portogallo"
|
||||
END
|
||||
END
|
||||
|
||||
BUTTON F_OCCASEDIT 20
|
||||
BEGIN
|
||||
PROMPT 34 11 "Dati anagrafici"
|
||||
BUTTON F_OCCASEDIT 18
|
||||
BEGIN
|
||||
PROMPT 32 11 "Dati anagrafici"
|
||||
FLAGS "H"
|
||||
END
|
||||
END
|
||||
|
||||
BOOLEAN F_OCCASIONALE
|
||||
BEGIN
|
||||
PROMPT 64 11 "Occasionale"
|
||||
MESSAGE FALSE HIDE,F_OCCASEDIT
|
||||
MESSAGE TRUE SHOW,F_OCCASEDIT|PUSH,F_OCCASEDIT
|
||||
BOOLEAN F_OCCASIONALE
|
||||
BEGIN
|
||||
MESSAGE FALSE HIDE,F_OCCASEDIT|ENABLE,F_PIVACLIENTE|ENABLE,F_PIVAFORNITORE|SHOW,F_STATOPAIV
|
||||
MESSAGE TRUE SHOW,F_OCCASEDIT|DISABLE,F_PIVACLIENTE|DISABLE,F_PIVAFORNITORE|HIDE,F_STATOPAIV|PUSH,F_OCCASEDIT
|
||||
FLAGS "GH"
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_CODPAG 4
|
||||
BEGIN
|
||||
STRING F_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 61 11 "Pagamento "
|
||||
USE %CPG
|
||||
INPUT CODTAB F_CODPAG
|
||||
@ -383,10 +382,10 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODPAG CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 1 12 "Codice IVA "
|
||||
FLAGS "U"
|
||||
USE %IVA
|
||||
@ -397,54 +396,55 @@ BEGIN
|
||||
DISPLAY "Tipo" S1
|
||||
OUTPUT F_CODIVA CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
END
|
||||
|
||||
DATE F_DATA74TER
|
||||
BEGIN
|
||||
PROMPT 1 13 "Data 74/ter "
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD DATA74TER
|
||||
END
|
||||
|
||||
NUMBER F_TOTALE 15
|
||||
BEGIN
|
||||
NUMBER F_TOTALE 15
|
||||
BEGIN
|
||||
PROMPT 45 12 "Totale documento "
|
||||
FIELD TOTDOC
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_RITFIS 15
|
||||
BEGIN
|
||||
NUMBER F_RITFIS 15
|
||||
BEGIN
|
||||
PROMPT 45 13 "Ritenute fiscali "
|
||||
FIELD RITFIS
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_RITSOC 15
|
||||
BEGIN
|
||||
NUMBER F_RITSOC 15
|
||||
BEGIN
|
||||
PROMPT 45 14 "Ritenute sociali "
|
||||
FIELD LF_MOV->RITSOC
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_ANNORIF 4
|
||||
BEGIN
|
||||
DATE F_DATA74TER
|
||||
BEGIN
|
||||
PROMPT 1 13 "Data 74/ter "
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD DATA74TER
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_ANNORIF 4
|
||||
BEGIN
|
||||
PROMPT 1 14 "Rif.partita "
|
||||
FLAGS "A"
|
||||
HELP "Anno di riferimento partita"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIF 7
|
||||
BEGIN
|
||||
NUMBER F_NUMRIF 7
|
||||
BEGIN
|
||||
PROMPT 20 14 "/"
|
||||
HELP "Numero documento (o protocollo IVA) di riferimento"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_CORRLIRE 15
|
||||
BEGIN
|
||||
NUMBER F_CORRLIRE 15
|
||||
BEGIN
|
||||
PROMPT 1 15 "Corrispettivo Lire "
|
||||
FIELD LF_MOV->CORRLIRE
|
||||
FLAGS "R"
|
||||
@ -457,12 +457,12 @@ BEGIN
|
||||
FIELD LF_MOV->CORRVALUTA
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
|
||||
STRING F_VALUTA 3
|
||||
BEGIN
|
||||
STRING F_VALUTA 3
|
||||
BEGIN
|
||||
PROMPT 1 16 "Valuta "
|
||||
FIELD LF_MOV->CODVAL
|
||||
FLAGS "U"
|
||||
@ -476,64 +476,64 @@ BEGIN
|
||||
OUTPUT F_VALUTA CODTAB
|
||||
OUTPUT F_CAMBIO R10
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 15 5
|
||||
BEGIN
|
||||
NUMBER F_CAMBIO 15 5
|
||||
BEGIN
|
||||
PROMPT 20 16 "Cambio "
|
||||
FIELD LF_MOV->CAMBIO
|
||||
FLAGS "RU"
|
||||
GROUP 3
|
||||
PICTURE ".5"
|
||||
END
|
||||
END
|
||||
|
||||
BOOLEAN F_VISVAL
|
||||
BEGIN
|
||||
BOOLEAN F_VISVAL
|
||||
BEGIN
|
||||
PROMPT 47 16 "Visualizza importi in valuta"
|
||||
GROUP 3
|
||||
END
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDPAGE
|
||||
|
||||
PAGE "IVA" -1 -1 77 20
|
||||
PAGE "IVA" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento IVA - Sezione IVA"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER H_NUMREG 6
|
||||
BEGIN
|
||||
NUMBER H_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Operazione n. "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
DATE H_DATAREG
|
||||
BEGIN
|
||||
DATE H_DATAREG
|
||||
BEGIN
|
||||
PROMPT 32 1 "Data "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER H_ANNOES 4
|
||||
BEGIN
|
||||
NUMBER H_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 61 1 "Esercizio "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
STRING H_CODCAUS 3
|
||||
BEGIN
|
||||
STRING H_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Causale "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
STRING H_DESCRCAUS 50
|
||||
BEGIN
|
||||
STRING H_DESCRCAUS 50
|
||||
BEGIN
|
||||
PROMPT 25 2 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETIVA 0 7
|
||||
BEGIN
|
||||
SPREADSHEET F_SHEETIVA 0 7
|
||||
BEGIN
|
||||
PROMPT 3 4 ""
|
||||
ITEM "Imponibile@14"
|
||||
ITEM "Iva@4"
|
||||
@ -545,11 +545,11 @@ BEGIN
|
||||
ITEM "Co."
|
||||
ITEM "Sottoc."
|
||||
ITEM "Descrizione Conto@50"
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
SPREADSHEET F_SHEETCG
|
||||
BEGIN
|
||||
SPREADSHEET F_SHEETCG
|
||||
BEGIN
|
||||
PROMPT 3 11 ""
|
||||
ITEM "Dare@17"
|
||||
ITEM "Avere@17"
|
||||
@ -566,11 +566,11 @@ BEGIN
|
||||
ITEM "Sottoc./c"
|
||||
ITEM "Descrizione contropartita@50"
|
||||
ITEM " @1"
|
||||
END
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
ENDMASK
|
||||
|
||||
#include "cg21iva.uml"
|
||||
#include "cg21cg.uml"
|
||||
|
||||
@ -11,7 +11,6 @@ BEGIN
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT O_CODICE CFPI
|
||||
OUTPUT O_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Codice obbligatorio"
|
||||
HELP "Codice fiscale o Partita IVA o altro codice che identifichi univocamente la persona"
|
||||
FIELD CFPI
|
||||
@ -27,7 +26,6 @@ BEGIN
|
||||
DISPLAY "Codice@16" CFPI
|
||||
OUTPUT O_CODICE CFPI
|
||||
OUTPUT O_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Ragione sociale o Nome della persona"
|
||||
WARNING "Ragione sociale obbligatoria"
|
||||
END
|
||||
@ -151,12 +149,7 @@ END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "Conferma"
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 "Annulla"
|
||||
PROMPT -11 -1 "Conferma"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -838,11 +838,19 @@ bool TPrimanota_application::occas_code_handler(TMask_field& f, KEY key)
|
||||
if (occas.read() == NOERR)
|
||||
{
|
||||
f.mask().autoload(&occas);
|
||||
f.mask().send_key(K_TAB, O_COMUNE);
|
||||
f.mask().send_key(K_TAB, O_COMUNE); // Forza decodifica comuni
|
||||
f.mask().send_key(K_TAB, O_COMUNENAS);
|
||||
}
|
||||
}
|
||||
}
|
||||
} else
|
||||
if (key == K_ENTER)
|
||||
{
|
||||
const TFixed_string codice(f.get());
|
||||
if (codice.not_empty())
|
||||
app().mask().set(app().iva() == iva_vendite ? F_PIVACLIENTE : F_PIVAFORNITORE, codice);
|
||||
else
|
||||
return f.error_box("Il codice e' obbligatorio");
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -852,6 +860,7 @@ bool TPrimanota_application::occas_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
TMask& om = app().occas_mask();
|
||||
om.run();
|
||||
f.set_focus();
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
@ -872,7 +881,6 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
|
||||
TConto bill; _causale.bill(1, bill);
|
||||
gruppo = bill.gruppo(); m.set(F_GRUPPOCLIFO, gruppo);
|
||||
conto = bill.conto(); m.set(F_CONTOCLIFO, conto);
|
||||
codice = bill.sottoconto(); m.set(tipo == 'F' ? F_FORNITORE : F_CLIENTE, codice);
|
||||
}
|
||||
|
||||
if (tipo == 'C' && causale().reg().corrispettivi())
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user