Histórico da Página

Descrição:

Ponto de Entrada para verificação customizada da Divergência na Conferência de Peças do Orçamento Fases

Eventos:

 elseif cFaseAtu == "5" // LIBERACAO DE DIVERGENCIA

//#########################################################################################

lDivergente := .f.

cExpressao := "VS3->VS3_QTDCON != VS3->VS3_QTDITE"

if ExistBlock("OXI01DIV") // retorno da Expressão para determinar Divergência na confereencia de peças

cExpressao := ExecBlock("OXI01DIV",.f.,.f.,)

Endif

DBSelectArea("VS3")

DBSetOrder(1)

DBSeek(xFilial("VS3")+cNumOrc)

while !eof() .and. xFilial("VS3")+VS1->VS1_NUMORC == VS3->VS3_FILIAL+ VS3->VS3_NUMORC

if &(cExpressão)

lDivergente := .t.

endif

DBSkip()

enddo

if lDivergente

OI001ATU(cNumOrc,cFaseAtu)

return {STR0016,.f.,.f.,.f.}

endif

//#########################################################################################

Função:

OFIXI001