Alessandro Bonazzi
7835079aae
Files correlati : ve0.exe ve1.exe ve5.exe ve6.exe fp0.exe li0300a.msk lv2.exe 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.
259 lines
4.7 KiB
Plaintext
Executable File
259 lines
4.7 KiB
Plaintext
Executable File
#include "lv0600a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include "printbar.h"
|
|
ENDPAGE
|
|
|
|
PAGE "Storico Consegne per Cliente" -1 -1 40 5
|
|
|
|
GROUPBOX DLG_NULL 80 4
|
|
BEGIN
|
|
PROMPT 1 1 "@b Parametri Cliente"
|
|
END
|
|
|
|
NUMBER F_CODCF_DA 6
|
|
BEGIN
|
|
PROMPT 2 2 "Da Cliente "
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF_DA
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_CODCF_DA CODCF
|
|
OUTPUT F_RAGSOC_DA RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FIELD #F_CODCF_FROM
|
|
MESSAGE COPY,F_CODCF_A|CHECK,F_CODCF_A
|
|
END
|
|
|
|
STRING F_RAGSOC_DA 50
|
|
BEGIN
|
|
PROMPT 25 2 ""
|
|
KEY 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC_DA
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CODCF_DA
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CODCF_A 6
|
|
BEGIN
|
|
PROMPT 2 3 "A Cliente "
|
|
FLAGS "U"
|
|
USE LF_CLIFO KEY 1
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_CODCF_A
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_CODCF_A CODCF
|
|
OUTPUT F_RAGSOC_A RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FIELD #F_CODCF_TO
|
|
END
|
|
|
|
STRING F_RAGSOC_A 50
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_RAGSOC_A
|
|
COPY DISPLAY F_RAGSOC_DA
|
|
OUTPUT F_CODCF_A CODCF
|
|
OUTPUT F_RAGSOC_A RAGSOC
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 80 3
|
|
BEGIN
|
|
PROMPT 1 5 "@bParametri Data"
|
|
END
|
|
|
|
DATE F_DATA_DA
|
|
BEGIN
|
|
PROMPT 2 6 "Da Data "
|
|
FLAGS "A"
|
|
FIELD #F_DATA_FROM
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_ANNO_DA 4
|
|
BEGIN
|
|
PROMPT 30 6 ""
|
|
FIELD ANNO_FROM
|
|
DRIVENBY F_DATA_DA
|
|
STR_CALC MID(#F_DATA_DA,7,10)
|
|
FLAGS "DH"
|
|
END
|
|
|
|
DATE F_DATA_A
|
|
BEGIN
|
|
PROMPT 40 6 "A Data "
|
|
FLAGS "A"
|
|
FIELD #F_DATA_TO
|
|
VALITATE DATE_CMP_FUNC >= F_DATA_DA
|
|
WARNING "La data finale deve essere successiva a quella iniziale"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_ANNO_A 4
|
|
BEGIN
|
|
PROMPT 60 6 ""
|
|
FIELD ANNO_TO
|
|
DRIVENBY F_DATA_A
|
|
STR_CALC MID(#F_DATA_A,7,10)
|
|
FLAGS "DH"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 80 4
|
|
BEGIN
|
|
PROMPT 1 8 "@bParametri Articolo"
|
|
END
|
|
|
|
STRING F_CODART_DA 20
|
|
BEGIN
|
|
PROMPT 2 9 "Da Articolo "
|
|
FLAG "U"
|
|
USE 47
|
|
INPUT CODART F_CODART_DA
|
|
DISPLAY "Codice@20" CODART
|
|
DISPAY "Descrizione@50" DESCR
|
|
OUTPUT F_CODART_DA CODART
|
|
OUTPUT F_DESART_DA DESCR
|
|
CHECKTYPE SEARCH
|
|
FIELD #F_CODARTI_FROM
|
|
MESSAGE COPY,F_CODART_A|CHECK,F_CODART_A
|
|
END
|
|
|
|
STRING F_DESART_DA 40
|
|
BEGIN
|
|
PR 38 9 ""
|
|
USE 47 KEY 2
|
|
INPUT DESCR F_DESART_DA
|
|
DISPLAY "Codice@20" CODART
|
|
DISPALY "Descrizione@50" DESCR
|
|
OUTPUT F_CODART_DA CODART
|
|
OUTPUT F_DESART_DA DESCR
|
|
FIELD #F_DESART_FROM
|
|
END
|
|
|
|
STRING F_CODART_A 20
|
|
BEGIN
|
|
PROMPT 2 10 "Ad Articolo "
|
|
FLAG "U"
|
|
USE 47
|
|
INPUT CODART F_CODART_A
|
|
DISPLAY "Codice@20" CODART
|
|
DISPAY "Descrizione@50" DESCR
|
|
OUTPUT F_CODART_A CODART
|
|
OUTPUT F_DESART_A DESCR
|
|
CHECKTYPE SEARCH
|
|
FIELD #F_CODARTI_TO
|
|
END
|
|
|
|
STRING F_DESART_A 40
|
|
BEGIN
|
|
PR 38 10 ""
|
|
USE 47 KEY 2
|
|
INPUT DESCR F_DESART_A
|
|
DISPLAY "Codice@20" CODART
|
|
DISPALY "Descrizione@50" DESCR
|
|
OUTPUT F_CODART_A CODART
|
|
OUTPUT F_DESART_A DESCR
|
|
FIELD #F_DESART_TO
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 80 4
|
|
BEGIN
|
|
PROMPT 1 12 "@bParametri Causale"
|
|
END
|
|
|
|
STRING F_CODCAUS_DA 3
|
|
BEGIN
|
|
PROMPT 2 13 "Da Causale "
|
|
FLAGS "U"
|
|
HELP "Inserire il codice della causale."
|
|
USE &CAU KEY 1
|
|
INPUT CODTAB F_CODCAUS_DA
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Descr. breve@10" S3
|
|
DISPLAY "Ritiro@C" B0
|
|
DISPLAY "Consegna@C" B1
|
|
DISPLAY "Reso@C" B2
|
|
OUTPUT F_CODCAUS_DA CODTAB
|
|
OUTPUT F_DESCAUS_DA S0
|
|
CHECKTYPE SEARCH
|
|
FIELD #F_CODCAUSA_FROM
|
|
MESSAGE COPY,F_CODCAUS_A|CHECK,F_CODCAUS_A
|
|
END
|
|
|
|
STRING F_DESCAUS_DA 50
|
|
BEGIN
|
|
PROMPT 20 13 ""
|
|
HELP "Inserire la descrizione della causale."
|
|
USE &CAU KEY 2
|
|
INPUT S0 F_DESCAUS_DA
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Descr. breve@10" S3
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Ritiro@C" B0
|
|
DISPLAY "Consegna@C" B1
|
|
DISPLAY "Reso@C" B2
|
|
COPY OUTPUT F_CODCAUS_DA
|
|
END
|
|
|
|
STRING F_CODCAUS_A 3
|
|
BEGIN
|
|
PROMPT 2 14 "A Causale "
|
|
FLAGS "U"
|
|
HELP "Inserire il codice della causale."
|
|
USE &CAU KEY 1
|
|
INPUT CODTAB F_CODCAUS_A
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Descr. breve@10" S3
|
|
DISPLAY "Ritiro@C" B0
|
|
DISPLAY "Consegna@C" B1
|
|
DISPLAY "Reso@C" B2
|
|
OUTPUT F_CODCAUS_A CODTAB
|
|
OUTPUT F_DESCAUS_A S0
|
|
CHECKTYPE SEARCH
|
|
FIELD #F_CODCAUSA_TO
|
|
END
|
|
|
|
STRING F_DESCAUS_A 50
|
|
BEGIN
|
|
PROMPT 20 14 ""
|
|
HELP "Inserire la descrizione della causale."
|
|
USE &CAU KEY 2
|
|
INPUT S0 F_DESCAUS_A
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Descr. breve@10" S3
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Ritiro@C" B0
|
|
DISPLAY "Consegna@C" B1
|
|
DISPLAY "Reso@C" B2
|
|
COPY OUTPUT F_CODCAUS_A
|
|
END
|
|
|
|
STRING F_NUM_G 4
|
|
BEGIN
|
|
PROMPT 2 16 "Numerazione"
|
|
FIELD #CODNUM_G
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|