Ponto de Entrada – ENVCQMAT

Ponto de Entrada para definir se o material será enviado ao CQ na Entrada [mata103]

Exemplo da Rotina:

User Function ENVCQMAT()
	//...
Return lRet

Exemplo 1- Verificando o tipo de produto para enviar ao CQ:

#Include "rwmake.ch"
#Include "TOPCONN.CH"
#Include "PROTHEUS.CH"
 
//=================================================================================
/*/{Protheus.doc} ENVCQMAT
P.E permite manipular o envio do material para o C.Q [98] [mata103]
 
@type       function
@author Thiago.Andrrade
@since      28/05/2019
@version    1.0
@param      PARAMIXB, Logico, Envia CQ
@return .T. -> Envia para C.Q
            .F. -> Não envia para C.Q.
/*/
//=================================================================================
 
User Function ENVCQMAT()
 
Local lRet := .F.
 
//Regra IM
If cEmpAnt == '01' .and. cFilAnt == '02'
    If SF1->F1_TIPO == 'N'
        If Posicione("SB1", 1, FWxFilial("SB1") + SD1->D1_COD, "B1_TIPO") == "IM"
            lRet := .T.
        Endif
    Endif
Endif
 
Return (lRet)

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

– Função e documentação enviada por Thiago.Andrrade;

Referências:

– TDN