Portuguese

Pagetitle

	Custo em Partes - Recálculo do Custo Médio
	Custo em Partes - Recálculo do Custo Médio

Custo em Partes - Recálculo do Custo Médio

Descrição dos procedimentos para utilização do custo em partes com e sem stored procedures.

O recálculo do custo médio possibilita dividir o custo de produtos fabricados em mais de uma parte, facilitando a visualização da composição de custos dos produtos acabados.

O sistema permite dividir o custo de produtos fabricados em até 99 partes diferentes, cada parte nas 5 moedas padrão do sistema.

O usuário deve através do ponto de entrada "MA330CP" definir as regras que irão classificar cada matéria-prima em uma parte do custo. O número de partes é sempre acrescido de mais uma parte, a qual contempla os materiais que não se encontram em nenhuma regra.

Utilização do Custo em Partes somente em ADVPL

Para definir a regra de utilização do custo em partes, deve-se utilizar o ponto de entrada MA330CP. Abaixo segue um exemplo do ponto de entrada.

Ponto de entrada MA330CP ( desenvolvido em linguagem AdvPL):

Bloco de código

language	delphi
theme	Midnight
title	MA330CP
linenumbers	true

#include "RWMAKE.CH"

User Function MA330CP ()

LOCAL aRegraCP:={}

AADD(aRegraCP,"SB1->B1_TIPO == 'MP'")
AADD(aRegraCP,"SB1->B1_TIPO == 'MC'")

Return aRegraCP

Utilizando o exemplo descrito, é possível verificar o custo divido em três partes:

· A parte 1 composta dos valores de produtos que tenham o campo B1_TIPO = "MP"

· A parte 2 composta dos valores de produtos que tenham o campo B1_TIPO = "MC"

· A parte 3 composta dos valores de produtos que não se enquadram nas partes citadas anteriormente

Para utilizar o custo em partes devem ser criados alguns campos no sistema seguindo as regras e nomes do quadro abaixo. Se o ponto de entrada que define as regras do custo existir e os campos não forem criados, a rotina de recálculo do custo processará o recálculo do custo desconsiderando o custo em partes.

Os campos devem ser definidos utilizando a seguinte regra:

CC – Numero do Custo Em Partes

MM – Numero da Moeda (1 a 5)

TABELA	CAMPOS
SB9 – Saldos Iniciais	B9_CP + CC + MM (Custo em partes) – B9_VINI1 B9_CPM + CC + MM (Custo em partes Unitário) – B9_CM1
SB2 – Saldos em Estoque	B2_CP + CC + MM (Custo em partes Unitário) – B2_CM1 B2_CPF + CC + MM (Custo em partes Final) – B2_VFIM1
SB6 – Saldos em poder de terceiros	B6_CP + CC + MM (Custo em partes) – B6_CUSTO1
SC2 – Ordens de Produção	C2_CPF + CC + MM (Custo em partes Final) – C2_VFIM1 C2_CPI + CC + MM (Custo em partes Inicial) – C2_VINI1 C2_API + CC + MM (Apropriação Inicial do Custo em partes) – C2_APRINI1 C2_APF + CC + MM (Apropriação Final do Custo em partes) – C2_APRFIM1
SD1 – Itens das NFs de Entrada	D1_CP + CC + MM (Custo em partes) – D1_CUSTO
SD2 – Itens das NFs de Saída	D2_CP + CC + MM (Custo em partes) – D2_CUSTO1
SD3 – Movimentos Internos	D3_CP+ CC + MM (Custo em partes) – D2_CUSTO1

Para processar o custo em partes em ADVPL, as procedures padrões não devem estar instaladas. Exemplo: se o processo 17 (Virada de Saldos) estiver instalado e as procedures do Custo em Partes não existirem no banco de dados, o sistema não atualizará as informações do custo em partes nas tabelas envolvidas.

Utilização do Custo em Partes com Stored Procedures

A utilização do custo em partes com stored procedures é mais complexa que a utilização em ADVPL, pois, envolve a linguagem de programação SQL. Para definir a regra do custo em partes, é necessário utilizar o ponto de entrada MA330CP em ADVPL e, também, em Stored Procedure além de algumas stored procedures adicionais. Veja um exemplo de todo o procedimento a ser implementado para o correto funcionamento do custo em partes com stored procedures.

Ponto de entrada MA330CP ( desenvolvido em linguagem AdvPL):

Bloco de código

language	delphi
theme	Midnight
title	MA330CP
linenumbers	true

#include "RWMAKE.CH"

User Function MA330CP ()

LOCAL aRegraCP:={}

AADD(aRegraCP,"SB1->B1_TIPO == 'MP'")
AADD(aRegraCP,"SB1->B1_TIPO == 'MC'")

Return aRegraCP

Ponto de entrada MA330CP (Ponto de entrada desenvolvido em Linguagem SQL):

Bloco de código

language	sql
theme	Midnight
title	MA330CP
linenumbers	true

-- Criacao de procedure 
CREATE  PROCEDURE MA330CP_99 (
    @IN_FILIALCOR Char( 02 ) , 
     @IN_COD Char( 15) , 
    @OUT_RESULTADO Integer  output ) AS
 
-- Declaracoes de variaveis
DECLARE @cFil_SB1 Char( 2)
DECLARE @cB1_TIPO Char( 2)
BEGIN
   EXEC XFILIAL_99 'SB1' , @IN_FILIALCOR , @cFil_SB1 output 
 
   SELECT @cB1_TIPO  = B1_TIPO 
     FROM SB1990 
     WHERE B1_FILIAL  = @cFil_SB1  and B1@IN_COD Char( = @IN_COD and D_E_L_E_T_  = ' ' 
 
15) , 
          SET @OUT_RESULTADO  = 3 
 
   IF @cB1_TIPO  = 'MP' 
   BEGIN 
                                                       SET @OUT_RESULTADO Integer  =output 1) AS
 
-- Declarações ENDde variáveis
DECLARE @cFil_SB1  IFChar( 2)
DECLARE @cB1_TIPO Char(  =2)

BEGIN

   EXEC XFILIAL_99 'MCSB1' , 
@IN_FILIALCOR , @cFil_SB1 BEGINoutput 
 
   SELECT  SET @OUT_RESULTADO@cB1_TIPO  = 2B1_TIPO 
   END 
END

Atenção aos tópicos abaixo:

1. O ponto de entrada MA330CP foi escrito em linguagem SQL. Caso esteja utilizando outro gerenciador de banco de dados, é necessário fazer a compatibilização da linguagem escrita.

2. O nome da stored procedure deverá ser compatibilizada de acordo com o ambiente do cliente. Exemplo:

Caso o cliente esteja utilizando a Empresa 01, deve alterar a chamada da procedure MA330CP_99 para MA330CP_01 e, também, alterar a chamada da procedure XFILIAL_99 para XFILIAL_01.

Caso não seja feita essa alteração, e seja mantida a chamada XFILIAL_99, ao salvar a procedure no banco de dados será apresentada a seguinte mensagem:
"O módulo 'MA330CP_01' depende do objeto ausente 'XFILIAL_99'. O módulo ainda será criado; entretanto, não poderá ser executado com êxito até o objeto existir."

Caso o cliente esteja utilizando a Empresa 01, é necessário alterar o nome físico da tabela SB1990 para SB1010.

3. A implementação do custo em partes exige um grau elevado de conhecimentos em stored procedures. Desta forma, é recomendado que o procedimento descrito seja efetuado por um profissional qualificado TOTVS.

Utilizando o exemplo, é possível verificar o custo divido em três partes:

 FROM SB1990 
     WHERE B1_FILIAL  = @cFil_SB1  and B1_COD  = @IN_COD and D_E_L_E_T_  = ' ' 
 
   SET @OUT_RESULTADO  = 3 
 
   IF @cB1_TIPO  = 'MP' 
   BEGIN 
      SET @OUT_RESULTADO  = 1 
   END 
   IF @cB1_TIPO  = 'MC' 
   BEGIN 
      SET @OUT_RESULTADO  = 2 
   END 

END