ACBrNet / ACBr.Net.Sat

Biblioteca para trabalhar com Sat

Home Page:https://gitter.im/ACBrNet/ACBr.Net.Sat

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

Comando para acionar guilhotina Elgin I9

ArthInDrums opened this issue · comments

Olá, estou tentando encontrar o comando para tentar acionar a guilhotina da minha impressora, porém, o sistema que mexo, é da loja, e é bem antigo, tanto que sua linguagem de programação é DOS, pelo menos é o que diz meu chefe, o trecho de código abaixo tem comandos SQL, ja consegui mexer no layout e deixar do jeito que eu quero, mas não consigo fazer a impressora cortar, qual seria o comando certo?

**VALE COMUM

// ***************************
// ** A T E N € Ç O **
// ** nÆo altere o conteudo **
// ** deste arquivo sem au- **
// ** toriza‡Æo. Isto pode- **
// ** r  causar ERRO duran- **
// ** a execu‡Æo do siste- **
// ** ma, e CAUSAR PERDAS **
// ** DE DADOS. **
// ***************************

// configura‡Æo da pagina
DRAF
ALTURA=-20
NEGRITO-OFF
COMPRIME-ON
CPI12
ITALICO-OFF

+1|000|CortarPapel(Elgin I9(USB), "29,86,0");

CPI12
// Dados da loja
+1|000|PADC( LEFT(ALLTRIM(cfter_nome),30), 46 )
+1|000|PADC( SUBSTR(ALLTRIM(cfter_nome),31), 30 )|!EMPTY(SUBSTR(ALLTRIM

(cfter_nome),31))

+2|019|xxDataImp

CPI12
// Dados Iniciais
+2|000|PADC(" V A L E ",48,"-" )

CPI10
|000|"Num. Vale: "
| |TRANSFORM(IF(TYPE('b_NumPedi')='N',b_NumPedi,ARQPEDI-

PEDIDO),"*******")

// Nome do cliente
+2|000|PADC(LEFT(ALLTRIM(STR(b_CodCli)+" - "+b_empresa),30),30)
+1|000|PADC(SUBSTR(ALLTRIM(STR(b_CodCli)+" - "+b_empresa),31),30)|!

EMPTY(SUBSTR(ALLTRIM(STR(b_CodCli)+"-"+b_empresa),31))

CPI12
// cabecalho dos produtos
+2|000|REPLICATE("=",48)

  • |000|"COD."
    |+01|"UN"
    |+01|"NOME DO PRODUTO"
  • |000|" QTD X PRECO - DESCONTO = TOTAL"
  • |000|REPLICATE("=",48)

// Produtos
REPETE vProd||0|VERTICAL
+|000|vProd[07]
|+01|vProd[01]
|+01|LEFT(vProd[02],49)
+|008|SUBSTR( vProd[02],50,49 )|!EMPTY(SUBSTR(vProd[02],50,49))
+|000|vProd[03]||||@e 999999.99
| |" X "
| |vProd[04]||||@e 9999999999.99
| |" - "
| |vProd[05]||||@e 9999999999.99
| |" =
|+3 |vProd[06]||||@e 9999999999.99

+|000|REPLICATE("=",48)
+|000|"TOTAL DOS PRODUTOS: "
| |B_TOTPRO||COMPRIME-OFF|COMPRIME-ON|@e 9999999999.99

+|000|"DESC. SOBRE ITENS : "
| |B_TOTDESC||COMPRIME-OFF|COMPRIME-ON|@e 9999999999.99

+|000|REPLICATE("-",48)

+|000|"DESC. ESPECIAL : "
| |B_DESCONTO||COMPRIME-OFF|COMPRIME-ON|@e 9999999999.99

+|000|REPLICATE("-",48)

+|000|"TOTAL A PAGAR : "
| |B_TOTPEDIDO||COMPRIME-OFF|COMPRIME-ON|@e 9999999999.99

+5|000|PADC( PADC("",30,"-"), 50 )

  • |000|PADC( "de acordo", 50 )**