Patch level : 12.0 550

Files correlati     : bs
Commento            : Caricamento interfaccia SKNET
Doveva essere una modifica dell'interfaccia Beestore ma dopo aver fatto così tante modifiche non me la sento di rilasciarla come aggiornamento.
Questo è un primo commit con le differenze attuali, successivamente verranno sistemati gli errori attuali e tolta tutta la parte di esportazione.
Rispetto a Beestore:
- Aggiunta personalizzazione delle origini
- Modificato campo note, adesso viene importato come TToken_string con aggiunta di campi presenti in anagrafica cli/fo->effetti
- TBeestore_bin, classe container di record da eliminare post sincronizzazione (chiamabile con mastroBin())
- Aggiunti flag di cancellazione records post import
- Sistemata connessione, adesso utilizza anche usr e psw non solo autenticazione Windows
- Aggiunta completa gestione Conai per anagrafica cli/fo, magazzino e bolle.
- Potenziata date2sql per formato con ore
- In load_their_origine() aggiunta possibilità di prendere parte di un campo (es. classico CODART[1,2])
- Rifatta importazione Articoli
- Rifatta importazione Clienti/Fornitori
- Sistemata importazione documenti

Aggiornamento beestore:
- Sistemata dimensione stringa dns
- Sistemato codice nuovo compilatore

git-svn-id: svn://10.65.10.50/branches/R_10_00@24421 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2018-03-07 10:01:41 +00:00
parent aff7a75761
commit 9d079cf255
8 changed files with 2752 additions and 4 deletions

View File

@ -20,6 +20,7 @@ TParametri_mask::TParametri_mask(const char * n) : TAutomask(n)
set(F_DATASOURCE, ini_get_string(CONFIG_DITTA, "BS", "DSN"));
set(F_USER, ini_get_string(CONFIG_DITTA, "BS", "USR"));
set(F_PASSWORD, decode(ini_get_string(CONFIG_DITTA, "BS", "PSW")));
set(F_ORIGINE, ini_get_int(CONFIG_DITTA, "BS", "Origine", 2));
set(F_LOG, ini_get_string(CONFIG_DITTA, "BS", "Log"));
}
@ -60,6 +61,7 @@ void TParametri_ditta::main_loop()
ini_set_string(CONFIG_DITTA, "BS", "DSN", pm.get(F_DATASOURCE));
ini_set_string(CONFIG_DITTA, "BS", "USR", pm.get(F_USER));
ini_set_string(CONFIG_DITTA, "BS", "PSW", encode(pm.get(F_PASSWORD)));
ini_set_int(CONFIG_DITTA, "BS", "Origine", pm.get_int(F_ORIGINE));
ini_set_string(CONFIG_DITTA, "BS", "Log", pm.get(F_LOG));
message_box("Dati salvati correttamente!");
}

View File

@ -1,4 +1,5 @@
#define F_DATASOURCE 101
#define F_USER 102
#define F_PASSWORD 103
#define F_LOG 104
#define F_ORIGINE 104
#define F_LOG 105

View File

@ -6,7 +6,7 @@ ENDPAGE
PAGE "Parametri Bee Store" 0 2 0 0
GROUPBOX DLG_NULL 78 6
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 1 "@bODBC"
END
@ -33,9 +33,18 @@ BEGIN
FIELD PSW
END
LIST F_ORIGINE 1
BEGIN
PROMPT 2 5 "Seleziona l'origine di Campo "
ITEM "1|1"
ITEM "2|2"
FIELD Origin
END
STRING F_LOG 260 50
BEGIN
PROMPT 2 5 "File di log errori SQL "
PROMPT 2 6 "File di log errori SQL "
FIELD Log
END

View File

@ -148,7 +148,7 @@ typedef bool TFieldEvaluator(const TISAM_recordset& rec, const char* fldname, co
class TBeeStore_sync : public TSkeleton_application
{
TString16 _dsn;
TString _dsn;
TString _usr;
TString _psw;
TFilename _sqlog;

2226
src/bs/bs0300.cpp Normal file

File diff suppressed because it is too large Load Diff

49
src/bs/bs0300a.h Normal file
View File

@ -0,0 +1,49 @@
#define F_DAL 101
#define F_AL 102
#define F_UMS 103
#define F_IVA 104
#define F_LINEART 105
#define F_CATMER 106
#define F_ART 107
#define F_LIST 108
#define F_SCONTRINI 109
#define F_CORRISPETTIVI 110
#define F_DOCUMENTI 111
#define F_CARSCAR 112
#define F_GENERICI 113
#define F_VALUTE 114
#define F_CLIENTI 115
#define F_FORNITORI 116
#define F_BARCODE 117
#define F_CODNUMBOL 201
#define F_TIPODOCBOL 202
#define F_CODNUMFAT 203
#define F_TIPODOCFAT 204
#define F_CODNUMNC 205
#define F_TIPODOCNC 206
#define F_CODNUMTAM 207
#define F_TIPODOCTAM 208
#define F_CODNUMORC 209
#define F_TIPODOCORC 210
#define F_C_CARSCAR 211
#define F_D_CARSCAR 212
#define F_C_DOCUMENTI 213
#define F_D_DOCUMENTI 214
#define F_C_SCONTRINI 215
#define F_D_SCONTRINI 216
#define F_C_GENERICI 217
#define F_D_GENERICI 218
#define F_CLIFODC 219
#define F_OVERRIG 220
#define F_NUMCUSTRIG 221
#define F_IMPORTUSER 222
#define F_ENIMPORT 223
#define F_ENEXPORT 224
#define F_EMPTYONIMP 225
#define F_ENABCONAI 226
#define F_CODIVADEF 227
#define F_C_CORRISPETTIVI 301
#define F_D_CORRISPETTIVI 302

461
src/bs/bs0300a.uml Normal file
View File

@ -0,0 +1,461 @@
#include "bs0200a.h"
TOOLBAR "topbar" 0 0 0 2
#include <elabar.h>
ENDPAGE
PAGE "Sincronizzazione Bee Store" 0 2 0 0
GROUPBOX DLG_NULL 78 13
BEGIN
PROMPT 1 1 "@bArchivi"
END
BOOLEAN F_UMS
BEGIN
PROMPT 2 2 "Unità di misura "
FIELD SyncUMS
END
BOOLEAN F_IVA
BEGIN
PROMPT 2 3 "Codici IVA "
FIELD SyncIVA
END
BOOLEAN F_LINEART
BEGIN
PROMPT 2 4 "Linee Articolo "
FIELD SyncLinee
END
BOOLEAN F_CATMER
BEGIN
PROMPT 2 5 "Categorie Merceologiche"
FIELD SyncCatMer
END
BOOLEAN F_ART
BEGIN
PROMPT 2 6 "Articoli "
FIELD SyncAnamag
END
STRING F_LIST 3
BEGIN
PROMPT 40 6 "Listino "
USE LF_CONDV
INPUT TIPO "L"
INPUT CATVEN ""
INPUT TIPOCF ""
INPUT CODCF ""
INPUT COD 148
DISPLAY "Codice" COD
DISPLAY "Descrizione@50" DESCR
DISPLAY "Valuta@5" CODVAL
DISPLAY "Inizio@10" VALIN
DISPLAY "Fine@10" VALFIN
OUTPUT 148 COD
FIELD SyncListino
END
BOOLEAN F_SCONTRINI
BEGIN
PROMPT 2 7 "Scontrini "
FIELD SyncScontr
END
BOOLEAN F_CORRISPETTIVI
BEGIN
PROMPT 2 8 "Corrispettivi "
FIELD SyncCorr
END
BOOLEAN F_DOCUMENTI
BEGIN
PROMPT 2 9 "Documenti "
FIELD SyncDoc
END
BOOLEAN F_CARSCAR
BEGIN
PROMPT 2 10 "Carichi/scarichi "
FIELD SyncCarScar
END
BOOLEAN F_GENERICI
BEGIN
PROMPT 2 11 "Mov.generici "
FIELD SyncGenerici
END
BOOLEAN F_VALUTE
BEGIN
PROMPT 40 2 "Valute"
FIELD SyncVAL
END
BOOLEAN F_CLIENTI
BEGIN
PROMPT 40 3 "Clienti"
FIELD SyncClienti
END
BOOLEAN F_FORNITORI
BEGIN
PROMPT 40 4 "Fornitori "
FIELD SyncFornitori
END
BOOLEAN F_BARCODE
BEGIN
PROMPT 40 5 "Codici a barre"
FIELD SyncBarCode
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 14 "@bFiltri"
END
DATE F_DAL
BEGIN
PROMPT 2 15 "Dalla data di modifica "
FIELD SyncDateFrom
END
DATE F_AL
BEGIN
PROMPT 42 15 " al "
FIELD SyncDateTo
END
ENDPAGE
PAGE "Parametri" 0 2 0 0
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 1 "@bImpostazioni documenti"
END
STRING F_CODNUMBOL 4
BEGIN
PROMPT 2 2 "Numerazione bolle "
FIELD CODNUMBOL
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUMBOL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUMBOL CODTAB
FLAG "UPA"
WARNING "Numerazione assente"
KEY 1 2
END
STRING F_TIPODOCBOL 4
BEGIN
PROMPT 40 2 "Tipo bolle "
FIELD TIPODOCBOL
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOCBOL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOCBOL CODTAB
FLAG "UP"
END
STRING F_CODNUMFAT 4
BEGIN
PROMPT 2 3 "Numerazione fatture "
FIELD CODNUMFAT
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUMFAT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUMFAT CODTAB
FLAG "UPA"
WARNING "Numerazione assente"
KEY 1 2
END
STRING F_TIPODOCFAT 4
BEGIN
PROMPT 40 3 "Tipo fatture "
FIELD TIPODOCFAT
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOCFAT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOCFAT CODTAB
FLAG "UP"
END
STRING F_CODNUMNC 4
BEGIN
PROMPT 2 4 "Numerazione NC "
FIELD CODNUMNC
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUMNC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUMNC CODTAB
FLAG "UPA"
WARNING "Numerazione assente"
KEY 1 2
END
STRING F_TIPODOCNC 4
BEGIN
PROMPT 40 4 "Tipo NC "
FIELD TIPODOCNC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOCNC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOCNC CODTAB
FLAG "UP"
END
STRING F_CODNUMTAM 4
BEGIN
PROMPT 2 5 "Numerazione TAM "
FIELD CODNUMTAM
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUMTAM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUMTAM CODTAB
FLAG "UPA"
WARNING "Numerazione assente"
KEY 1 2
END
STRING F_TIPODOCTAM 4
BEGIN
PROMPT 40 5 "Tipo TAM "
FIELD TIPODOCTAM
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOCTAM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOCTAM CODTAB
FLAG "UP"
END
STRING F_CODNUMORC 4
BEGIN
PROMPT 2 6 "Numerazione ORC "
FIELD CODNUMORC
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUMORC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUMORC CODTAB
FLAG "UPA"
WARNING "Numerazione assente"
KEY 1 2
END
STRING F_TIPODOCORC 4
BEGIN
PROMPT 40 6 "Tipo ORC "
FIELD TIPODOCORC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOCORC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOCORC CODTAB
FLAG "UP"
END
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 8 "@bMovimenti"
END
STRING F_C_CARSCAR 4
BEGIN
PROMPT 2 9 "Causale magazzino car./scar. "
USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
INPUT CODTAB F_C_CARSCAR
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_C_CARSCAR CODTAB
OUTPUT F_D_CARSCAR S0
CHECKTYPE NORMAL
FIELD CODCAUS(1)
ADD RUN mg0 -0 %CAU
END
STRING F_D_CARSCAR 50 36
BEGIN
PROMPT 40 9 ""
FLAGS "D"
END
STRING F_C_DOCUMENTI 4
BEGIN
PROMPT 2 10 "Causale magazzino documenti "
USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
INPUT CODTAB F_C_DOCUMENTI
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_C_DOCUMENTI CODTAB
OUTPUT F_D_DOCUMENTI S0
CHECKTYPE NORMAL
FIELD CODCAUS(2)
ADD RUN mg0 -0 %CAU
END
STRING F_D_DOCUMENTI 50 36
BEGIN
PROMPT 40 10 ""
FLAGS "D"
END
STRING F_C_SCONTRINI 4
BEGIN
PROMPT 2 11 "Causale magazzino scontrini "
USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
INPUT CODTAB F_C_SCONTRINI
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_C_SCONTRINI CODTAB
OUTPUT F_D_SCONTRINI S0
CHECKTYPE NORMAL
FIELD CODCAUS(3)
ADD RUN mg0 -0 %CAU
END
STRING F_D_SCONTRINI 50 36
BEGIN
PROMPT 40 11 ""
FLAGS "D"
END
STRING F_C_GENERICI 4
BEGIN
PROMPT 2 12 "Causale magazzino mov.generici "
USE %CAU SELECT (S2[8,8]=1)&&(S6="P")
INPUT CODTAB F_C_GENERICI
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_C_GENERICI CODTAB
OUTPUT F_D_GENERICI S0
CHECKTYPE NORMAL
FIELD CODCAUS(4)
ADD RUN mg0 -0 %CAU
END
STRING F_D_GENERICI 50 36
BEGIN
PROMPT 40 12 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 14 "@bCorrispettivi"
END
STRING F_C_CORRISPETTIVI 4
BEGIN
PROMPT 2 15 "Causale contabile "
USE LF_CAUSALI SELECT TIPODOC="CR"
INPUT CODCAUS F_C_CORRISPETTIVI
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_C_CORRISPETTIVI CODCAUS
OUTPUT F_D_CORRISPETTIVI DESCR
CHECKTYPE NORMAL
FIELD CODCAUSC
ADD RUN cg0 -4
END
STRING F_D_CORRISPETTIVI 50 36
BEGIN
PROMPT 40 15 ""
FLAGS "D"
END
BOOLEAN F_CLIFODC
BEGIN
PROMPT 2 17 "Doppio controllo cod.cli"
FIELD ClifoDC
END
BOOLEAN F_OVERRIG
BEGIN
PROMPT 40 17 "Riga merce custom"
FIELD UseCustomRiga
MESSAGE FALSE DISABLE,F_NUMCUSTRIG
MESSAGE TRUE ENABLE,F_NUMCUSTRIG
END
STRING F_NUMCUSTRIG 2
BEGIN
PROMPT 60 17 ""
FIELD NumCustomRiga
FLAGS "D"
CHECKYPE REQUIRED
END
STRING F_CODIVADEF 4
BEGIN
PROMPT 2 18 "Utilizza cod.IVA default "
USE %IVA
INPUT CODTAB F_CODIVADEF
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "%@6" R0
DISPLAY "Tipo" S1
OUTPUT F_CODIVADEF CODTAB
HELP "Codice IVA per righe con valore nullo"
FIELD CodIvaDef
CHECKTYPE REQUIRED
END
BOOLEAN F_ENIMPORT
BEGIN
PROMPT 2 19 "Abilita Importazione"
FIELD EnableImp
END
BOOLEAN F_ENEXPORT
BEGIN
PROMPT 40 19 "Abilita Esportazione"
FIELD EnableExp
END
BOOLEAN F_EMPTYONIMP
BEGIN
PROMPT 2 20 "Svuola DB dopo importazione"
FIELD EmptyOnImp
END
BOOLEAN F_ENABCONAI
BEGIN
PROMPT 40 20 "Abilita gestione CONAI"
FIELD EnabCONAI
END
STRING F_IMPORTUSER 20
BEGIN
PROMPT 2 21 "Utente che effettua l'importazione "
FIELD ImportUser
END
ENDPAGE
ENDMASK