Histórico da Página

Descrição:

Ponto de Entrada na rotina OFINJD35, para possibilitar preencher dados customizáveis e obrigatórios dos clientes

Eventos:

 reclock("VS1", .T.)
    VS1->VS1_FILIAL := xFilial('VS1')
    VS1->VS1_TIPORC := "3" // transferencia
    //If lFaseConfer
        VS1//  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

Função:

VCLSAT1()