Linha Microsiga Protheus

Árvore de páginas

Características do Requisito


Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Gestão de Serviços

Rotina:

TECA160

O ponto de entrada é indicado para habilitar a opção no menu Outras Ações → Importar locais de atendimento


Ponto de Entrada

Descrição:

AT160IMP - Realiza a importação de locais de atendimento


Localização:

Atualizações>>Cadastros>>Vendas>>Locais de Atendimento>>Outras ações>>Importar Locais de Atendimento

Programa Fonte:

TECA160.PRW

Função:

MENUDEF

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógica

Variável responsável por indicar se a importação foi bem sucedida

Não

 

#Include 'Protheus.ch'
User function AT160IMP()
 
Local oModel := FwLoadModel("TECA160") 
Local lRet := .T. 

oModel:SetOperation(MODEL_OPERATION_INSERT) 
oModel:Activate() 

//-- SetValue 
oModel:SetValue('ABSMASTER','ABS_LOCAL','00000070') 
oModel:SetValue('ABSMASTER','ABS_DESCRI','LOCAL DE ATENDIMENTO PE') 
oModel:SetValue('ABSMASTER','ABS_FILCC','D MG 02 ') 
oModel:SetValue('ABSMASTER','ABS_CCUSTO','000000001') 
oModel:SetValue('ABSMASTER','ABS_REGIAO','001') 
oModel:SetValue('ABSMASTER','ABS_ENTIDA','1') 
oModel:SetValue('ABSMASTER','ABS_CODIGO','000001') 
oModel:SetValue('ABSMASTER','ABS_LOJA','01' ) 
oModel:SetValue('ABSMASTER','ABS_END','Av. do Estado') 
oModel:SetValue('ABSMASTER','ABS_BAIRRO','Centro') 
oModel:SetValue('ABSMASTER','ABS_MUNIC','Sao Paulo') 
oModel:SetValue('ABSMASTER','ABS_ESTADO','SP') 
oModel:SetValue('ABSMASTER','ABS_CONTAT','000001') 

If oModel:VldData() 
     oModel:CommitData() 
Else 
     lRet := .F. 
EndIf 

Return lRet


DT PE AT870NWMNU Retorna os botões do Grid da Gestão de Contratos