Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

A Partir de 31/05/2026 o ponto de entrada similar para uso em procedures estará disponivel, que será instalado com a procedure do pacote 15 e nome M216SB6GRV_15_XX , onde XX é o codigo do grupo de empresas, e não terá efeito ate que seja editado no SGDB com a escrita em query.


PARÂMETROS


@IN_FILIALCORcaractereCódigo da filial 
@IN_RECNOSB6Numerico codigo do recno que acabou de ser gravado na SB6
Retorno 
@OUT_RESULTADOcaractereNão
tem efeito

EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleM216SB6GRV_15_XX
linenumberstrue
USE [P1212510MNTDBEXP]
GO
/****** Object:  StoredProcedure [dbo].[M216SB6GRV_15_T1]    Script Date: 24/04/2026 17:46:48 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- Procedure creation 
ALTER PROCEDURE [dbo].[M216SB6GRV_15_T1] (
    @IN_FILIALCOR Char( 8) , 
    @IN_RECNOSB6 Integer , 
    @OUT_RESULTADO Char( 01 )  output ) AS

DECLARE @cCod char(30)
 
 SELECT @cCod = B6_PRODUTO FROM SB6T10 WHERE R_E_C_N_O_ = @IN_RECNOSB6
 IF @cCod = ' COM00000000000000000000000011' begin
    UPDATE SB6T10 SET B6_SEGUM = '**' WHERE R_E_C_N_O_ = @IN_RECNOSB6
 end

-- Declaration of variables
DECLARE @OutResult VarChar( 01 )
BEGIN
   SET @OUT_RESULTADO  = '1' 
END 

...