Pesquisar na Comunidade
Showing results for tags 'FechaCupo'.
Encontrado 1 registro
-
Boa tarde a todos! Primeiramente gostaria de agradecer a todos pelos excelentes componentes disponibilizados pelo ACBr! Estou aprendendo muito estudando os fontes deles. Eu encontrei um pequeno problema com ACBrECF, na camada FiscNet, ACBrECFFiscNET, A impressora FiscNet, pelo menos a que estou fazendo testes aqui, não aceita mais que 8 linhas na observação, e da erro se passar dessa quantidade de linhas. Mas a Função FechaCupom dessa impressora, não está retornando o erro.. try FiscNETComando.NomeComando := 'EncerraDocumento' ; if (Obs <> '') then FiscNETComando.AddParamString('TextoPromocional',Obs); FiscNETComando.TimeOut := 5 ; FiscNETComando.AddParamString('Operador',Operador) ; EnviaComando ; except on E : Exception do begin if (pos('ErroProtSequenciaComando',E.Message) <> 0) or (pos('ErroCMDForaDeSequencia',E.Message) <> 0) then begin if (Obs <> '') then begin FiscNETComando.NomeComando := 'ImprimeTexto' ; FiscNETComando.AddParamString('TextoLivre',Obs); EnviaComando ; end ; FiscNETComando.NomeComando := 'EncerraDocumento' ; FiscNETComando.TimeOut := 5 ; FiscNETComando.AddParamString('Operador',Operador) ; EnviaComando ; end else //Está faltando o Else para dar o exception begin raise; end; end ; end ; está faltando a parte em negrito acima.. se acontecer algum erro no primeiro try, e o erro não for um dos dois tratado no except, o erro é ocultado e não retorna exceção nenhuma..