Ponto de Entrada para definir se o material será enviado ao CQ na Entrada [mata103]
Exemplo da Rotina:
1 2 3 | User Function ENVCQMAT() //...Return lRet |
Exemplo 1- Verificando o tipo de produto para enviar ao CQ:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | #Include "rwmake.ch"#Include "TOPCONN.CH"#Include "PROTHEUS.CH" //=================================================================================/*/{Protheus.doc} ENVCQMATP.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 IMIf 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 EndifEndif 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