[INFO] NAZWA_SZABLONU=Sap Business One Kontrahenci TYP_POLACZENIA=ADO [TABELE_SEKAFI] TAB001=REJESTR_FIRM TAB002=TELEFONY TAB003=TELEFONY TAB004=TELEFONY TAB005=REJESTR_LOKALIZACJI TAB006=GRUPY TAB007=GRUPY_POWIAZANIA TAB008=OSOBY TAB009=ZATRUDNIENIE TAB010=SERWISANT_PLOMBY TAB011=ADRESY_EMAIL [TABELE_OBCE] OCRD=SELECT * FROM OCRD WHERE OCRD.QryGroup17 = 'Y' or OCRD.QryGroup4 = 'Y' CRD1=SELECT * FROM CRD1 WHERE CRD1.CARDCODE = :CARDCODE OCRG=SELECT * FROM OCRG WHERE OCRG.GROUPCODE = :GROUPCODE OCPR=SELECT * FROM OCPR WHERE OCPR.POSITION NOT LIKE '' AND OCPR.NOTES1 NOT LIKE '' AND OCPR.CARDCODE = :CARDCODE [TABELE_OBCE_POWIAZANIA] CRD1=OCRD OCRG=OCRD OCPR=OCRD [ILOSC_REOKORDOW] ILOSC=SELECT COUNT(*) FROM OCRD WHERE OCRD.QryGroup17 = 'Y' or OCRD.QryGroup4 = 'Y' [OBLICZENIA] INT001=GETID(GEN_REJESTR_FIRM) INT002=GETID(GEN_TELEFONY) INT003=GETID(GEN_TELEFONY) INT004=GETID(GEN_TELEFONY) INT005=GETID(GEN_REJESTR_LOKALIZACJI) INT006=GETID(GEN_GRUPY) INT007=GETID(GEN_GRUPY_POWIAZANIA) INT008=GETID(GEN_OSOBY) INT009=GETID(GEN_ZATRUDNIENIE) INT010=GETID(GEN_SERWISANT_PLOMBY) INT011=GETID(GEN_ADRESY_EMAIL) [TAB001] DATASET=-1 SQL_INSERT=INSERT INTO REJESTR_FIRM(%s) VALUES(%s) SQL_UPDATE=UPDATE REJESTR_FIRM SET %s WHERE FIRMA_ID = %d NAZWA_POLA_ID=FIRMA_ID FIRMA_ID=(G)INT001 ZAZNACZ=(S)N AKTYWNE=(S)N ZABLOKOWANY=(S)N NAZWA_SKROT=OCRD.CARDCODE PREFIX_QQ7=OCRD.CARDCODE NAZWA_FIRMY=OCRD.CARDNAME KRAJ_SYMBOL1=(QS)SELECT FIRST 1 NAZWA FROM REJESTR_PANSTW WHERE SYMBOL = :OCRD.COUNTRY: OR SKROT_VAT = :OCRD.COUNTRY: OR PREFIX_DOK = :OCRD.COUNTRY: KOD_POCZT1=OCRD.ZIPCODE MIASTO_POCZTA1=OCRD.MAILCITY MIASTO1=OCRD.CITY ULICA1=(FUN)ROZBIJULICENRDOMU(:OCRD.ADDRESS:, 1) NRDOMU1=(FUN)ROZBIJULICENRDOMU(:OCRD.ADDRESS:, 2) NRLOKALU1=(FUN)ROZBIJULICENRDOMU(:OCRD.ADDRESS:, 3) WOJEW_ID=(QI)SELECT FIRST 1 NOWY_WOJ_ID FROM KODY98 WHERE KODPOCZTOWY = :OCRD.ZIPCODE: POWIAT_ID=(QI)SELECT FIRST 1 NOWY_POWIAT_ID FROM KODY98 WHERE KODPOCZTOWY = :OCRD.ZIPCODE: GMINA_ID=(QI)SELECT FIRST 1 NOWY_GMINA_ID FROM KODY98 WHERE KODPOCZTOWY = :OCRD.ZIPCODE: NIP=OCRD.LICTRADNUM REGON=(FUN)USUNZNAKI(:OCRD.U_REGON:, -) WWWHTTP=OCRD.U_WWW ADRES_KORESPOND=(S)N KRAJ_SYMBOL2=(QS)SELECT FIRST 1 NAZWA FROM REJESTR_PANSTW WHERE SYMBOL = :OCRD.COUNTRY: OR SKROT_VAT = :OCRD.COUNTRY: OR PREFIX_DOK = :OCRD.COUNTRY: MAX_KREDYT=OCRD.CREDITLINE MAX_KREDYT_WALUTA=OCRD.CURRENCY F_PRODUCENT=(S)N F_SERWIS=(FUN)WARUNEKIF([:OCRD.QRYGROUP4:, :OCRD.QRYGROUP8:], Y, T, N) F_DYSTRYBUTOR=(S)N F_PODATNIK=(FUN)WARUNEKIF([:OCRD.QRYGROUP17:], Y, T, N) F_SPEDYTOR=(S)N F_INNE=(S)N F_PRODUCENT_FISK=(S)N F_PR=(S)N F_INTEGRATOR=(S)N ZNACZNIK=(S)N JEST_NIP=(FUN)LENS(:OCRD.LICTRADNUM:) JEST_REGON=(FUN)LENS(:OCRD.U_REGON:) JEST_DZIALALNOSC=(S)N JEST_WEKSEL=(S)N JEST_UPOWAZNIENIE_VAT=(S)N OPIS=OCRD.FREE_TEXT CZY_VAT=(FUN)LENS(:OCRD.LICTRADNUM:) TYP_PLATNOSC=(S)G PRZELEW_ILE_DNI=(N)0 KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() JEST_DATA_UPOWAZNIENIA=(S)N ZGODA_DANE_OSOBOWE=(S)N ZGODA_MARKETING=(S)N ZGODA_OFERTY=(S)N CZY_NUMER_UMOWY=(S)N CZY_NR_STAREJ_UMOWY=(S)N CZY_ANEKS=(S)N NIP_PANSTWO=(QS)SELECT FIRST 1 NAZWA FROM REJESTR_PANSTW WHERE SYMBOL = :OCRD.COUNTRY: OR SKROT_VAT = :OCRD.COUNTRY: OR PREFIX_DOK = :OCRD.COUNTRY: DOMYSLNY_SPEDYTOR=(S)N CZY_OSTRZEZENIE=(S)N REFAKTURING=(S)N CZY_BONUS=(S)N CZY_PLATNIK_VAT=(FUN)LENS(:OCRD.LICTRADNUM:) CZY_ROLNIK_RYCZALT=(S)N CZY_ROZLICZ_DEWIZOWE=(S)N WALUTA_ROZLICZ_DEWIZOWE=OCRD.CURRENCY ZAK_SPOSOB_PLATNOSCI=(S)G ZAK_LIMIT_KREDYTU_WALUTA=OCRD.CURRENCY [TAB001_WARUNKI] TST001=LENGTH(OCRD.CARDCODE) WAR001=SELECT COUNT(*) FROM REJESTR_FIRM WHERE UPPER(NAZWA_SKROT COLLATE PXW_PLK) = :OCRD.CARDCODE: EDT001=SELECT FIRMA_ID FROM REJESTR_FIRM WHERE UPPER(NAZWA_SKROT COLLATE PXW_PLK) = :OCRD.CARDCODE: UPDGEN=INT001 [TAB002] DATASET=-1 SQL_INSERT=INSERT INTO TELEFONY(%s) VALUES(%s) SQL_UPDATE=UPDATE TELEFONY SET %s WHERE TEL_ID = :(O)INT002: NAZWA_POLA_ID=TEL_ID TEL_ID=(G)INT002 NUMER=OCRD.PHONE1 POLE_ID=(O)INT001 TAB_OBCA=(S)REJESTR_FIRM DOMYSLNY=(S)N ZNACZNIK=(S)S TEL_FAX=(N)0 KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB002_WARUNKI] TST001=LENGTH(OCRD.PHONE1) WAR001=SELECT COUNT(*) FROM TELEFONY WHERE TAB_OBCA = 'REJESTR_FIRM' AND POLE_ID = :(O)INT001: AND UPPER(NUMER COLLATE PXW_PLK) = :OCRD.PHONE1: EDT001=SELECT TEL_ID FROM TELEFONY WHERE TAB_OBCA = 'REJESTR_FIRM' AND POLE_ID = :(O)INT001: AND UPPER(NUMER COLLATE PXW_PLK) = :OCRD.PHONE1: UPDGEN=INT002 [TAB003] DATASET=-1 SQL_INSERT=INSERT INTO TELEFONY(%s) VALUES(%s) SQL_UPDATE=UPDATE TELEFONY SET %s WHERE TEL_ID = :(O)INT003: NAZWA_POLA_ID=TEL_ID TEL_ID=(G)INT003 NUMER=OCRD.PHONE2 POLE_ID=(O)INT001 TAB_OBCA=(S)REJESTR_FIRM DOMYSLNY=(S)N ZNACZNIK=(S)S TEL_FAX=(N)0 KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB003_WARUNKI] TST001=LENGTH(OCRD.PHONE2) WAR001=SELECT COUNT(*) FROM TELEFONY WHERE TAB_OBCA = 'REJESTR_FIRM' AND POLE_ID = :(O)INT001: AND UPPER(NUMER COLLATE PXW_PLK) = :OCRD.PHONE2: EDT001=SELECT TEL_ID FROM TELEFONY WHERE TAB_OBCA = 'REJESTR_FIRM' AND POLE_ID = :(O)INT001: AND UPPER(NUMER COLLATE PXW_PLK) = :OCRD.PHONE2: UPDGEN=INT003 [TAB004] DATASET=-1 SQL_INSERT=INSERT INTO TELEFONY(%s) VALUES(%s) SQL_UPDATE=UPDATE TELEFONY SET %s WHERE TEL_ID = :(O)INT004: NAZWA_POLA_ID=TEL_ID TEL_ID=(G)INT004 NUMER=OCRD.CELLULAR POLE_ID=(O)INT001 TAB_OBCA=(S)REJESTR_FIRM DOMYSLNY=(S)N ZNACZNIK=(S)S TEL_FAX=(N)0 KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB004_WARUNKI] TST001=LENGTH(OCRD.CELLULAR) WAR001=SELECT COUNT(*) FROM TELEFONY WHERE TAB_OBCA = 'REJESTR_FIRM' AND POLE_ID = :(O)INT001: AND UPPER(NUMER COLLATE PXW_PLK) = :OCRD.CELLULAR: EDT001=SELECT TEL_ID FROM TELEFONY WHERE TAB_OBCA = 'REJESTR_FIRM' AND POLE_ID = :(O)INT001: AND UPPER(NUMER COLLATE PXW_PLK) = :OCRD.CELLULAR: UPDGEN=INT004 [TAB005] DATASET=CRD1 SQL_INSERT=INSERT INTO REJESTR_LOKALIZACJI(%s) VALUES(%s) SQL_UPDATE=UPDATE REJESTR_LOKALIZACJI SET %s WHERE MIEJSCE_ID = :(O)INT005: NAZWA_POLA_ID=MIEJSCE_ID MIEJSCE_ID=(G)INT004 FIRMA_ID=(O)INT001 ZAZNACZ=(S)N AKTYWNE=(S)N NAZWA_MIEJSCA=CRD1.ADDRESS KRAJ_SYMBOL=(QS)SELECT FIRST 1 NAZWA FROM REJESTR_PANSTW WHERE SYMBOL = :CRD1.COUNTRY: OR SKROT_VAT = :CRD1.COUNTRY: OR PREFIX_DOK = :CRD1.COUNTRY: KOD_POCZTOWY=CRD1.ZIPCODE MIASTO_POCZTA=CRD1.CITY MIASTO=CRD1.CITY ULICA=(FUN)ROZBIJULICENRDOMU(:CRD1.STREET:, 1) NR_DOMU=(FUN)ROZBIJULICENRDOMU(:CRD1.STREET:, 2) NR_LOKALU=(FUN)ROZBIJULICENRDOMU(:CRD1.STREET:, 3) KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() WOJEW_ID=(QI)SELECT FIRST 1 NOWY_WOJ_ID FROM KODY98 WHERE KODPOCZTOWY = :CRD1.ZIPCODE: POWIAT_ID=(QI)SELECT FIRST 1 NOWY_POWIAT_ID FROM KODY98 WHERE KODPOCZTOWY = :CRD1.ZIPCODE: GMINA_ID=(QI)SELECT FIRST 1 NOWY_GMINA_ID FROM KODY98 WHERE KODPOCZTOWY = :CRD1.ZIPCODE: KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() CZY_OSTRZEZENIE=(S)N [TAB005_WARUNKI] TST001=LENGTH(CRD1.ADDRESS) WAR001=SELECT COUNT(*) FROM REJESTR_LOKALIZACJI WHERE FIRMA_ID = :(O)INT001: AND UPPER(NAZWA_MIEJSCA COLLATE PXW_PLK) = :CRD1.ADDRESS: EDT001=SELECT MIEJSCE_ID FROM REJESTR_LOKALIZACJI WHERE FIRMA_ID = :(O)INT001: AND UPPER(NAZWA_MIEJSCA COLLATE PXW_PLK) = :CRD1.ADDRESS: UPDGEN=INT005 [TAB006] DATASET=OCRG SQL_INSERT=INSERT INTO GRUPY(%s) VALUES(%s) SQL_UPDATE=NO NAZWA_POLA_ID=GRUPA_ID TYP=(S)KONTRAHENT GRUPA_ID=(G)INT006 NAZWA=OCRG.GROUPNAME KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB006_WARUNKI] TST001=LENGTH(OCRG.GROUPNAME) WAR001=SELECT COUNT(*) FROM GRUPY WHERE UPPER(NAZWA COLLATE PXW_PLK) = :OCRG.GROUPNAME: EDT001=NO UPDGEN=NO [TAB007] DATASET=OCRG SQL_INSERT=INSERT INTO GRUPY_POWIAZANIA(%s) VALUES(%s) SQL_UPDATE=NO NAZWA_POLA_ID=GP_ID GP_ID=(G)INT007 TYP=(S)KONTRAHENT GRUPA_ID=(QI)SELECT GRUPA_ID FROM GRUPY WHERE TYP='KONTRAHENT' AND NAZWA = :OCRG.GROUPNAME: POLE_ID=(O)INT001 KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB007_WARUNKI] TST001=LENGTH(OCRG.GROUPNAME) WAR001=SELECT COUNT(*) FROM GRUPY_POWIAZANIA GP, GRUPY G WHERE G.GRUPA_ID = GP.GRUPA_ID AND GP.TYP = 'KONTRAHENT' AND GP.POLE_ID = :(O)INT001: AND G.NAZWA = :OCRG.GROUPNAME: EDT001=NO UPDGEN=NO [TAB008] DATASET=OCPR SQL_INSERT=INSERT INTO OSOBY(%s) VALUES(%s) SQL_UPDATE=NO NAZWA_POLA_ID=OSOBA_ID OSOBA_ID=(G)INT008 ZAZNACZ=(S)N IMIE=OCPR.POSITION NAZWISKO=OCPR.POSITION TYP_POJAZD=(S)N CZY_TERENOWY=(S)N CZY_UPRAWNIENIA=(S)T CZY_SERWISANT=(S)T NIEAKTYWNE=(S)N CZY_OSTRZEZENIE=(S)N KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB008_WARUNKI] TST001=LENGTH(OCPR.NAME) WAR001=SELECT COUNT(*) FROM OSOBY O, ZATRUDNIENIE Z WHERE UPPER(O.NAZWISKO COLLATE PXW_PLK) = :OCPR.POSITION: AND Z.TYP = 'Firma' AND Z.FIRMA_US_ID = :(O)INT001: AND O.OSOBA_ID = Z.OSOBA_ID EDT001=NO UPDGEN=NO [TAB009] DATASET=OCPR SQL_INSERT=INSERT INTO ZATRUDNIENIE(%s) VALUES(%s) SQL_UPDATE=NO NAZWA_POLA_ID=ZATRUDNIENIE_ID ZATRUDNIENIE_ID=(G)INT009 OSOBA_ID=(QI)SELECT OSOBA_ID FROM OSOBY WHERE NAZWISKO = :OCPR.POSITION: TYP=(S)Firma FIRMA_US_ID=(O)INT001 FIRMA_US_NAZWA=OCRD.CARDNAME KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB009_WARUNKI] TST001=LENGTH(OCPR.NAME) WAR001=SELECT COUNT(*) FROM ZATRUDNIENIE Z, OSOBY O WHERE UPPER(O.NAZWISKO COLLATE PXW_PLK) = :OCPR.POSITION: AND Z.TYP = 'Firma' AND Z.FIRMA_US_ID = :(O)INT001: AND O.OSOBA_ID = Z.OSOBA_ID EDT001=NO UPDGEN=NO [TAB010] DATASET=OCPR SQL_INSERT=INSERT INTO SERWISANT_PLOMBY(%s) VALUES(%s) SQL_UPDATE=NO NAZWA_POLA_ID=PLOMBA_ID PLOMBA_ID=(G)INT010 PLOMBA=OCPR.NOTES1 SERWISANT_ID=(QI)SELECT OSOBA_ID FROM OSOBY WHERE NAZWISKO = :OCPR.POSITION: DATA_OD=(FUN)SAP_UPRAWNIENIA_OD(:OCPR.NOTES2:, 1) DATA_DO=(FUN)SAP_UPRAWNIENIA_OD(:OCPR.NOTES2:, 2) KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB010_WARUNKI] TST001=LENGTH(OCPR.NOTES2) TST002=LENGTH(OCPR.POSITION) WAR001=SELECT COUNT(*) FROM SERWISANT_PLOMBY S, OSOBY O WHERE S.SERWISANT_ID = O.OSOBA_ID AND UPPER(O.NAZWISKO COLLATE PXW_PLK) = :OCPR.POSITION: EDT001=NO UPDGEN=NO [TAB011] DATASET=OCPR SQL_INSERT=INSERT INTO ADRESY_EMAIL(%s) VALUES(%s) SQL_UPDATE=NO NAZWA_POLA_ID=EMAIL_ID EMAIL_ID=(G)INT011 ADRES=OCPR.E_MAILL POLE_ID=(QI)SELECT OSOBA_ID FROM OSOBY WHERE NAZWISKO = :OCPR.POSITION: TAB_OBCA=(S)OSOBY TAB_OBCA_DODATEK=(S)REJESTR_FIRM POLE_ID_DODATEK=(O)INT001 ZNACZNIK=(S)S KTO_UTWORZYL=(S)SAPTOSE DATA_UTWORZ=(FUN)GETDATE() STANOWISKO=(FUN)STANOWISKO() [TAB011_WARUNKI] TST001=LENGTH(OCPR.E_MAILL) EDT001=NO UPDGEN=NO