schrsistemas

Boa Tarde. Estou com a seguinte dúvida. Nosso sistema assim como a maioria possui o controle de permissão de acesso aos operadores de caixa. Sistema homologado conforme a legislação. Se tratando ao acesso ao "Menu Fiscal", após o login do sistema, validação da impressora fiscal e configuração do sistema conforme parâmetros estipulados pela unidade federada, etc... poderá ser acessado a qualquer instante, isso todos ja estamos carecas de saber. Ano passado bateu um fiscal num estabelecimento de um cliente dizendo que o nosso sistema tinha senha impossibilitando o acesso ao menu fiscal, ou seja, de a se entender no estilo de conversa da pessoa que o aplicativo deveria adivinhar, caso um fiscal da receita estiver a frente do computador já abrisse o tal menu fiscal. Entremos em contato com o pessoal da homologação FURB e ainda esclareceram que isso que o fiscal disse não tinha nada a haver, pois de fato, nós fornecemos a senha a receita para caso de uma fiscalização. E após uma baita conversa com o fiscal este entendeu e ficou tudo bem. Estes dias novamente este mesmo fiscal chegou em outro cliente com a mesma conversa mas agora com uma observação, deixe o sistema como aquele outro pois aquele um estava em ordem. A agora me explique uma coisa, os dois são o mesmo homologados, testados em conformidade a legislação. Será que estes fiscais estão por dentro das regras do PAF?

Resposta vindo da FURB - quanto ao Troco em Cartão; Quanto ao Número de Titulo de Capitalização referente a geração do arquivo "Troco em Cartão", o que seria este campo mais detalhadamente? R: Este requisito de troco no cartão ainda não pode ser atendido pois o sefaz não disponibilizou o programa gerenciador do troco premiável. OBS: Em branco nem em uma sequencial de zeros (0) no validador do site da FURB passou, ficou então uma sequencia de '1111111', hehe!!!

Pelo que me passaram quanto ao CNPJ (e informações gerais), refere-se a portadora do cartão do cliente. (Agora essa dúvida!) Quanto ao título de capitalização... to as escuras.

Segue arquivo modificado, e exemplo gerado pelo ecf quanto a geração do relatório de meios de pagamento. Acabei ferrando com a impressão "propositalmente", mais quanto sua lógica de totalização funcionou. exemplo_emulador.txt ACBrECF.pas

Comentario! Quanto aos "Meios de Pagamento", entrei em contato com o pessoal da FURB, e de fato mesmo, temos que passar o tipo de pagamento, valor do documento, e denominação (seja nota fiscal, PED, Cupom Fiscal, Cupom Não Fiscal) de todos os ECFs; anteriormente emitia em modo Offline, referente aos CF e CNF do terminal em execução, do respectivo ECF instalado. Agora sera de modo online, pelo motivo da consulta das notas fiscais armazenado na base retaguarda, sera feito um agrupamento de todos os cupons dos terminais registrados, assim com suas notas, destacando em conformidade ao layout estipulado pelo Sefaz.

Quanto ao "Troco em Cartão", no momento que envio a chamada para o ACBRTEFD => CRT(, , ); Nesta validação criei a variavel "fHabilitaTrocoCartao : Boolean;" Quando inicializo o sistema marco conforme parâmetros se o aplicativo fiscal esta habilitado o troco em cartão, para com as validações de fechamento de venda. if (Valor > RespostasPendentes.SaldoRestante ) and (not HabilitaTrocoCartao) then raise Exception.Create( ACBrStr( 'Operação TEF deve ser igual ao '+ 'Saldo a Pagar' ) ); De acordo com uns testes aqui acho que esta certo. Correções / criticas / implementações são Bem Vindas. ACBrTEFDClass.pas ACBrTEFDClass.pas

Fica aqui minha duvida quando ao CNPJ da credeciadora de cartão e o titulo de capitalização. O título de capitalização, registro algo???, deixo em branco? Terei de ter um cadastro contendo as informações da Empresa do Cartão de Crédito, vinculadas a condição de pagamento / cupom., ou algo do gênero? Código para geração referente Arquivo: "Troco em Cartão.txt" (Ha alguma especificação quanto ao padrão do nome do arquivo?) ACBrPAF.pas ACBrPAF_H_Class.pas ACBrPAF_H.pas Aguardo homologação do arquivo para com o ACBR, para a disponibilização em seu repositorio.

Opa... haha... foi mal... estou reportando uma correção (nao bem uma correção). Na verdade esta quanto a questão dos delimitadores: ':' - no caso da Balança Urano POPz US 20/2 POP LGHT, tive que usar o caracter: 'N0' //Resposta := Copy(Resposta, pos(':', Resposta)+2, Quantos); //123456 Resposta := Copy(Resposta, pos('N0', Resposta)+2, Quantos); //123456 Isso me ocorreu em umas 3 urano. minhas as primeiras, quanto a esta marca. (Não cheguei de mexer em configuração do sistema físico da balança) Não sei, se na leitura, ao método lerpeso(), através de um polimorfismo, especificar, o delimitador, a ser usado.. (é só idéia)

REF: ACBrBAlUrano.pas procedure TACBrBALUrano.LeSerial( MillisecTimeOut : Integer) ; var Resposta: String; Quantos: integer; begin fpUltimoPesoLido := 0 ; fpUltimaResposta := '' ; try fpUltimaResposta := fpDevice.Serial.RecvPacket( MillisecTimeOut ); //fpUltimaResposta := '1BT11BA131BN01BS21BD41BQ1931BB * PESO: 5,10kg1BE1BP01'; Resposta := fpUltimaResposta; if Copy(Resposta, pos('PESO', Resposta)-2, 1) = ' ' then Resposta := 'I' else if Copy(Resposta, pos(':', Resposta)+1, 1) = '-' then Resposta := 'N'; if Length(Resposta) > 1 then begin Quantos := (pos('g', Resposta)-2); //Quantos := Quantos - (pos(':', Resposta)+1); Quantos := Quantos - (pos('N0', Resposta)+1); //Resposta := Copy(Resposta, pos(':', Resposta)+2, Quantos); //123456 Resposta := Copy(Resposta, pos('N0', Resposta)+2, Quantos); //123456 end; { Ajustando o separador de Decimal corretamente } Resposta := StringReplace(Resposta, '.', DecimalSeparator, [rfReplaceAll]); Resposta := StringReplace(Resposta, ',', DecimalSeparator, [rfReplaceAll]); try if pos(DecimalSeparator, Resposta) > 0 then { Já existe ponto decimal ? } fpUltimoPesoLido := StrToFloat(Resposta) else fpUltimoPesoLido := StrToInt(Resposta) / 1000 ; except case Trim(Resposta)[1] of 'I' : fpUltimoPesoLido := -1 ; { Instavel } 'N' : fpUltimoPesoLido := -2 ; { Peso Negativo } //'S' : fpUltimoPesoLido := -10 ; { Sobrecarga de Peso } else fpUltimoPesoLido := 0 ; end; end; except { Peso não foi recebido (TimeOut) } fpUltimoPesoLido := -9; end ; end; Teste efetuado na Balança Urano POPz US 20/2 POP LGHT