Home

Linha Microsiga Protheus

Páginas filhas
  • MSCBVar - Cria variáveis utilizadas nos Form's imagem da etiqueta -- 30811

Função: MSCBVar - Cria variáveis utilizadas nos Form's (imagem) da etiqueta
Abrangências: Microsiga Protheus 8.11 , Protheus 10
Versões: Advanced Protheus 5.08
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição:
Objetivo:	Cria variáveis para serem utilizadas nos form´s (imagem) da etiqueta. Sendo assim podemos criar para cada um dos campos (código de barras e textos) uma variável correspondente. Normalmente este recurso é utilizado somente em layout´s variáveis, ou seja, em campos que são alterados constatemente. 		O uso de variáveis permite ao programador criar um layout padrão (form) o qual será enviado para a impressora térmica, e depois somente enviará as alterações das variáveis, diminuindo a quantidade de dados que serão carregados na impressora. Isto fará com que a impressora use uma quantidade menor de memória, podendo ter uma diminuição de erros provenientes do buffer de impressão e um aumento de performance (velocidade) na impressão
Programa Fonte:
MSCBIMP.PRX
Sintaxe:

MSCBVar - Cria variáveis utilizadas nos Form's (imagem) da etiqueta ( cVar cDados )

Retorno:
    ()
Exemplos
// Exemplo usando o padrão de programação Zebra (família ZPL)Local nXLocal cPorta := "COM1:9600,N,8,1"                     MSCBPRINTER("S500-8",cPorta,          ,        ,.f. )MSCBLOADGRF("SIGA.GRF")  MSCBBEGIN(2,6,nil,.T.)                               MSCBBOX(02,01,76,35)   MSCBLineH(30,05,76,3)    MSCBLineH(02,13,76,3,"B")    MSCBLineH(02,20,76,3,"B")    MSCBLineV(30,01,13)   MSCBGRAFIC(2,3,"SIGA")                      MSCBSAY(33,02,'PRODUTO',"N","0","025,035")    MSCBSAY(33,06,"CODIGO","N","A","015,008")   MSCBSAY(33,09, "@1", "N", "0", "032,035")    MSCBSAY(05,17,"IMPRESSORA ZEBRA S500-8","N", "0", "020,030")   MSCBSAYBAR(23,20,"@2"     ,"N"     ,"C"     ,8.36   ,.F.    ,.T.  ,.F.      ,          ,2       ,1       ,.F.,.f.,"1",.T.)MSCBEND() For nx:=1 to 3   MSCBINFOETI("PRODUTO","MODELO 1")   MSCBBEGIN(10,,,.F.)   MSCBVAR("@1",StrZero(nX,10))   MSCBVAR("@2",StrZero(nX,10))   MSCBEND()               Next	MSCBCLOSEPRINTER()/*Observação: Note no exemplo acima, que o primeiro bloco inicializado com MSCBBEGIN e finalizado com MSCBEND constroi o layout da etiqueta (form). Já o loop “For” imprime 3 etiquetas utilizando as variáveis que atualizam o código do produto e o código de barras, devinido com a variável “@1” e “@2” respectivamente.*/
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cVar Caracter Nome da variável. Lembrando que o mesmo deverá ser incremental e sempre inicializar com "@".( Exemplo: "@1") X
cDados Array of Record Conteúdo da variável X