Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (flora.rocha), última alteração por admin em 23 jun, 2012

Ponto-de-Entrada: VX001APV - Antecede gravação de pedido de venda.
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
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:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Exemplos 
User Function VX001APV()Local aRet := {}MsgInfo(“Clique OK para gerar o pedido de venda”,”Atencao”)return
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não