Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Jose Moises Vera Concha

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Moises Vera Concha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

EXECAUTO MATA020 -

...

Registro Proveedor

ProdutoProducto:

Protheus

VersõesVersiones:

Todas

OcorrênciaOcurrencia:

Rotina Automática Rutina automática - MATA020 (Execauto)

AmbienteEntorno:

SIGACOM - Compras

DescriçãoDescripción:Rotina Rutina automática que permite a inclusãola inclusión/alteraçãomodificación/exclusão eliminación de fornecedorproveedores.

1 - Passo Paso a passo paso - InclusãoInclusión:

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function EXEC020()

Local nOpc := 3 3 // ----> InclusãoInclusión
Local oModel := Nil
Local cCod := "008"
Local cLoja := "01"
Local cNome := "Fornecedor Proveedor 008"
Local cNReduz := "Forn Proveed 008"
Local cEnd := "Av Braz Leme, 1000"
Local cBairro := "Casa Verde"
Local cEst := "SP"
Local cCodMun := "50308"
Local cMun := "São Paulo"
Local cTipo := "F"
Local cCGC := "88888888888"

PREPARE ENVIRONMENT EMPRESA "32" FILIAL "6597" MODULO "COM"

oModel := FWLoadModel('MATA020')

oModel:SetOperation(nOpc)
oModel:Activate()

//Cabeçalho
oModel:SetValue('SA2MASTER','A2_COD' ,cCod)
oModel:SetValue('SA2MASTER','A2_LOJA' ,cLoja)
oModel:SetValue('SA2MASTER','A2_NOME' ,cNome)
oModel:SetValue('SA2MASTER','A2_NREDUZ' ,cNReduz)
oModel:SetValue('SA2MASTER','A2_END' ,cEnd)
oModel:SetValue('SA2MASTER','A2_BAIRRO' ,cBairro)
oModel:SetValue('SA2MASTER','A2_EST' ,cEst)
oModel:SetValue('SA2MASTER','A2_COD_MUN',cCodMun)
oModel:SetValue('SA2MASTER','A2_MUN' ,cMun)
oModel:SetValue('SA2MASTER','A2_TIPO' ,cTipo)
oModel:SetValue('SA2MASTER','A2_CGC' ,cCGC)

If oModel:VldData()
     oModel:CommitData()
Endif

oModel:DeActivate()

oModel:Destroy()

RESET ENVIRONMENT

Return


2 - Passo Paso a passo paso - ExclusãoEliminación:

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function EXEC020()

Local nOpc := 5 5 // --→ ExclusãoEliminación
Local oModel := Nil
Local cCod := "008"
Local cLoja := "01"

SA2->(DbSelectArea())
SA2→(DbSetOrder(1))
If SA2->(DbSeek(xFilial("SA2") + cCod + cLoja))
      oModel := FwLoadModel ("MATA020")
      oModel:SetOperation(nOpc)
      oModel:Activate()

      If oModel:VldData()
            oModel:CommitData()
            MsgInfo("Registro EXCLUIDO!", "AtençãoAtención")
      Else
            VarInfo("",oModel:GetErrorMessage())
      EndIf

      oModel:DeActivate()
Else
      MsgInfo("Registro NAO LOCALIZADO!", "AtençãoAtención")
EndIf

Return Nil

ObservaçãoObservación:Para opção Alterar utilizar o la opción Modificar utilice el nOpc = 4 conforme o passo a passo según el paso a paso 1.