[RESOLVIDO] Geração de Etiquetas no TOTVS11

Não geramos etiquetas no ERP TOTVS11, utilizamos outro programa, mas precisamos iniciar a configuração no totvs11, por onde começar?

Etiquetas com que finalidade, tenho fontes aqui que talvez ajude.

Etiquetas para qual finalidade? Matéria prima, produtos acabados, materiais de uso e consumo e etc...

Se for utilizar etiqueta para toda a fabrica e ter um controle completo do estoque recomendo usar o modulo WMS, se for apenas utilizar em algo com pouca relevância é melhor partir para um especifico que amarrem item X ref X lote com um identificador de etiqueta e todo o resto pode ser usado o próprio modulo de estoque para ter controle .

produtos acabados!

Quero apenas que alguns itens em especifico saia com determinada etiqueta.

Geralmente, para esses casos simples onde você não precisa manter o controle da etiqueta, compensa você gerar a etiqueta como sendo relatório em qualquer formato (indico txt ou pdf), e já mandar o output direto pra impressora. Em casos de mais precisão, a maioria das marcas do mercado (zebra, datamax, hp....) liberam um framework para geração das impressões, pode ser uma saída também!

Exemplo para impressão de etiquetas diretamente do TOTVS 11 para impressora.

PROCEDURE pi-etiq-emb:
c-saida = session:temp-directory + "emb" + string(time) + ".tmp".
c-rabbit = "V1\!O0220\!M3000\!c0000\!f325\!e\!LC0000\:9000\H12\D11\SG\PG\R0000\z\W\^01"
+ "\121200301700010" + " Lacre:" + STRING(balanca.nr-lacre,"9999999") + " Ass:"
+ "\121200301400010" + " Carro:" + string(balanca.nr-caminhao,"999") + " Bal: " + STRING(balanca.nr-balanca,">9")
+ "\121200301100010" + " Inicio:" + balanca.hr-impl-ini + " Termino:" + balanca.hr-impl-fim
+ "\121200300800010" + " Peso:" + STRING(dec-tot-etiq + balanca.peso-pallet,">>>>9.9") + " Cx: " + STRING(i-cx-etiq,"999")
+ "\121200300500010" + " Rota:" + balanca.rota
+ "\121200300200010" + " Qtde Pallet:" + string(balanca.qtde-pallet,"999") + " Peso Pallet:" + string(balanca.peso-pallet,">>>>9.9")
+ "\Q0001\E\"
.

OUTPUT TO VALUE(C-SAIDA) convert target "ibm850".
PUT c-rabbit FORMAT "x(600)" .
OUTPUT CLOSE.

DOS SILENT TYPE VALUE(c-saida) > prn.

END.

Caso você cole isso no cmd > edit <arquivo.txt> e mande imprimir, irá sair na impressora.

Espero ter ajudado.