Pular para o conteúdo principal

Substituindo Emulador Bematech pelo Sweda no Protheus

Resolvi substituir o emulador depois de vários problemas com a geração de títulos repetidos no emulador Bematech. Quando fiz a substituição, o problema acabou. Esse Emulador Sweda é muito estável, assim podemos testar melhor nossas customizações. Para começar acesse o site Sweda e faça os seguintes downloads:
  • Connect/C: Windows - Biblioteca compatível com as DLLs de Alto Nível do Mercado.
  • Connect/Sim: Emulador da Impressora Sweda IF ST120.
 Entre em outro link lacrador Sweda e faça o seguinte download:
  • Instalar_Lacrador02.10.00
Agora acesse o site Eterlogic e faça o seguinte download:
  • Virtual Serial Ports EmulatorEmulador de serial.

Configurando o Emulador de Serial

Instale "Virtual Serial Ports Emulator", depois abra-o, vá em "device", "create", na opção "Device Pair" escolha "Pair", em "avançar". Em "Virtual Serial Port 1" coloque "COM3" e na "Virtual Serial Port 2" coloque "COM4", marque a opção "Emulate boud rate", depois concluir. Vá na opção "Emulation" e clique em "Start".
Configurando o Emulador Sweda(Connect/Sim)

Instale "Instalar_ConnectSIM.exe", abra-o, vá na opção "Simulador", "configurações", escolha a porta "COM3", velocidade igual "115.200 pbs" e clique em "Aplicar". Novamente na opção "Simulador", clique em "ligar". Na Opção "MIT", clique em "Habilitar", aguarde  concluir o processo, demora alguns segundos para concluir.

Extraia o arquivo "Connect_C.zip", dentro existe a pasta "\Connect_C\Interface\" e copie todos arquivos para pasta "\Connect_C\Exemplo\VB.Net\ECF_VB.NET\obj\Debug\", execute "Project1.exe" e feche-o em seguida. Dentro desta ultima pasta será criada o arquivo SWC.INI, abra-o com bloco de notas, e mude os parametros PORTA= 4 e  VELOCIDADE= 115.200

Execute novamente Project1.exe e execute as opções "Programar Alíquotas", "Programar Meios de Pagamentos", "Programar Totalizadores Não Fiscais" e feche o programa.
Instale "Instalar_Lacrador02.10.00", abra o Lacrador, vá no menu "Conexão", "configuração" e coloque a Porta "COM4" e aplique. Vá no parâmetro 30, para configurar o número da loja como "0001" e clique em "Execute".

Volte ao "Emulador Sweda", vá em "MIT", clique em "Desabilitar",

Configurando o Protheus

Acesse o configurador, "Empresas",  "Filial" e altere o CNPJ para 53485215000106 e IE para 111072115110 que é o do Emulador Sweda.
Copie todos arquivos para pasta "\Connect_C\Interface\"  para "\Bin\SmartClient\".
No Protheus, Módulo "Controle de Lojas", "Atualizações", "Ponto de venda", vá em Estação. Altere as configurações da estação com as seguintes configurações:
  • Fabricante: Sweda
  • Modelo: Sweda IF ST120 - V. 01.00.01
  • PDV:0001
  • Serie: 101
  • Porta: COM4
 No Protheus execute programa LOJA420, que é Criptografia PAF-ECF, caso não exista, crie-o no menu.
Agora rode o SmartCliente com mais esses parametros "-a= -a=001", as configurações são utilizadas com Protheus 11 sem problemas.

Este tutorial só pode ser usado para homologação, nunca para produção.

Comentários

Postagens mais visitadas deste blog

Teclas de Atalhos TOTVS Developer Studio (Eclipse)

Seguem os atalhos para o TOTVS Developer Studio  (Eclipse)  : CTRL+H Localizar vários locais CTRL+F Localizar / substituir CTRL+K Localizar proximo resultado abaixo CTRL+SHIFT+K Localizar proximo resultado acima F11 Depurar F5 Percorre linha F6 Pula linha CTRL+F8 Trocar perspectiva CTRL+F7 Mudar visualização CTRL+F6 Navegar entre os fontes abertos CTRL+M Maximiza / miniminiza fonte CTRL+N Novo (wizard) CTRL+L Ir para linha CTRL+D Deleta toda linha CTRL+ALT+DOWN Duplica linha para baixo CTRL+ALT+UP Duplica linha para cima CTRL+SHIFT+L Apresenta lista de atalhos ALT+UP Move linha para cima ALT+DOWN Move linha para baixo CTRL+SHIFT+I Indenta o fonte CTRL+F9 Compilar CTRL+ESPAÇO A

Impressão com imagens no Protheus

Muitas vezes é necessário incluir uma imagem num relatório (uma logomarca por exemplo). Uma das maneiras de se fazer isto, é usar a classe TMSPRINTER() . O programa exemplo abaixo, ilustra bem como fazer. Este usa também a classe TFONT() (o tamanho do fonte leva o sinal de menos) : # include "PROTHEUS.CH" # include "RWMAKE.CH" user function fImprimeG() local oFont08 := tfont():New( 'Courier new' ,, -8, .t.),,; oFont09 := tfont():New( 'Courier new' ,, -9, .t.),,; oFont10 := tfont():New( 'Courier new' ,,-10, .t.) oPrint:=tmsprinter():new( "Impressao Grafica" ) oPrint:setportrait() oPrint:SetpaperSize(9) // PAPEL A4 if .not. oPrint:Setup() // MOSTRA JANELA DE CONFIGURAÇÃO DE IMPRESSAO msgalert( "IMPRESSAO CANCELADA." ) return nil endif // ESTE BLOCO PODE FICAR EM LOOP (DO WHILE, FOR..., ETC.) oPrint:StartPage() // oPrint:sayBitmap(linha, coluna, "C:\SUAPASTA\SUAIMAGEM.BMP", largura, al

Variáveis públicas do Protheus

Variáveis Públicas Disponíveis no Protheus: Nome Tipo Tamanho Descrição aEmpresas (A) Array contendo tantos elementos quanto forem as empresas e filiais cadastradas no sistema sendo que cada elemento se encontra no formato “EEFF” (Empresa + Filial) Ex.: “5501”. cAcesso (C, 128) Permissões de Acesso do Usuário. cEmpAnt (C, 2) Número da Empresa que está em uso no momento. Ex.: "55". cModulo (C, 3) Sigla do Módulo que está em uso no momento. Ex.: "EST" para o Módulo de Estoque. cNivel (N, 1) Nível de Acesso do Usuário podendo variar de 0 a 9 sendo que 9 indica um Administrador. cNumEmp (C, 4) Número da Empresa + Filial que está em uso no momento. Ex.: "9901". cSenha (C, 6) Senha do Usuário. cUserName (C, 15) Nome do Usuário sem brancos a direita. cUsuario (C, 533) Informações do usuário:de 001 a 006 – Senha do Usuário (6 dígitos)de 007 a 021 – Nome do Usuário (15 dígitos)de 022 a 533 – Permissões de Acesso (512 dígitos) dDataBa