Patch level : 12.0 no-patch
Files correlati : tf Commento : Carico il resto del programma per non creare problemi con il progetto git-svn-id: svn://10.65.10.50/branches/R_10_00@23764 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
d0a48beb9f
commit
57525a47ac
1425
src/tf/tf0100.cpp
Normal file
1425
src/tf/tf0100.cpp
Normal file
File diff suppressed because it is too large
Load Diff
31
src/tf/tf0100a.h
Normal file
31
src/tf/tf0100a.h
Normal file
@ -0,0 +1,31 @@
|
||||
#define F_DATAINI 401
|
||||
#define F_DATAFIN 402
|
||||
#define F_TIPOCF 403
|
||||
#define F_CODCF 404
|
||||
#define F_RAGSOC 405
|
||||
#define F_FATTSEL 406
|
||||
|
||||
#define F_RIGHE 300
|
||||
|
||||
#define A_SPEDITA 101
|
||||
#define A_INVIO 102
|
||||
#define A_FORZATA 103
|
||||
#define A_NUMERO 104
|
||||
#define A_NUMRIGA 105
|
||||
#define A_TIPOCF 106
|
||||
#define A_CODCF 107
|
||||
#define A_OCFPI 108
|
||||
#define A_RAGSOC 109
|
||||
#define A_RFSO 110
|
||||
#define A_TIPODOC 111
|
||||
#define A_NUMDOC 112
|
||||
#define A_DATADOC 113
|
||||
#define A_NATURA 114
|
||||
#define A_ALIQUOTA 115
|
||||
#define A_DETRAIB 116
|
||||
#define A_IMPONIBILE 117
|
||||
#define A_IMPOSTA 118
|
||||
#define A_REVERSE 119
|
||||
#define A_AUTOFATT 120
|
||||
#define A_PAIV 121
|
||||
#define A_COFI 122
|
309
src/tf/tf0100a.uml
Normal file
309
src/tf/tf0100a.uml
Normal file
@ -0,0 +1,309 @@
|
||||
#include "tf0100a.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <elabar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Impostazioni" 0 2 0 0
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 1 0 "Data iniziale:"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 40 0 "Data Finale: "
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOCF 15
|
||||
BEGIN
|
||||
PROMPT 1 2 "Tipo C/F"
|
||||
ITEM "T|Tutti"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 18 4 "Codice:"
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Occasionale@C" OCCAS
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@15" PAIV
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHEKTYPE NORMAL
|
||||
GROUP 1
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50 49
|
||||
BEGIN
|
||||
PROMPT 18 5 "R.Soc: "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@15" PAIV
|
||||
COPY OUTPUT F_CODCF
|
||||
ADD RUN CG0 -1
|
||||
GROUP 1
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
RADIOBUTTON F_FATTSEL 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Fatture da visualizzare"
|
||||
ITEM "0|Da inviare"
|
||||
ITEM "1|Inviate"
|
||||
ITEM "2|Tutti"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Trasferimento Fatture" 0 2 0 0
|
||||
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
ITEM "Spedita@3F"
|
||||
ITEM "Invio@3F"
|
||||
ITEM "Mod.@3F"
|
||||
ITEM "N.\nRegistraz.@7F"
|
||||
ITEM "N.Riga@3F"
|
||||
ITEM "C/F@2F"
|
||||
ITEM "Codice@6F"
|
||||
ITEM "Occas.@3"
|
||||
ITEM "Ragione Sociale@35"
|
||||
ITEM "RF/SO@6"
|
||||
ITEM "Tipo\nDocum.@2"
|
||||
ITEM "Numero\nDocum.@5"
|
||||
ITEM "Data\nDocum.@10"
|
||||
ITEM "Natura\nIVA@4"
|
||||
ITEM "Aliquota@4"
|
||||
ITEM "% Detr.@6"
|
||||
ITEM "Imponibile@10"
|
||||
ITEM "Imposta@10"
|
||||
ITEM "Rev.\nCharge@4"
|
||||
ITEM "Auto\nfatt.@3"
|
||||
ITEM "Partita IVA@11"
|
||||
ITEM "Codice Fiscale@15"
|
||||
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Riga" -1 -1 69 10
|
||||
|
||||
BOOLEAN A_SPEDITA
|
||||
BEGIN
|
||||
PROMPT 40 9 "Gia' spedita"
|
||||
FIELD SPEDITA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN A_INVIO
|
||||
BEGIN
|
||||
PROMPT 40 9 "Da inviare"
|
||||
FIELD INVIO
|
||||
END
|
||||
|
||||
BOOLEAN A_FORZATA
|
||||
BEGIN
|
||||
PROMPT 40 9 "Forzatura manuale"
|
||||
FIELD FORZATURA
|
||||
END
|
||||
|
||||
NUMBER A_NUMERO 7
|
||||
BEGIN
|
||||
PROMPT 1 0 "N.Movimento"
|
||||
FLAGS "D"
|
||||
FIELD PROGR
|
||||
END
|
||||
|
||||
NUMBER A_NUMRIGA 3
|
||||
BEGIN
|
||||
PROMPT 25 0 "N.Riga"
|
||||
FLAGS "D"
|
||||
FIELD PROGR
|
||||
END
|
||||
|
||||
LIST A_TIPOCF 1 10
|
||||
BEGIN
|
||||
PROMPT 1 2 "Tipo C/F"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FIELD TIPOCF
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER A_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 23 2 "Cod. C/F"
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF A_TIPOCF SELECT
|
||||
INPUT CODCF A_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Occasionale@C" OCCAS
|
||||
DISPLAY "Partita IVA" PAIV
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
OUTPUT A_CODCF CODCF
|
||||
CHEKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
FIELD CODCF
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING A_OCFPI 16
|
||||
BEGIN
|
||||
PROMPT 43 2 "Occas."
|
||||
USE LF_OCCAS
|
||||
INPUT CFPI A_OCFPI
|
||||
DISPLAY "Codice@16" CFPI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA" PAIV
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
OUTPUT A_OCFPI CFPI
|
||||
CHEKTYPE NORMAL
|
||||
GROUP 3
|
||||
ADD RUN cg0 -6
|
||||
FIELD OCFPI
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING A_RAGSOC 50 47
|
||||
BEGIN
|
||||
FIELD RAGSOC
|
||||
PROMPT 1 3 "Ragione Sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING A_RFSO 6
|
||||
BEGIN
|
||||
FIELD RFSO
|
||||
PROMPT 30 16 "Codice RF/SO:"
|
||||
HELP "Codice Rappresentante Fiscale o Stabile Organizzazione"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING A_TIPODOC 2
|
||||
BEGIN
|
||||
PROMPT 23 5 "Tipo doc. "
|
||||
FLAGS "U"
|
||||
FIELD TIPODOC
|
||||
END
|
||||
|
||||
STRING A_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 23 5 "Num. doc. "
|
||||
FLAGS "U"
|
||||
FIELD NUMDOC
|
||||
END
|
||||
|
||||
DATE A_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 5 "Data doc. "
|
||||
FIELD DATADOC
|
||||
END
|
||||
|
||||
LIST A_NATURA 1 35
|
||||
BEGIN
|
||||
PROMPT 1 6 "Natura IVA"
|
||||
ITEM "|IVA ordinaria"
|
||||
ITEM "N1|N1 - IVA esclusa ex art 15"
|
||||
ITEM "N2|N2 - IVA non soggetta"
|
||||
ITEM "N3|N3 - IVA non imponibile"
|
||||
ITEM "N4|N4 - IVA esente"
|
||||
ITEM "N5|N5 - IVA in regime del margine"
|
||||
ITEM "N6|N6 - IVA in reverse charge"
|
||||
ITEM "N7|N7 - IVA assolta in altro stato U3"
|
||||
FIELD S12
|
||||
END
|
||||
|
||||
NUMBER A_ALIQUOTA 6 2
|
||||
BEGIN
|
||||
PROMPT 25 7 "Aliquota "
|
||||
HELP "Percentuale di imposta"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING A_DETRAIB 6
|
||||
BEGIN
|
||||
PROMPT 25 7 "% Detraibilita' "
|
||||
HELP "Percentuale di detraibilita'"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
CURRENCY A_IMPONIBILE 12
|
||||
BEGIN
|
||||
PROMPT 1 7 "Imponibile"
|
||||
FIELD IMPORTO
|
||||
END
|
||||
|
||||
CURRENCY A_IMPOSTA 12
|
||||
BEGIN
|
||||
PROMPT 45 7 "Imposta"
|
||||
FIELD IMPOSTA
|
||||
END
|
||||
|
||||
BOOLEAN A_REVERSE
|
||||
BEGIN
|
||||
PROMPT 1 9 "Reverse charge"
|
||||
FIELD REVERSE
|
||||
END
|
||||
|
||||
BOOLEAN A_AUTOFATT
|
||||
BEGIN
|
||||
PROMPT 25 9 "Autofattura"
|
||||
FIELD AUTOFATT
|
||||
END
|
||||
|
||||
STRING A_PAIV 12
|
||||
BEGIN
|
||||
PROMPT 1 4 "Partita IVA "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING A_COFI 16
|
||||
BEGIN
|
||||
PROMPT 33 4 "Codice Fiscale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
BUTTON DLG_OK 2 2
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_USER 2 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Collega"
|
||||
PICTURE TOOL_LINK
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 2 2
|
||||
BEGIN
|
||||
PROMPT 4 1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
174
src/tf/tff.ini
Normal file
174
src/tf/tff.ini
Normal file
@ -0,0 +1,174 @@
|
||||
[TFF0100F]
|
||||
P1_KEYHEADERFATT = CHAR(20)
|
||||
P1_KEYBODYFATT = CHAR(20)
|
||||
|
||||
P1_TRASMITTPAESE = CHAR(2)
|
||||
P1_TRASMITTCOD = CHAR(28)
|
||||
P1_PRGINVIO = CHAR(10)
|
||||
P1_FMTTRASMISS = CHAR(5)
|
||||
P1_CODDEST = CHAR(6)
|
||||
P1_TELEFONO = CHAR(12)
|
||||
P1_MAIL = CHAR(256)
|
||||
|
||||
P1_GESTIONE = CHAR(1)
|
||||
P1_ERRINT = CHAR(1)
|
||||
P1_ERREST = CHAR(1)
|
||||
|
||||
INDEX_1 = P1_KEYHEADERFATT,P1_KEYBODYFATT
|
||||
|
||||
[TFF0200F]
|
||||
P2_KEYHEADERFATT = CHAR(20)
|
||||
P2_KEYBODYFATT = CHAR(20)
|
||||
|
||||
P2_FISCIVAPAESE = CHAR(2)
|
||||
P2_FISCIVACOD = CHAR(28)
|
||||
P2_CODFISCALE = CHAR(16)
|
||||
P2_ANADENOMIN = CHAR(80)
|
||||
P2_ANANOME = CHAR(60)
|
||||
P2_ANACOGNOME = CHAR(60)
|
||||
P2_ANATITOLO = CHAR(10)
|
||||
P2_ANACODEORI = CHAR(17)
|
||||
P2_ALBOPROFESS = CHAR(60)
|
||||
P2_PROVALBO = CHAR(2)
|
||||
P2_NRISCRIZALBO = CHAR(60)
|
||||
P2_DTISCRIZEALBO = DATE
|
||||
P2_REGFISCALE = CHAR(4)
|
||||
P2_SEDEIND = CHAR(60)
|
||||
P2_SEDENRCIVICO = CHAR(8)
|
||||
P2_SEDECAP = NUMERIC(5, 0)
|
||||
P2_SEDECOMUNE = CHAR(60)
|
||||
P2_SEDEPROV = CHAR(2)
|
||||
P2_SEDENAZ = CHAR(2)
|
||||
P2_STABORGIND = CHAR(60)
|
||||
P2_STABORGNRCIVICO = CHAR(8)
|
||||
P2_STABORGCAP = NUMERIC(5, 0)
|
||||
P2_STABORGCOMUNE = CHAR(60)
|
||||
P2_STABORGPROV = CHAR(2)
|
||||
P2_STABORGNAZ = CHAR(2)
|
||||
P2_ISCRREAUFF = CHAR(2)
|
||||
P2_ISCRREANUM = CHAR(20)
|
||||
P2_ISCRREACAP = VARNUMERIC(15, 2)
|
||||
P2_ISCRREASOCIOU = CHAR(2)
|
||||
P2_ISCRREASLIQUID = CHAR(2)
|
||||
P2_CONTATTITELEF = CHAR(12)
|
||||
P2_CONTATTIFAX = CHAR(12)
|
||||
P2_CONTATTIMAIL = CHAR(256)
|
||||
P2_RIFAMMINISTR = CHAR(20)
|
||||
|
||||
P2_GESTIONE = CHAR(1)
|
||||
P2_ERRINT = CHAR(1)
|
||||
P2_ERREST = CHAR(1)
|
||||
|
||||
INDEX_1 = P2_KEYHEADERFATT,P2_KEYBODYFATT
|
||||
|
||||
[TFF0300F]
|
||||
P3_KEYHEADERFATT = CHAR(20)
|
||||
P3_KEYBODYFATT = CHAR(20)
|
||||
|
||||
P3_FISCIVAPAESE = CHAR(2)
|
||||
P3_FISCIVACODICE = CHAR(28)
|
||||
P3_CODFISC = CHAR(16)
|
||||
P3_ANADENOMI = CHAR(80)
|
||||
P3_ANANOME = CHAR(60)
|
||||
P3_ANACOGNOME = CHAR(60)
|
||||
P3_ANATITOLO = CHAR(10)
|
||||
P3_ANACODEORI = CHAR(17)
|
||||
|
||||
P3_GESTIONE = CHAR(1)
|
||||
P3_ERRINT = CHAR(1)
|
||||
P3_ERREST = CHAR(1)
|
||||
|
||||
INDEX_1 = P3_KEYHEADERFATT,P3_KEYBODYFATT
|
||||
|
||||
[TFF0400F]
|
||||
P4_KEYHEADERFATT = CHAR(20)
|
||||
P4_KEYBODYFATT = CHAR(20)
|
||||
P4_FISCIVAPAESE = CHAR(2)
|
||||
P4_FISCIVACOD = CHAR(28)
|
||||
P4_CODFISC = CHAR(16)
|
||||
P4_ANADENOM = CHAR(80)
|
||||
P4_ANANOME = CHAR(60)
|
||||
P4_ANACOGNOME = CHAR(60)
|
||||
P4_ANATITOLO = CHAR(10)
|
||||
P4_ANACODEORI = CHAR(17)
|
||||
|
||||
P4_SEDEIND = CHAR(60)
|
||||
P4_SEDENRCIVICO = CHAR(8)
|
||||
P4_SEDECAP = CHAR(5)
|
||||
P4_SEDECOMUNE = CHAR(60)
|
||||
P4_SEDEPROV = CHAR(2)
|
||||
P4_SEDENAZ = CHAR(2)
|
||||
|
||||
P4_GESTIONE = CHAR(1)
|
||||
P4_ERRINT = CHAR(1)
|
||||
P4_ERREST = CHAR(1)
|
||||
|
||||
INDEX_1 = P4_KEYHEADERFATT,P4_KEYBODYFATT
|
||||
|
||||
[TFF0700F]
|
||||
P7_KEYHEADERFATT = CHAR(20)
|
||||
P7_KEYBODYFATT = CHAR(20)
|
||||
P7_TIPODOC = CHAR(4)
|
||||
P7_DIVISA = CHAR(3)
|
||||
P7_DATA = DATE
|
||||
P7_NUMERO = CHAR(20)
|
||||
|
||||
P7_TIPORITENUTA = CHAR(4)
|
||||
P7_IMPORTORIT = NUMERIC(15, 2)
|
||||
P7_ALIQUOTARIT = NUMERIC(6, 2)
|
||||
P7_CAUSPAGAM = CHAR(1)
|
||||
P7_NUMEROBOLLO = CHAR(14)
|
||||
P7_IMPORTOBOLLO = NUMERIC(15, 2)
|
||||
|
||||
P7_DATAREG = DATE
|
||||
P7_NUMEROREG = NUMERIC(20, 0)
|
||||
P7_TIPOREG = CHAR(6)
|
||||
P7_PROTOCOLLO = CHAR(18)
|
||||
P7_POSIZIONE = NUMERIC(4, 0)
|
||||
|
||||
P7_GESTIONE = CHAR(1)
|
||||
P7_ERRINT = CHAR(1)
|
||||
P7_ERREST = CHAR(1)
|
||||
|
||||
INDEX_1 = P7_KEYHEADERFATT,P7_KEYBODYFATT
|
||||
|
||||
[TFF2200F]
|
||||
PL_KEYHEADERFATT = CHAR(20)
|
||||
PL_KEYBODYFATT = CHAR(20)
|
||||
|
||||
PL_ALIQUOTAIVA = NUMERIC(6,2)
|
||||
PL_NATURA = CHAR(2)
|
||||
PL_SPESEACCESS = NUMERIC(15,2)
|
||||
PL_ARROTONDAM = NUMERIC(15,2)
|
||||
PL_IMPONIBILE = NUMERIC(15,2)
|
||||
PL_IMPOSTA = NUMERIC(15,2)
|
||||
PL_ESIGIVA = CHAR(1)
|
||||
PL_RIFNORMATIVO = CHAR(100)
|
||||
PL_DETRAIBILE = NUMERIC(6, 2)
|
||||
PD_DEDUCIBILE = CHAR(2)
|
||||
|
||||
PL_GESTIONE = CHAR(1)
|
||||
PL_ERRINT = CHAR(1)
|
||||
PL_ERREST = CHAR(1)
|
||||
|
||||
INDEX_1 = PL_KEYHEADERFATT,PL_KEYBODYFATT
|
||||
|
||||
[TFF3100F]
|
||||
PH_KEYHEADERFATT = CHAR(20)
|
||||
PH_KEYBODYFATT = CHAR(20)
|
||||
PH_STABORGIND = CHAR(60)
|
||||
PH_STABORGNRCIVICO = CHAR(8)
|
||||
PH_STABORGCAP = NUMERIC(5)
|
||||
PH_STABORGCOMUNE = CHAR(60)
|
||||
PH_STABORGPROV = CHAR(2)
|
||||
PH_STABORGNAZ = CHAR(2)
|
||||
PH_FISCIVAPAESE = CHAR(2)
|
||||
PH_FISCIVACODICE = CHAR(28)
|
||||
PH_ANADENOMI = CHAR(80)
|
||||
PH_ANANOME = CHAR(60)
|
||||
PH_ANACOGNOME = CHAR(60)
|
||||
PH_GESTIONE = CHAR(1)
|
||||
PH_ERRINT = CHAR(1)
|
||||
PH_ERREST = CHAR(1)
|
||||
|
||||
INDEX_1 = PH_KEYHEADERFATT,PH_KEYBODYFATT
|
17
src/tf/tftbcon.h
Normal file
17
src/tf/tftbcon.h
Normal file
@ -0,0 +1,17 @@
|
||||
#ifndef __TFTBCON_H
|
||||
#define __TFTBCON_H
|
||||
|
||||
#define F_CON_TIPO 101
|
||||
#define F_CON_CODCF 102
|
||||
#define F_CON_RAGSOC 112
|
||||
#define F_CON_CODICE 103
|
||||
#define F_CON_DESCRIZIONE 113
|
||||
#define F_CON_DATA 104
|
||||
#define F_CON_RIFAMM 105
|
||||
#define F_CON_CAUS1 121
|
||||
#define F_CON_CAUS2 122
|
||||
#define F_CON_CAUS3 123
|
||||
|
||||
#endif
|
||||
|
||||
|
142
src/tf/tftbcon.uml
Normal file
142
src/tf/tftbcon.uml
Normal file
@ -0,0 +1,142 @@
|
||||
#include "tftbcon.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Contratti per PA" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 0 "@bEstremi contratto/convenzione/ordine P.A."
|
||||
END
|
||||
|
||||
LIST F_CON_TIPO 1 11
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo "
|
||||
ITEM "C|Contratto"
|
||||
ITEM "V|Convenzione"
|
||||
ITEM "O|Ordine"
|
||||
FIELD CODTAB[1,1]
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CON_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cliente "
|
||||
USE LF_CFVEN SELECT PADESTIN!=""
|
||||
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CON_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
DISPLAY "Destinatario" PADESTIN
|
||||
DISPLAY "Riferimento amm.@20" PARIFAMM
|
||||
OUTPUT F_CON_CODCF CODCF
|
||||
OUTPUT F_CON_RAGSOC LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB[2,7]
|
||||
KEY 1
|
||||
MESSAGE EMPTY ENABLE,F_CON_RAGSOC
|
||||
MESSAGE DISABLE,F_CON_RAGSOC
|
||||
END
|
||||
|
||||
STRING F_CON_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 24 2 ""
|
||||
USE LF_CLIFO KEY 2 SELECT LF_CFVEN->PADESTIN!=""
|
||||
JOINT LF_CFVEN INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_CON_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Destinatario" LF_CFVEN->PADESTIN
|
||||
DISPLAY "Riferimento amm.@20" LF_CFVEN->PARIFAMM
|
||||
COPY OUTPUT F_CON_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CON_CODICE 20
|
||||
BEGIN
|
||||
PROMPT 2 3 "Numero "
|
||||
FLAGS "U"
|
||||
FIELD CODTAB[8,27]
|
||||
USE &CON
|
||||
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODTAB[2,7]
|
||||
INPUT CODTAB[1,1] F_CON_TIPO SELECT
|
||||
INPUT CODTAB[2,7] F_CON_CODCF SELECT
|
||||
INPUT CODTAB[8,27] F_CON_CODICE
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Numero@20" CODTAB[8,]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cliente" CODTAB[2,7]
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT F_CON_CODCF CODTAB[2,7]
|
||||
OUTPUT F_CON_CODICE CODTAB[8,]
|
||||
OUTPUT F_CON_DESCRIZIONE S0
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 5 "@bDati contratto/convenzione/ordine P.A."
|
||||
END
|
||||
|
||||
STRING F_CON_DESCRIZIONE 70 50
|
||||
BEGIN
|
||||
PROMPT 2 6 "Descrizione "
|
||||
FIELD S0
|
||||
USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_CON_TIPO)&&(STR(CODTAB[2,7]=#F_CON_CODCF))
|
||||
JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
|
||||
INPUT S0 F_CON_DESCRIZIONE
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Numero@20" CODTAB[8,]
|
||||
DISPLAY "Cliente" CODTAB[2,7]
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
COPY OUTPUT F_CON_CODICE
|
||||
KEY 2
|
||||
END
|
||||
|
||||
DATA F_CON_DATA
|
||||
BEGIN
|
||||
PROMPT 2 7 "Data "
|
||||
FIELD D0
|
||||
END
|
||||
|
||||
STRING F_CON_RIFAMM 20
|
||||
BEGIN
|
||||
PROMPT 24 7 "Riferimento amministrazione "
|
||||
FIELD S4
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 10 "@bCausale"
|
||||
END
|
||||
|
||||
STRING F_CON_CAUS1 50
|
||||
BEGIN
|
||||
PROMPT 14 11 ""
|
||||
FIELD S1
|
||||
END
|
||||
|
||||
STRING F_CON_CAUS2 50
|
||||
BEGIN
|
||||
PROMPT 14 12 ""
|
||||
FIELD S2
|
||||
END
|
||||
|
||||
STRING F_CON_CAUS3 50
|
||||
BEGIN
|
||||
PROMPT 14 13 ""
|
||||
FIELD S3
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user