Histórico da Página

Descrição:

Este Ponto de Entrada permite que o cliente realize alterações no Orçamento ao aceitar o Pedido de Transferência.

Eventos:

if lCtrlLote

lUsaVenc:= SuperGetMv('MV_LOTVENC')=='S'

aSaldos := SldPorLote(SB1->B1_COD,SB1->B1_LOCPAD,VDD->VDD_QUANT,NIL,"","","","",NIL,NIL,NIL,lUsaVenc,nil,nil,dDataBase)

For _ii := 1 to Len(aSaldos)

dbSelectArea("VS3")

RecLock("VS3",.t.)

VS3->VS3_FILIAL := xFilial("VS3")

VS3->VS3_NUMORC := cNroOrc

VS3->VS3_SEQUEN := strzero(_ii,3)

VS3->VS3_GRUITE := VDD->VDD_GRUPO

VS3->VS3_CODITE := VDD->VDD_CODITE

VS3->VS3_QTDINI := aSaldos[_ii,5]

VS3->VS3_TESSAI := MV_PAR02

VS3->VS3_TESENT := MV_PAR03

VS3->VS3_QTDITE := aSaldos[_ii,5]

VS3->VS3_ARMORI := SB1->B1_LOCPAD

VS3->VS3_LOCAL := SB1->B1_LOCPAD

VS3->VS3_VALPEC := SB2->B2_CM1

VS3->VS3_LOTECT := aSaldos[_ii,1]

MsUnlock()

Next

Else

nSeq := 1

dbSelectArea("VS3")

RecLock("VS3",.t.)

VS3->VS3_FILIAL := xFilial("VS3")

VS3->VS3_NUMORC := cNroOrc

VS3->VS3_SEQUEN := strzero(nSeq,3)

VS3->VS3_GRUITE := VDD->VDD_GRUPO

VS3->VS3_CODITE := VDD->VDD_CODITE

VS3->VS3_QTDINI := VDD->VDD_QUANT

VS3->VS3_TESSAI := MV_PAR02

VS3->VS3_TESENT := MV_PAR03

VS3->VS3_QTDITE := VDD->VDD_QUANT

VS3->VS3_ARMORI := SB1->B1_LOCPAD

VS3->VS3_LOCAL := SB1->B1_LOCPAD

VS3->VS3_VALPEC := SB2->B2_CM1

MsUnlock()

Endif

reclock("VDD",.f.)

VDD->VDD_ORCFOR := cNroOrc

VDD->VDD_STATUS := "A"

msunlock()

// PONTO DE ENTRADA PARA ALTERACAO DO ORÇAMENTO AO ACEITAR O PEDIDO DE TRANSFERENCIA

If ExistBlock("OX020ORC")

ExecBlock("OX020ORC",.f.,.f.)

EndIf

return .t.

Função:

OXA020A