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.