CodigoBarraDoc

Esta função é utilizada para gerar uma pendência para a rotina de Controle de Documentos, e também para montar o identificador que poderá ser usado para gerar o código de barras a ser impresso nos documentos. Este código de barras poderá ser lido pelo sistema na tela de Entrega de Documentos, para que seja dada baixa na pendência gerada para o documento.

Para que o código de barras seja lido corretamente, recomenda-se que algumas propriedades sejam definidas para o controle "Código de Barras" do modelo de relatório, conforme abaixo:

 - Comprimento: 285.
 - Altura: 70.
 - Tipo do Código de Barras: Intercalado 2 de 5.
 - Imprimir em Modo BMP: Verdadeiro.

Sintaxe: CodigoBarraDoc(Numero NumEmp, Numero TipCol, Numero NumCad, Numero TipDoc, Numero DatRef, Alfa GeraPend, Alfa End Resultado);

Parâmetros:

Nome Tipo Descrição
NumEmp Numérico Código da empresa do colaborador para o qual deseja-se gerar o documento.
TipCol Numérico Tipo do colaborador para o qual deseja-se gerar o documento.
NumCad Numérico Número de cadastro do colaborador para o qual deseja-se gerar o documento.
TipDoc Numérico Tipo do documento a ser gerado (os tipos de documentos são cadastrados em "Tabelas/Gerais/Tipos de Documentos").
DatRef Numérico Data de referência para o documento (campo R034RED.DatRef).
GeraPend Alfa Informar "S" para gerar o registro na tabela R034RED (Registro de Documentos) ou "N" para não gerar o registro.
Resultado Alfa Variável alfanumérica que retornará o identificador gerado para o documento. O identificador é montado da seguinte forma: 0 + código da empresa + tipo do colaborador + cadastro + tipo de documento + data de referência.

Exemplo: 

/* Regra utilizada no evento "Na Impressão" de um controle do tipo "Código de Barras" para gerar a pendência e setar o valor que será usado para montar o código de barras */

Definir alfa CodigoBarras;

/* Gera pendência para o colaborador com tipo de documento 15 e com a data atual */

CodigoBarraDoc(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, 15, DatSis, "S", CodigoBarras);
ValStr = CodigoBarras;
Cancel(2);

Utilização: Em todas as regras.

Este artigo ajudou você?