Hetosoft Sistemas

carga balança Filizola aquirvo Nutricional Não esta gerando o arquivo NUTRI.TXT desde de ja , agradeço a atençao. Porque na funcao procedure TACBrCargaBal.PreencherFilizola(stlArquivo, stlSetor, stlNutricional, stlReceita: TStringList); Nutricional.Descricao ESTA VAZIA if (Produtos[i].Nutricional.Descricao <> '') then begin stlNutricional.Add(LFIll(Produtos[i].Codigo,6) + RFill(Produtos[i].Nutricional.Descricao,35) + LFIll(Produtos[i].Nutricional.ValorEnergetico,5) + Nao gerar o arquivo // Gerar arquivo de Nutricionais se houverem dados e o arquivo for separado if Nutricional.Count > 0 then begin NomeArquivo := IncludeTrailingPathDelimiter(ADiretorio) + GetNomeArquivoNutricional; Nutricional.SaveToFile(NomeArquivo); FArquivosGerados.Add(NomeArquivo) ; end; E ESTOU PREECHENDO InformacaoExtra.Receita := cdsProdutos.FieldByName('BAL_RECEITA').AsString; // Receita if cdsProdutos.FieldByName('BAL_QUANT').AsFloat > 0 then begin Nutricional.Codigo := Codigo; Nutricional.Qtd := cdsProdutos.FieldByName('BAL_QUANT').AsInteger; Nutricional.PartInteira := cdsProdutos.FieldByName('BAL_PARTEINTEIRA').AsInteger; Nutricional.ValorEnergetico := cdsProdutos.FieldByName('BAL_VALORENERGETICO').AsInteger; Nutricional.Carboidrato := cdsProdutos.FieldByName('BAL_CARBOIDRATO').AsFloat; Nutricional.Proteina := cdsProdutos.FieldByName('BAL_PROTEINA').AsFloat; Nutricional.GorduraTotal := cdsProdutos.FieldByName('BAL_GORDURA_TOTAL').AsFloat; Nutricional.GorduraSaturada := cdsProdutos.FieldByName('BAL_GORDURA_SATURADA').AsFloat; Nutricional.GorduraTrans := cdsProdutos.FieldByName('BAL_GORDURA_TRANS').AsFloat; Nutricional.Fibra := cdsProdutos.FieldByName('BAL_FIBRA').AsFloat; Nutricional.Sodio := cdsProdutos.FieldByName('BAL_SODIO').AsFloat; Da Balança toledo INFNUTRI.TXT esta tudo ok

Descobrir esta vindo certo do sitef é so mudar //QRCode.Encoding := qrUTF8NoBOM; QRCode.Encoding := qrUTF8BOM; esse monta o qrcode sem o ?

Estou implementando o cardse - carteira digital quando eu coloco para aparecer qrcode no pinpad = tudo ok, pago pelo celular blz quando eu coloco para aparecer rqcode na tela do sistema , usando o codigo do demo acbrtefd e coloco a restricoes: {DevolveStringQRCode=1} da qrcode invalido porque coloca um (? antes, nao sei porque) ex: codigo exibido - pinpad SOFTWAREEXPRESS-425658-373694-PDV00006 (ok) codigo exibido - tela ?SOFTWAREEXPRESS-425658-373694-PDV00006 (nao consigo pagar) desde ja agradeço a atenção. QRCode := TDelphiZXingQRCode.Create; QRCodeBitmap := TBitmap.Create; try QRCode.Encoding := qrUTF8NoBOM; QRCode.QuietZone := 2; QRCode.Data := widestring(Dados); QRCodeBitmap.Width := QRCode.Columns; QRCodeBitmap.Height := QRCode.Rows; for Row := 0 to QRCode.Rows - 1 do begin for Column := 0 to QRCode.Columns - 1 do begin if (QRCode.IsBlack[Row, Column]) then QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack else QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite; end; end; // imgQRCode.Picture.Bitmap.Assign(QRCodeBitmap); if TipoFormularioTEFD = 4 then begin FrmPDVTef.imgQRCode.Picture.Bitmap.Assign(QRCodeBitmap); Application.ProcessMessages; end; finally QRCode.Free; QRCodeBitmap.Free; end;

gostaria de saber se ja ta implementado CedenteWS para o banco sicredi quando tento enviar da esse erro. obrigado pela atenção desde ja. ACBrBoleto1.Cedente.CedenteWS.ClientID := cdsPortador.FieldByName('TP_ONLINE_CLIENTID').AsString; ACBrBoleto1.Cedente.CedenteWS.ClientSecret := cdsPortador.FieldByName('TP_ONLINE_CLIENTSECRET').AsString; ACBrBoleto1.Cedente.CedenteWS.Scope := 'cobranca.registro-boletos'; ACBrBoleto1.Cedente.CedenteWS.KeyUser := cdsPortador.FieldByName('TP_ONLINE_KEYUSER').AsString; if cdsPortador.FieldByName('TP_ONLINE').AsInteger = 1 then ACBrBoleto1.Configuracoes.WebService.Ambiente := taProducao else if cdsPortador.FieldByName('TP_ONLINE').AsInteger = 2 then ACBrBoleto1.Configuracoes.WebService.Ambiente := taHomologacao; ACBrBoleto1.Configuracoes.WebService.Operacao := tpInclui; ACBrBoleto1.Configuracoes.WebService.SSLCryptLib := cryOpenSSL; ACBrBoleto1.Configuracoes.WebService.SSLHttpLib := httpOpenSSL; //ACBrBoleto1.Configuracoes.WebService.SSLType := LT_TLSv1_2; ACBrBoleto1.Configuracoes.WebService.TimeOut := 30000; ACBrBoleto1.Configuracoes.WebService.UseCertificateHTTP := False; with ACBrBoleto1 do begin // Função de Envio EnviarBoleto;

-- 23/09 16:44:53:793 - InfoECF: ineEstadoECF -- 23/09 16:44:53:793 - Ret: V -- 23/09 16:44:53:805 - InfoECF: ineSubTotal -- 23/09 16:44:53:805 - Ret: 49,53 -- 23/09 16:44:53:805 - InfoECF: ineTotalAPagar -- 23/09 16:44:53:805 - Ret: 0 -- 23/09 16:44:53:805 - *** IniciaFuncaoSiTefInterativo. Modalidade: 0 Valor: 49,53 Documento: 1 Data: 20200923 Hora: 164453 Operador: Restricoes: [10]{TipoTratamento=4} -- 23/09 16:44:53:836 - BloquearMouseTeclado: SIM -- 23/09 16:44:53:836 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 23/09 16:44:53:946 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = Conectando Servidor Tam.Min = 0 Tam.Max = 0 -- 23/09 16:44:53:946 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Conectando Servidor -- 23/09 16:44:53:961 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 23/09 16:45:00:342 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 13 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 23/09 16:45:00:342 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: -- 23/09 16:45:00:545 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: -- 23/09 16:45:00:560 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 23/09 16:45:00:576 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = Terminal inoperante, CNPJ/CPF divergente Tam.Min = 1 Tam.Max = 1 -- 23/09 16:45:00:576 - CliSiTef DoExibeMsg: Oper: opmOK Mensagem: Terminal inoperante, CNPJ/CPF divergente -- 23/09 16:45:00:592 - BloquearMouseTeclado: NAO

Ele nao cria os logs na pasta

DalAcBrTEF.ACBrTEFD1.TEFCliSiTef.CNPJEstabelecimento := '08398100000120'; StatusTransacao := DalAcBrTEF.ACBrTEFD1.CRT(ValorPag, '02', Trim(NumeroDocumento.ToString)); Será que esta faltando alguma coisa? obrigado pela atenção desde ja .

Obrigadoooooooooooooo

Linha: TACBrTEFDLinha; [dcc32 Error] uFrmPDV.pas(6567): E2003 Undeclared identifier: 'TACBrTEFDLinha' atualizei o acbr e da esse erro, agradeço desde ja a atenção.

Onde eu consigo a lista pra saber que numero corresponde à cada campo? Gostaria de alterar o TipoParcelamento e o TipoTransacao.

Bom dia. Estava com problemas para consultar por lote usando OpenSSL. Atualizei o ACBr e mesmo assim não enviou. Após baixar o Schema disponibilizado pelo BigWings e substituir o arquivo o do ACBr deu certo. Provavelmente precise atualizar o Schema do repositório. ISSNET Cuiabá - MT.

Estou baixando as notas tudo ok // Se achou Documento if DalACBr.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin I := 0; for I := 0 to DalACBr.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1 do begin if Trim(DalACBr.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.resDFe.chDFe) <> '' then begin Em uma versão passada, atualizava o status da nota ex: baixou a nfe autorizda, se eu baixasse o manifesto de novo ele atualizaria para nfe cancelado ainda tem essa opcao? obrigado pela atenção.

Versão desconhecida. Versao "014" não é um valor válido. Atualizei o ACBR mais continua o erro, o acbr sped fiscal nao contem o leiaute 040? obrigado pela atenção.

Estou usando Delphi 10.2 Tokyo.

Bom dia Galera! Estou tentando montar um JSON para comunicacao com uma API, o formato que preciso montar é esse: { "id": "1", "type": "TPS", "SubObjeto": { "name": "Teste", "phones": [ "987654321","0123456789" ], "address": { "country": "BR", "state": "MT" } } } Só que ate agora o que consegui foi: var LJson, LJsonObject: TJSONObject; LArray: TJSONArray; LJsonObject := TJSONObject.Create; LJsonObject.AddPair(TJSONPair.Create('id', '1')); LJsonObject.AddPair(TJSONPair.Create('type', 'TPS')); // SubObjeto LArray := TJSONArray.Create; LJson := TJSONObject.Create; LJson.AddPair(TJSONPair.Create('name', 'Teste')); LJson.AddPair(TJSONPair.Create('phones', ?)); //Address ? LArray.Add(LJson); LJsonObject.AddPair(TJSONPair.Create('SubObjeto', LArray)); ShowMessage(LJsonObject.ToString); Alguém já montou algum JSON assim ? Desde já agradeço!

Bom dia! Amigos, o provedor de cuiaba (ISSNet da NotaControl) alterou o endereço dos webservices de emissão de NFS-e, Tentei alterar os enderecos no Arquivo ISSNet.ini e nos arquivos schemas, mas sem sucesso. Estou obtendo esse erro ao enviar NFS-e: Arquivo enviado fora da estrutura do arquivo XML de entrada. Envie um arquivo dentro do schema do arquivo XML de entrada. O novo endereco é: https://wscuiaba.issnetonline.com.br/ Segue abaixo os arquivos que alterei, o que sera que estou fazendo de errado? Desde já agradeço. ISSNet.ini ISSNet-schemas.zip

Esses dois clientes que nao vem retorno estao usando OpneSSL e outros CAPICOM o CAPICOM esta ok

Sim, atualizei tudo. Isso esta acontecendo em 2 clientes ja nos outro esta ok, vou analisar melhor a situação.

NSU := DalACBr.ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; // '' Vazio Retorno := DalACBr.ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; // '' Vazio Sem Resposta da SEFAZ

Oi DalACBr.ACBrCTe1.DistribuicaoDFePorUltNSU parou de entrontar os cte ja em uns 30 dias, alguem sabe dizer o que pode Ser ja atualizei o acbr obrigado pela atenção.

Custódia de Cheques

eu tambem nao, um cliente meu tinha no antigo sistema. todos os cheque que ele recebe de clientes manda pelo um arquivo txt pra o banco https://www.bb.com.br/docs/pub/emp/empl/dwn/007CstChqs.pdf 34100000 205492088000391 00288 000000086140 4DUZZI CLIMATIZACAO E REFRIGERABANCO ITAU 11005201908283700000004000000 34100011C0601030 205492088000391 00288 000000086140 4DUZZI CLIMATIZACAO E REFRIGERA 2 3410001300001D000205492088000391 00288 000000086140 4 00000000000000010052019080820190013499301885000459950058141080000000000001000000000000 00A000QMQ2 000040 2 3410001300002D000205492088000391 00288 000000086140 4 00000000000000010052019080720190013499401885000359250058141050000000000001000000000000 00A000QMQ1 000040 2 3410001300003D000205492088000553 00288 000000086140 4 00000000000000010052019170620197564425801800012652000020484600000000000003885660000000 00A000QLHR 000040 2 3410001300004D000205492088000391 00288 000000086140 4 00000000000000010052019100620190013499501885000259640058141040000000000001000000000000 00A000QMQ0 000040 2 34100015 205492088000391 00288 000000086140 4 000006000000000000688566 34199999 000001000008000000000000688566

Gerar Arquivo de Remessa de Cheque para o Banco existe algum componente ACBR para isso. obrigado pela atenção

É porque vc esta olhando no arquivo errado (nfse), olhe nos arquivos que contem "-env-lot" no nome, marca no seu componente para salvar todos XMLs. O Numero do Lote tem que ser aumentado cada vez que voce envia. Mesmo que seja o mesmo RPS. ACBRNFSe1.NotasFiscais.NumeroLote := ACBRNFSe1.NotasFiscais.NumeroLote + 1;

Amigo, o Numero de Lote(ACBrNFSe1.NotasFiscais.NumeroLote), deve ser aumentado toda vez que clicar em enviar, nao importa se deu certo ou deu erro, o unico que mantem é o numero de RPS. E somente se o RPS for aceito, recebera o Numero da NFS-e.