Vander Ramos

WS de um Cliente (ERP). abs Vander

Olá Daniel Acredito que resolvi por aqui com esta rotina: procedure TfrmPrincipal.Button6Click(Sender: TObject); var wProtocolo : String ; wXML : TStringlist ; begin //localiza protocolo em pdx_MySql.ssa_retorno_protocolo pdx_qryGrvSSA.Close ; pdx_qryGrvSSA.Open('select ssa_protocolo from ssa_retorno_protocolo where ssa_protocolo = :pProtocolo', [edit2.text]); pdx_qryGrvSSA.FetchAll ; if pdx_qryGrvSSA.RecordCount > 0 then begin try wProtocolo := pdx_qryGrvSSA.FieldByName('ssa_protocolo').AsString ; wXML := TStringList.Create ; wXML.Text := ReplaceStr(ReplaceStr(GetSSA_EAISoap.ConsultTask('fbq1wl',wProtocolo).XMLNode.XML, '&lt;', '<'), '&gt;', '>'); wTag := 'LogdeDados' ; //Grava MYSql pdx_qryGrvSSA.Close ; pdx_qryGrvSSA.ExecSQL('update ssa_retorno_protocolo set ssa_logdados = :pLodDados where ssa_protocolo = :pProtocolo', [ACBRUtil.LerTagXML(wXml.Text, wTag), edit2.Text]) ; finally wXML.Free ; end; end; end;

segue XMLRetorno.xml

Olá PessoALL, ACBRUtil.LerTagXML() não está buscando o conteudo da TAG LogDeDados dentro do XML: XML ORIGINAL (NÃO É UM ARQUIVO) <SSA_EAI xmlns=""><Principal><TASK><Status>-2</Status><Processo>NFSE </Processo><LogDeDados>Iniciar o processo NFSE Com ID [BD42809] <br /> Serviço (1000027) não registrado como Item de Estoque, ou sem vínculo com o Código de Serviços Municipais para a cidade da empresa <br /> Item de estoque 1000027 não cadastrado <br /> Operação não realizada identificador de integracao BD42809 <br /> </LogDeDados></TASK></Principal></SSA_EAI> procedure TfrmPrincipal.Button6Click(Sender: TObject); var wProtocolo : String ; wXML : TStringlist ; begin //localiza protocolo em pdx_MySql.ssa_retorno_protocolo pdx_qryGrvSSA.Close ; pdx_qryGrvSSA.Open('select ssa_protocolo from ssa_retorno_protocolo where ssa_protocolo = :pProtocolo', [edit2.text]); pdx_qryGrvSSA.FetchAll ; if pdx_qryGrvSSA.RecordCount > 0 then begin try wProtocolo := pdx_qryGrvSSA.FieldByName('ssa_protocolo').AsString ; wTag := 'LogdeDados' ; wXML := TStringList.Create ; wXMl.LoadFromStream(GetSSA_EAISoap.ConsultTask('fbqwerft',wProtocolo).XMLNode.XML); ShowMessage(ACBRUtil.LerTagXML(GetSSA_EAISoap.ConsultTask(wXML.Text, wTag)) ; finally end; end; end;

TKS continuo a procura de alguem para me ajudar

Obrigado Daniel.. Vou verificar, mas minha necessidade é urgente. Mais alguem?? Vander Daniel, mandei email [email protected] e retornou. Eles ainda estão ativos? Sem contato vander

Preciso de um consultor Delphi para aulas de WebServices (Consumir e criar). Aguardo propostas urgente. Esqueci do email: [email protected]

Olá Juliomar Nao sei se posso passar a documentação aqui, pois o cliente nada falou e tenho reeio de publicar em foruns Mas minha indagação é saber como faço um teste de WS do Sefaz/SP, utilizando o Consulta Lote sem Utilizar o Componente da ACBR que já uso em outro sistema. Quero utilizar este WSDL no delphi como aprendizado, para entender como acesso um WS com um XML Encapsulado. Se tiver uma rotina simples de exemplo agradeço. https://wssatsp.fazenda.sp.gov.br/CfeConsultarLotes/CfeConsultarLotes.asmx?WSDL

Humm aqui no publico? Estou aguardando o forum privado do acbr para manter seguro por conta do cliente

Oi Sim tem documentação e tem link sim. Gostaria de fazer um teste usando uma consulta de LOtes do SAt em SP, sem usar o componente ACBR do SAT . Já tenho o WSDL da consulta acima importado no Delphi e as informações necessárias.

Olá Tenho um sistema, em delphi, que necessita consumir o cadastro de clientes e produtos de um webservice SOAP. Alem disto a segunda etapa é enviar informações para o WS incluir no ERP do cliente. Acontece que nunca programei para WS e nem sei por onde começar. Será que teria alguém para me ajudar neste processo com alguma dica? As dicas que vejo na internet são superficiais. Gostaria de fazer um teste usando uma consulta de LOtes do SAt em SP. Já tenho o WSDL importado no Delphi e as informações necessárias. Alguém?

Olá Em Santa Catarina o modulo NFCe já está valendo? ou seja pode ser emitido NFCe no Ambiente Produção? Existe algumas regra diferente dos demais estados?

Olá Juliomar Resolvido !!! Muito Obrigadoooo ! Vander

Olá Estou com erro ao atualizar o ACBR. Podem ajudar? segue log log_Delphi_10.3_Rio_Win32.txt

ok, já consegui a informação.. Resolvido !