mojaSymfonia FORUM
https://forum.mix-soft.pl/

HMF AmBasic Rachunek bankowy
https://forum.mix-soft.pl/viewtopic.php?f=15&t=8217		 Strona 1 z 1
Autor:  gringo2 [ 2017-12-01, 13:01 ]
Tytuł:  HMF AmBasic Rachunek bankowy
Witam,

czy ktoś orientuje się może jak z poziomu AmBasic dodać rachunek bankowy do kontrahenta?

Z góry dziękuję za odpowiedzi.
Pozdrawiam
Autor:  gringo2 [ 2017-12-06, 11:51 ]
Tytuł:  Re: HMF AmBasic Rachunek bankowy
Poradziłem sobie z problemem. Gdyby ktoś w przyszłości potrzebował, poniżej procedura składowana dodawania rachunku bankowego dla kontrahenta w HMF:
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE OM_DodawanieRachunkuBankowego
@idKH int,
@nrRachunku varchar(250),
@nazwaBanku varchar(250),
@swift varchar(250)
AS
BEGIN
SET NOCOUNT ON;

declare @guidelements uniqueidentifier
declare @guidbanking uniqueidentifier
declare @guidelementsS varchar(250)
declare @elementsPosition int

set @guidelements = NEWID()
set @guidbanking = NEWID()
set @guidelementsS = CAST( @guidelements as varchar(250) )

select top 1 @elementsPosition = Position - 1 from SSCommon.STElements
where ElementKindId = 9
order by Position

insert into SSCommon.STElements
(Guid, Title, Active, AccountNo, Description, ElementKindId, Shortcut, Position, ObjVer)
values
(@guidelements, @guidelementsS, 1, '', '', 9, @guidelementsS, @elementsPosition, 0)

insert into SSCommon.STBankingInfos
(Guid, Name, MainAccount)
values
(@guidbanking, '', @guidelements)

insert into SSCommon.STAccounts
(Guid, BankingInfosGuid, AccountNo, BankName, AccountName, MainElementGuid, Active, SWIFT_BIC)
values
(@guidelements, @guidbanking, @nrRachunku, @nazwaBanku, @guidelementsS, @guidelements, 1, @swift)

update SSCommon.STContractors
set BankingInfoGuid = @guidbanking
where Id = @idKH

END
GO
Autor:  rafal [ 2017-12-07, 09:18 ]
Tytuł:  Re: HMF AmBasic Rachunek bankowy
Kod:
dispatch xKontr = xFActory.NewObject("BKontrahent")
xKontr.Load("kod='Kontr01'")
xKontr.Nazwa
xKontr.Edit()
xKontr.numerRachunku = "84324234234234234"
xKontr.Save()
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/