Ponto de Entrada
Descrição: | Este Ponto de Entrada é executado no final da Rejeição do Pedido de Transferência. |
Localização: | Atualizações / Mov Pecas / Ped. Transf. Peças |
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
|
Programa Fonte: | OFIXA020.PRW |
Parâmetro: | N/A |
Função: | OXA020R |
Retorno: | N/A |
Exemplo:
User Function OX020REJ()
MsgInfo("Ponto de Entrada OX020REJ executado com sucesso!")
Return