UserFunctionM462FIM()
LocalaRem := ParamIxb[1]
Local_aArea := GetArea()
LocalaAreaSC5 := SC5->(GetArea())
LocalaAreaSC6 := SC6->(GetArea())
LocalaAreaSD2 := SD2->(GetArea())
LocalaAreaSF2 := SF2->(GetArea())
LocalnRem := 0
LocallCpoMNota := (SF2->(ColumnPos("F2_MENNOTA") ) > 0.And.SC5->(ColumnPos("C5_MENNOTA") ) > 0)
LocallCpoXDes := (SD2->(ColumnPos("D2_XDESCRI")) > 0.And.SC6->(ColumnPos("C6_XDESCRI")) > 0)
SF2->(DbsetOrder(1))
SD2->(DbsetOrder(3))
SC5->(DbsetOrder(1))
SC6->(DbsetOrder(1))
FornRem := 1toLen(aRem)
IfSF2->(DbSeek(xFilial("SF2") + aRem[nRem,2] + aRem[nRem,1]))
/*Encabezado documento*/
IfSD2->(DbSeek(xFilial("SD2") + SF2->(F2_DOC + F2_SERIE + F2_CLIENTE + F2_LOJA)))
IfSC5->(DbSeek(xFilial("SC5") + SD2->D2_PEDIDO))
IfRecLock("SF2",.F.)
IflCpoMNota
If !Empty(SC5->C5_MENNOTA)
ReplaceSF2->F2_MENNOTAwithSC5->C5_MENNOTA
EndIf
EndIf
SF2->(MsUnlock())
EndIf
EndIf
/*Ítems documento*/
DoWhileSD2->(!EOF()) .And.SD2->(D2_FILIAL + D2_DOC + D2_SERIE + D2_CLIENTE + D2_LOJA) == xFilial("SD2") + SF2->(F2_DOC + F2_SERIE + F2_CLIENTE + F2_LOJA)
IfSC6->(DbSeek(xFilial("SC6")+SD2->D2_PEDIDO+SD2->D2_ITEMPV))
IfRecLock("SD2",.F.)
IflCpoXDes
ReplaceSD2->D2_XDESCRIwithSC6->C6_XDESCRI
Endif
SD2->(MsUnlock())
Endif
Endif
SD2->(DbSkip())
EndDo
EndIf
Endif
NextnRem
SF2->(RestArea(aAreaSF2))
SD2->(RestArea(aAreaSD2))
SC5->(RestArea(aAreaSC5))
SC6->(RestArea(aAreaSC6))
RestArea(_aArea)
Return {aRem}
| 