9bfbd8a4ad
Files correlati : cg0.exe cg0500a.msk cg2.exe cg2100s.msk Ricompilazione Demo : [ ] Commento : CM20044 Causale senza tipo documento e con tipo movimento fattura. Mi propone la pagina delle scandenze completamente vuota pur avendo indicato il codice pagamento in testata. La seguente pagina riconosce il pagamento solo se clicco sul botone di reset. CM20045 Causale senza tipo documento e con tipo movimento nota di credito. Mi lascia registrare in prima nota senza portarmi nella gestione partite per chiudere le eventuali fatture.Come faccio ? ATTENZIONE: eliminata possibilita' di creare note di credito senza tipo documento CM20046 Causale senza tipo documento e con tipo movimento fattura o nota di credito. In prima nota non viene mai controllato il totale della testata presente nel campo "Voci per saldaconto" con quanto viene indicato poi nelle righe. CM20047 Causale senza tipo documento e con tipo movimento fattura/nota di credito. Se inserisco una registrazione con tipo movimento nota credito e passo successivamente ad una registrazione con causale con tipo movimento fattura, pur mettendo il codice di pagamento, la procedura non propone la pagina delle scadenze.Questo non accade se esco dalla prima nota dopo la registrazione della nota credito e rientro per registrare la fattura. CM20048 Inserisco un pagamento a fronte di un movimento nato da causale senza tipo documento e tipo movimento fattura. Se in testa indico il numero e la data del documento va tutto bene fino a che non seleziono la rata che intendo pagare, ma quando do conferma nella finestra del pagamento, la procedura mi riporta nella maschera della prima nota senza passare da quella delle partite. Solo cliccando di nuovo su conferma, la procedura mi apre la maschera delle partite. Se non indico i riferimenti del documento sulla testata della registrazione, va tutto bene. git-svn-id: svn://10.65.10.50/trunk@11508 c028cbd2-c16b-5b4b-a496-9718f37d4682
350 lines
6.2 KiB
Plaintext
Executable File
350 lines
6.2 KiB
Plaintext
Executable File
#include "cg0500.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Righe" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
STRING F_COD_CAUS 3
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD CODCAUS
|
|
KEY 1
|
|
FLAGS "UZ"
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_COD_CAUS
|
|
DISPLAY "Cod." CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Documento" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "Tipo movimento" TIPOMOV
|
|
DISPLAY "Inc./Pag." CODCAUSIM
|
|
DISPLAY "770" M770
|
|
DISPLAY "Cespiti" COLLCESP
|
|
OUTPUT F_COD_CAUS CODCAUS
|
|
OUTPUT F_DESCR DESCR
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,F_COD_CAUS2
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 16 1 "Descriz."
|
|
FIELD DESCR
|
|
USE LF_CAUSALI KEY 2
|
|
INPUT DESCR F_DESCR
|
|
DISPLAY "Descrizione @50" DESCR
|
|
DISPLAY "Cod." CODCAUS
|
|
DISPLAY "Documento" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "Movimento" TIPOMOV
|
|
DISPLAY "Inc./Pag." CODCAUSIM
|
|
DISPLAY "770" M770
|
|
DISPLAY "Cespiti" COLLCESP
|
|
COPY OUTPUT F_COD_CAUS
|
|
CHECKTYPE REQUIRED
|
|
KEY 2
|
|
WARNING "Descrizione assente"
|
|
MESSAGE COPY,F_DESCR2
|
|
END
|
|
|
|
STRING F_TIPO_DOC 2
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo documento "
|
|
FIELD TIPODOC
|
|
USE %TPD
|
|
INPUT CODTAB F_TIPO_DOC
|
|
DISPLAY "Tipo " CODTAB
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_TIPO_DOC CODTAB
|
|
OUTPUT F_DES_DOC S0
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
FLAGS "U"
|
|
ADD NONE
|
|
MESSAGE EMPTY CLEAR,F_SOLAIVA
|
|
MESSAGE ENABLE,F_SOLAIVA
|
|
END
|
|
|
|
STRING F_DES_DOC 50
|
|
BEGIN
|
|
PROMPT 24 3 ""
|
|
USE %TPD KEY 2
|
|
INPUT S0 F_DES_DOC
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Tipo " CODTAB
|
|
COPY OUTPUT F_TIPO_DOC
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
ADD NONE
|
|
END
|
|
|
|
STRING F_COD_REG 3
|
|
BEGIN
|
|
PROMPT 2 4 "Cod. registro "
|
|
FIELD REG
|
|
USE REG
|
|
INPUT CODTAB[1,4] F_ANNOES
|
|
INPUT CODTAB[5,7] F_COD_REG
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice registro " CODTAB[5,7]
|
|
DISPLAY "Tipo" I0
|
|
DISPLAY "Corrispettivi" B0
|
|
DISPLAY "Descrizione @50" S0
|
|
OUTPUT F_COD_REG CODTAB[5,7]
|
|
OUTPUT F_TIPO_REG I0
|
|
OUTPUT F_CORRISP B0
|
|
OUTPUT F_DES_REG S0
|
|
WARNING "Registro assente o non compatibile col tipo documento"
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UZ"
|
|
END
|
|
|
|
STRING F_DES_REG 50
|
|
BEGIN
|
|
PROMPT 24 4 ""
|
|
USE REG KEY 2
|
|
INPUT S0 F_DES_REG
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Anno" CODTAB[1,4]
|
|
DISPLAY "Codice registro " CODTAB[5,7]
|
|
DISPLAY "Tipo" I0
|
|
DISPLAY "Corrispettivi" B0
|
|
COPY OUTPUT F_COD_REG
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_ANNOES 4
|
|
BEGIN
|
|
PROMPT 2 5 "Anno liquidaz. "
|
|
FLAGS "HA"
|
|
END
|
|
|
|
NUMBER F_TIPO_REG 1
|
|
BEGIN
|
|
PROMPT 25 5 "Tipo "
|
|
FLAGS "H"
|
|
END
|
|
|
|
// Questo rimane quasi sempre nascosto
|
|
STRING F_TIPO_MOV 1
|
|
BEGIN
|
|
PROMPT 2 5 ""
|
|
FIELD TIPOMOV
|
|
FLAGS "H"
|
|
END
|
|
|
|
// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG
|
|
LISTBOX F_TIPO_MOV_1 1 20
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo movimento "
|
|
FIELD TIPOMOV
|
|
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
|
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV
|
|
ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV
|
|
// GROUP 2
|
|
END
|
|
|
|
// Viene mostrato questo se TPD vuoto o uguale a IN AN PG
|
|
LISTBOX F_TIPO_MOV_2 1 20
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo movimento "
|
|
FIELD TIPOMOV
|
|
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
|
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV
|
|
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
|
|
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
|
|
ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV
|
|
FLAGS "H"
|
|
END
|
|
|
|
LISTBOX F_M_770 1 48
|
|
BEGIN
|
|
PROMPT 2 6 "Collegamento Mod.770 "
|
|
FIELD M770
|
|
ITEM " |Nessuno"
|
|
ITEM "1|Ricevuta e/o pagamento fattura percipiente"
|
|
ITEM "2|Versamento ritenute percipiente"
|
|
ITEM "3|Versamento ritenute dipendente"
|
|
ITEM "4|Versamento contributi dipendente"
|
|
ITEM "5|Compensi non soggetti"
|
|
ITEM "6|Ritenute per prestazioni occasionali"
|
|
END
|
|
|
|
BOOLEAN F_CORRISP
|
|
BEGIN
|
|
PROMPT 33 5 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_GCS
|
|
BEGIN
|
|
PROMPT 0 7 ""
|
|
ITEM "Tipo conto@21F"
|
|
ITEM "D/A@3"
|
|
ITEM "C/F@3"
|
|
ITEM "Gr."
|
|
ITEM "Co."
|
|
ITEM "Sottoc."
|
|
ITEM "Descrizione Conto@50"
|
|
ITEM "Desc. agg."
|
|
ITEM "Descrizione Aggiuntiva@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
STRING F_COD_CAUS2 3
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCR2 50
|
|
BEGIN
|
|
PROMPT 16 1 "Descriz."
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 3 "@BCampi obbligatori in immissione documenti"
|
|
END
|
|
|
|
BOOLEAN F_DATA_DOC
|
|
BEGIN
|
|
PROMPT 2 4 "Data documento"
|
|
FIELD DATADOC
|
|
END
|
|
|
|
BOOLEAN F_NUM_DOC
|
|
BEGIN
|
|
PROMPT 34 4 "Numero documento"
|
|
FIELD NUMDOC
|
|
END
|
|
|
|
BOOLEAN F_AUTO_FAT
|
|
BEGIN
|
|
PROMPT 2 6 "Autofattura art.34"
|
|
FIELD AUTOFATT
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_ALLEGAT
|
|
BEGIN
|
|
PROMPT 34 6 "Doc. non va in allegati fine anno"
|
|
FIELD ALLEG
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_FAT_RITARDO
|
|
BEGIN
|
|
PROMPT 2 8 "Fattura in ritardo"
|
|
FIELD RITFATT
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_COD_CAUS_IM 3
|
|
BEGIN
|
|
PROMPT 34 8 "Codice causale per l'incasso immediato "
|
|
FLAGS "UZ"
|
|
FIELD CODCAUSIM
|
|
USE LF_CAUSALI SELECT REG==""
|
|
INPUT CODCAUS F_COD_CAUS_IM
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Documento" TIPODOC
|
|
OUTPUT F_COD_CAUS_IM CODCAUS
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_OP_INTRACOM
|
|
BEGIN
|
|
PROMPT 2 10 "Operazione intracomunitaria"
|
|
FIELD INTRACOM
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_VALINTRA
|
|
BEGIN
|
|
PROMPT 34 10 "Gestione valuta per operazioni intrac."
|
|
FIELD VALINTRA
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_MOV_VALU
|
|
BEGIN
|
|
PROMPT 2 12 "Movimento in valuta"
|
|
FIELD MOVVAL
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_SOLAIVA
|
|
BEGIN
|
|
PROMPT 34 12 "Movimento di sola IVA"
|
|
FIELD SOLOIVA
|
|
END
|
|
|
|
BOOLEAN F_MOV_SEZ
|
|
BEGIN
|
|
PROMPT 34 12 "Movimento solo sezionale"
|
|
FIELD MOVSEZ
|
|
FLAGS "H"
|
|
END
|
|
|
|
LIST F_OP_FINE_ANNO 1 11
|
|
BEGIN
|
|
PROMPT 2 14 "Operazioni di fine anno "
|
|
ITEM " | "
|
|
ITEM "C|Chiusura"
|
|
ITEM "A|Apertura"
|
|
FIELD MOVAP
|
|
FLAGS "H"
|
|
END
|
|
|
|
LIST F_COLL_CESP 1 40
|
|
BEGIN
|
|
PROMPT 2 16 "Collegamento cespiti "
|
|
FIELD COLLCESP
|
|
ITEM " |Nessuno"
|
|
ITEM "A|Acquisto cespite"
|
|
ITEM "B|Rettifica acquisto"
|
|
ITEM "C|Sostenimento costi"
|
|
ITEM "E|Eliminazione dal processo produttivo"
|
|
ITEM "M|Rivalutazione monetaria"
|
|
ITEM "P|Reinvestimento plusvalenze"
|
|
ITEM "R|Rivalutazione economica"
|
|
ITEM "T|Trasferimento"
|
|
ITEM "V|Vendita cespite"
|
|
ITEM "Z|Rettifica vendita"
|
|
END
|
|
|
|
LIST F_MOVIND 2
|
|
BEGIN
|
|
PROMPT 2 17 "Contabilita' industriale "
|
|
ITEM "|No"
|
|
ITEM "1|Si"
|
|
FIELD MOVIND
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
#include "cg0500b.uml"
|