Access Violation - Perguntas recentes com a tag macro

O que significa o NS em: RecordHandleOfTable("TR_ESTADOTRIBUTOSALIQUOTAS|NS")

Wed, 30 Oct 2019 17:40:58 +0000

O que significa o NS em: RecordHandleOfTable("TR_ESTADOTRIBUTOSALIQUOTAS|NS")?

RequestConfirmation não está funcionando

Tue, 29 Oct 2019 14:22:56 +0000

Na macro existia um "If MsgBox" que mostrava ao usuário uma mensagem que no caso era uma mensagem perguntando se ele confirma a exclusão de um registro.

Troquei esse MsgBox pelo RequestConfirmation e não funcionou. No runner parou de apresentar mensagem de erro e no WES apresenta a seguinte mensagem: Operação foi cancelada pela macro sem mensagem.

Como resolver ?

Codigo na macro:

If RequestConfirmation("A exclusão deste registro resultará na exclusão de todos os registros associados a ele. Deseja Continuar?") Then

ExcluirRegistrosI399

ExcluirRegistrosI299

Por qual motivo ao colocar o texto "Já existe um registro com" em uma CancelDescription em uma macro de tabela a mensagem de erro é automaticamente trocada para "Já existe um registro com essa chave"?

Wed, 16 Oct 2019 14:35:17 +0000

Colocando essa mensagem:
If Not qSQL.EOF Then
	CancelDescription = Translate("já existe um registro com este processo e obrigação para esta pasta.")
	CanContinue = False
End If

No Wes é trocada para:

"Já existe um registro com essa chave"

Na macro, é possível utilizar o Tipo do Serviço (X, Y, Z...) do Integrator

Thu, 10 Oct 2019 17:12:23 +0000

Quero pegar na macro qual tipo do serviço o Integrator está utilizando.

Sistema apresentando de forma incompleta um campo com Mask aplicada.

Wed, 02 Oct 2019 19:22:55 +0000

No C# e na Macro está atribuindo a mascara e depois o valor e em tela só aparece os 3 primeiros números do campo "Inscrição Estadual" da tabela GN_PESSOAS

Mask atribuida na macro VBA

CurrentQuery.FieldByName("INSCRICAOESTADUAL").Mask = "999.999.999.999"

Mask atribuida em C#, scriptUI

this[FieldsNames.InscricaoEstadual].Mask = "999.999.999.999"

Em tela

É possível depurar o Integrator via Macro?

Wed, 28 Aug 2019 13:41:34 +0000

No caso de um BusinessComponent que executa em DLL de servidor, podemos utilizar a documentação http://wiki.benner.com.br/wiki/index.php?title=Depura%C3%A7%C3%A3o_de_DLLs_de_Servidor para depurar a execução no provider. No entanto, na maioria dos casos isto não é necessário, pois conseguimos recriar a situação criando o BusinessComponent via macro e passando manualmente os mesmos parâmetros que sabemos que chegam na situação descrita pelo cliente. Isso agiliza bastante, porque depurar um provider nunca é tão simples, principalmente num ambiente de produção, com várias providers executando ao mesmo tempo.

Porém, não encontrei uma forma de fazer isso para processos executados via integrator. Minha expectativa:

Obs.: Não compila, é só para entender a ideia mesmo.

Dim txt as String

Dim integrator as Object

Set txt = "

@SERVICO=Y
FILIAL=@CGC(58.518.069/0017-59)
PESSOA=@CGCCPF(59.306.571/0001-00)
*K_TITULO=000364160
*NUMEROCLIENTE=000364160
DATAENTRADA=20190826
DATADABASE=20190826
DOCUMENTODIGITADO=SS
OPERACAO=@CODIGOREDUZIDO(70301)
OPERACAOFATURAMENTO=@CODIGO(20101)
HISTORICO=SOLICITAÇÃO DE SERVIÇOS SS000364160
CONDICAOPAGAMENTO=@DESCRICAO(SS Web)
CONFIRMANTE=@APELIDO(INTEGRATOR)
LIBERADOCONFIRMACAO=N

@SERVICO=Y
*ORDEMVENDA=@CM_ORDENSVENDA@
*PRODUTO=6187
QUANTIDADE=1
VALORUNITARIO=132.65"
Set integrator = CriaObjetoQuePermiteExecutarAMesmaRotinaQueOServidorExecuta(txt)

integrator.Executar()

É possível?

exportar um relatório para arquivo CSV automaticamente de dentro da macro do relatório

Fri, 22 Jul 2016 18:12:07 +0000

Olá

tem como exportar um relatório para arquivo CSV automaticamente de dentro da macro do relatório.

no método OnPrepareReport?

Nao permitir que campo seja utilizado na treeview como filtro ou alterar query do Runner

Fri, 01 Jul 2016 15:36:27 +0000

Bom dia,
Tem como mostrar um campo string no formulário, mas ocultá-lo na janela de escolha de campos de busca da treeview?
Isso é possível via builder ou macro?

Se não for possível, tem como interceder na montagem da cláusula where e tratar esse campo modificando o where que o builder montou? (veja ponto do debug abaixo, aonde o runner monta o filtro da árvore)
Entrando "TreeViewEditing".
Permite edição do node.
Verificando texto digitado na árvore.
Filtro para árvore: (UPPER(A.DESCRICAO) LIKE 'AMB%')
TreeViewCollapsing
TreeViewCollapsed
Gerando o SQL para árvore.
In ModuleOnNodeWhere
Out ModuleOnNodeWhere
qWork.Open
qLoadQuery.Open
qLoadQuery.Close
qWork.Close
TreeViewExpanding

Obter handle do registro pai na criação de um registro via macro

Wed, 18 May 2016 23:09:55 +0000

Preciso ocultar um campo de um registro filho que possui um pai com uma informação específica. Via AfterScroll na macro eu consigo ocultar o campo somente em registros já existentes, mas não consigo fazer na criação de um registro, porque o campo que liga o filho ao pai não está preenchido, então não consigo buscar essa informação. Alguém saberia me dizer como posso resolver isso?

Como passar parâmetros relatório Stimulsoft com mais de um detalhe

Tue, 24 Nov 2015 17:14:20 +0000

Boa tarde,

Tenho um relatório feito no stimulsoft com dois detalhes e cada detalhe possui um filtro. Como é possível passar valores para esses filtros com valores diferentes via macro?

Builder - Campos do Tipo Grid (Como identificar tabela origem no Afterscroll?)

Fri, 09 Oct 2015 14:29:13 +0000

Versão do Builder utilizada: 13.1.5.0

Tenho um campo Grid na tabela SAM_GUIA que acessa alguns campos da tabela SAM_GUIA_EVENTOS.

Na tree-view ao acessar os dados da SAM_GUIA_EVENTOS pela SAM_GUIA, o sistema acaba sempre entrando no método Afterscroll da SAM_GUIA_EVENTOS, o que está gerando alguns erros principalmente na validação de visibilidade de Page Controls.

Ex: TABLE.Pages("DADOS_CUSTOOPERACIONAL").Visible = True

Se eu acesso essa função direto pela SAM_GUIA_EVENTOS, não tem problema, porem ao acessar essa tabela via um campo GRID, gera erro (TCSTable: Não foi possível obter o PageControl).

Pergunta: Como eu identifico a tabela origem que está acessando essa macro sem ser por NodeInternalCode?

tem como desabilitar o botão de edição do runner via macro?

Tue, 11 Aug 2015 20:45:19 +0000

Preciso desabilitar os botões de edição (inserir, alterar e excluir) sob uma determinada condição.

Att.

Função @ADDMONTH não funciona em macro de relatório.

Thu, 23 Jul 2015 18:34:56 +0000

Boa tarde,

Estou atendendo uma demanda onde preciso utilizar uma função para adicionar X meses à uma data.

No Builder utilizando a função @ADDMONTH o retorno é exibido com sucesso conforme esperado, porém, utilizando a mesma função em uma query dentro de uma macro de relatório, recebo a mensagem de erro abaixo:

Erro nativo: Must declare the scalar variable "@ADDMONTH".
Incorrect syntax near 'Y'. em Benner.Tecnologia.DataAccess.BennerCommand.ExecuteReader(CommandBehavior behavior)
em Benner.Tecnologia.DataAccess.BennerCommand.ExecuteDbDataReader(CommandBehavior behavior)
em Benner.Tecnologia.DataAccess.BennerCommand.ExecuteReader()
em Benner.Tecnologia.ManagedInterop.BennerCommandProxy.ExecuteReader()

Não existe suporte à essa função em macro? Existe outra alternativa?

Grato.

Como faço para fechar o runner através de uma macro?

Fri, 17 Jul 2015 14:16:32 +0000

Olá,

Precisamos fazer algo para obrigar o cliente executar uma rotina no sistema para o correto funcionamento do mesmo, então nossa idéia inicial foi incluir um evento na macro, mais precisamente no evento OnOpen da aplicação, para que se o cliente ainda não executou a rotina uma mensagem será apresentada informando da necessidade de fazer isso, e se ele optar por executar esta rotina, um formulário seria apresentado para isso, porém se o usuário optar por não executar a rotina a aplicação seria fechada automaticamente, e minha dúvida está em como fechar a aplicação, já tentei utilizar o Close e alguns outros exemplos que achei ser possível, porém nenhum funcionou.

É possível fechar a aplicação através de uma macro?

se for como faço isso?

Erro: (&H80131522) Não foi possível carregar o tipo BefLearning.Documento do assembly Benner.Tecnologia.ManagedInterop, Version=2008.0.0.0, Culture=neutral, PublicKeyToken=f2db26731026fd37.

Tue, 16 Jun 2015 16:19:40 +0000

De acordo com o roteiro da wiki (http://wiki.benner.com.br/wiki/index.php?title=Manipula%C3%A7%C3%A3o_de_entidades_em_VBA_e_em_Delphi) implementei a dll BefLearning para que a macro da tabela Estados (Que não está marcada para executar entidade especializada e não tem entidade vinculada) possa chamar o método cancelar, porém sempre temos o erro:

(&H80131522) Não foi possível carregar o tipo BefLearning.Documento do assembly Benner.Tecnologia.ManagedInterop, Version=2008.0.0.0, Culture=neutral, PublicKeyToken=f2db26731026fd37.

Tem algum segredo para isso funcionar ? Segue a Classe e a Macro:

namespace BefLearneing
{
public class Estados : BusinessEntity<Estados>
{
public static void Cancelar(string motivo, bool enviaAviso)
{
// regra de negócio
throw new BusinessException("Teste de chamada pela macro");
}
}
}

Public Sub TABLE_BeforePost(CanContinue As Boolean)

Dim funcaoCancelar As CSEntityCall

Set funcaoCancelar = BusinessEntity.CreateCall("BefLearning.Documento", "Cancelar")

funcaoCancelar.AddParameter(pdtAutomatic, "Saldo insuficiente.")
funcaoCancelar.AddParameter(pdtAutomatic, True)

funcaoCancelar.Execute()

End Sub

Já fizemos testes de diversas maneiras e não conseguimos fazer funcionar. (Runner 15.0)

Tempo de vida de variável em Macros/VB

Fri, 12 Jun 2015 14:06:06 +0000

Sabe-se que independente do escopo, uma variável VB tem o tempo de vída da procedure que a instacia. Mas como no sistema Benner o VB é executado internamente e acredito que deva ter algumas particularidades quero saber quanto ao tempo de vida de uma variável "Objeto" que instacio numa macro.

Conversando com quem trabalha a mais tempo, me mostraram que a muito vem-se utilizando o comando :

Set obj = Nothing

Uma linha acima do End Sub, ou seja no fim da procedure, com o intuito de limpar a variável. Ninguém soube me dar certeza se este comando é realmente necessário e o pessoal utiliza apenas por garantia.

Será que devemos continuar fazendo isto, ou o VB me garante que a variável será destruida ao fim da macro?

Como forçar o afterscroll de uma tabela via macro?

Mon, 17 Nov 2014 18:14:39 +0000

Coloquei a query em inserção e fiz o cadastro em uma interface delphi, depois de o cadastro tenho como atualizar a lista de registros da carga sem que o usuario tenha que fechar e abrir de novo?

Funcionaria com o afterscroll talvez, porém não encontrei como forçar a execução deste evento da tabela

Ordenar resultado de campo do tipo "Tabela" no Runner

Fri, 24 Oct 2014 11:24:41 +0000

Bom...

No Builder, existe o campo do tipo Tabela (FK), que o Runner monta um TBDBLookupTxt.
No meu cenário, eu tenho uma tabela DIASSEMANA, que contém os dias de Domingo à Segunda.
Acontece que o componente automaticamente ordena o resultado pelo campo informado em "Resultado". Assim, os dias da semana ficam como:

DOMINGO
QUARTA
QUINTA
SABADO
SEXTA
TERÇA

Existe como informar uma ordenação, seja por Builder ou por Macro?

Existe um manual de comandos aceitos pelo Runner?

Tue, 21 Oct 2014 19:12:36 +0000

Notei que existem alguns comandos bem úteis no Runner, como ShowMe e ShowMeTheHandles

Entretanto, estes comandos não aparecem no Code Completion:

E procurando estes comandos na Wiki, também não trouxe nenhum resultado.

Gostaria de saber aonde posso encontrar mais informações sobre estes comandos, e quais outros estão disponíveis.
Então, existe um manual de comandos aceitos pelo Runner??

Planilha excel

Thu, 16 Oct 2014 18:08:35 +0000

Existe alguma forma de gerar uma planilha excel através do VBA sem que necessária tenha que ter o excel instalado na máquina. Talvez instanciando algum objeto dentro da macro.

Código para criação da planilha em excel

Dim oXLApp As Object, wb As Object

    Set oXLApp = CreateObject("Excel.Application")

    '~~> Hide Excel
    oXLApp.Visible = False

    '~~> Open files
    Set wb = oXLApp.Workbooks.Add
    Set ws = wb.WorkSheets.Add

    ws.Range("B10") = "Edvaldo VITOR GOMES"
    ws.range("B10").Font.Bold = True
    ws.Range("C10") = "VITOR GOMES"
    ws.Columns("A:F").EntireColumn.AutoFit
    wb.SaveAs "C:\TESTE.xlsx"
    wb.close

    Dim email As Object

    Set email = NewMail

    email.ContentType = "text/html"

    email.IsHtml = True
    email.SendTo = "edvaldo.gomes@benner.com.br"
    email.Subject = "teste"
    email.AddAttachedFile("c:\teste.xlsx")

    email.Text.Add("segue anexo teste")

    email.Send

    Set email = Nothing
    Set oXLApp = Nothing
    Set wb = Nothing
    Set ws = Nothing

Como editar uma macro de sistema em ambiente de cliente?

Thu, 11 Sep 2014 20:32:04 +0000

Não consigo editar a macro do sistema. Alterei o CustomSystem para 'N', mas não resolveu. A base é uma base da qualidade.

É possível salvar um arquivo de um campo tipo Arquivo de uma tabela virtual?

Thu, 17 Jul 2014 18:19:46 +0000

Após criar uma visão para uma tabela virtual que possui um campo tipo arquivo e possibilitar a execução de um comando que chama esta visão, é possível obter o arquivo indicado pelo usuário por macro?

Chamar dll BEF através de um processo

Mon, 14 Jul 2014 13:09:05 +0000

Existe a possibilidade de chamar através da macro mais precisavamente através de um processo uma dll em BEF contendo o seguinte método. Esse processo será chamado por um agendamento posteriormente.

public void GerarDemonstrativo(BusinessArgs args)

{
GerarDemonstrativo();
}

Como tratar mensagem de campo obrigatório em uma macro com a opção .required marcada

Fri, 27 Jun 2014 15:07:21 +0000

Eu setei um campo opcional como required em uma macro em VBA.

Ex: NIVELEXCLUSAO.Required = True

O sistema consegue determinar que o campo é agora obrigatório mostrando a mensagem para o usuário, só que a mensagem está em inglês.

Existe alguma forma de tratar essa mensagem na macro?

Eu consigo "tratar" a mensagem verificando o campo no beforepost, mas acredito que esse não seja o melhor jeito justamente por estar usando o .required no campo.

Problema ao utilizar o BusinessEntity.CreateCall

Mon, 23 Jun 2014 12:49:14 +0000

Tentei realizar o processo descrito na wiki (http://wiki.benner.com.br/wiki/index.php?title=Manipula%C3%A7%C3%A3o_de_entidades_em_VBA_e_em_Delphi#Exemplo_2), porém não deu certo ao executar o código abaixo, apresentando o seguinte erro:

Public Sub TABLE_AfterPost()
  Dim indicarProtocoloPta As CSEntityCall

  Set indicarProtocoloPta = BusinessEntity.CreateCall("Benner.Saude.ANS.Entidades.Tv_Monitoramento_Indicacaopta", "AlterarProtocoloPTA")

  indicarProtocoloPta.AddParameter(pdtString, SessionVar("HANDLE_ROTMONITORAMENTOTISS"))
  indicarProtocoloPta.AddParameter(pdtString, CurrentQuery.FieldByName("PROTOCOLOPTA").AsString)

  indicarProtocoloPta.Execute()

  Set indicarProtocoloPta = Nothing
End Sub

INP-116, INP-301: Erro durante a execução da macro de TV_MONITORAMENTO_INDICACAOPTA:
(&H80131522) Could not load type 'Benner.Saude.ANS.Entidades.Tv_Monitoramento_Indicacaopta' from assembly 'Benner.Tecnologia.ManagedInterop, Version=2008.0.0.0, Culture=neutral, PublicKeyToken=f2db26731026fd37'.

Se eu trocar para chamar pelo Entity.CreateCall ocorre o seguinte erro:

Public Sub TABLE_AfterPost()
  Dim indicarProtocoloPta As CSEntityCall

  Set indicarProtocoloPta = Entity.CreateCall("TV_MONITORAMENTO_INDICACAOPTA", "AlterarProtocoloPTA")

  indicarProtocoloPta.AddParameter(pdtString, SessionVar("HANDLE_ROTMONITORAMENTOTISS"))
  indicarProtocoloPta.AddParameter(pdtString, CurrentQuery.FieldByName("PROTOCOLOPTA").AsString)

  indicarProtocoloPta.Execute()

  Set indicarProtocoloPta = Nothing
End Sub

INP-116, INP-301: Erro durante a execução da macro de TV_MONITORAMENTO_INDICACAOPTA:
(&H80131509) Não foi encontrado no tipo EntityBase um método público de nome AlterarProtocoloPTA que aceite os parâmetros especificados.

Método na Entidade Especializada da tabela virtual:

namespace Benner.Saude.ANS.Entidades
{
    public partial class Tv_Monitoramento_Indicacaopta
    {
        public static void AlterarProtocoloPTA(string handleRotinaMonitoramento, string protocoloPta)
        {
             AlterarProtocoloPTANaRotina(RotinaMonitoramento, protocoloPta);
        }
    }
}

O método acima está no AfterPost da tabela virtual, pois na tabela virtual o usuário deverá preencher o protocolo que será salvo na rotina.

Tabela Virtual no builder, não foi marcado o parâmetro Executa Entidade Especialisada, pois eu preciso passar uma SessionVar com o Handle da rotina para a tabela virtual, porém isso não é possível no WES2006.

Como detectar uma alteração em campo Radio na macro e obter o novo valor deste campo?

Thu, 19 Jun 2014 00:21:41 +0000

Quero exibir um campo na tela apenas quando determinada opção estiver marcada em outro campo, que é um Radio. Para isto, preciso modificar a propriedade Visible do objeto quando o usuário alterar o Radio, mas a CurrentQuery só conhece o valor que este campo tinha antes da alteração. Como faço para testar a opção que o usuário acabou de marcar na edição do Radio?

Como chamar uma Função de entidade a partir da macro?

Tue, 17 Jun 2014 14:58:23 +0000

Tenho uma função cadastrada em um tabela que aponta para um Método da entidade, com Contexto Registro.

Como chamar essa função na macro da tabela?

Como utilizar o "RefreshNodesWithTable" utilizando o BEF?

Sat, 14 Jun 2014 14:02:21 +0000

Na macro, ao acionar um botão parametrizado com uma chamada de uma função do BEF, não é possivel recarregar a tabela utilizando o comando RefreshNodesWithTable.

O que causa o erro "Library not registered" ao enviar e-mail com BSistema?

Wed, 11 Jun 2014 10:13:58 +0000

Qual causa poderia levar ao erro "Library not registered" no envio de e-mail através do delphi com dll chamada a partir de comando de uma visão do wes2006?

Quando a mesma funcionalidade é executada através do runner não ocorre a falha no envio.

O código onde ocorre o problema está logo abaixo, observando que o log incluído "Assunto:" está sendo registrado, já o trecho do texto 'Adicionando Texto..' não é inserido:

MailObj := Sys.NewMail;
    try
      Log('Preparando mensagem de ' + pRemetente);
      MailObj.From := pRemetente;
      MailObj.ContentType := 'text/html';  //formato do e-mail
      Log('Assunto: ' + pAssunto);

      MailObj.Subject := pAssunto;
      if pCopiaPara <> '' then
        MailObj.CC := pCopiaPara;
      if pCopiaOculta <> '' then
        MailObj.BCC := pCopiaOculta;
      if pRespostaPara <> '' then
        MailObj.ReplyTo := pRespostaPara;
      if (pPrioridade >0) and (pPrioridade<5) then
        MailObj.Priority := pPrioridade;

      MailObj.Text.Clear;
      Log('Adicionando texto...');
      MailObj.Text.Add(pTextoEmail);

Ao tornar grupo não visível pela macro, é possível atualizar o formulário do runner?

Thu, 05 Jun 2014 18:37:16 +0000

Ao tornar um campo do tipo Grupo como visible = false em uma determinada condição ao selecionar um registro, o runner deixa o espaço onde estava este grupo vazio conforme imagem abaixo.

Existe alguma forma de deixar este grupo não visível pela macro e o runner organizar os campos novamente?

Runner 13.1

É possível customizar texto no log de auditoria com o comando WriteAudit?

Wed, 04 Jun 2014 12:25:56 +0000

É possível passar um texto no lugar do parâmetro 'data' do comando WriteAudit?

Em um exemplo encontrado na wiki (http://wiki.benner.com.br/wiki/index.php?title=ICSAudit) é utilizado objeto CsAudit e comandos de edição de um registro. É possível inserir um registro de log/auditoria com informações customizadas diretamente com o comando writeaudit?

CreateBennerObject em DLL C#

Thu, 22 May 2014 14:04:12 +0000

Ao tentar criar um objeto de uma DLL em C# em macro ou delphi ocorre o seguinte erro:

Could not convert variant of type (Unknown) into type (Dispatch).

O componente TEntityDataSet roda macro?

Fri, 09 May 2014 20:46:00 +0000

Se eu utilizar num formulário Delphi o TEntityDataSet, além das regras de negócio C# as macros também irão executar?

BEF roda macro?

Fri, 09 May 2014 20:38:30 +0000

Ao utilizar uma entidade especializada a partir de uma regra de negócio as macros da entidade manipuladas serão executadas?