Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

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

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

 

Programa Fonte:

OFIXI001.PRW                                                                                                                                          

Função:

OFIXI001     

Retorno:

cExpressão - é a expressão customizada para verificação da divergência

 

Exemplo:

Verificação Padrão:

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

Verificação Customizada:

cExpressao := "VS3->VS3_QTDCON != (VS3->VS3_QTDITE+QVS3->VS3_QTDELI)"

 

 

Exemplo:

User Function OXI01DIV()

 

Local cExpre := 'VS3->VS3_QTDCON <> (VS3->VS3_QTDITE+VS3->VS3_QTDELI)'

 

Return (cExpre)