aAdd(aIteTempPV,{"C6_ITEM" ,cNumIte ,Nil})
aAdd(aIteTempPV,{"C6_PRODUTO",SB1->B1_COD ,Nil})
aAdd(aIteTempPV,{"C6_QTDVEN" ,VS3->VS3_QTDITE,Nil})
aAdd(aIteTempPV,{"C6_ENTREG" ,dDataBase ,Nil})
aAdd(aIteTempPV,{"C6_UM" ,SB1->B1_UM ,Nil})
aAdd(aIteTempPV,{"C6_TES" ,VS3->VS3_CODTES ,Nil})
aAdd(aIteTempPV,{"C6_LOCAL" ,VS3->VS3_LOCAL,Nil})
if VS3->(FieldPos("VS3_SITTRI")) > 0
aAdd(aIteTempPV,{"C6_CLASFIS",VS3->VS3_SITTRI ,Nil})
endif
aAdd(aIteTempPV,{"C6_PRUNIT" ,VS3->VS3_VALPEC,Nil})
aAdd(aIteTempPV,{"C6_PRCVEN" ,VS3->VS3_VALPEC,Nil})
aAdd(aIteTempPV,{"C6_VALOR" ,VS3->VS3_VALTOT+VS3->VS3_VALDES,Nil})
aAdd(aIteTempPV,{"C6_VALDESC",VS3->VS3_VALDES ,Nil})
aAdd(aIteTempPV,{"C6_COMIS1" ,0 ,Nil})
aAdd(aIteTempPV,{"C6_DESCRI" ,SB1->B1_DESC ,Nil})
aAdd(aIteTempPV,{"C6_CLI" ,VS1->VS1_CLIFAT ,Nil})
aAdd(aIteTempPV,{"C6_LOJA" ,VS1->VS1_LOJA ,Nil})
aAdd(aIteTempPV,{"C6_QTDEMP" ,VS3->VS3_QTDITE ,Nil})
aAdd(aIteTempPV,{"C6_QTDLIB" ,VS3->VS3_QTDITE ,Nil})
//
If ( ExistBlock("OX004AIP") )
aIteTempPV := ExecBlock("OX004AIP",.f.,.f.,{aIteTempPV})
EndIf
//
DBSelectArea("VS1")
DBSetOrder(1)
DBSeek(xFilial("VS1")+cOrcOrcT)
//
aAdd(aItePv,aClone(aIteTempPV))
//
DBSelectArea("VS3")
DBSkip()