dbo.sp_getdata_modulbc23

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
CREATE PROCEDURE dbo.sp_getdata_modulbc23
 (@inputcar varchar(26), @conn varchar(500), @noinv varchar(500), @idhdrbc23 bigint)
AS
BEGIN
 SET ANSI_WARNINGS ON
 SET ANSI_NULLS ON
   Declare @dynmaicsql as  nvarchar(1000);
 Declare @dynamicparam as nvarchar(1000);
 Declare @returnedcar as int
 Declare @returnedcardok as int
 Set @dynmaicsql = 
'set @car=(select count(*) from OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+ @conn +
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblBC23Hdr where CAR = '''+ @inputcar +
''') set @cardok=(select count(*) from OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+ @conn +
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblBC23Dok where CAR = '''+ @inputcar +''' and (DokKd =''705'' or DokKd=''740'') and replace(DokNo, char(32),'''') = '''+@noinv+
''') '
 Set @dynamicparam = '@car varchar(100) output, @cardok varchar(100) output'
 execute sp_executesql
          @dynmaicsql   
         ,@dynamicparam
         ,@returnedcar  output
         ,@returnedcardok  output
 
  
     
    if @returnedcar = 0
    begin
  select '06' as status, ' CAR NOT FOUND' as description 
  return
    end;
    
    if @returnedcardok = 0
    begin
  select '06' as status, ' BL NOT FOUND' as description 
  return
    end;
    
      
  exec (
' DECLARE @CAR varchar(26) DECLARE @KdKpbc varchar(6) DECLARE @Tujuan varchar(1) DECLARE @JnsBarang varchar(2) DECLARE @TujuanKirim varchar(2) DECLARE @PasokNama varchar(50) DECLARE @PasokAlmt varchar(70) DECLARE @PasokNeg varchar(2) DECLARE @UsahaId varchar(1) DECLARE @UsahaNpwp varchar(15) DECLARE @KdTPB varchar(1) DECLARE @Registrasi varchar(20) DECLARE @UsahaNama varchar(50) DECLARE @UsahaAlmt varchar(70) DECLARE @UsahaStatus varchar(2) DECLARE @ApiKd varchar(1) DECLARE @ApiNo varchar(15) DECLARE @PpjkId varchar(1) DECLARE @PpjkNpwp varchar(15) DECLARE @PpjkNama varchar(50) DECLARE @PpjkAlmt varchar(70) DECLARE @PpjkNo varchar(6) DECLARE @PpjkTg datetime DECLARE @IndId varchar(1) DECLARE @IndNpwp varchar(15) DECLARE @IndNama varchar(50) DECLARE @IndAlmt varchar(70) DECLARE @Moda varchar(1) DECLARE @AngkutNama varchar(20) DECLARE @AngkutNo varchar(7) DECLARE @AngkutFl varchar(2) DECLARE @PelBkr varchar(5) DECLARE @PelMuat varchar(5) DECLARE @PelTransit varchar(5) DECLARE @BC23No varchar(6) DECLARE @BC23Tg datetime DECLARE @KdKpbcBongkar varchar(6) DECLARE @KdKpbcAwas varchar(6) DECLARE @DokTupKd varchar(1) DECLARE @DokTupNo varchar(6) DECLARE @DokTupTg datetime DECLARE @PosNo varchar(4) DECLARE @PosSub varchar(4) DECLARE @TmpTbn varchar(4) DECLARE @KdVal varchar(3) DECLARE @Ndpbm float DECLARE @NilInv float DECLARE @Freight float DECLARE @BTambahan float DECLARE @Diskon float DECLARE @KdAss varchar(1) DECLARE @Asuransi float DECLARE @KdHrg varchar(1) DECLARE @Fob float DECLARE @Cif float DECLARE @Bruto float DECLARE @Netto float DECLARE @JmCont int DECLARE @JmBrg int DECLARE @TglTtd datetime DECLARE @KotaTtd varchar(30) DECLARE @Namattd varchar(30) DECLARE @ContakPerson varchar(30) DECLARE @NoPhone varchar(25) DECLARE @NoFax varchar(25) DECLARE @Email varchar(50) DECLARE @Status varchar(2) DECLARE @Snrf varchar(10) DECLARE @Lengkap char(1) DECLARE @PosSubSub varchar(4) select @CAR=CAR ,@KdKpbc=KdKpbc ,@Tujuan=Tujuan ,@JnsBarang=JnsBarang ,@TujuanKirim=TujuanKirim ,@PasokNama=PasokNama ,@PasokAlmt=PasokAlmt ,@PasokNeg=PasokNeg ,@UsahaId=UsahaId ,@UsahaNpwp=UsahaNpwp ,@KdTPB=KdTPB ,@Registrasi=Registrasi ,@UsahaNama=UsahaNama ,@UsahaAlmt=UsahaAlmt ,@UsahaStatus=UsahaStatus ,@ApiKd=ApiKd ,@ApiNo=ApiNo ,@PpjkId=PpjkId ,@PpjkNpwp=PpjkNpwp ,@PpjkNama=PpjkNama ,@PpjkAlmt=PpjkAlmt ,@PpjkNo=PpjkNo ,@PpjkTg=PpjkTg ,@IndId=IndId ,@IndNpwp=IndNpwp ,@IndNama=IndNama ,@IndAlmt=IndAlmt ,@Moda=Moda ,@AngkutNama=AngkutNama ,@AngkutNo=AngkutNo ,@AngkutFl=AngkutFl ,@PelBkr=PelBkr ,@PelMuat=PelMuat ,@PelTransit=PelTransit ,@BC23No=BC23No ,@BC23Tg=BC23Tg ,@KdKpbcBongkar=KdKpbcBongkar ,@KdKpbcAwas=KdKpbcAwas ,@DokTupKd=DokTupKd ,@DokTupNo=DokTupNo ,@DokTupTg=DokTupTg ,@PosNo=PosNo ,@PosSub=PosSub ,@TmpTbn=TmpTbn ,@KdVal=KdVal ,@Ndpbm=Ndpbm ,@NilInv=NilInv ,@Freight=Freight ,@BTambahan=BTambahan ,@Diskon=Diskon ,@KdAss=KdAss ,@Asuransi=Asuransi ,@KdHrg=KdHrg ,@Fob=Fob ,@Cif=Cif ,@Bruto=Bruto ,@Netto=Netto ,@JmCont=JmCont ,@JmBrg=JmBrg ,@TglTtd=TglTtd ,@KotaTtd=KotaTtd ,@Namattd=Namattd ,@ContakPerson=ContakPerson ,@NoPhone=NoPhone ,@NoFax=NoFax ,@Email=Email ,@Status=Status ,@Snrf=Snrf ,@Lengkap=Lengkap ,@PosSubSub=PosSubSub from OPENDATASOURCE(''Microsoft.ACE.OLEDB.12.0'', ''Data Source='+ @conn +
'; Jet OLEDB:Database Password=MumtazFarisHana;Persist Security Info=False;'' )...tblBC23Hdr where CAR = '''+ @inputcar +
''' Update dbo.tbl_bc_in_hdr set CAR=@CAR ,KdKpbc=@KdKpbc ,Tujuan=@Tujuan ,JnsBarang=@JnsBarang ,TujuanKirim=@TujuanKirim ,PasokNama=@PasokNama ,PasokAlmt=@PasokAlmt ,PasokNeg=@PasokNeg ,UsahaId=@UsahaId ,UsahaNpwp=@UsahaNpwp ,KdTPB=@KdTPB ,Registrasi=@Registrasi ,UsahaNama=@UsahaNama ,UsahaAlmt=@UsahaAlmt ,UsahaStatus=@UsahaStatus ,ApiKd=@ApiKd ,ApiNo=@ApiNo ,PpjkId=@PpjkId ,PpjkNpwp=@PpjkNpwp ,PpjkNama=@PpjkNama ,PpjkAlmt=@PpjkAlmt ,PpjkNo=@PpjkNo ,PpjkTg=@PpjkTg ,IndId=@IndId ,IndNpwp=@IndNpwp ,IndNama=@IndNama ,IndAlmt=@IndAlmt ,Moda=@Moda ,AngkutNama=@AngkutNama ,AngkutNo=@AngkutNo ,AngkutFl=@AngkutFl ,PelBkr=@PelBkr ,PelMuat=@PelMuat ,PelTransit=@PelTransit ,BC23No=@BC23No ,BC23Tg=@BC23Tg ,KdKpbcBongkar=@KdKpbcBongkar ,KdKpbcAwas=@KdKpbcAwas ,DokTupKd=@DokTupKd ,DokTupNo=@DokTupNo ,DokTupTg=@DokTupTg ,PosNo=@PosNo ,PosSub=@PosSub ,TmpTbn=@TmpTbn ,KdVal=@KdVal ,Ndpbm=@Ndpbm ,NilInv=@NilInv ,Freight=@Freight ,BTambahan=@BTambahan ,Diskon=@Diskon ,KdAss=@KdAss ,Asuransi=@Asuransi ,KdHrg=@KdHrg ,Fob=@Fob ,Cif=@Cif ,Bruto=@Bruto ,Netto=@Netto ,JmCont=@JmCont ,JmBrg=@JmBrg ,TglTtd=@TglTtd ,KotaTtd=@KotaTtd ,Namattd=@Namattd ,ContakPerson=@ContakPerson ,NoPhone=@NoPhone ,NoFax=@NoFax ,Email=@Email ,Status=@Status ,Snrf=@Snrf ,Lengkap=@Lengkap ,PosSubSub=@PosSubSub where id_bc_in_hdr='+ @idhdrbc23 +
' ')
  
  select '00' as status, ' DATA UPDATED' as description
  
  
END
GO