import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: VX001APV - Antecede gravação de pedido de venda.
Descrição:
Antecede gravação do pedido de venda, além de customizar valores e condições especiais na geração do pedido de venda
Eventos
// // Ponto de Entrada antes do Pedido de Venda // if ExistBlock("VX001APV") ExecBlock("VX001APV",.f.,.f.) Endif // MSExecAuto({|x,y,z|Mata410(x,y,z)},aCabPv,aItePv,3) // MAFISRESTORE(nAnt) // If lMsErroAuto DisarmTransaction() Return .f. EndIf // JANELA DE ABORTO If VX000ABORT() Return .f. EndIf aRegSC6 := {} //################################################################ //# Gera F2/D2, Atualiza Estoque, Financeiro, Contabilidade # //################################################################ aPvlNfs := {} SC5->(dbSetOrder(1)) SC5->(MsSeek(xFilial("SC5")+VV0->VV0_NUMPED)) // SC6->(dbSetOrder(1)) SC6->(MsSeek(xFilial("SC6")+SC5->C5_NUM)) SC9->(DbSetOrder(1)) if !(SC9->(MsSeek(xFilial("SC9")+SC6->(C6_NUM+C6_ITEM)))) //FILIAL+NUMERO+ITEM lCredito := .t. lEstoque := .t. lLiber := .t. lTransf := .f. If GetMv("MV_ESTNEG") == "S" lAvEst := .f. Else lAvEst := .t. Endif dbSelectArea("SC6") dbSetOrder(1) dbSeek(xFilial("SC6")+VV0->VV0_NUMPED+"01") While !eof() .and. SC6->C6_FILIAL == xFilial("SC6") .and. SC6->C6_NUM == VV0->VV0_NUMPED dbSelectArea("SC9") if !dbSeek(xFilial("SC9")+M->VV0_NUMPED+SC6->C6_ITEM) nQtdLib := SC6->C6_QTDVEN nQtdLib := MaLibDoFat(SC6->(RecNo()),nQtdLib,@lCredito,@lEstoque,.F.,lAvEst,lLiber,lTransf) Endif dbSelectArea("SC6") dbSkip() Enddo endif
Programa Fonte
veixx001
Sintaxe
VX001APV - Antecede gravação de pedido de venda. ( [ ] )
Parâmetros:
Retorno
Exemplos
User Function VX001APV()Local aRet := {}MsgInfo(“Clique OK para gerar o pedido de venda”,”Atencao”)return
Variáveis
|