Alessandro Bonazzi
b2b083be6f
Files correlati : ve0.exe ve1.exe ve5.exe ve6.exe fp0.exe li0300a.msk Commento : In fatturazione bolle scritto il cliente originale della fattura nel campo CFORIG quando uso il cliente FATTURARE A per poterlo recuperae nelle lettere d'intento In configurazione delle lettere d'intento c'è il parametro "Uitlizza il cliente originale nelle fatture" per attivare il meccanismo.
147 lines
2.5 KiB
Plaintext
147 lines
2.5 KiB
Plaintext
#include "li0300a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
#include <cancelbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Cofigurazione dichiarazioni d'intento" 0 2 0 0
|
|
|
|
STRING F_CODIVA 4
|
|
BEGIN
|
|
PROMPT 2 1 "Codice IVA plafond: "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %IVA
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
OUTPUT F_CODIVA CODTAB
|
|
HELP "Inserire il codice IVA"
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
STRING F_CODIVA_ALT 4
|
|
BEGIN
|
|
PROMPT 2 2 "Codice IVA alternativo: "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %IVA
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODIVA_ALT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Tipo" S1
|
|
DISPLAY "%@5" R0
|
|
DISPLAY "Vent." S6
|
|
DISPLAY "Sospeso" B2
|
|
OUTPUT F_CODIVA_ALT CODTAB
|
|
HELP "Inserire il codice IVA"
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
END
|
|
|
|
BOOLEAN F_ENABLE_FATTURE
|
|
BEGIN
|
|
PROMPT 2 3 "Considera attivi tutti i documenti fattura e nota di credito"
|
|
END
|
|
|
|
BOOLEAN F_ADD_UTILIZZATO
|
|
BEGIN
|
|
PROMPT 2 4 "Aggiungi l'importo utilizzato insieme al protocollo nelle fatture"
|
|
END
|
|
|
|
BOOLEAN F_CF_ORIG
|
|
BEGIN
|
|
PROMPT 2 5 "Uitlizza il cliente originale nelle fatture"
|
|
END
|
|
|
|
SPREADSHEET F_DOC_SHEET 45 -1
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
ITEM "Tipo Documento"
|
|
ITEM "Da stato"
|
|
ITEM "A stato"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga tipo numerazione" -1 -1 78 8
|
|
|
|
STRING S_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo Documento "
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB S_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_TIPODOC CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING S_STATODOCDA 4
|
|
BEGIN
|
|
PROMPT 2 2 "Da Numerazione "
|
|
KEY 1
|
|
USE %STD
|
|
FLAGS "U"
|
|
INPUT CODTAB S_STATODOCA
|
|
DISPLAY "Stato" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATODOCDA CODTAB
|
|
END
|
|
|
|
STRING S_STATODOCA 4
|
|
BEGIN
|
|
PROMPT 2 3 "A Numerazione "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE %STD
|
|
FLAGS "U"
|
|
INPUT CODTAB S_STATODOCA
|
|
DISPLAY "Stato" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATODOCA CODTAB
|
|
NUM_EXPR #S_STATODOCA>=#S_STATODOCDA
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Documento" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|