OM020QDV Validação da Requisição a ser Devolvida na Rotina Req Pecas (OFIOM020)

Descrição:

Este Ponto de Entrada será executado na rotina Req Pecas (OFIOM020) e permite a validação dos dados no levantamento das requisições a serem devolvidas.

Eventos:

Function OM020007_MatrizDev( cNumOsv , cPTipTem , cPGruIte , cPCodIte )

Local cNome, cLoja, cCliente, nCont

Local aInconv

Local lCpoDesconto := VO3->(FieldPos("VO3_VALDES")) <> 0 .and. VO3->(FieldPos("VO3_PERDES")) <> 0 .and. VO3->(FieldPos("VO3_VALLIQ")) <> 0

Local aIteDev:= {}

Local lVO3SEQINC := (VO3->(FieldPos("VO3_SEQINC")) <> 0)

Local cCondPesq := ""

Local aRetDev := {}

Default cPTipTem := ""

Default cPGruIte := ""

Default cPCodIte := ""

DbSelectArea("VO2")

DbSetOrder(1)

DbSeek( xFilial("VO2")+ cNumOsv )

Do While !Eof() .And. VO2->VO2_FILIAL == xFilial("VO2") .and. VO2->VO2_NUMOSV == cNumOsv

//Validacao por Ponto de Entrada

If ExistBlock("OM020QDV") // Validação na Devolução de Peças

If !ExecBlock("OM020QDV",.f.,.f.)

VO2->(dbSkip())

Loop

Endif

Endif

Função:

OM020007_MatrizDev()