Histórico da Página

#Include 'Protheus.ch'
#Include 'Totvs.ch'

User Function TMK150DELTK27300C()

	Local lRet  aParam   := PARAMIXB.T.
	Local nLinha cAtend   := ""
	Local cCliente := ""
	Local cLoja    := ""

	If Len(aParam) > 0

		cAtend	 :=  aParam[1] //Código do Atendimento - Tipo: Caracter
		cCliente :=  aParam[2] //Código do Cliente - Tipo: Caracter
		cLoja    :=  aParam[3] //Loja do Cliente - Tipo: Caracter

	Endif

	If  cCliente == "FAT001"
		Alert("Atendimento" + cAtend  + "do Cliente " + cCliente + "Loja " + cLoja)
	EndIf


Return

N	//Linha da linha da grid de produtos
Local nPosProd := Ascan(aHeader, {|x|AllTrim(x[2]) == "UB_PRODUTO"})//Posição do campo de produto na grid
Local nPosQtd  := Ascan(aHeader, {|x|AllTrim(x[2]) == "UB_QUANT"})	//Posição do campo de quantidade na grid
Local nVrUnit  := M->UB_VRUNIT	//Valor do preço unitário que foi digitado pelo operador 

//Não permite que o operador digite um valor menor que R$10,00, se a quantidade do produto 02 for maior que 1.
If AllTrim(aCols[nLinha][nPosProd]) == "02" .And. aCols[nLinha][nPosQtd] > 1 .And. nVrUnit < 10
    lRet := .F.
EndIf

Return lRet