轉換PLSQL函數成爲TSQL

Question

我想下面的函數從PLSQL轉換成tsql.But我不擅長在TSQL也想不出swisssql將其轉換correctly.Canü看看嗎？謝謝

CREATE OR REPLACE function yonetici_kontrol_musteri (p_ID_MUSTERI_SIRKET in number, p_ID_YONETICI in number) 
return number 
is 
v_unvan number; 
v_yonetici number; 
v_tmp_unvan number; 
v_tmp_yonetici number; 
v_result number; 

begin 

v_result:=-1; 


SELECT id_unvan INTO v_unvan FROM lu_yonetici WHERE id_yonetici=p_ID_YONETICI; 


for c in ( SELECT NVL (b.id_mufettis, 0) id_mufettis, b.id_sef 
       FROM cr_rut_musteri c, lu_bayi_temsilci b 
      WHERE c.id_musteri_sirket = p_id_musteri_sirket 
       AND c.id_temsilci = b.id_temsilci 
       AND c.valid = 1 
       AND b.valid = 1 
       AND c.aktif = 1 
       AND b.aktif = 1 
     ) 
loop 

    CASE v_unvan 
    WHEN 1 THEN 
     if c.id_mufettis = p_ID_YONETICI then 
      v_result:=1; 
     else 
      v_result:=0; 
     end if; 
    WHEN 2 THEN -- satis sefi 
     if c.id_sef = p_ID_YONETICI then 
      v_result:=1; 
     else 
      v_result:=0; 
     end if; 
    ELSE 
     v_yonetici:=c.id_sef; 

     loop 
      SELECT uy.id_unvan, uy.id_yonetici INTO v_tmp_unvan, v_tmp_yonetici 
       FROM lu_yonetici y, lu_yonetici uy 
      WHERE y.id_ust_yonetici=uy.id_yonetici 
       AND y.id_yonetici=v_yonetici; 

      if v_tmp_unvan=v_unvan then 
       if v_tmp_yonetici=p_ID_YONETICI then 
        v_result:=1; 
       else 
        v_result:=0;    
       end if; 
      else 
       v_yonetici:=v_tmp_yonetici; 
      end if; 

      exit when v_result=1 or v_tmp_unvan>=v_unvan; 
     end loop;  
    END CASE; 
    exit when v_result=1; 

end loop;   

return v_result; 
exception 
when others then 
return 0; 
end; 

Answer 1

你可能想嘗試的SwisSQL Online migration tool

它提供了以下結果：

--SWISSQL DROP SCRIPTS 
If Exists (SELECT name 
      FROM sysobjects 
      WHERE name = 'yonetici_kontrol_musteri' 
      AND type = 'FN') 
    DROP FUNCTION yonetici_kontrol_musteri 
GO 
CREATE FUNCTION yonetici_kontrol_musteri 
(
    @p_ID_MUSTERI_SIRKET      FLOAT , 
    @p_ID_YONETICI       FLOAT 
) 
RETURNS FLOAT 
AS 
    BEGIN 


     DECLARE @adv_error INT 

     DECLARE @v_unvan         FLOAT 
     DECLARE @v_yonetici        FLOAT 
     DECLARE @v_tmp_unvan        FLOAT 
     DECLARE @v_tmp_yonetici       FLOAT 
     DECLARE @v_result         FLOAT 
     SELECT @v_result = - 1 
     SELECT @v_unvan = id_unvan 
     FROM lu_yonetici 
     WHERE id_yonetici = @p_ID_YONETICI 


     SELECT @adv_error = @@ERROR 
     IF @adv_error != 0 
     BEGIN 
      GOTO Exception1 
     END 



     DECLARE cursor_for_inline_select1 CURSOR LOCAL FOR 
     SELECT 
       ISNULL(b.id_mufettis, 0) id_mufettis, 
       b.id_sef 
     FROM cr_rut_musteri c, 
      lu_bayi_temsilci b 
     WHERE c.id_musteri_sirket = @p_id_musteri_sirket 
     AND c.id_temsilci = b.id_temsilci 
     AND c.valid = 1 
     AND b.valid = 1 
     AND c.aktif = 1 
     AND b.aktif = 1 

     OPEN cursor_for_inline_select1 

     FETCH NEXT FROM cursor_for_inline_select1 INTO 
          /* SwisSQL (Oracle To SQL Server) : Table Information is not found in METADATA for the CURSOR used by the record-index */ 

     WHILE (@@FETCH_STATUS <> -1) 

     BEGIN 

      IF @v_unvan = 1 
      BEGIN 
      IF /* SwisSQL (Oracle To SQL Server) : Manual Conversion Required */ c.id_mufettis = @p_ID_YONETICI 
      BEGIN 
       SELECT @v_result = 1 
      END 
      ELSE 
      BEGIN 
       SELECT @v_result = 0 
      END 
      END 
      ELSE 
      IF @v_unvan = 2 
      BEGIN 
      -- satis sefi 

      IF /* SwisSQL (Oracle To SQL Server) : Manual Conversion Required */ c.id_sef = @p_ID_YONETICI 
      BEGIN 
       SELECT @v_result = 1 
      END 
      ELSE 
      BEGIN 
       SELECT @v_result = 0 
      END 
      END 
      ELSE 
      BEGIN 
      SELECT @v_yonetici = /* SwisSQL (Oracle To SQL Server) : Manual Conversion Required */ c.id_sef 
      DECLARE @count  INT 
     SELECT @count = 1 
     WHILE (0 = 0) 
      BEGIN --( 
       SELECT 
         @v_tmp_unvan = uy.id_unvan, 
         @v_tmp_yonetici = uy.id_yonetici 
       FROM lu_yonetici y, 
        lu_yonetici uy 
       WHERE y.id_ust_yonetici = uy.id_yonetici 
       AND y.id_yonetici = @v_yonetici 


       SELECT @adv_error = @@ERROR 
       IF @adv_error != 0 
       BEGIN 
        GOTO Exception1 
       END 

       IF @v_tmp_unvan = @v_unvan 
       BEGIN 
        IF @v_tmp_yonetici = @p_ID_YONETICI 
        BEGIN 
         SELECT @v_result = 1 
        END 
        ELSE 
        BEGIN 
         SELECT @v_result = 0 
        END 

       END 
       ELSE 
       BEGIN 
        SELECT @v_yonetici = @v_tmp_yonetici 
       END 

       IF @v_result = 1 or @v_tmp_unvan >= @v_unvan 
       BREAK 

      SELECT @count=@count +1 
      END --) 

      END 
      IF @v_result = 1 
      BREAK 



     FETCH NEXT FROM cursor_for_inline_select1 INTO 
          /* SwisSQL (Oracle To SQL Server) : Table Information is not found in METADATA for the CURSOR used by the record-index */ 
     END 
     CLOSE cursor_for_inline_select1 
     DEALLOCATE cursor_for_inline_select1 


DEALLOCATE cursor_for_inline_select1 
     return @v_result 
     GOTO ExitLabel1 
     Exception1: 

      BEGIN 

DEALLOCATE cursor_for_inline_select1 
      return 0 
      /* SwisSQL (Oracle To SQL Server) : Manual Intervention to verify Exception is required */ 
      END 
     ExitLabel1: 

     return @v_result 

    END 


GO 
######################################################################################################## 

編輯：進一步的細節考慮this問題