Perguntas Ponto de entrada - MTA410

User Function MTA410()

Local nPosOper := GDFIELDPOS("C6_OPER")
Local nPosTES := GDFIELDPOS("C6_TES")
Local nPosCOD := GDFIELDPOS("C6_PRODUTO")
Local nPosITEM := GDFIELDPOS("C6_ITEM")
Local cTiPed
// Valida TES do pedido x Cadastro de Tes Inteligente

dbSelectArea("SFM")
SFM->(dbSetorder(4)) //FM_FILIAL+FM_TIPO+FM_CLIENTE+FM_LOJACLI+FM_POSIPI

cPOSIPI:= Posicione("SB1",1,xfilial("SB1")+SC6->C6_PRODUTO,"B1_POSIPI")
cTiPed := M->C5_TIPO

IF INCLUI .or. ALTERA // MA410RESID
	If SFM->(dbSeek(xFilial("SFM")+SC6->C6_OPER+SC6->C6_CLI+SC6->C6_LOJA+cPOSIPI))
		If cTiPed $ "N" //.and. EMPTY(SC6->C6_NOTA)
			For nx := 1 To Len(aCols)
				If !aCols[nx,Len(aHeader)+1]
					cTesAtual := aCols[nx,nPosTES]
					cProduto := aCols[nx,nPosCod]
					cOpera := aCols[nx,nPosOper]
					cItem := aCols[nx,nPosITEM]
					cTes := MaTesInt( 2 ,cOpera,SA1->A1_COD,SA1->A1_LOJA,"C",cProduto,,SA1->A1_TIPO)
					If ALTERA .And. SC6->(dbSetOrder(1), dbSeek(xFilial("SC6")+M->C5_PRODUTO+cItem)) .And. SC6->C6_QTDENT > 0
						If cTesAtual <> cTes
							MsgStop("O Tes do item " + cItem + " está diferente do cadastro de TES Inteligente. Favor verifique com o depto Fiscal.")
							Return .F.
						Endif
					Else
						If cTesAtual <> cTes
							MsgStop("O Tes do item " + cItem + " está diferente do cadastro de TES Inteligente. Favor verifique com o depto Fiscal.")
							Return .F.
						Endif
					Endif
				Endif
			Next
		Endif
	EndIf
Endif
Return(.T.)