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 + SD2->D2_DOC + SD2->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}
|