Base de Conhecimento

Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Clientes (SIGACOM) - Rutina automática para el registro de clientes. CRMA980


Duda

¿Cómo se configura la rutina automática para el registro de clientes CRMA980 ?


Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Clientes (SIGACOM) - Release 12.1.2210

Solución

Teniendo en cuenta que la rutina CRMA980 ya cuenta con estructura MVC se agregaron nuevos campos y ajuste de otros, por lo que el fuente para la rutina automática, podría quedar de la siguiente manera.

 

#Include "Protheus.ch"
#include "TBICONN.CH"
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCRMA980
Função de exemplo para utilização da rotina automática de Clientes.
/*/
//-------------------------------------------------------------------
User Function MyCRMA980()

Local aSA1Auto := {}
Local aAI0Auto := {}
Local nOpcAuto := 3//MODEL_OPERATION_INSERT
Local lRet := .T.

Private lMsErroAuto := .F.

lRet := RpcSetEnv("T1","D MG 01","Admin")

If lRet

//----------------------------------
// Dados do Cliente
//----------------------------------
aAdd(aSA1Auto,{"A1_COD" ,"000001" ,Nil})
aAdd(aSA1Auto,{"A1_LOJA" ,"01" ,Nil})
aAdd(aSA1Auto,{"A1_NOME" ,"Cliente prueba" ,Nil})
aAdd(aSA1Auto,{"A1_NREDUZ" ,"ROTAUTO" ,Nil})
aAdd(aSA1Auto,{"A1_TIPO" ,"F" ,Nil})
aAdd(aSA1Auto,{"A1_END" ,"BRAZ LEME" ,Nil})
aAdd(aSA1Auto,{"A1_BAIRRO" ,"CASA VERDE" ,Nil})
aAdd(aSA1Auto,{"A1_EST" ,"SP" ,Nil})
aAdd(aSA1Auto,{"A1_MUN" ,"SAO PAULO" ,Nil})
aAdd(aSA1Auto,{"A1_INCISS" ,"N" ,Nil})
aAdd(aSA1Auto,{"A1_GRPVEN" ,"000001" ,Nil})

//---------------------------------------------------------
// Dados do Complemento do Cliente
//---------------------------------------------------------
aAdd(aAI0Auto,{"AI0_SALDO" ,30 ,Nil})

//------------------------------------
// Chamada para cadastrar o cliente.
//------------------------------------
MSExecAuto({|a,b,c| CRMA980(a,b,c)}, aSA1Auto, nOpcAuto, aAI0Auto)

If lMsErroAuto
lRet := lMsErroAuto
MostraErro() // Não funciona na execução via JOB
Else
Conout("Cliente incluído com sucesso!")
EndIf

EndIf

RpcClearEnv()

Return lRet

 

Conozca más.

DT Fuente de registro de nuevos clientes en MVC

¿Fue útil este artículo?
Usuarios a los que les pareció útil: 0 de 0

0 Comentarios

Inicie sesión para dejar un comentario.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Rellene los campos siguientes para iniciar el chat:

Chat _