Članci u ovoj kategoriji: tkm poredjenje 18A i 18K tkm poredjenje 18A i 18K Auto PLU Codes create table #x(id int identity (1,2) not null,ident char (16)) insert into #x (ident)select ident from ms update mset m.anPLUCode = t.id, m.anPLUCode2 = t.id + 1from tHE_SetItem minner join #x t on m... Kada fiskalna RS ne vrati ispravno podatke, zaglavi racun update tHE_Move set acFiscStatus = '4', adDateTimePrint = GetDate() where acKey in ('25F0200001849', '25F0200001848') delete tHE_MoveFiscalisation where acKey = '25F0200001849' insert into tH... Poravnanje iznosa zalihe za nulte kolicine Kod pregleda po prosjecnim cijenama za vrednovanje Procedura uradi izravnjenje preostalog iznosa zalihe na 1R0 dokumentu Ares procedura za kreiranje prenosa za doskontnu prodaju Ares procedura za kreiranje prenosa za doskontnu prodaju SSMS koristiti SSMS koristiti Pocetno stanje iz tHE_Stock use zuinsgo Poravnanje vrijednosti za nulte zalihe declare @acWarehouse char (30), @adDate datetime, PS Roba sa tacnim mpc radi TKM-a --KREIRA BACKUP I RADI RESTORE BAZE, ZATIM BRISE PODATKE IZ RANIJIH GODINA I KREIRA PSuse mastergo if exists (select * from sysdatabases where name = 'dbTEST')beginDROP DATABASE dbTESTend go BACKUP D... PS u istoj bazi Potrebne korekcije skripta Zak godine Dodati alter table tHE_A Ispis A4 racun dosta kolona 55 Ispis PS fin stari nacin delete tHE_AcctTransItem where acKey = '1849000000001'delete tHE_AcctTransItem where acKey = '1940000000001' if object_id('tempdb..#t') is n Poredjenje fin i roba po NC if object_id('tempdb..#f') is not null Lude cjene za vrednovanje update gset g.anStockPrice = m.anBuyPricefrom tHE_MoveItem ginner join tHE_SetItem m on g.acIdent = m.acIdentwhere g.acKey like '15A2Q%' and abs(round(abs(g.anStockPrice),0)- abs(m.anBuyPrice)) > 1... Insert into tHE_SetItem create table m(acIdent char (16),acName char (80),acUM char (3),anFieldNA float,anPrice decimal (18,2),acFieldSA char (30)) Inventurna lista, da je na 0 i Popisni list update the_moveitemset anQty = anDirectCost, anDuty = 0where acKey = '189A200000002' Nacin prodaje i nabavke u dokumentima Kada izmjenimo nacin prodaje ili nabavke u subjektima promjene se ne reflektuju na dukumentima prometa Brisanje tHE_SetSubj set nocount on declare @nesto char (30)declare xPoz cursor local fast_forward forselect acSubject from tHE_SetSubj where acSubject <> ''open xPozfetch from xPoz into @nestowhile @@fetch_status ... Export šifarnika subjekata (osnovno) select acSubject, acName2, acAddress, acPhone, acFax, acJIBCode, acCode,case when acBuyer = 'T' then 'DA' else 'NE' end as Kupac,casewhen acWayOfSale = 'B' then 'NE' --Brckowhen acWayOfSale = 'S' then... Djelimicni unos inventure - dpa dpa Dodjeljivanje statusa Dodjljuje ststuse na vrste dokumenata na kojima je zaboravljeno dodati statuse insert into tPA_SetDocTypeStatP (acDocType, acStatus, acVerified, acName) Kad pantheon pravi problem kod preuzimanja dokumenta u rad create trigger _Brisi on tPA_SysExclusive after insertastruncate table tPA_SysExclusive Greška kod pot.inventure Ukoliko nismo potvrdili inventuru a poslije iste imamo evidentirane promete, u funkciji fHE_MoveExistsAfterDateStock Update odg.osobe iz sif subjekata --retroaktivni update odg.osobe na izlaznim dokumentima iz sifranta subjekata update gset g.anClerk = s.anClerkfrom tHE_Move ginner jo Fin PS - stari nacin delete tHE_AcctTransItem where acKey = '1840000000001'delete tHE_AcctTransItem where acKey = '1749000000001' alter table tHE_AcctTransItem disable Razdvajanje skladista u istoj bazi! --provjerim dokumente na kojia se pojavljuje skladiste select acDocTypefrom tHE_Movewhere acReceiver = 'Maloprodajno skladište' or acissuer Galeb dpa za RS U postavkama, postaviti korisnicke postavke Lock tHE_Move for Insert create trigger _ZabranaMove on tHE_Moveafter insertasif exists(select * from inserted where cast (left(acKey,2) as int) < 18)beginrollbackendgo Brisanje stavki sa nivelacije koje nemaju vrijednost A000006 - Brisanje stavki sa nivelacije koje nemaju vrijednost Procedura za poravnanje negativnih zaliha create procedure [dbo].[sp_izr]as--Dokument za interno poravnanjeset nocount on insert into _logvalues (GetDate(), 'START') Na obliku ispisa nedostaje mi polje Mozete uraditi na dva nacina, 1. koristiti SQLExp('select acNote from tHE_SetItem where acIdent = '''+<tbMS.acIdent>+''' ') ako mogu na nivou sql-a zakljucati potvrđene dokumente. Kreirajte dva triggera alter trigger _slqLock on tHE_Movefor update, deleteasset nocount ondeclare @ErrMsg varchar(255) Some tips for sqli - pantheon 5.0 ~R~PostTable tbdatum~R~ReOpenTable tbdatum~R~PoisciDokument ~S~ select kljuc from ~T~_temp~T~ ~S~ Brisanje tabela veza truncate table dbo.tPA_Link Obnavljanje zalihe A 5.0. exec dl_PA_ObrProm_ObnovitevZaloge ”, ‘Prodavnica’exec dl_PA_ObrProm_ObnovitevZalogeRez ”, ‘Prodavnica’ Objedini inventuru select acIdent, sum(anQty) as anQtyinto #ifrom tHE_MoveItemwhere acKey in (’149ATC0000001′,’149ATC0000002′)group by acIdent alte Reset item Tremol M, reset_items_db.xml <?xml version="1.0" encoding="utf-8" ?> Different Form Types Program AresProject; uses sysutils, classes, forms, dialogs, FForm1, FForm2, FForm3; begin //this is "MDI" thype of form with TForm Unos OS u registra Unos iu tmp tabele OS u registar Upisuje prim.dobavljaca sa kalkulacije A00000W - Upisuje prim.dobavljaca sa kalkulacije Kreiranje narudžbi dobavljaču A000000 - Kreiranje narudžbi dobavljaču Provjerava razlike TKM i Lager Ares procedura, poziva se na dokumentu nivelacije. Kreirajte novi ispis na trenutni datum i na carobnjak pozovite proceduru. Saldo kupca na ispisu fakture 1. Ispod prikazanu skriptu pokrenite na pantheon bazi i na ispisu funkcijom sqlexp dodajte na ispis Zakljucak godine bez otvorenih stavki update tDE_SetAccount set acPermitPost = 'N' update tDE_SetAccount set acPermitPost = 'O' where len(acAcct) > 3 update tDE_SetAccount set acSubject = 'F' update tDE_SetAccount set acSubject =... Pocetno stanje fin 2020/2021 TSQL Skini skript Kod updsate izgube se ispis deklaracija update tPA_Reports set acFormName = 'PrometPreNalepkeIzpisBA' where acFormName like 'PrometPreNalepkeIzpis%' MsgBox Yes No program AresProject; uses SysUtils, Classes, Forms, Dialogs, dlDatabase, db, Controls, StdCtrls, Graphics, dlcomponents; begin if D Kreiranje promjene cijene 12E Staviti u JOB i to je to! declare @nesto char (30), @anUserId int, @d1 datetime, @d2 datetimeset @anUserId= (select top 1 anUserId from tPA_User where acUserId = 'AD')if @anUserId is null DL Backup /L=AD:123 /BCKP:DB=BA_MF /BCKP:CLOUD /BCKP:FULL Zaokruzivanje fiskalni vp - feninzi potrebno view korigovati alter VIEW [dbo].[vHE_MoveItemOut] AS SELECT I.acKey, I.anNo, I.acIdent, I.acName, I.anQty, I.anQtyConverted, I.anQtyTemp, I.acUM, I.acUMConver...