Eventos: | reclock("VS1", .T.)
VS1->VS1_FILIAL := xFilial('VS1')
VS1->VS1_TIPORC := "3" // transferencia
If lFaseConfer
VS1->VS1_STATUS := cFaseConfer // Aguardando conferencia
Else
VS1->VS1_STATUS := "0" // digitado
Endif
VS1->VS1_NUMORC := cNumOrc
VS1->VS1_DATORC := dDatabase
VS1->VS1_CLIFAT := SA1->A1_COD
VS1->VS1_LOJA := SA1->A1_LOJA
VS1->VS1_NCLIFT := SA1->A1_NOME
VS1->VS1_FILDES := self:cDestino
VS1->VS1_ARMDES := self:cArmDes
VS1->VS1_RESERV := '1'
VS1->VS1_STARES := '1'
If VS1->(FieldPos("VS1_TRFRES")) > 0
VS1->VS1_TRFRES := "1" // 0=Nao / 1=Sim - Reserva a Transferencia automaticamente
EndIf
//
// Campos customizáveis entram aqui
//
aCust := IIF(ExistBlock('VCLSAT1'), ExecBlock("VCLSAT1",.f.,.f.), {})
for nIdxC := 1 to LEN(aCust)
VS1->&(aCust[nIdxC][1]) := aCust[nIdxC][2]
next
//
oLogger:LogToTable({;
{'VQL_AGROUP', "DPMXFER" },;
{'VQL_TIPO' , "ORC" },;
{'VQL_DADOS' , cNumOrc } ;
})
confirmsx8()
VS1->(msUnlock())
If VS1->VS1_STATUS == cFaseConfer // Foi para Fase de Conferencia
If ExistFunc("OA3610011_Tempo_Total_Conferencia_Saida_Orcamento")
OA3610011_Tempo_Total_Conferencia_Saida_Orcamento( 1 , VS1->VS1_NUMORC ) // 1=Iniciar o Tempo Total da Conferencia de Saida caso não exista o registro
EndIf
EndIf
If ExistFunc("OA3700011_Grava_DTHR_Status_Orcamento")
OA3700011_Grava_DTHR_Status_Orcamento( VS1->VS1_NUMORC , VS1->VS1_STATUS , STR0014 ) // Grava Data/Hora na Mudança de Status do Orçamento / Transferêcia de Peças
EndIf
|
