Ponto_de_Entrada_TME10VLD

Ponto de Entrada para validar a atualização dos dados da tabela DE5.

Se o ponto de entrada existir a validação será feita por ele e a função TMSME10VLD() não será chamada.

User Function TME10VLD()

Local nPosCGCRem := Ascan(aGrvPrinc,{|x| AllTrim(x[2]) == "DE5_CGCREM"})
Local nPosNumNFc := Ascan(aGrvPrinc,{|x| AllTrim(x[2]) == "DE5_DOC"})
Local nPosSerNFc := Ascan(aGrvPrinc,{|x| AllTrim(x[2]) == "DE5_SERIE"})
Local nPosEmiNFc := Ascan(aGrvPrinc,{|x| AllTrim(x[2]) == "DE5_EMINFC"})
Local lRet := .T.
If nPosCGCRem=0 .Or. nPosNumNFc=0 .Or. nPosSerNFc=0 .Or. nPosEmiNFc=0
lRet:=.T.
Else
DE5->(DbSetOrder(1))
If DE5->(MsSeek(xFilial("DE5") + aGrvPrinc[nPosCGCRem,3] + aGrvPrinc[nPosNumNFc,3] + aGrvPrinc[nPosSerNFc,3])) ;
.And. DE5->DE5_EMINFC == aGrvPrinc[nPosEmiNFc,3]
lRet := .F.
EndIf
Endif
Return lRet

Português(Brasil)

Versões_Anteriores

Todos

Todas

Lógico

• .T. - Continua o processo
• .F. - Aborta o processo

Posição do campo - PARAMIXB[1]
Nome do campo - PARAMIXB[2]

TMSME10.PRW