Perguntas MT140TOK

Galera,

Boa Noite,

utilizei o ponto de entrada MT140TOK para validar se o pedido de compras chamado na pré note de entrada possui grupo aprovador.

Porém o mesmo me retorna o seguinte erro:



THREAD ERROR (Victor Andrade, VICTORANDRADE) 16/04/2014 17:49:21
type mismatch on .AND. on {||IF(OGETDADOS:TUDOOK() .AND. NFENEXTDOC(@CNFISCAL,@CSERIE,L140INCLUI),(NOPCA:=1,ODLG:END()),NOPCA:=0)}(MATA140.PRW) 13/02/2014 16:02:56 line : 861

Segue abaixo o código fonte do P.E:


For i := 1 to Len(aCols)
If !aCols[Len(aCols)]
If SubStr(aCols[nPosPROD] , 1 , 6) == "SRVTOM"
If SubStr(aCols[nPosPROD] , 7, 2 ) <> cTpFor
cMsg += "Produto: " + AllTrim(aCols[nPosPROD]) + " no item: " + aCols[nPosITEM] + " é do tipo " + SubStr(aCols[nPosPROD] , 7, 2 ) + " e o Fornecedor é do tipo: " + cTpFor + "." + CHR(10) + CHR(13)
EndIf
EndIf

//

---

//
//Validar se tem grupo aprovador no pedido de compras //
// //
//Victor Andrade 16/04/2014 //
//

---

//
If !Empty(aCols[nPosPc])
DbSelectArea('SC7')
SC7->( DbSetOrder(1) )
If SC7->( DbSeek(xFilial('SD1') + SD1->D1_PEDIDO) )
If Empty(C7_APROV)
MsgAlert("Pedido de Compras sem aprovador !!!")
return()
EndIf
EndIf
EndIf
EndIf
Next i

Bom dia Victor,

o seu problema está no retorno da sua função: para o P.E MT140TOK() você deve retornar .T. ou .F.

If Empty(C7_APROV)
MsgAlert("Pedido de Compras sem aprovador !!!")
return .F. // Ajuste aqui
EndIf


Att
Thales

Thales, eu já havia ajustado, foi falta de atenção. Para conhecimento segue como ficou o trecho:

If !Empty(aCols[nPosPc])
DbSelectArea('SC7')
SC7->( DbSetOrder(1) )
If SC7->( DbSeek(xFilial('SD1') + alltrim(aCols[nPosPc])) )
If Empty(SC7->C7_APROV)
cMsgAprov += "Pedido de Compras sem Grupo aprovador."
EndIf
EndIf
EndIf

EndIf