O script de processamento suporta as seguintes funções:


Calcular_Preco_Venda(Cod_Produto, Markup, Cod_Cliente, Cod_Vendedor, UF, Prazo, Qtde, Tipo_Cliente)

Calcula o preço de venda a prazo para o código do produto utilizando para isso dados fornecidos. Os parâmetros aceitos por essa função são:

Cod_Produto: é o código do produto cujo preço deverá ser calculado (valor alfanumérico).

MarkUp: é o código do mark-up que deverá ser utilizado na formação do preço de venda (valor alfanumérico).

Cod_Cliente: é o código do cliente para o qual o preço deverá ser calculado (valor alfanumérico). Se for deixado em branco o sistema utilizará o tipo de cliente definido pelo parâmetro "Tipo_Cliente".

Cod_Vendedor: é o código do vendedor que deverá ser utilizado no cálculo do preço (valor alfanumérico). Se não for fornecido o sistema utilizará como taxa de comissionamento a que estiver definida no mark-up.

UF: Estado para onde o produto será vendido (valor alfanumérico). Se não for fornecido o sistema utilizará como Estado o definido no cadastro do cliente.

Prazo: e o prazo de pagamento (valor numérico inteiro). Se for informado -1 (um negativo) o sistema utilizará como prazo de pagamento o definido no mark-up. Se for informado 0 (zero) o sistema considerará que o pagamento será à vista.

Qtde: Quantidade que deverá ser vendida (valor numérico).

Tipo_Cliente: Tipo do cliente, podendo ser: Indústria  Atacado  Consumidor  Outros. (valor alfanumérico). Se não for fornecido o sistema utilizará tipo de cliente definido no cadastro.

Exemplos de uso:

Valor := Calcular_Preco_Venda('0120325', '002' , '00001', '', '', -1, 1, '');

Valor := Calcular_Preco_Venda('125-A' , '003' , '', '0001', 'SP', 0, 100, 'C');


Converte_Moeda( Valor, Moeda_Original, Nova_Moeda, Data_Cotação )

Converte o Valor  fornecido da Moeda Original para a Nova Moeda utilizando a taxa de conversão da Data da Cotação informada.

Exemplo de uso:

Valor := Converte_Moeda( Custo_Produto, 0, 1, Data_Base)


Existe_Arquivo( Nome_Arquivo)

Essa função retornará VERDADEIRO se o arquivo informado existir ou FALSO se ele não existir.

Os parâmetros aceitos por essa função são:

Nome_Arquivo:  indica o nome do arquivo cuja existência deverá ser verificada.


Exemplo de uso:

IF Existe_Arquivo('C:\TEMP\TESTE.TXT') THEN...


Formatar_Perc( Percentual )

Formata o percentual fornecido com o número de casas decimais de acordo com o definido na configuração do sistema.

Exemplo de uso:

Valor := Formata_Perc( Vendas['hvFRETE']);


Formatar_Qtde( Quantidade )

Formata a quantidade informada separando as casas dos milhares com pontos e exibindo o número de casas decimais de acordo com o definido na configuração do sistema.

Exemplo de uso:

Valor := Formata_Qtde( Vendas['hvQTDE_VENDA']);


Formatar_Total( Valor Total )

Formata o valor total fornecido separando as casas dos milhares com pontos e exibindo o número de casas decimais de acordo com o definido na configuração do sistema.

Exemplo de uso:

Valor := Formata_Total( Vendas['hvVALOR_VENDA'] * Vendas['hvQTDE_VENDA']);


Formatar_Valor( Valor )

Formata o valor fornecido separando as casas dos milhares com pontos e exibindo o número de casas decimais de acordo com o definido na configuração do sistema.

Exemplo de uso:

Valor := Formata_Valor( Vendas['hvVALOR_VENDA']);


Junta_Pasta_Arquivo( Nome_Pasta, Nome_Arquivo)

Essa função juntará o nome da pasta fornecida com o nome do arquivo, retornando-as em uma única sequência de caracteres. Essa função incluirá, automaticamente, o caractere \ no final do nome da pasta se assim for necessário.

Os parâmetros aceitos por essa função são:

Nome_Pasta:  indica o nome da pasta.

Nome_Arquivo:  indica o nome do arquivo cuja existência deverá ser acrescido ao final do nome nome da pasta.


Exemplos de uso:

Junta_Pasta_Arquivo('C:\Temp','CONFIG.TXT');

Junta_Pasta_Arquivo(Pasta_Usuario('L'),'DADOS.CFG');


Mascara_Perc

Retorna a máscara padrão para formatação de percentuais.

Exemplo de uso:

Valor := Mascara_Valor;


Mascara_Qtde

Retorna a máscara padrão para formatação de valores.

Exemplo de uso:

Valor := Mascara_Qtde;


Mascara_Total

Retorna a máscara padrão para formatação de valores totais.

Exemplo de uso:

Valor := Mascara_Valor;


Mascara_Valor

Retorna a máscara padrão para formatação de valores.

Exemplo de uso:

Valor := Mascara_Valor;


Parametro_Licenca( MODO )

Essa função retornará informações da sua licença de uso do Hipercusto conforme acordo com o parâmetro informado.

MODO:  indica como o nome da pasta deverá ser retornado, podendo ser:

  • 'L' para retornar o número da sua licença de uso.
  • 'R' para retornar a razão social da empresa licenciada.
  • 'F' para retornar o nome fantasia da empresa selecionada.
  • 'C' para retornar o CNPJ da empresa licenciada.


Exemplo de uso:

Parametro_Licenca('L');

ShowMessage('Empresa selecionada: '+ Parametro_Licenca('F'));


Pasta_Aplicacao( MODO )

Essa função retornará o nome da pasta de dados do Hipercusto (também chamada de pasta de dados da aplicação).

Os parâmetros aceitos por essa função são:

MODO:  indica como o nome da pasta deverá ser retornado, podendo ser:

  • 'U' para retornar o nome da pasta de dados da aplicação em letras maiúsculas
  • 'L' para retornar o nome da pasta de dados da aplicação em letras minúsculas
  • '  ' para retornar o nome da pasta de dados da mesma maneira que foi informada pelo Windows.


Exemplo de uso:

Pasta_Aplicacao('U');

ShowMessage('A pasta de dados da aplicação é: '+Pasta_Aplicacao('L'));


Pasta_Usuario( MODO )

Essa função retornará o nome da pasta de dados do usuário do Windows.

Os parâmetros aceitos por essa função são:

MODO:  indica como o nome da pasta deverá ser retornado, podendo ser:

  • 'U' para retornar o nome da pasta de dados do usuário em letras maiúsculas
  • 'L' para retornar o nome da pasta de dados do usuário em letras minúsculas
  • '  ' para retornar o nome da pasta de dados da mesma maneira que foi informada pelo Windows.


Exemplo de uso:

Pasta_Usuario('U');

ShowMessage('A pasta de dados do usuário é: '+Pasta_Usuario('L'));


Pasta_Temporaria( MODO )

Essa função retornará o nome da pasta temporária do Windows.

Os parâmetros aceitos por essa função são:

MODO:  indica como o nome da pasta deverá ser retornado, podendo ser:

  • 'U' para retornar o nome da pasta temporária em letras maiúsculas
  • 'L' para retornar o nome da pasta temporária em letras minúsculas
  • '  ' para retornar o nome da pasta temporária da mesma maneira que foi informada pelo Windows.


Exemplo de uso:

Pasta_Temporaria('U');

ShowMessage('A pasta TEMP do Windows é: '+Pasta_Temporaria('L'));


Preco_Venda(Produto, MarkUp, Tipo_Cliente)

Calcula o preço de venda para o código do produto informado utilizando o mark-up fornecido e respeitando o tipo de cliente. Aqui o preço retornado obedecerá o que foi definido do Mark_up, isto é, se no mark-up selecionado houver um prazo médio de pagamento e uma taxa de financiamento o preço retornado será o para pagamento à prazo Se não houver prazo de pagamento ou taxa de financiamento então o preço retornado será o preço á vista.

Os parâmetros aceitos por essa função são:

Produto:  é o custo de fabricação que deverá ser utilizado no cálculo do preço (valor numérico)

MarkUp: é o código do mark-up que deverá ser utilizado na formação do preço de venda (valor alfanumérico).

Tipo_Cliente: deverá ser preenchido com: I para indústria, A para atacado, C para consumidor e O para outros.

Exemplos de uso:

Valor := Preco_Venda('0120325', '002' , 'A');

Valor := Preco_Venda('125-A' , '003' , 'I');


Preco_Venda_Vista(Produto, MarkUp, Tipo_Cliente)

Calcula o preço de venda à vista para o código do produto informado utilizando o mark-up fornecido e respeitando o tipo de cliente. Esta função irá ignorar o prazo de pagamento e a taxa de financiamento definida no mark-up retornando assim o preço à vista.

Os parâmetros aceitos por essa função são:

Produto:  é o custo de fabricação que deverá ser utilizado no cálculo do preço (valor numérico)

MarkUp: é o código do mark-up que deverá ser utilizado na formação do preço de venda (valor alfanumérico).

Tipo_Cliente: deverá ser preenchido com: I para indústria, A para atacado, C para consumidor e O para outros.

Exemplos de uso:

Valor := Preco_Venda('0120325', '002' , 'A');

Valor := Preco_Venda('125-A' , '003' , 'I');


Preco_Venda_Prazo(Produto, MarkUp, Tipo_Cliente)

Calcula o preço de venda a prazo para o código do produto informado utilizando o mark-up fornecido e respeitando o tipo de cliente. Se por acaso o Mark-Up selecionado não possuir prazo ou taxa de financiamento então o preço retornado será o mesmo que o preço à vista.

Os parâmetros aceitos por essa função são:

Produto:  é o custo de fabricação que deverá ser utilizado no cálculo do preço (valor numérico)

MarkUp: é o código do mark-up que deverá ser utilizado na formação do preço de venda (valor alfanumérico).

Tipo_Cliente: deverá ser preenchido com: I para indústria, A para atacado, C para consumidor e O para outros.

Exemplos de uso:

Valor := Preco_Venda('0120325', '002' , 'A');

Valor := Preco_Venda('125-A' , '003' , 'I');


ProcessMessages

Atualiza os dados de um formulário ou de uma tela.

Exemplos de uso:

ProcesssMessages;


Recupera_Texto( Nome_Arquivo)

Essa função recupera um texto salvo previamente pela função Salva_Texto():

Os parâmetros aceitos por essa função são:

Nome_Arquivo:  indica o nome do arquivo que deverá ser criado.


Exemplos de uso:

ShowMessage(Recupera_Texto('C:\TEMP\TESTE.TXT'));


Salva_Texto( Nome_Arquivo, Dados)

Salva os dados fornecidos em um arquivo em disco com o nome informado.

Os parâmetros aceitos por essa função são:

Nome_Arquivo:  indica o nome do arquivo que deverá ser criado.

Dados: representam os dados (sequência de caracteres) que deverão ser salvos no arquivo indicado.


Essa função retornará verdadeiro se o arquivo foi criado corretamente.


Exemplos de uso:

Salva_Texto('C:\TEMP\TESTE.TXT','Teste da Aplicação');

Salva_Texto(Junta_Pasta_Arquivo(Pasta_Usuario('L','DADOS.CFG'), Report.Parameters['Codigos']);




  • A NatSam não oferece suporte na definição de scripts ou uso das funções acima, pois isso exige conhecimento técnico em lógica e linguagem de programação.