Ico Menezes

O sistema do AcbrSAt eu só modifiquei o que era necessário para mim ... porém a dúvida é: quando eu colocar a DLL (de produção configurada) e apontar para ela, o sistema irá modificar aqueles parametros de cnpj 1111111111 e assim por diante ... na própria DLL vou ter isso ... ou irei precisar mexer ali manualmente ? Pode-se falar abertamente de qualquer marca de equipamento aqui ?

Nesse caso, vc me orienta a ter um equipamento de desenvolvedor , né ? Solicitei um mas ainda não chegou ...

Uau. Então caro Willian, eu fiz a instalação do equipamento junto com o software dele ... que gerou uma DLL certo ? Ela contém minhas configurações, pois tive que usar o cnpj contribuinte e tal. Agora é só eu copiar essa DLL para a pasta que o emulador crio e quando eu abrir o sistema do Acbr eu aponto o mesmo local ? e gostaria de agradecer todos pela colaboração e rapidez nas respostas.

Boa noite, amigos. Eu testei o AcbrSat em delphi com o emulador e adaptei a minha realidade. Fiz teste e se comunicou normal e fiz as vendas pelo emulador off line do Sefaz; Porém agora comprei um equipamento para rodar na loja, então minha dúvida é: Como troco esse ambiente teste pelo ambiente oficial? Vi que o emulador cria uma DLL na pasta C:\SAT e o instalador do meu equipamento tmb fez isso. Agora eu devo pegar a DLL do instalar e trocar ...? ou somente executo o app acbr que ele vai pegar o mesmo caminho e vai ler a Dll correta ... já fazendo a comunicação com o equipamento... é isso ? Quero saber como trocar o emulador pelo equipamento grato

Qualquer coisa estou por aqui. a Função segue: function Tfrm_ConsultaBRBusca.RetornaTexto(Texto, sText1, sText2: String): String; var iPos1,iPos2 : Integer; begin try begin Result:=''; if (sText1 = '') or (sText2 = '') then Exit; if (sText1 = sText2) then Exit; iPos1 := PosEx(sText1,Texto); iPos2 := PosEx(sText2,Texto); Result := Copy(Texto, iPos1 + Length(sText1), iPos2 - (iPos1 + Length(sText1))); //ShowMessage(Copy(sXML, iPos1, (iPos2 + Length(sText2) - iPos1))); Delete(sXML, iPos1, (iPos2 + Length(sText2) - iPos1)); end; except end; end;

Vamos lá. Eu recebo a XML após um post ... e a guardo dentro do componente XMLDocument1. Ai tenho uma função para esse loop while Pos('<INFO-SPC-125-DEBITO>', sXML) > 0 do begin // falar que tá restrito cdsSPC.Append; cdsSPC.FieldByName('Tip Cred').Text:= RetornaTexto(sXML, '<INFO-SPC-125-TPDEBITO>', '</INFO-SPC-125-TPDEBITO>'); cdsSPC.FieldByName('Contrato').Text:= RetornaTexto(sXML, '<INFO-SPC-125-CONTRATO>', '</INFO-SPC-125-CONTRATO>'); cdsSPC.FieldByName('Ocorrência/Disponível').Text:= InvData(RetornaTexto(sXML, '<INFO-SPC-125-OCORRENCIA>', '</INFO-SPC-125-OCORRENCIA>')) +' / '+ InvData(RetornaTexto(sXML, '<INFO-SPC-125-DISPONIVEL>', '</INFO-SPC-125-DISPONIVEL>')); cdsSPC.FieldByName('Valor').Text:= RetornaTexto(sXML, '<INFO-SPC-125-TPMOEDA>', '</INFO-SPC-125-TPMOEDA>') +' '+ RetornaTexto(sXML, '<INFO-SPC-125-VALOR>', '</INFO-SPC-125-VALOR>');; cdsSPC.FieldByName('Informante').Text:= RetornaTexto(sXML, '<INFO-SPC-125-INFORMANTE>', '</INFO-SPC-125-INFORMANTE>'); cdsSPC.FieldByName('Cidade - UF').Text:= RetornaTexto(sXML, '<INFO-SPC-125-CIDADE>', '</INFO-SPC-125-CIDADE>'); cdsSPC.FieldByName('Banco').Text:= 'SCPC'; RetornaTexto(sXML, '<INFO-SPC-125-DEBITO>', '</INFO-SPC-125-DEBITO>'); end; A função RetornaTexto recorta da XML completa o valor que está entre as duas tags... e faz a XML ficar menor ... ou seja, sem o texto recortado para que não haja repetição de informação.

Li sim! Mas tive que fazer recortes na string! foi trabalhoso, mas consegui pegar todos os itens! Na verdade, eu faço uma busca por uma palavra que contem na linha e a partir dali eu leio a quantidade de carateres que preciso!

Na verdade, não baixei tudo do git hub. Então ficou faltando o frce.dpk .. e por isso não instalava o FOrTES. Aí baixei novamente e deu certo pelo instalador. Grato

Julio, consegui vçw! Precisa encerrar o tópicp ?

Juliomar, Tem o link do instalador ? Serve para Delphi Berlim Ao tentar instalar está dando esse erro

Olá, boa tarde, Já tentei abrir o fonte do SAT e não consigo. Tentei instalar esse FORTE report e também não consegui. Meu delphi é o Berlim. O que faço

Boa Tarde, Tenho um certo XML que tem essas informações ... <PENDENCIA_FINANCEIRA_BLOCO> <S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"> <S:Body> <ns2:resultado xmlns:ns2="http://webservice.consulta...org/" restricao="false" data="2016-08-31T07:20:31.053-03:00"> <protocolo numero="1606026836" digito="4"/> <operador codigo="256321" nome="INFOCAR"/> <consumidor> <consumidor-pessoa-fisica data-nascimento="1982-09-07T00:00:00-03:00" idade="33" nome="LUIZ MENEZES FILHO" nome-mae="ELY SOUZA MENEZES" numero-titulo-eleitor="293751740191" sexo="MASCULINO" signo="VIRGEM"> <cpf regiao-origem="SAO PAULO" numero="22379580847"/> Eu gostaria de PEGAR os valores dos atributos que estão dentro de RESULTADO. Como faça para pegar a informação que está em >>>> numero-titulo-eleitor="293751740191" <<<< xml.xml Eu uso alguns códigos, mas só consigo pegar o que está entre TAGS e mesmo assim ... preciso ficar percorrendo a árvore ... não consigo ir já direto para uma sub sub TAG. Queria algo assim: XMLDoc1 := TXMLDocument.Create(Self); XMLDoc1.FileName := 'C:\Documents and Settings\Mario Franca\Desktop\xml.xml'; XMLDoc1.Active := True; Atributo := GetINFOXML(XMLDoc1); ShowMessage(Atributo.XML); resposta.Lines.Add('Nome..............: ' + VarToStr(Atributo.PESQUISA.PENDENCIA_FINANCEIRA_BLOCO.Envelope.Body.Resultado.AttributeNodes[' numero-titulo-eleitor '])); Mas atualmente está ficando BRANCO no memo.

Daniel, meu sistema tmb compila esses montes de PAS aí ... Há alguma forma de tirar eles do projeto ? Pois meu sistema demora 5 segundos para abrir e outro que não usa isso demora 1 segundo...