Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Manufatura

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Planejamento e controle da produção (SIGAPCP)

Função:PCPA200 - Estrutura do Produto
País:Brasil
Ticket:20262412
Issue:DMANSMARTSQUAD1-29471


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que permite filtrar a estrutura (produto pai) do componente a ser substituído.

Parâmetros:
NomeTipoDescrição
PARAMIXB[1]StringCódigo do produto origem.
PARAMIXB[2]StringGrupo de opcionais origem.
PARAMIXB[3]StringOpcionais do produto origem.
PARAMIXB[4]StringCódigo do produto destino.
PARAMIXB[5]StringGrupo de opcionais destino.
PARAMIXB[6]StringOpcionais do produto destino.
PARAMIXB[7]StringQuery do filtro que poderá ser alterado.
Retorno:



TipoDescrição
String

Nova query que será executada no filtro.



03. DEMAIS INFORMAÇÕES

Exemplo A200SUBFIL
#include 'protheus.ch'
#include 'parmtype.ch'

User Function a200SubFil()

    Local cCodOrig := PARAMIXB[1]
    Local cGrpOrig := PARAMIXB[2]
    Local cOpcOrig := PARAMIXB[3]
    Local cCodDest := PARAMIXB[4]
    Local cGrpDest := PARAMIXB[5]
    Local cOpcDest := PARAMIXB[6]
    Local cFilSG1  := PARAMIXB[7]
    Local cQueryRet := ' '

    MsgInfo('Este Ponto de Entrada será executado na susbtituição de componentes da estrutura !!!')

    //Complementando a query com regra específica
    cQueryRet := cFilSG1
    cQueryRet += " AND (SELECT COUNT(*) " 
    cQueryRet +=        " FROM " + RetSqlName('SB1') + " ESPB1
    cQueryRet +=       " WHERE ESPB1.B1_COD = G1_COD "
    cQueryRet +=         " AND ESPB1.D_E_L_E_T_ = ' ' "
    cQueryRet +=         " AND ESPB1.B1_TIPO = 'PA') > 0 "

return cQueryRet
  


IMPORTANTE!

1) O filtro está relacionando somente a tabela SG1, para filtrar por exemplo a SB1 será preciso fazer uma subquery. 2) Este PE não será aplicado na opção de substituição: Confirmar Geral.


04. ASSUNTOS RELACIONADOS

  • Não se aplica.