OM430DCA - Validação do Cancelamento de Orçamento de Transferência de Peças Entre Filiais (OFIOM430)

Descrição:

Este ponto de entrada está localizado na rotina Transferência de Peças Entre Filiais (OFIOM430) e é executado após o processo de cancelamento de um orçamento de transferência com o intuito de realizar a validação do mesmo.

Eventos:

If lNFeCancel .and. VS1->VS1_STATUS == "X"

If !OM430CNFSAIDA( VS1->VS1_SERNFI, VS1->VS1_NUMNFI , VS1->VS1_CLIFAT , VS1->VS1_LOJA , @cNumPed, lNFeCancel )

DisarmTransaction()

Return(.f.)

EndIf

EndIf

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ Motivo do Cancelamento do Transferência ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

While Len(aMotCancel) == 0

aMotCancel := OFA210MOT(cMotCanc,"4",xFilial("VS1"),VS1->VS1_NUMORC,.T.)

EndDo

cMotCancVS1 := aMotCancel[1]

// Nota fiscal já foi gerada

If VS1->VS1_STATUS == "X"

. . .

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ Motivo do Cancelamento do Transferência ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

While Len(aMotCancel) == 0

aMotCancel := OFA210MOT(cMotCanc,"4",xFilial("VS1"),VS1->VS1_NUMORC,.T.)

EndDo

cMotCancVS1 := aMotCancel[1]

For ni := 1 to Len(aOrcRecno)

VS1->(DbGoTo(aOrcRecno[ni]))

RecLock("VS1",.f.)

VS1->VS1_STATUS := "C"

VS1->VS1_MOTIVO := cMotCancVS1

MsUnlock()

Next

Else

If VS1->VS1_STARES $ "12" .and. !OM430RESITE(.f., .t.)

DisarmTransaction()

Return .f.

EndIf

dbSelectArea("VS1")

RecLock("VS1",.f.)

VS1->VS1_STATUS := "C"

VS1->VS1_MOTIVO := cMotCancVS1

MsUnlock()

Endif

// Ponto de entrada depois da gravacao do processo de Cancelamento do Orçamento de Transferência

if ExistBlock("OM430DCA")

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

DisarmTransaction()

Return .f.

Endif

Endif

End Transaction

Return

Função:

OM430CANTRANSF()