Ola Flavio,
Segue abaixo funçoes em Clipper.
Obtendo o COO
CODE
************************************************************************
Function ISW_NUM_CUPOM() // Le o Numero do ultimo Cupom,
* Retorna string tamanho 6 com o numero do ultimo cupom
************************************************************************
Local RET
RET := ISW_COMANDO("27" + "1")
if left(RET, 3) # ".+C"
RET := space(6)
else
RET := '00'+substr(RET,14,4)
endif
return RET
Num ECF
CODE
************************************************************************
Function ISW_NUM_CAIXA() // Le o Numero do caixa
* Retorna string tamanho 4 com o numero do caixa da impressora,
* geralmente '0001' a nao ser que no estabelecimento existam 2 impressoras
************************************************************************
local RET
RET := ISW_COMANDO("27" + "G") // G ‚ o menor, mais rapido de ler
if left(RET, 3) # ".+C"
RET := space(4)
else
RET := '0'+substr(RET,4,3)
endif
return RET
Abrindo o Cupom:
CODE
************************************************************************
Function ISW_ABRE_CUPOM(WCGC) // Abre Cupom Fiscal, Retorna .t. se ok
* WCGC, SE RECEBIDO imprime o CGC do cliente no cabecalho
************************************************************************
WCGC := pad(WCGC,20)
sFECHANDO := .F.
return (ISW_COMANDO("17" + WCGC,1,2) == '.+')