root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretta gestione clifo occasionali

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@93 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-30 08:06:09 +00:00
parent 4584da5e26
commit 3067a41d90
3 changed files with 589 additions and 588 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

500
cg/cg2100c.uml
View File

@ -10,187 +10,187 @@ PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20
NUMBER F_GRUPPOCLIFO 3 NUMBER F_GRUPPOCLIFO 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_CONTOCLIFO 3 NUMBER F_CONTOCLIFO 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_GRUPPORIC 3 NUMBER F_GRUPPORIC 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_CONTORIC 3 NUMBER F_CONTORIC 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_SOTTOCONTORIC 6 NUMBER F_SOTTOCONTORIC 6
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "@BMovimento IVA" PROMPT 1 0 "@BMovimento IVA"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FGRD" FLAGS "FGRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "DG" FLAGS "DG"
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data operazione " PROMPT 1 3 "Data operazione "
FIELD LF_MOV->DATAREG FIELD LF_MOV->DATAREG
MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER
END END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 1 4 "Data competenza " PROMPT 1 4 "Data competenza "
FIELD LF_MOV->DATACOMP FIELD LF_MOV->DATACOMP
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 5 "Data documento " PROMPT 1 5 "Data documento "
FIELD LF_MOV->DATADOC FIELD LF_MOV->DATADOC
HELP "Specificare la data del documento (non superiore alla data dell'operazione)" HELP "Specificare la data del documento (non superiore alla data dell'operazione)"
WARNING "Inserire una data documento non superiore alla data dell'operazione" WARNING "Inserire una data documento non superiore alla data dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG VALIDATE DATE_CMP_FUNC <= F_DATAREG
END END
NUMBER F_ANNOIVA 4 NUMBER F_ANNOIVA 4
BEGIN BEGIN
PROMPT 32 3 "Anno IVA " PROMPT 32 3 "Anno IVA "
FIELD LF_MOV->ANNOIVA FIELD LF_MOV->ANNOIVA
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 32 4 "Anno esercizio " PROMPT 32 4 "Anno esercizio "
FIELD LF_MOV->ANNOES FIELD LF_MOV->ANNOES
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,H_ANNOES MESSAGE COPY,H_ANNOES
END END
STRING F_TIPODOC 2 STRING F_TIPODOC 2
BEGIN BEGIN
PROMPT 32 5 "Tipo documento " PROMPT 32 5 "Tipo documento "
FIELD LF_MOV->TIPODOC FIELD LF_MOV->TIPODOC
FLAGS "D" FLAGS "D"
END END
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 57 3 "Operazione n. " PROMPT 57 3 "Operazione n. "
FIELD LF_MOV->NUMREG FIELD LF_MOV->NUMREG
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
MESSAGE COPY,H_NUMREG MESSAGE COPY,H_NUMREG
END END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 57 5 "Documento n. " PROMPT 57 5 "Documento n. "
FIELD LF_MOV->NUMDOC FIELD LF_MOV->NUMDOC
WARNING "La causale impone di specificare il numero documento" WARNING "La causale impone di specificare il numero documento"
END END
STRING F_DESCAGG 5 STRING F_DESCAGG 5
BEGIN BEGIN
PROMPT 1 6 "Descrizione " PROMPT 1 6 "Descrizione "
FLAGS "U" FLAGS "U"
USE %DPN USE %DPN
INPUT CODTAB F_DESCAGG INPUT CODTAB F_DESCAGG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_DESCAGG CODTAB OUTPUT F_DESCAGG CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 25 6 "" PROMPT 25 6 ""
FIELD LF_MOV->DESCR FIELD LF_MOV->DESCR
USE %DPN KEY 2 USE %DPN KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT F_DESCAGG COPY OUTPUT F_DESCAGG
END END
LIST F_PROVVISORIO 1 25 LIST F_PROVVISORIO 1 25
BEGIN BEGIN
PROMPT 1 7 "Movimento provvisorio " PROMPT 1 7 "Movimento provvisorio "
FIELD PROVVIS FIELD PROVVIS
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)" ITEM "P|Si (cancellabile)"
ITEM "N|Si (non cancellabile)" ITEM "N|Si (non cancellabile)"
END END
BOOLEAN F_SOLAIVA BOOLEAN F_SOLAIVA
BEGIN BEGIN
PROMPT 54 7 "Movimento di sola IVA" PROMPT 54 7 "Movimento di sola IVA"
END END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 8 "Causale " PROMPT 1 8 "Causale "
FLAGS "U" FLAGS "U"
FIELD LF_MOV->CODCAUS FIELD LF_MOV->CODCAUS
USE LF_CAUSALI KEY 1 USE LF_CAUSALI KEY 1
INPUT CODCAUS F_CODCAUS INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Registro" REG DISPLAY "Registro" REG
DISPLAY "Tipo" TIPODOC DISPLAY "Tipo" TIPODOC
OUTPUT F_CODCAUS CODCAUS OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCRCAUS DESCR OUTPUT F_DESCRCAUS DESCR
OUTPUT F_CODREG REG OUTPUT F_CODREG REG
OUTPUT F_TIPODOC TIPODOC OUTPUT F_TIPODOC TIPODOC
MESSAGE COPY,H_CODCAUS MESSAGE COPY,H_CODCAUS
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCRCAUS INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS COPY OUTPUT F_CODCAUS
MESSAGE COPY,H_DESCRCAUS MESSAGE COPY,H_DESCRCAUS
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
STRING F_CODREG 3 STRING F_CODREG 3
BEGIN BEGIN
PROMPT 1 9 "Registro IVA " PROMPT 1 9 "Registro IVA "
FLAGS "DG" FLAGS "DG"
FIELD LF_MOV->REG FIELD LF_MOV->REG
/* /*
USE REG SELECT I0 < 3 USE REG SELECT I0 < 3
INPUT CODTAB[1,4] F_ANNOIVA SELECT INPUT CODTAB[1,4] F_ANNOIVA SELECT
@ -206,8 +206,8 @@ END
NUMBER F_PROTIVA 5 NUMBER F_PROTIVA 5
BEGIN BEGIN
PROMPT 27 9 "Protocollo IVA " PROMPT 27 9 "Protocollo IVA "
FIELD LF_MOV->PROTIVA FIELD LF_MOV->PROTIVA
END END
NUMBER F_RIEPILOGO 5 NUMBER F_RIEPILOGO 5
@ -244,91 +244,91 @@ BEGIN
OUTPUT F_GRUPPORIC GRUPPORIC OUTPUT F_GRUPPORIC GRUPPORIC
OUTPUT F_CONTORIC CONTORIC OUTPUT F_CONTORIC CONTORIC
OUTPUT F_SOTTOCONTORIC SOTTOCRIC OUTPUT F_SOTTOCONTORIC SOTTOCRIC
OUTPUT F_OCCASIONALE OCCAS
OUTPUT F_CODPAG CODPAG OUTPUT F_CODPAG CODPAG
OUTPUT F_STATOPAIV STATOPAIV OUTPUT F_STATOPAIV STATOPAIV
OUTPUT F_PIVACLIENTE PAIV OUTPUT F_PIVACLIENTE PAIV
OUTPUT F_OCCASIONALE OCCAS
MESSAGE COPY,F_FORNITORE MESSAGE COPY,F_FORNITORE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
NUMBER F_FORNITORE 6 NUMBER F_FORNITORE 6
BEGIN BEGIN
PROMPT 1 10 "Fornitore " PROMPT 1 10 "Fornitore "
FIELD LF_MOV->CODCF FIELD LF_MOV->CODCF
GROUP 2 GROUP 2
USE LF_CLIFO KEY 1 USE LF_CLIFO KEY 1
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT CODCF F_FORNITORE INPUT CODCF F_FORNITORE
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Partita IVA@12" PAIV DISPLAY "Partita IVA@12" PAIV
OUTPUT F_CLIFO TIPOCF OUTPUT F_CLIFO TIPOCF
OUTPUT F_FORNITORE CODCF OUTPUT F_FORNITORE CODCF
OUTPUT F_RAGSOCFORNITORE RAGSOC OUTPUT F_RAGSOCFORNITORE RAGSOC
OUTPUT F_GRUPPOCLIFO GRUPPO OUTPUT F_GRUPPOCLIFO GRUPPO
OUTPUT F_CONTOCLIFO CONTO OUTPUT F_CONTOCLIFO CONTO
OUTPUT F_GRUPPORIC GRUPPORIC OUTPUT F_GRUPPORIC GRUPPORIC
OUTPUT F_CONTORIC CONTORIC OUTPUT F_CONTORIC CONTORIC
OUTPUT F_SOTTOCONTORIC SOTTOCRIC OUTPUT F_SOTTOCONTORIC SOTTOCRIC
OUTPUT F_OCCASIONALE OCCAS OUTPUT F_OCCASIONALE OCCAS
OUTPUT F_CODPAG CODPAG OUTPUT F_CODPAG CODPAG
OUTPUT F_STATOPAIV STATOPAIV OUTPUT F_STATOPAIV STATOPAIV
OUTPUT F_PIVAFORNITORE PAIV OUTPUT F_PIVAFORNITORE PAIV
MESSAGE COPY,F_CLIENTE MESSAGE COPY,F_CLIENTE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_RAGSOCFORNITORE 50 STRING F_RAGSOCFORNITORE 50
BEGIN BEGIN
PROMPT 25 10 "" PROMPT 25 10 ""
GROUP 2 GROUP 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFORNITORE INPUT RAGSOC F_RAGSOCFORNITORE
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Partita IVA@12" PAIV DISPLAY "Partita IVA@12" PAIV
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_FORNITORE COPY OUTPUT F_FORNITORE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_RAGSOCCLIENTE 50 STRING F_RAGSOCCLIENTE 50
BEGIN BEGIN
PROMPT 25 10 "" PROMPT 25 10 ""
GROUP 1 GROUP 1
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCCLIENTE INPUT RAGSOC F_RAGSOCCLIENTE
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Partita IVA@12" PAIV DISPLAY "Partita IVA@12" PAIV
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE COPY OUTPUT F_CLIENTE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_PIVACLIENTE 14 STRING F_PIVACLIENTE 14
BEGIN BEGIN
PROMPT 1 11 "Partita IVA " PROMPT 1 11 "Partita IVA "
GROUP 1 GROUP 1
USE LF_CLIFO KEY 3 USE LF_CLIFO KEY 3
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT STATOPAIV F_STATOPAIV INPUT STATOPAIV F_STATOPAIV
INPUT PAIV F_PIVACLIENTE INPUT PAIV F_PIVACLIENTE
DISPLAY "Partita IVA@12" PAIV DISPLAY "Partita IVA@12" PAIV
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE COPY OUTPUT F_CLIENTE
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_PIVAFORNITORE 14 STRING F_PIVAFORNITORE 14
BEGIN BEGIN
PROMPT 1 11 "Partita IVA " PROMPT 1 11 "Partita IVA "
GROUP 2 GROUP 2
USE LF_CLIFO KEY 3 USE LF_CLIFO KEY 3
@ -339,10 +339,10 @@ BEGIN
COPY OUTPUT F_FORNITORE COPY OUTPUT F_FORNITORE
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
LIST F_STATOPAIV 18 LIST F_STATOPAIV 18
BEGIN BEGIN
PROMPT 32 11 "Stato " PROMPT 32 11 "Stato "
HELP "Codice ISO dello stato per la partita IVA" HELP "Codice ISO dello stato per la partita IVA"
ITEM " |Italia o extra CEE" ITEM " |Italia o extra CEE"
@ -358,24 +358,23 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
END END
BUTTON F_OCCASEDIT 20 BUTTON F_OCCASEDIT 18
BEGIN BEGIN
PROMPT 34 11 "Dati anagrafici" PROMPT 32 11 "Dati anagrafici"
FLAGS "H" FLAGS "H"
END END
BOOLEAN F_OCCASIONALE BOOLEAN F_OCCASIONALE
BEGIN BEGIN
PROMPT 64 11 "Occasionale" MESSAGE FALSE HIDE,F_OCCASEDIT|ENABLE,F_PIVACLIENTE|ENABLE,F_PIVAFORNITORE|SHOW,F_STATOPAIV
MESSAGE FALSE HIDE,F_OCCASEDIT MESSAGE TRUE SHOW,F_OCCASEDIT|DISABLE,F_PIVACLIENTE|DISABLE,F_PIVAFORNITORE|HIDE,F_STATOPAIV|PUSH,F_OCCASEDIT
MESSAGE TRUE SHOW,F_OCCASEDIT|PUSH,F_OCCASEDIT
FLAGS "GH" FLAGS "GH"
END END
STRING F_CODPAG 4 STRING F_CODPAG 4
BEGIN BEGIN
PROMPT 61 11 "Pagamento " PROMPT 61 11 "Pagamento "
USE %CPG USE %CPG
INPUT CODTAB F_CODPAG INPUT CODTAB F_CODPAG
@ -383,10 +382,10 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODPAG CODTAB OUTPUT F_CODPAG CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_CODIVA 4 STRING F_CODIVA 4
BEGIN BEGIN
PROMPT 1 12 "Codice IVA " PROMPT 1 12 "Codice IVA "
FLAGS "U" FLAGS "U"
USE %IVA USE %IVA
@ -397,54 +396,55 @@ BEGIN
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
OUTPUT F_CODIVA CODTAB OUTPUT F_CODIVA CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
DATE F_DATA74TER NUMBER F_TOTALE 15
BEGIN BEGIN
PROMPT 1 13 "Data 74/ter "
CHECKTYPE REQUIRED
FIELD DATA74TER
END
NUMBER F_TOTALE 15
BEGIN
PROMPT 45 12 "Totale documento " PROMPT 45 12 "Totale documento "
FIELD TOTDOC FIELD TOTDOC
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER F_RITFIS 15 NUMBER F_RITFIS 15
BEGIN BEGIN
PROMPT 45 13 "Ritenute fiscali " PROMPT 45 13 "Ritenute fiscali "
FIELD RITFIS FIELD RITFIS
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER F_RITSOC 15 NUMBER F_RITSOC 15
BEGIN BEGIN
PROMPT 45 14 "Ritenute sociali " PROMPT 45 14 "Ritenute sociali "
FIELD LF_MOV->RITSOC FIELD LF_MOV->RITSOC
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER F_ANNORIF 4 DATE F_DATA74TER
BEGIN BEGIN
PROMPT 1 13 "Data 74/ter "
CHECKTYPE REQUIRED
FIELD DATA74TER
END
NUMBER F_ANNORIF 4
BEGIN
PROMPT 1 14 "Rif.partita " PROMPT 1 14 "Rif.partita "
FLAGS "A" FLAGS "A"
HELP "Anno di riferimento partita" HELP "Anno di riferimento partita"
END END
NUMBER F_NUMRIF 7 NUMBER F_NUMRIF 7
BEGIN BEGIN
PROMPT 20 14 "/" PROMPT 20 14 "/"
HELP "Numero documento (o protocollo IVA) di riferimento" HELP "Numero documento (o protocollo IVA) di riferimento"
END END
NUMBER F_CORRLIRE 15 NUMBER F_CORRLIRE 15
BEGIN BEGIN
PROMPT 1 15 "Corrispettivo Lire " PROMPT 1 15 "Corrispettivo Lire "
FIELD LF_MOV->CORRLIRE FIELD LF_MOV->CORRLIRE
FLAGS "R" FLAGS "R"
@ -457,12 +457,12 @@ BEGIN
FIELD LF_MOV->CORRVALUTA FIELD LF_MOV->CORRVALUTA
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING F_VALUTA 3 STRING F_VALUTA 3
BEGIN BEGIN
PROMPT 1 16 "Valuta " PROMPT 1 16 "Valuta "
FIELD LF_MOV->CODVAL FIELD LF_MOV->CODVAL
FLAGS "U" FLAGS "U"
@ -476,64 +476,64 @@ BEGIN
OUTPUT F_VALUTA CODTAB OUTPUT F_VALUTA CODTAB
OUTPUT F_CAMBIO R10 OUTPUT F_CAMBIO R10
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CAMBIO 15 5 NUMBER F_CAMBIO 15 5
BEGIN BEGIN
PROMPT 20 16 "Cambio " PROMPT 20 16 "Cambio "
FIELD LF_MOV->CAMBIO FIELD LF_MOV->CAMBIO
FLAGS "RU" FLAGS "RU"
GROUP 3 GROUP 3
PICTURE ".5" PICTURE ".5"
END END
BOOLEAN F_VISVAL BOOLEAN F_VISVAL
BEGIN BEGIN
PROMPT 47 16 "Visualizza importi in valuta" PROMPT 47 16 "Visualizza importi in valuta"
GROUP 3 GROUP 3
END END
ENDPAGE ENDPAGE
PAGE "IVA" -1 -1 77 20 PAGE "IVA" -1 -1 77 20
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 0 "@BMovimento IVA - Sezione IVA" PROMPT 1 0 "@BMovimento IVA - Sezione IVA"
END END
NUMBER H_NUMREG 6 NUMBER H_NUMREG 6
BEGIN BEGIN
PROMPT 2 1 "Operazione n. " PROMPT 2 1 "Operazione n. "
FLAGS "D" FLAGS "D"
END END
DATE H_DATAREG DATE H_DATAREG
BEGIN BEGIN
PROMPT 32 1 "Data " PROMPT 32 1 "Data "
FLAGS "D" FLAGS "D"
END END
NUMBER H_ANNOES 4 NUMBER H_ANNOES 4
BEGIN BEGIN
PROMPT 61 1 "Esercizio " PROMPT 61 1 "Esercizio "
FLAGS "D" FLAGS "D"
END END
STRING H_CODCAUS 3 STRING H_CODCAUS 3
BEGIN BEGIN
PROMPT 2 2 "Causale " PROMPT 2 2 "Causale "
FLAGS "D" FLAGS "D"
END END
STRING H_DESCRCAUS 50 STRING H_DESCRCAUS 50
BEGIN BEGIN
PROMPT 25 2 "" PROMPT 25 2 ""
FLAGS "D" FLAGS "D"
END END
SPREADSHEET F_SHEETIVA 0 7 SPREADSHEET F_SHEETIVA 0 7
BEGIN BEGIN
PROMPT 3 4 "" PROMPT 3 4 ""
ITEM "Imponibile@14" ITEM "Imponibile@14"
ITEM "Iva@4" ITEM "Iva@4"
@ -545,11 +545,11 @@ BEGIN
ITEM "Co." ITEM "Co."
ITEM "Sottoc." ITEM "Sottoc."
ITEM "Descrizione Conto@50" ITEM "Descrizione Conto@50"
END END
SPREADSHEET F_SHEETCG SPREADSHEET F_SHEETCG
BEGIN BEGIN
PROMPT 3 11 "" PROMPT 3 11 ""
ITEM "Dare@17" ITEM "Dare@17"
ITEM "Avere@17" ITEM "Avere@17"
@ -566,11 +566,11 @@ BEGIN
ITEM "Sottoc./c" ITEM "Sottoc./c"
ITEM "Descrizione contropartita@50" ITEM "Descrizione contropartita@50"
ITEM " @1" ITEM " @1"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
#include "cg21iva.uml" #include "cg21iva.uml"
#include "cg21cg.uml" #include "cg21cg.uml"

9
cg/cg2100o.uml
View File

@ -11,7 +11,6 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT O_CODICE CFPI OUTPUT O_CODICE CFPI
OUTPUT O_RAGSOC RAGSOC OUTPUT O_RAGSOC RAGSOC
CHECKTYPE REQUIRED
WARNING "Codice obbligatorio" WARNING "Codice obbligatorio"
HELP "Codice fiscale o Partita IVA o altro codice che identifichi univocamente la persona" HELP "Codice fiscale o Partita IVA o altro codice che identifichi univocamente la persona"
FIELD CFPI FIELD CFPI
@ -27,7 +26,6 @@ BEGIN
DISPLAY "Codice@16" CFPI DISPLAY "Codice@16" CFPI
OUTPUT O_CODICE CFPI OUTPUT O_CODICE CFPI
OUTPUT O_RAGSOC RAGSOC OUTPUT O_RAGSOC RAGSOC
CHECKTYPE REQUIRED
HELP "Ragione sociale o Nome della persona" HELP "Ragione sociale o Nome della persona"
WARNING "Ragione sociale obbligatoria" WARNING "Ragione sociale obbligatoria"
END END
@ -151,12 +149,7 @@ END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "Conferma" PROMPT -11 -1 "Conferma"
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 "Annulla"
END END
ENDPAGE ENDPAGE

14
cg/cg2102.cpp
View File

@ -838,11 +838,19 @@ bool TPrimanota_application::occas_code_handler(TMask_field& f, KEY key)
if (occas.read() == NOERR) if (occas.read() == NOERR)
{ {
f.mask().autoload(&occas); 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); 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; return TRUE;
} }
@ -852,6 +860,7 @@ bool TPrimanota_application::occas_handler(TMask_field& f, KEY key)
{ {
TMask& om = app().occas_mask(); TMask& om = app().occas_mask();
om.run(); om.run();
f.set_focus();
} }
return TRUE; return TRUE;
} }
@ -872,7 +881,6 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
TConto bill; _causale.bill(1, bill); TConto bill; _causale.bill(1, bill);
gruppo = bill.gruppo(); m.set(F_GRUPPOCLIFO, gruppo); gruppo = bill.gruppo(); m.set(F_GRUPPOCLIFO, gruppo);
conto = bill.conto(); m.set(F_CONTOCLIFO, conto); 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()) if (tipo == 'C' && causale().reg().corrispettivi())