fabioaracai

Para abrir gaveta bem como acionar a guilhotina use esse bloco de comando que funciona, no fechamento da venda ai voce usa o codigo abaixo: Detalhe esses comandos foram testados por mim pela DR700 L (tem diferenca da H e M) var sPorta : string; T : STRING; hCommFile: THandle; sPorta:= 'COM1'; hCommFile:= CreateFileA( pchar(sPorta), GENERIC_WRITE, 0, //not shared nil, //no security OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 {template} ); t:=#27+#109; Status:=WriteFile( hCommFile,PChar(t)[0], Length(t), NumberWritten, nil); t:=#27+#112; Status:=WriteFile( hCommFile,PChar(t)[0], Length(t), NumberWritten, nil); CloseHandle(hCommFile); //Fecha a porta de Comunicação

Boa tarde venho pedir ajuda a voces porque eu tenho um software frente de caixa em delphi7 com o acbr e no meio da venda sempre o programa da erro e apresenta o seguinte erro: '00C100' is not a valid integer value. e cancela o cupom o que pode ser isso?