Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: QIEVALDUP - Valida duplicação da especificação do produto


Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil) , Português (Portugal) , Espanhol , Inglês


Descrição:
O ponto de entrada QIEVALDUP é utilizado para validar a duplicação da especificação do produto no módulo Inspeção de Entradas.
Programa Fonte
QIEM010.PRW
Sintaxe

QIEVALDUP - Valida duplicação da especificação do produto ( [ cProdutoOrigem ], [ cRevisaoProduto ], [ cProdutoDestino ], [ cRevisaoDestino ] ) --> lRetorno

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

cProdutoOrigem

Caracter

Código de origem do produto a ser duplicado.










cRevisaoProduto

Array of Record

Revisão de origem do produto a ser duplicado.










cProdutoDestino

Array of Record

Código do produto destino.










cRevisaoDestino

Array of Record

Revisão do produto destino.










Retorno
lRetorno
    (logico)
  • Retonar .T. para duplicar a especificação e .F. para não duplicar.


Exemplo validação no produto de destino:
#include "protheus.ch"
User Function QIEVALDUP()
Local aParam := PARAMIXB
If aParam <> NIL

    cProdOri := ParamIxb[1] //Posicionado o codigo do produto
    cRevOri := ParamIxb[2] //Posicionado a revisão de origem
    cProdDes := ParamIxb[3] // Posicionado o produto destino
    cRevDes := ParamIxb[4] // Posicionado a revisão destino
    If cProdDes == Nil  //Valida se existe um produto destino
        Return .F.
    Else
        MsgAlert("produto destino", +cProdDes)
    
    ENDIF
Endif
RETURN .T.