DT_OX020REJ_Executado_no_Final_da_Rejeicao_do_Pedido_de_Transferencia

Descrição:

Este Ponto de Entrada é executado no final da Rejeição do Pedido de Transferência.

Eventos:

if nQuant > 0

cFilAnt := VDD->VDD_FILORC

cDocumento := Criavar("D3_DOC")

cDocumento := IIf(Empty(cDocumento),NextNumero("SD3",2,"D3_DOC",.T.),cDocumento)

cDocumento := A261RetINV(cDocumento)

aItensNew := {}

aadd (aItensNew,{ cDocumento , ddatabase})

AADD( aItensNew , Array(nTamAEstq) )

nPosAEstq := Len(aItensNew)

// Produto Origem

aItensNew[nPosAEstq,01] := SB1->B1_COD

aItensNew[nPosAEstq,02] := SB1->B1_DESC

aItensNew[nPosAEstq,03] := SB1->B1_UM

aItensNew[nPosAEstq,04] := GetMv( "MV_RESITE" )+Space(TamSx3("BF_LOCAL")[1]-Len(GetMv("MV_RESITE")))

aItensNew[nPosAEstq,05] := IIf(Localiza(SB1->B1_COD),Posicione("VOI",1,xFilial("VOI")+aPecasAlt[iP,4],"VOI_LOCALI"),Space(15))

// Produto Destino

aItensNew[nPosAEstq,06] := SB1->B1_COD

aItensNew[nPosAEstq,07] := SB1->B1_DESC

aItensNew[nPosAEstq,08] := SB1->B1_UM

aItensNew[nPosAEstq,09] := SB1->B1_LOCPAD

aItensNew[nPosAEstq,10] := IIf(Localiza(SB1->B1_COD),Posicione("VOI",1,xFilial("VOI")+VO3->VO3_TIPTEM,"VOI_LOCALI"),Space(15))

//

aItensNew[nPosAEstq,11] := ""

aItensNew[nPosAEstq,12] := ""

aItensNew[nPosAEstq,13] := ""

aItensNew[nPosAEstq,14] := criavar('D3_DTVALID')

aItensNew[nPosAEstq,15] := criavar('D3_POTENCI')

aItensNew[nPosAEstq,16] := nQuant

aItensNew[nPosAEstq,17] := criavar("D3_QTSEGUM")

aItensNew[nPosAEstq,18] := criavar("D3_ESTORNO")

aItensNew[nPosAEstq,19] := criavar("D3_NUMSEQ")

aItensNew[nPosAEstq,20] := criavar("D3_LOTECTL")

aItensNew[nPosAEstq,21] := criavar('D3_DTVALID')

If cMVINTDL <> "S"

aItensNew[nPosAEstq,22] := criavar("D3_ITEMGRD")

Else

aItensNew[nPosAEstq,22] := criavar("D3_SERVIC")

aItensNew[nPosAEstq,23] := criavar("D3_ITEMGRD")

Endif

lMsErroAuto := .F.

MSExecAuto({|x| MATA261(x)},aItensNew)

cFilAnt := cBkpFil

If lMsErroAuto

&& Cancela Gravacao

Mostraerro()

DisarmTransaction()

Break

EndIf

DBSelectArea("VS3")

DBSetOrder(2)

if DBSeek(VDD->VDD_FILORC + VDD->VDD_NUMORC + VDD->VDD_GRUPO + VDD->VDD_CODITE)

RecLock("VS3",.F.)

VS3->VS3_DOCSDB := ""

MsUnlock()

Endif

Endif

MsgStop(STR0027)

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

If ExistBlock("OX020REJ")

ExecBlock("OX020REJ",.f.,.f.)

EndIf

Função:

OXA020R