Histórico da Página

Ponto de entrada que adiciona validações antes do envio do WorkFlow de Manutenção Preventiva atrasada, para que seja possível filtrar qual WF será enviadoda gravação do erro de importação de abastecimento. Permitindo o cliente a fazer validações especificas para erro gerado.

#Include 'Protheus.ch'

User Function MNTW0203 MNTA6356()

Local

lGrava := .

T.//

If AllTrim(cCentCust) == cCCustFun //Somente envia WF do Centro de Custo "CC"

lEnvia := .T.

Else

MsgStop("WF do bem " + STF->TF_CODBEM + " não enviado por não pentercer ao CC do funcionário","ATENCAO")

EndIf

Return lEnviaGrava erro encontrado.

    aDadosAbst := PARAMIXB[1] //Dados do abastecimento com erro.
    cCodigoErr := PARAMIXB[2] //Código do Erro que está prestes a ser gravado.

    If AllTrim(cCodigoErr) == "54" //"Tipo combustível/convênio incompatível com o tipo de convênio do posto."
        If aDadosAbst[25] == "000006" .And. aDadosAbst[26] == "01" //Posto conveniado com CTF e GoodCard. No entanto o cadastro só aceita um convenio.
            If NGSEEK('TQM',aDadosAbst[3],nIndTQM,'TQM->TQM_CONVEN') == "5" //5-GoodCard.
                lGrava := .F. //Não grava o erro, pois esse posto aceita mais de um convenio.
            EndIF
        EndIf
    EndIf

Return lGrava

Português(Brasil)

Versões_Anteriores

Todos

Todas

Boleano

MNTW020