10127332 MMIL-6526 DT - Melhoria para Solicitação de crédito para Cliente na Geração de NF de Comissão para Consórcios, Seguros e Serviços Diversos

01. DADOS GERAIS

Produto:	TOTVS DMS
Linha de Produto:	Linha Protheus
Segmento:	Varejo
Módulo:	Veículos (SIGAVEI)
Função:	Geração parc/nf (VEICM700)
Ticket:	10127332
Requisito/Story/Issue (informe o requisito relacionado) :	MMIL-6526

02. SITUAÇÃO/REQUISITO

Ao utilizar a rotina Geração parc/nf (VEICM700) e tentarmos fazer um faturamento de um cliente que não possua limite de crédito disponível, o sistema não possibilita gerar uma solicitação de liberação de limite de crédito para o mesmo.

03. SOLUÇÃO

Implementada a Melhoria na rotina Geração parc/nf (VEICM700) para se o cliente não possuir Limite de Crédito levando em consideração o parâmetro MV_CPNCLC, a rotina possibilite a Solicitação deste crédito. Inserimos também uma nova rotina de Liberação/Rejeição da Solicitação de Crédito (VEIA200), tanto a Liberação como a Rejeição necessitam de motivos préviamente inseridos no Cadastro de Motivos (OFIOA210), também é necessário que o usuário tenha permissão no cadastro de Equipe Técnica (OFIOA180) (aba Outros – novos campos: "Lib.Cred.Div" e "Alc.Cred.Div"). Após a Liberação do Crédito para o Cliente, será possível a Geração da NF de Comissão.

Procedimentos para Utilização

Parâmetros no arquivo SX6 – Parâmetros:

Nome da Variável	MV_CPNCLC
Tipo	Caracter
Descrição	Cond. de pagto. p/ venda a vista sem limite Credit
Valor Padrão

Nome da Variável	MV_MIL0141
Tipo	Caracter
Descrição	Checar Limite de Crédito na geração de NF de Comissão (2-Consórcios/3-Seguros/4-Serv.Diversos). Informe os tipos desejados. Exemplo: 234
Valor Padrão

Criar os novos Parâmetros abaixo no arquivo SX6 – Parâmetros:

Nome da Variável	MV_MIL0159
Tipo	Numérico
Descrição	Dias de validade para Liberação de Crédito de Clientes de Consorcio/Seguros/Serv.Diversos
Valor Padrão	0

Nome da Variável	MV_MIL0160
Tipo	Caracter
Descrição	Prefixo NF/Titulos de Venda de Serviços Diversos
Valor Padrão	DMS
ATENÇÃO!	O conteúdo deste parâmetro não pode ser igual ao conteúdo dos parâmetros: "MV_PREFBAL", "MV_PREFOFI" e "MV_PREFVEI".

No Configurador (SIGACFG) acesse Ambientes/Cadastros/Menu (CFGX013). Informe a nova opção do menu Veículos (SIGAVEI), conforme instruções a seguir:

Menu	Atualizações
Submenu	Cad Financeiro
Nome da Rotina	Lib.Cr.Cons/Seg/Srv.Div.
Programa	VEIA200
Módulo	Veículos
Tipo	Função Protheus

Criação de Tabela no arquivo SX2 – Tabelas:

Chave	Nome	Modo	PYME
VRO	Solic.Credito Cliente Cons/Seg	E	S

Criação de Campo no arquivo SX3 – Campos:

Tabela VRO - Solic.Credito Cliente Cons/Seg:

Campo	VRO_FILIAL	VRO_CODIGO	VRO_TIPO	VRO_STATUS	VRO_CODCLI
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter
Ordem	01	02	03	04	05
Tamanho	2	6	1	1	6
Decimal	0	0	0	0	0
Formato	@!	@!	@!	@!	@!
Contexto	1 - Real	1 - Real	1 - Real	1 - Real	1 - Real
Propriedade	1 - Alterar	2 - Visualizar	2 - Visualizar	2 - Visualizar	2 - Visualizar
Grupo de Campos	033				001
Título	Filial	Código	Tipo	Status	Cód.Cliente
Descrição	Filial	Código	Tipo	Status	Código Cliente
Opções			2=Consórcio;3=Seguro;4=Srv.Diverso	0=Solicitação Pendente;1=Solicitação Liberada;2=Solicitação Rejeitada
Inic. Padrão				"0"
Inic. Browse
Con. Padrão					SA1
Val. Sistema			Pertence("234")	Pertence("012")	vazio() .or. FG_Seek("SA1","M->VRO_CODCLI+Alltrim(M->VRO_LOJCLI)",1,.f.,"VRO_NOMCLI","A1_NOME")
Nível	1	1	1	1	1
Usado	Não	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Não	Sim	Sim	Sim	Sim
Folder
When
Help	Informe a Filial.	Informe o código.	Informe: 2=Consórcio 3=Seguro 4=Serviço Diverso	Informe o Status: 0=Solicitação Pendente 1=Solicitação Liberada 2=Solicitação Rejeitada	Informe o código do Cliente.

Campo	VRO_LOJCLI	VRO_NOMCLI	VRO_DATSOL	VRO_HORSOL	VRO_USRSOL
Tipo	Caracter	Caracter	Data	Caracter	Caracter
Ordem	06	07	08	09	10
Tamanho	2	30	8	4	6
Decimal	0	0	0	0	0
Formato	@!	@!		@R 99:99	@!
Contexto	1 - Real	2 - Virtual	1 - Real	1 - Real	1 - Real
Propriedade	2 - Visualizar	2 - Visualizar	2 - Visualizar	2 - Visualizar	2 - Visualizar
Grupo de Campos	002
Título	Loja Cliente	Nome Cliente	Dt.Solicit.	Hr.Solicit.	Usr.Solicit.
Descrição	Loja Cliente	Nome Cliente	Dt.Solicitação	Hr.Solicitação	Usuário Solicitante
Opções
Inic. Padrão		if(!Inclui,Posicione("SA1",1,xFilial("SA1")+VRO->VRO_CODCLI+VRO->VRO_LOJCLI,"A1_NOME"),"")
Inic. Browse		Posicione("SA1",1,xFilial("SA1")+VRO->VRO_CODCLI+VRO->VRO_LOJCLI,"A1_NOME")
Con. Padrão					USR
Val. Sistema	vazio() .or. FG_Seek("SA1","M→ VRO_CODCLI+M→VRO_LOJCLI", 1,.f.,"VRO_NOMCLI","A1_NOME")				UsrExist(M->VRO_USRSOL)
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Sim	Sim	Sim	Sim	Sim
Folder
When
Help	Informe a loja do Cliente.	Informe o nome do Cliente.	Informe a data da Solicitação.	Informe a hora da Solicitação.	Informe o código do usuário Solicitante.

Campo	VRO_NOMSOL	VRO_VLRSOL	VRO_DATLBR	VRO_HORLBR	VRO_USRLBR
Tipo	Caracter	Numérico	Data	Caracter	Caracter
Ordem	11	12	13	14	15
Tamanho	20	12	8	4	6
Decimal	0	2	0	0	0
Formato	@!	@E 999,999,999.99		@R 99:99	@!
Contexto	2 - Virtual	1 - Real	1 - Real	1 - Real	1 - Real
Propriedade	2 - Visualizar	2 - Visualizar	2 - Visualizar	2 - Visualizar	2 - Visualizar
Grupo de Campos
Título	Nom.Solicit.	Vlr.Solicit.	Dt.Lib./Rej.	Hr.Lib./Rej.	Usr.Lib./Rej
Descrição	Nome Solicitante	Vlr.Solicitado	Dt.Liberação/Rejeição	Hr.Liberação/Rejeição	Usuário Liberação/Rejeiçã
Opções
Inic. Padrão	if(!Inclui,UPPER(UsrRetName(VRO->VRO_USRSOL)),"")
Inic. Browse	UPPER(UsrRetName(VRO->VRO_USRSOL))
Con. Padrão					USR
Val. Sistema					UsrExist(M->VRO_USRLBR)
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Sim	Sim	Sim	Sim	Sim
Folder
When
Help	Informe o nome do Usuario.	Informe o valor solicitado.	Informe a data da Liberação/Rejeição.	Informe a hora da Liberação/Rejeição.	Informe o código do usuário da Liberação/Rejeição.

Campo	VRO_NOMLBR	VRO_MOTLBR	VRO_DATVAL	VRO_DATUTI	VRO_HORUTI
Tipo	Caracter	Caracter	Data	Data	Caracter
Ordem	16	17	18	19	20
Tamanho	20	6	8	8	4
Decimal	0	0	0	0	0
Formato	@!	@!			@R 99:99
Contexto	2 - Virtual	1 - Real	1 - Real	1 - Real	1 - Real
Propriedade	2 - Visualizar	1 - Alterar	1 - Alterar	2 - Visualizar	2 - Visualizar
Grupo de Campos
Título	Nom.Lib./Rej	Motivo	Dt.Validade	Dt.Utilizaç.	Hr.Utilizaç.
Descrição	Nome Usuário Lib./Rej.	Motivo	Dt.Validade	Dt.Utilização	Hr.Utilização
Opções
Inic. Padrão	if(!Inclui,UPPER(UsrRetName(VRO->VRO_USRLBR)),"")
Inic. Browse	UPPER(UsrRetName(VRO->VRO_USRLBR))
Con. Padrão		VS0
Val. Sistema			M->VRO_DATVAL>=dDataBase
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Sim	Sim	Sim	Sim	Sim
Folder
When
Help	Informe o nome do Usuario.	Informe o Motivo da Liberação/Rejeição.	Informe a data de Validade da Liberação.	Informe a data da Utilização.	Informe a hora da Utilização.

Campo	VRO_USRUTI	VRO_NOMUTI	VRO_VLRUTI
Tipo	Caracter	Caracter	Numérico
Ordem	21	22	23
Tamanho	6	20	12
Decimal	0	0	2
Formato	@!	@!	@E 999,999,999.99
Contexto	1 - Real	2 - Virtual	1 - Real
Propriedade	2 - Visualizar	2 - Visualizar	2 - Visualizar
Grupo de Campos
Título	Usr.Utilizaç	Nom.Utilizad	Vlr.Utilizad
Descrição	Usuário Utilização	Nome Usuário Utilização	Vlr.Utilizado
Opções
Inic. Padrão		if(!Inclui,UPPER(UsrRetName(VRO->VRO_USRUTI)),"")
Inic. Browse		UPPER(UsrRetName(VRO->VRO_USRUTI))
Con. Padrão	USR
Val. Sistema	UsrExist(M->VRO_USRUTI)
Nível	1	1	1
Usado	Sim	Sim	Sim
Obrigatório	Não	Não	Não
Browse	Sim	Sim	Sim
Folder
When
Help	Informe o código do usuário da Utilização.	Informe o nome do Usuario.	Informe o valor utilizado.

Tabela VAI - Técnicos:

Campo	VAI_LIBCCD	VAI_ALLCCD
Tipo	Caracter	Numérico
Ordem
Tamanho	1	12
Decimal	0	2
Formato	@!	@E 999,999,999.99
Contexto	1 - Real	1 - Real
Propriedade	1 - Alterar	1 - Alterar
Grupo de Campos
Título	Lib.Cred.Div	Alc.Cred.Div
Descrição	Lib.Créd.Cliente Cons/Seg	Alçada Lib.Credito Divers
Opções	0=Não;1=Sim
Inic. Padrão	"0"
Inic. Browse
Con. Padrão
Val. Sistema	Pertence("01")
Nível	1	1
Usado	Sim	Sim
Obrigatório	Não	Não
Browse	Não	Não
Folder
When
Help	Informe se o usuário tem permissão para liberar Crédito de Clientes para Consórcios, Seguros e Serviços Diversos.	Informe o valor de controle de alçada para liberação de Crédito de Consórcios, Seguros e Serviços Diversos.

Tabela VQ9 - NF Comissão:

Campo	VQ9_CODVRO
Tipo	Caracter
Ordem
Tamanho	6
Decimal	0
Formato	@!
Contexto	1 - Real
Propriedade	2 - Visualizar
Grupo de Campos
Título	Cód.Lib.Créd
Descrição	Código Lib.Crédito
Opções
Inic. Padrão
Inic. Browse
Con. Padrão
Val. Sistema
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Sim
Folder
When
Help	Informe o código da Liberação de Crédito.

Alteração de Campo no arquivo SX3 – Campos:

Tabela VDT - Resp Questionario Motivo:

OBS: As informações de alterações estão em Verde.

Campo	VDT_TIPORI
Tipo	Caracter
Ordem
Tamanho	1
Decimal	0
Formato	@!
Contexto	1 - Real
Propriedade	2 - Visualizar
Grupo de Campos
Título	Tipo Origem
Descrição	Tipo Origem
Opções	1=Atend.;2=OS;3=Agend.;4=Orcamto; 5=CEV;6=Oport.;7=Comiss.Fat.Dir.; 8=Bônus Veíc.;9=Vda.Veic.Atacado; A=Comiss.Cons./Seg./Srv.Div.
Inic. Padrão
Inic. Browse
Con. Padrão
Val. Sistema	PERTENCE("123456789A")
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Não
Folder
When
Help	Informe o tipo de origem.

Criação de Índices no arquivo SIX – Índices:

Índice	VRO	VRO	VRO	VRO
Ordem	1	2	3	4
Chave	VRO_FILIAL+VRO_CODIGO	VRO_FILIAL+VRO_CODCLI+VRO_LOJCLI+VRO_TIPO+VRO_STATUS	VRO_FILIAL+VRO_TIPO+VRO_CODCLI+VRO_LOJCLI+VRO_STATUS	VRO_FILIAL+VRO_TIPO+VRO_STATUS+VRO_CODCLI+VRO_LOJCLI
Descrição	Codigo Solicitação	Codigo Cliente + Loja Cliente + Tipo + Status	Tipo + Codigo Cliente + Loja Cliente + Status	Tipo + Status + Codigo Cliente + Loja Cliente
Proprietário	S	S	S	S

Criação de registros na Tabela Genérica VM do arquivo SX5 – Tabelas Genéricas:

Tabela	VM	VM
Chave	000024	000025
Descrição	REJ.SOLICIT.CREDITO CONS/SEG/SRV.DIV	LIB.SOLICIT.CREDITO CONS/SEG/SRV.DIV

Criação de Relacionamento no arquivo SX9 – Relacionamento:

Domínio	SA1	VS0
Identificação	Última ordem referente a tabela SA1	Última ordem referente a tabela VS0
C. Domínio	VRO	VRO
E. Domínio	A1_COD+A1_LOJA	VS0_CODMOT
E. C. Domínio	VRO_CODCLI+VRO_LOJCLI	VRO_MOTLBR
Propriedade	S	S
L. Domínio	1	1
L. C. Domínio	N	N
Condição SQL

Acessar a rotina Geração parc/nf (VEICM700), clicar na opção "Gerar NF" e preencher os parâmetros para levantamento das parcelas. Serão apresentadas as parcelas para gerar a NF de comissões e a nova grid abaixo com as Solicitações em aberto (dentro do prazo de Validade);
Preencher os dados da seção "Dados adicionais para emissão da NF de comissão:" para gerar a NF, Selecione uma ou mais parcelas com valores e clique em "Salvar";
Neste caso, como o Cliente da NF de comissão não possui Limite de Crédito, será apresentada a tela para solicitação de liberação do crédito. Clicar em "Sim".

Acessar a nova rotina de Liberação de Crédito Lib.Cr.Cons/Seg/Srv.Div. (VEIA200). Posicionar em cima da Solicitação, clicar em "Liberar", selecionar o motivo da liberação e "Salvar;
Será liberado o Crédito para o Cliente (Caso contrário, a solicitação também poderá ser rejeitada, lembrando que em ambos os casos será necessário informar um motivo préviamente inseridos no Cadastro de Motivos (OFIOA210).

Importante: Tanto para aprovação quanto para rejeição, é necessário que o usuário tenha permissão no cadastro de Equipe Técnica (OFIOA180) (aba Outros – novos campos: "Lib.Cred.Div" e "Alc.Cred.Div"). Caso contrário, será apresentada uma das mensagens abaixo:

Acessar então a rotina Geração parc/nf (VEICM700) e verifique na grid inferior que já existe Liberação aprovada para o Cliente;
Clique em "Gerar NF" e preencha os parâmetros para levantamento das parcelas. Será apresentada ao usuário uma tela informando sobre a liberação de Crédito, clique em "OK".

Preencha os campos necessários e selecione as parcelas desejadas (com valor menor ou igual ao liberado) e em seguida clique na opção "Salvar";
Será gerada a NF relacionada as parcelas selecionadas anteriormente e a solicitação será utilizada somente nesta nota.

Acessar a rotina de Liberação de Crédito Lib.Cr.Cons/Seg/Srv.Div. (VEIA200) e posicionar na Liberação utilizada anteriormente;
A grid abaixo será populada com as parcelas que foram utilizadas na geração da NF.

04. DEMAIS INFORMAÇÕES

Pacotes Gerados:

12.1.27: https://r.totvs.io/p/992282

12.1.25: https://r.totvs.io/p/992281

12.1.23: https://r.totvs.io/p/992280

IMPORTANTE!

Esta atualização de dicionários estará disponível na próxima release (12.1.33).

05. ASSUNTOS RELACIONADOS

Não há.

Árvore de páginas