Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

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.

Localização:

Atualizações \ Mov Peças \ Transf. de Peças (OFIOM430)

Eventos:

Begin Transaction

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

Programa Fonte:

OFIOM430.PRW

Função:

OM430CANTRANSF()

Retorno:.T. ou .F., onde falso (.F.) irá quebrar a transação.


Exemplo:

#Include 'Protheus.ch'

// Ponto de entrada chamado após o processo de Cancelamento de um Orçamento de Transferência, na rotina de Transferência entre Filiais do DMS.

// Autor: MIL

User Function OM430DCA()

MsgInfo("O Ponto de entrada OM430DCA foi chamado com Sucesso!!!")

Return .t.