Configuração Rating 3044

O envio de arquivos ao Sistema de Transferência de Arquivos (STA) é realizado por meio do serviço JSSTA Dimensa. Para que o rating possa efetuar os envios adequadamente, são necessárias as seguintes configurações:

  • Definição do fluxo automático

  • Especificação do diretório de leitura dos arquivos

  • Configuração do ambiente

  • Intervalo de execução do agendador de envio
  • Carga na tabela de documentos de envio sta

A tela abaixo apresenta o painel de configurações gerais, onde podem ser definidos os parâmetros de envio para o funcionamento fluxo.

Observações:

  • Execução automática deve estar marcada para 'sim'
  • Ambiente STA pode alterar entre Homologação e Produção (utilizado na requisição para o JSSTA)
  • Diretório que o sistema irá ler os arquivos para enviar
  • Intervalo de tempo para leitura da pasta

Script de carga de documento STA Rating

É necessário realizar a carga da tabela de documento STA que foi na expedição do Rating Rotina SB Service(JSBRTRO_6.2.7.0) no dia .

Os scripts abaixo deverão ser executados apenas se não houver registro de execução anterior, garantindo que não ocorram duplicidades.


if exists (select 1 from sysobjects where lower(name) = 't425dsta')
BEGIN
    INSERT INTO t425dsta(cd_doc, tp_arq, id_sit, cd_usu_atu, dh_atu) values ('3044', 'ASCR344', 'A', 'DIMENSA', GETDATE())
end;

GO
declare
  vexist number(1) := 0;
begin
  select count(1) into vexist from all_tables where lower(table_name) = 't425dsta' and owner = sys_context('userenv','current_schema');
  if vexist = 1 then
    insert into t425dsta(id_doc, cd_doc, tp_arq, id_sit, cd_usu_atu, dh_atu) values (S_T425DSTA_ID_DOC.NEXTVAL, '3044', 'ASCR344', 'A', 'DIMENSA', SYSDATE);
  end if;
end;
/
if (select count(1) from sysobjects obj where obj.name =  't425dsta') > 0
    insert into t425dsta(cd_doc, tp_arq, id_sit, cd_usu_atu, dh_atu) values ('3044', 'ASCR344', 'A', 'DIMENSA', GETDATE())
GO

Configuração do STA Dimensa - JSSTA

O sistema STA Dimensa requer o cadastro prévio dos documentos antes do envio ao STA, incluindo informações de sistema de origem dos dados (RATING).

Configuração de Documento

Passos:

  1. Acessar menu Cadastro → Documento.

  2. Clicar em "Novo Documento".

  3. Cadastrar tipo de arquivo ASCR3444.

Configuração de Sistema Legado

Passos:

  1. Acessar menu Cadastro → Sistema Legado.

  2. Clicar em "Novo Sistema Legado".

  3. Cadastrar Sistema RT (Rating).

  4. Vincular documento ASCR344 no sistema RT


Caso desejar, abaixo está disponibilizado a carga dessas informações. Esses scripts estarão na expedição do Transferência de arquivos Service VI(DJSSTA_6.1.3.0) do dia .

O script funciona de duas formas: se já houver dados nas tabelas, usa o código de empresa existente. Se as tabelas estiverem vazias, usa o código 1 como padrão. Esse valor pode ser alterado diretamente no script se necessário.

if exists (select 1 from sysobjects where lower(name) = 't400stlg')
BEGIN
	INSERT INTO t400stlg(cd_emp, ds_sgl_sis, ds_sis, id_sit, ds_sis_bcb, cd_usu_atu, dh_atu)
	SELECT cd_emp, 'RT', 'Rating', 'A', 'RT', 'DIMENSA', GETDATE()
	FROM (
		SELECT DISTINCT cd_emp FROM t400stlg
		UNION ALL
		-- Alterar '1' para o código da empresa desejada
		SELECT 1 WHERE NOT EXISTS (SELECT 1 FROM t400stlg)
	) AS emp;
END; 
GO

if exists (select 1 from sysobjects where lower(name) = 't400dcsb')
BEGIN
	INSERT INTO t400dcsb(cd_emp, sg_tip_arq, cd_doc, id_drc, id_amb, ds_doc, id_sit, cd_usu_atu, dh_atu)
	SELECT emp.cd_emp, 'ASCR344', '3044', 'E', 'T', 'Cadoc 3044', 'A', 'DIMENSA', GETDATE()
	FROM (
		SELECT DISTINCT cd_emp FROM t400dcsb
		UNION ALL
	 	-- Alterar '1' para o código da empresa desejada
		SELECT 1 WHERE NOT EXISTS (SELECT 1 FROM t400dcsb)
	) AS emp
END;
GO

if exists (select 1 from sysobjects where lower(name) = 't400stdc')
BEGIN
	INSERT INTO t400stdc(id_sis, id_doc, cd_usu_atu, dh_atu)
	SELECT sis.id_sis, doc.id_doc, 'DIMENSA', GETDATE()
	FROM t400stlg sis INNER JOIN t400dcsb doc ON (doc.cd_emp = sis.cd_emp)
	WHERE sis.ds_sgl_sis = 'RT' AND doc.sg_tip_arq = 'ASCR344'
	AND NOT EXISTS (
		SELECT 1 FROM t400stdc existing 
		WHERE existing.id_sis = sis.id_sis 
		AND existing.id_doc = doc.id_doc
	);
END;
GO
declare
	vexist number(1) := 0;
BEGIN
	select count(1) into vexist from all_tables where lower(table_name) = 't400stlg' and owner = sys_context('userenv','current_schema');
	if vexist = 1 then
		INSERT INTO t400stlg(id_sis, cd_emp, ds_sgl_sis, ds_sis, id_sit, ds_sis_bcb, cd_usu_atu, dh_atu) 
		SELECT s_t400stlg_id_sis.nextval, cd_emp, 'RT', 'Rating', 'A', 'RT', 'DIMENSA', SYSDATE 
		FROM (
			SELECT DISTINCT cd_emp FROM t400stlg
			UNION ALL
		 	-- Alterar '1' para o código da empresa desejada
			SELECT 1 FROM DUAL WHERE NOT EXISTS (SELECT 1 FROM t400stlg)
		);
	end if;
end;
/
declare
	vexist number(1) := 0;
BEGIN
	select count(1) into vexist from all_tables where lower(table_name) = 't400dcsb' and owner = sys_context('userenv','current_schema');
	if vexist = 1 then
		INSERT INTO t400dcsb(id_doc, cd_emp, sg_tip_arq, cd_doc, id_drc, id_amb, ds_doc, id_sit, cd_usu_atu, dh_atu)
		SELECT s_t400dcsb_id_doc.nextval, cd_emp, 'ASCR344', '3044', 'E', 'T', 'Cadoc 3044', 'A', 'DIMENSA', SYSDATE
		FROM (
			SELECT DISTINCT cd_emp FROM t400dcsb
			UNION ALL
		 	-- Alterar '1' para o código da empresa desejada
			SELECT 1 FROM DUAL WHERE NOT EXISTS (SELECT 1 FROM t400dcsb)
		);
	end if;
end;
/
declare
	vexist number(1) := 0;
BEGIN
	select count(1) into vexist from all_tables where lower(table_name) = 't400stdc' and owner = sys_context('userenv','current_schema');
	if vexist = 1 then
		INSERT INTO t400stdc(id_sis_doc, id_sis, id_doc, cd_usu_atu, dh_atu)
		SELECT s_t400stdc_id_sis_doc.nextval, sis.id_sis, doc.id_doc, 'DIMENSA', SYSDATE
		FROM t400stlg sis INNER JOIN t400dcsb doc ON (doc.cd_emp = sis.cd_emp)
		WHERE sis.ds_sgl_sis = 'RT' AND doc.sg_tip_arq = 'ASCR344'
		AND NOT EXISTS (
			SELECT 1 FROM t400stdc existing 
			WHERE existing.id_sis = sis.id_sis 
			AND existing.id_doc = doc.id_doc
		);
	end if;
end;
/