Histórico da Página

#INCLUDE "TBICONN.CH"
#INCLUDE 'Protheus.ch'
#INCLUDE 'FWMVCDef.ch'

//-----------------------------------------------------------------
//Função de usuário para inclusão de fornecedor via execauto (MVC)
//-----------------------------------------------------------------

User Function MT020MVC()

   Local Local oModel   := Nil
   Local Local cFornec  := 'FORPIX'
   Local Local cForLoja := '01'
   Local Local lIncOk   := .F.

   PREPARE PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "FIN" TABLES "SA2", "F72"

   oModel oModel := FwLoadModel ("MATA020")
   oModel oModel:SetOperation(MODEL_OPERATION_INSERT)
   oModel oModel:Activate()

   oModel oModel:SetValue("SA2MASTER","A2_COD"   ,cFornec)
   oModel oModel:SetValue("SA2MASTER","A2_LOJA"  ,cForLoja)
   oModel oModel:SetValue("SA2MASTER","A2_NOME"  ,"FORN TESTE PIX")
   oModel oModel:SetValue("SA2MASTER","A2_NREDUZ","F TESTE PIX")
   oModel oModel:SetValue("SA2MASTER","A2_END"   ,"RUA FORN PIX ")
   oModel oModel:SetValue("SA2MASTER","A2_EST"   ,"SP")
   oModel oModel:SetValue("SA2MASTER","A2_MUN"   ,"SAO PAULO")
   oModel oModel:SetValue("SA2MASTER","A2_TIPO"  ,"F")

   If If oModel:VldData()
      oModel:CommitData()
      MsgInfo("Registro INCLUIDO!", "Atenção")
      lIncOk:=.T.
   Else Else
      VarInfo("",oModel:GetErrorMessage())
   EndIf EndIf

   oModel oModel:DeActivate()
   oModel oModel:Destroy()
   oModel oModel := NIL

   If If lIncOk
      U_F885MVC(cFornec,cForLoja)
   EndIf EndIf

   RESET RESET ENVIRONMENT

Return Nil

//-----------------------------------------------------------------
//Função de usuário para inclusão de chave PIX para fornecedor via execauto (MVC)
//-----------------------------------------------------------------

User Function F885MVC(cFornec As Character, cForLoja As Character)

   Local Local oModel      := Nil

   Default Default cFornec   := ""
   Default Default cForLoja  := ""

   DbSelectArea DbSelectArea("SA2")
   SA2 SA2->(DbSetOrder(1))

   If If SA2->(DBSeek(xFilial("SA2") + cFornec + cForLoja))
      oModel := FwLoadModel ("FINA885")
      oModel:SetOperation(MODEL_OPERATION_INSERT)
      oModel:Activate()

      oModel:SetValue("FORMCAB","F72_FILIAL"  , xFilial("SA2"))
      oModel:SetValue("FORMCAB","F72_COD"     , cFornec)
      oModel:SetValue("FORMCAB","F72_LOJA"    , cForLoja)
      oModel:SetValue("FORMCAB","F72_NOME"    , SA2->A2>A2_NOME)

      oModel:SetValue("FORDETAIL", "F72_TPCHV" , "02")
      oModel:SetValue("FORDETAIL", "F72_CHVPIX", "email_fornec@emailpix.com.br")
      oModel:SetValue("FORDETAIL", "F72_ACTIVE", "1")
        
      If oModel:VldData()
         oModel oModel:CommitData()
         MsgInfo MsgInfo("Registro INCLUIDO!", "Atenção")
      Else
         VarInfo VarInfo("",oModel:GetErrorMessage())
      EndIf

      oModel:DeActivate()
      oModel:Destroy()
      oModel := NIL
   EndiF EndiF

Return Nil