e19b721773
Files correlati : cg2.exe le mashecere di cg2 Ricompilazione Demo : [ ] Commento : Bug 0000836 Sto cambiando data ad un gruppo di registrazioni fatture di vendita manuale, per far rigenerare le scadenze metto reg. di pura iva prima si e poi no, non mi ricrea le righe di contabilità quindi mi appresto ad inserirle io, ricerco quindi il cliente ma la barra di ricerca nasconde l'imbuto di ricerca, ed il campo della ragione sociale viene accorpato al campo alla destra. git-svn-id: svn://10.65.10.50/trunk@16971 c028cbd2-c16b-5b4b-a496-9718f37d4682
263 lines
5.1 KiB
Plaintext
Executable File
263 lines
5.1 KiB
Plaintext
Executable File
PAGE "RIGA IVA" -1 -1 78 12
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 1 "@BImposta"
|
|
END
|
|
|
|
STRING IVA_CODIVA 4
|
|
BEGIN
|
|
PROMPT 2 2 "IVA "
|
|
HELP "Codice IVA della riga"
|
|
FLAGS "U"
|
|
USE %IVA
|
|
INPUT CODTAB IVA_CODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "%@6" R0
|
|
DISPLAY "Tipo" S1
|
|
OUTPUT IVA_CODIVA CODTAB
|
|
OUTPUT 158 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice IVA assente"
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
STRING 158 58
|
|
BEGIN
|
|
PROMPT 16 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING IVA_INDETRAIBILE 1
|
|
BEGIN
|
|
PROMPT 2 3 "Indetraibilita' "
|
|
USE %DET
|
|
INPUT CODTAB IVA_INDETRAIBILE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Tipo" I0
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT IVA_INDETRAIBILE CODTAB
|
|
OUTPUT 99 S0
|
|
CHECTYPE NORMAL
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING 99 75 52
|
|
BEGIN
|
|
PROMPT 22 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY IVA_IMPONIBILE 18
|
|
BEGIN
|
|
PROMPT 2 4 "Imponibile "
|
|
END
|
|
|
|
CURRENCY IVA_IMPOSTA 18
|
|
BEGIN
|
|
PROMPT 48 4 "Imposta "
|
|
HELP "Importo dell'IVA. Se e' nullo, col tasto F8 si puo' effettuare lo scorporo"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 6 "@BConto"
|
|
END
|
|
|
|
LIST IVA_TIPO 1 12
|
|
BEGIN
|
|
PROMPT 2 7 "Tipo "
|
|
HELP "Tipo del conto"
|
|
FIELD TIPOC
|
|
ITEM " |Conto"
|
|
MESSAGE SHOW,109|HIDE,209|HIDE,309|SHOW,110|HIDE,210|HIDE,310
|
|
ITEM "C|Cliente"
|
|
MESSAGE SHOW,209|HIDE,109|HIDE,309|SHOW,210|HIDE,110|HIDE,310
|
|
ITEM "F|Fornitore"
|
|
MESSAGE SHOW,309|HIDE,109|HIDE,209|SHOW,310|HIDE,110|HIDE,210
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER IVA_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 22 7 "Gruppo "
|
|
HELP "Codice del gruppo"
|
|
FIELD GRUPPO
|
|
END
|
|
|
|
NUMBER IVA_CONTO 3
|
|
BEGIN
|
|
PROMPT 38 7 "Conto "
|
|
FIELD CONTO
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
|
INPUT GRUPPO IVA_GRUPPO
|
|
INPUT CONTO IVA_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT IVA_TIPO TMCF
|
|
OUTPUT IVA_GRUPPO GRUPPO
|
|
OUTPUT IVA_CONTO CONTO
|
|
OUTPUT 110 DESCR
|
|
ADD RUN cg0 -0
|
|
MESSAGE DIRTY,109|DIRTY,209|DIRTY,309
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto assente"
|
|
END
|
|
|
|
|
|
NUMBER IVA_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 55 7 "Sottoconto "
|
|
FIELD SOTTOCONTO
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO IVA_GRUPPO
|
|
INPUT CONTO IVA_CONTO
|
|
INPUT SOTTOCONTO IVA_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "C/R" TIPOSPRIC
|
|
OUTPUT IVA_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT IVA_GRUPPO GRUPPO
|
|
OUTPUT IVA_CONTO CONTO
|
|
OUTPUT 110 DESCR
|
|
ADD RUN cg0 -0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 IVA_IMPONIBILE
|
|
WARNING "Sottoconto assente"
|
|
END
|
|
|
|
|
|
NUMBER 209 6
|
|
BEGIN
|
|
PROMPT 55 7 "Cliente "
|
|
HELP "Codice del cliente"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF 209
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT 209 CODCF
|
|
OUTPUT 210 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1 C
|
|
MESSAGE COPY,IVA_SOTTOCONTO
|
|
VALIDATE REQIF_FUNC 1 IVA_IMPONIBILE
|
|
WARNING "Cliente assente"
|
|
END
|
|
|
|
NUMBER 309 6
|
|
BEGIN
|
|
PROMPT 55 7 "Fornitore "
|
|
HELP "Codice del fornitore"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF 309
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
OUTPUT 309 CODCF
|
|
OUTPUT 310 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1 F
|
|
MESSAGE COPY,IVA_SOTTOCONTO
|
|
VALIDATE REQIF_FUNC 1 IVA_IMPONIBILE
|
|
WARNING "Fornitore assente"
|
|
END
|
|
|
|
STRING 110 50
|
|
BEGIN
|
|
PROMPT 2 8 "Descrizione "
|
|
FIELD LF_PCON->DESCR
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR 110
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "C/R" TIPOSPRIC
|
|
COPY OUTPUT IVA_SOTTOCONTO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING 210 50
|
|
BEGIN
|
|
PROMPT 2 8 "Cliente "
|
|
FIELD LF_CLIFO->RAGSOC
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC 210
|
|
DISPLAY "Ragione Sociale Cliente@55" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT 209
|
|
MESSAGE COPY,110
|
|
ADD RUN cg0 -1 C
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING 310 50
|
|
BEGIN
|
|
PROMPT 2 8 "Fornitore "
|
|
FIELD LF_PCON->SOTTOCONTO
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC 310
|
|
DISPLAY "Ragione Sociale Fornitore@55" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT 309
|
|
MESSAGE COPY,110
|
|
ADD RUN cg0 -1 F
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
LIST IVA_TIPOCOSTORIC 1 51
|
|
BEGIN
|
|
PROMPT 2 9 "Tipo Costo/Ricavo "
|
|
ITEM " |0. Acquisti o vendite in genere"
|
|
ITEM "1|1. Acquisti beni per rivendita"
|
|
ITEM "2|2. Acquisti beni ammortizzabili"
|
|
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
|
|
ITEM "4|4. Vendita beni strumentali art. 17"
|
|
ITEM "5|5. Beni per rivendita da non ventilare"
|
|
ITEM "8|8. Altri beni strumentali acquistati in leasing"
|
|
ITEM "9|9. Spese generali"
|
|
FLAGS "D"
|
|
HELP "Tipo Costo/Ricavo del conto"
|
|
END
|
|
|
|
BOOLEAN IVA_NOTAVARECF
|
|
BEGIN
|
|
PROMPT 2 15 "Nota di variazione riferita ad anni precedenti (per Elenco Clienti/Fornitori)"
|
|
FIELD NOTAVARECF
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|