Dfox

Boa tarde a todos, antes eu usava assim para salvar o xml no banco TBlobField(qrnota.fieldbyname('xml')).LoadFromFile(sXML); // grava no campo após atualizar para o zeosdbo-7.2.14-stable ele salva o conteúdo tudo como ??????????????????????????????????????????? alguém passou por isso?

Obriga deu certo mas ficou muito lento então fiz assim com duas formas opção 1 merge into C000050 QRC using (select RC.CODIGO from C000049 RC) as RC on substring(RC.CODIGO from 1 for 10) = QRC.CODCONTA and char_length(QRC.CODCONTA) = 10 when matched then update set QRC.CODCONTA = RC.CODIGO opção 2 execute block as declare variable rccodigo varchar(15); begin for select RC.CODIGO from C000049 RC, C000050 QRC where substring(RC.CODIGO from 1 for 10) = QRC.CODCONTA and char_length(QRC.CODCONTA) = 10 into :rccodigo do begin update C000050 set codconta = :rccodigo where codconta = substring(:rccodigo from 1 for 10); end end; ficou super rápido.

bom dia a todos, tenho o seguinte comando sql update C000050 QRC set QRC.CODCONTA = (select RC.CODIGO from C000049 RC where substring(RC.CODIGO from 1 for 10) = QRC.CODCONTA and char_length(QRC.CODCONTA) = 10) where char_length(QRC.CODCONTA) = 10 porem da erro por ter registros repetidos multiple rows in singleton select. alguém teria uma solução?

coloquei assim -9 : begin MessageDlg('Verifique a Comunicação com a Balança !',mtWarning,[mbOk],0); rqtde.SetFocus; end; será que todo retorno -9 é falha de comunicação com a balança?

Bom dia, a todos com o componente ACBrBAL1 tem como verificar a conexão com a balança?

Ata acho que entendi https://www.drbalanca.com.br/configuracao-ean13-quantum/

Só um detalhe acho que tem um T a mais na estrutura do ean13 2CCCC0TTTTTTDV será que não seria assim 2CCCC00TTTTTDV para ler etiquetas onde o código do produto é de 6 casas decimais 2CCCCCCTTTTTDV

Obrigado, vou verificar aqui

Não tipo ler o peso da etiqueta Ex código da etiqueta 2001100015244

Bom dia, o acbr tem um componente para ler etiqueta de balança?

Obrigado, é que vi os logos da queles bancos, achei que tava implementado já .

achei essa função, é só esses bancos suportado pelo acbr mesmo? function TACBrBoleto.GetTipoCobranca(NumeroBanco: Integer; Carteira: String = ''): TACBrTipoCobranca; begin case NumeroBanco of 001: Result := cobBancoDoBrasil; 003: Result := cobBancoDaAmazonia; 004: Result := cobBancoDoNordeste; 008,033,353: Result := cobSantander; 021: Result := cobBanestes; 041: Result := cobBanrisul; 070: Result := cobBRB; 091: Result := cobUnicredRS; 097: Result := cobCrediSIS; 099: Result := cobUniprime; 104: Result := cobCaixaEconomica; 136: Result := cobUnicredES; 237: Result := cobBradesco; 341: Result := cobItau; 389: Result := cobBancoMercantil; 748: Result := cobSicred; 756: Result := cobBancoob; 399: Result := cobHSBC; 422: Result := cobBancoSafra; 085: Result := cobBancoCECRED; 047: Result := cobBanese; 745: Result := cobCitiBank; 246: Result := cobBancoABCBrasil; 707: Result := cobDaycoval; 084: Result := cobUniprimeNortePR; 643: begin if StrToInt(Carteira) = 9 then Result := cobBancoPineBradesco else Result := cobBancoPine; end; else raise Exception.Create('Erro ao configurar o tipo de cobrança.'+ sLineBreak+'Número do Banco inválido: '+IntToStr(NumeroBanco)); end; end;

Boa tarde a todos, estou mapeando cada banco do boleto // DADOS DO BANCO with ACBrBoleto1.Banco do begin case StrToInt(frmmodulo.qrconfig_cobrebemcodigo_banco.AsString) of 001: TipoCobranca := cobBancoDoBrasil; 003: TipoCobranca := cobBancoDaAmazonia; 004: TipoCobranca := cobBancoDoNordeste; 008,033,053,353: TipoCobranca := cobSantander; 021: TipoCobranca := cobBanestes; //024: TipoCobranca := cob; //027: TipoCobranca := cob; //028: TipoCobranca := cob; //029: TipoCobranca := cob; //031: TipoCobranca := cob; //036: TipoCobranca := cob; //038: TipoCobranca := cob; 041: TipoCobranca := cobBanrisul; 047: TipoCobranca := cobBanese; 070: TipoCobranca := cobBRB; 084: TipoCobranca := cobUniprimeNortePR; 085: TipoCobranca := cobBancoCECRED; 097: TipoCobranca := cobCrediSIS; 099: TipoCobranca := cobUniprime; 104: TipoCobranca := cobCaixaEconomica; 133: TipoCobranca := cobBancoCresolSCRS; 136: TipoCobranca := cobUnicredRS; //151: TipoCobranca := cob; //231: TipoCobranca := cob; 237: TipoCobranca := cobBradesco; //244: TipoCobranca := cob; //246: TipoCobranca := cob; //263: TipoCobranca := cob; //275: TipoCobranca := cob; //291: TipoCobranca := cob; //320: TipoCobranca := cob; 341: TipoCobranca := cobItau; //347: TipoCobranca := cob; //356: TipoCobranca := cob; 389: TipoCobranca := cobBancoMercantil; //392: TipoCobranca := cob; 399: TipoCobranca := cobHSBC; //409: TipoCobranca := cob; //422: TipoCobranca := cob; //424: TipoCobranca := cob; //453: TipoCobranca := cob; //479: TipoCobranca := cob; //600: TipoCobranca := cob; //604: TipoCobranca := cob; //610: TipoCobranca := cob; //623: TipoCobranca := cob; //633: TipoCobranca := cob; //637: TipoCobranca := cob; //641: TipoCobranca := cob; //702: TipoCobranca := cob; //707: TipoCobranca := cob; //721: TipoCobranca := cob; //741: TipoCobranca := cob; //745: TipoCobranca := cob; 748: TipoCobranca := cobSicred; //749: TipoCobranca := cob; 756: TipoCobranca := cobBancoob; else TipoCobranca := cobNenhum; end; alguém pode me ajudar com esses códigos comentados?

deu certo obrigado.

boa tarde, ao imprimir um MDFE a impressão sai direto na impressora padrão, tem como poder selecionar a impressora tipo assim