wesleyblanco

Nossa, Obrigado Datilas! como aqui usamos firebird 2.5, converti sua função em procedure, segue a contribuição tb: CREATE OR ALTER PROCEDURE SP_UDF_ROUNDABNT ( AVALOR DOUBLE PRECISION, ADECIMAIS SMALLINT) RETURNS ( VALOR DOUBLE PRECISION ) AS DECLARE VARIABLE CDECIMAIS VARCHAR(100); DECLARE VARIABLE VLRSTR VARCHAR(100); DECLARE VARIABLE NSUBSEQUENTE SMALLINT; DECLARE VARIABLE POSPONTO SMALLINT; BEGIN VLRSTR = CAST(AVALOR AS VARCHAR(100)); POSPONTO = POSITION('.',VLRSTR); CDECIMAIS = SUBSTRING(VLRSTR FROM POSPONTO+1 FOR CHAR_LENGTH(VLRSTR)); NSUBSEQUENTE = ADECIMAIS+1; IF (:ADECIMAIS < 1) THEN BEGIN VALOR = TRUNC(AVALOR); SUSPEND; exit; END ELSE IF (CHAR_LENGTH(CDECIMAIS) <= :ADECIMAIS) THEN BEGIN VALOR = AVALOR; SUSPEND; exit; END ELSE BEGIN IF ((CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE FOR 1) AS INTEGER) > 5) OR (CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE FOR 1)AS DOUBLE PRECISION) < 5)) THEN BEGIN VALOR = ROUND(AVALOR,ADECIMAIS); SUSPEND; exit; END ELSE IF (CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE FOR 1)AS DOUBLE PRECISION) = 5) THEN begin IF (MOD(CAST(SUBSTRING(CDECIMAIS FROM ADECIMAIS FOR 1)AS DOUBLE PRECISION) ,2) <> 0) THEN BEGIN VALOR = ROUND(AVALOR,ADECIMAIS); SUSPEND; exit; END ELSE IF (CAST(SUBSTRING(CDECIMAIS FROM NSUBSEQUENTE+1 FOR 1)AS DOUBLE PRECISION) > 0) THEN BEGIN VALOR = ROUND(AVALOR,ADECIMAIS); SUSPEND; exit; END ELSE begin VALOR = TRUNC(AVALOR,ADECIMAIS); SUSPEND; exit; END end END END Abraço!

Muito Obrigado Saulo! bem observado mas só ontem consegui conectar, era a pinagem do cabo aqui estava errada. Liguei la na Magna e me passaram a pinagem correta segue para quem precisar: db9 femea(balança) db9 femea (pc) 2 - 3 3 - 2 4 - 6 5 - 5 6 - 4 Abraço

Boa Tarde, Estou tentando conexão com a balança Magna L-PCR-20 para ler o peso. e não estou conseguindo.. erro de timeout, peso -9,00.. estou usando o exemplo do acbr. alguém aqui já usou esse modelo de balança com acbr... é compatível com o equipamento? No manual não possui muitos detalhes da informações de comunicação serial..como a velocidade da porta serial e protocolos em geral..Alguém poderia me ajudar?.. já tentei 1200,n,8,1 ...2400.. 4800... 9600 também não sei se o problema é o meu cabo aqui, se usa algum cabo com pinagem diferente.. pq essa balança usa cabo serial d9 femea x femea. Obrigado desde já

Bom dia!! Só para registrar aqui, consegui resolver o problema. Atualizei o software interno do SAT e os erros pararam. Obrigado e abraços

ué..no xml tá assim: -<imposto> <vItem12741>7.80</vItem12741> -<ICMS> -<ICMSSN102> <Orig>0</Orig> <CSOSN>102</CSOSN> </ICMSSN102> </ICMS> -<PIS> -<PISSN> <CST>49</CST> </PISSN> </PIS> -<COFINS> -<COFINSSN> <CST>49</CST> </COFINSSN> </COFINS> </imposto> essa não é a maneira correta? estou informando PISSN...

no post acima tem o trecho do log referente ao xml em anexo. mas agora anexei o log inteiro. 19-08.txt bemaSATlog_19-08-2015.xml

Olá Boa tarde! Meu cliente possui o SAT da Bematech, RB 1000 FI. Venho tendo alguns problemas no sat, vem apresentando o "erro de validação de conteúdo" códigos 6010|1999 ("erro não identificado"). revisei o xml e não consigo enxergar o erro. Fiz um teste no emulador emitindo com os mesmos itens, impostos, e formas de pagtos e nao deu o erro (aceitou). no cliente, fizemos um teste.. removemos um dos itens q tem nesse cupom com erro, tentamos enviar e foi aceito. ai pra validar o item q removemos, emiti um cupom somente com esse item e também foi aceito. segue um exemplo em anexo o xml rejeitado e os logs abaixo referente a essse xml no trecho correspondente do log extraido do aparelho sat informa a seguinte msg: 20150819221102|SAT-AC|info|Iniciando recebimento de dados de venda... 20150819221102|AC-SAT|erro|Especificar apenas 1 grupo dentre: PISAliq, PISQtde, PISNT, PISSN, PISOutr 20150819221102|AC-SAT|erro|Dados de venda inválidos e no arquivo bemaSATlog_19-08-2015.xml o erro correspondente foi: <Return Time="19-08-2015 22:11:04:339">653461|06010|1999|Erro de validação do conteúdo||</Return> fico grato por alguma ajuda Obrigado! AD20150819221103-653461-env.xml