atiagocl

Depois de muito quebrar a cabeça consegui Resolver. Pode encerrar o tópico. Obrigado

Depois de muito quebrar a cabeça consegui Resolver. Pode encerrar o tópico. Obrigado

Pessoal, se for necessário estou disposto a negociar um valor pelo serviço/consultoria ok.

Bom dia, Gostaria de saber se alguém poderia me ajudar na seguinte situação: Estou fazendo uma integração com o web service da Jucesp, o qual exige dois níveis de autenticação: autenticação no servidor web e autenticação no SIL. Até ai tudo bem consegui fazer a conexão e também consigo fazer a maioria das consultas. Porém tem alguns métodos ex: InformarInicioLicenciamentoAltoRisco "Segue descrito no manual do método abaixo" que são passados parametros para ele e não estou conseguindo: Se alguém puder me demonstrar como chamar o método corretamente e passar os parâmetros eu agradeço muito. Método: InformarInicioLicenciamentoAltoRisco /// Informa um inicio de Licenciamento (presencial) pra um conjunto de licenças. /// /// Parâmetros de cada item(InformarInicioAtendimentoAltoRiscoParameters) /// string Protocolo /// DateTime InicioAtendimento /// int IdOrgao /// string ProtocoloAtendimento /// /// OBS: Somente é possível informar o início de atendimento de alto risco de uma licença /// cujo status seja "Comparecer ao Orgao" (1) e cujo orgão seja o mesmo do perfil do /// usuário do webservice /// /// Códigos de erro/sucesso na chamada ao método: /// 95 : senha do usuário está expirada /// 96 : privilégios insuficientes para executar o método /// 97 : erro interno /// 98 : parâmetros incorretos /// 99 : falha de autenticacao /// 100 : Sucesso /// /// Os códigos de erro/sucessso para cada transação de cancelamento de licença: /// 0: Transacao OK /// 1: Erro interno /// 2: Data de Atendimento deve ser menor ou igual a data de Hoje /// 3: Data de Atendimento deve ser posterior à data da solicitação /// 4: Protocolo da Licença não exige Atendimento Presencial. /// 5: Usuário de webservice deve ter perfil de Orgão. /// 6: Protocolo informado não existe /// 7: Protocolo da Licença não está com status: 'Comparecer ao órgão'. ItemTransacao[] InformarInicioLicenciamentoAltoRisco(InformarInicioLicenciamentoAltoRiscoParameters[] parametros, out int resultCode, out string resultDescription) Classe InformarInicioLicenciamentoAltoRiscoParameters: string Protocolo DateTime InicioAtendimento int IdOrgao string ProtocoloAtendimento Segue código do botão procedure TForm1.Button3Click(Sender: TObject); var funcaoenvio : InformarInicioLicenciamentoAltoRiscoRequest; funcaoparamentros : InformarInicioLicenciamentoAltoRiscoParameters; tempo : TXSDateTime; begin Tempo := TXSDateTime(FormatDateTime('YYYY-MM-DD-T',now)); funcaoenvio := InformarInicioLicenciamentoAltoRiscoRequest.Create; funcaoparamentros := InformarInicioLicenciamentoAltoRiscoParameters.Create; funcaoparamentros.Protocolo := '1659780201895'; funcaoparamentros.InicioAtendimento := tempo ; funcaoparamentros.IdOrgao:= 464 ; //id do orgão funcaoparamentros.ProtocoloAtendimento:= '19384/2018'; //Dessa forma abaixo a aplicação da erro na execução //funcaoenvio.Parametros[0].Protocolo:= '1659780201895'; // funcaoenvio.Parametros[0].InicioAtendimento:= tempo; // funcaoenvio.Parametros[0].IdOrgao:= 464 ; //funcaoenvio.Parametros[0].ProtocoloAtendimento:= '19384/2018'; showmessage( inttostr(GetIOperacionais.InformarInicioLicenciamentoAltoRisco(funcaoenvio).ResultCode) ); end; Em anexo esta a unit criado pelo WSDL ao importar o WebService basic.pas

unit criado pelo WSDL ao importar o WebService basic.pas

Bom dia a todos, Gostaria de saber se alguém poderia me ajudar na seguinte situação: estou fazendo uma integração com o web service da Jucesp, o qual exige dois níveis de autenticação: autenticação no servidor web e autenticação no SIL. Acredito que preciso fazer essa autenticação utilizando o HTTRIO pois usei o Importer WSDL. Poderiam me ajudar a fazer algo do tipo o codigo abaixo, mais utilizando as autenticações? procedure TForm1.Button1Click(Sender: TObject); var funcaoResposta: ConsultarNumeroProtocolosPorCNPJResponse; funcaoPedido: ConsultarNumeroProtocolosPorCNPJRequest; begin funcaoPedido:= ConsultarNumeroProtocolosPorCNPJRequest.Create; funcaoResposta:= ConsultarNumeroProtocolosPorCNPJResponse.Create; funcaoPedido.cnpj := '67245589000169'; ShowMessage(GetIOperacionais.ConsultarNumeroProtocolosPorCNPJ(funcaoPedido).ResultDescription); end; Em anexo esta a unit criado pelo WSDL ao importar o WebService. Se ajudar o manual cita como exemplo o codigo abaixo feito em Visual Studio, mas não faço idéia como implementá-lo. Código exemplo para autenticação e chamada a um serviço: Usando classe de proxy gerado no Visual Studio por Service Reference (WCF): WSExtracao.ExtracaoClient proxy = new WebServicesClient.WSExtracao.ExtracaoClient(); WSExtracao.AuthenticationHeader auth = new WSExtracao.AuthenticationHeader(); auth.Username = "ws_user"; auth.Password = "123456"; proxy.ClientCredentials.UserName.UserName = "ws_sil"; proxy.ClientCredentials.UserName.Password = "qaws123!"; int resultCode; string resultDescription; XmlElement xml = proxy.ConsultarAtividadesCNAE(auth, out resultCode, out resultDescription); Obrigado basic.pas

Boa noite. Meu sistema utiliza componentes ACBR tanto para o SAT como para a NFe . Como proceder para cancelar uma nota enviar pelo SAT após os 30minutos? Mencionaram algo de realizar uma nota de ajuste, devolução , alguém poderia me explicar como proceder e os dados que deve conter? Obrigado

Pode finalizar o topico. Resolvi criar um do zero e utilizei somente as funções necessárias do demo ACBR. Já esta 90% , so acertar separação de pastas, fim das contas foi bem fácil Obrigado

Boa noite, alguém teria o interesse em fornecer os arquivos fonte de NFe 3.1 já pronta ou semi pronta para o usuário final? Sei do exemplo Demo que acompanha o ACBR mais exige mudanças demais para o usuario final mexer. Aceito indicação, doação ou se for o caso podemos ver o preço. Preciso implantar isso no meu sistema SAT até semana que vem e estou muito apertado de tempo. Agradeço a atenção. Obrigado

Bom dia. Deu certo usando a função acima. Obrigado

Boa tarde. Após enviar a venda ao SAT ele gera uma arquivo XML com o nome do tipo AD25160411328070000190590000076760013298221382.XML Qual rotina posso criar para colocar esse nome do arquivo em uma variavel que vou criar para manipular. Obrigado

Boa tarde. Baixei esses dois arquivos, mais não sei como instala-los agora. Pode me ajudar?

Boa tarde, No momento a venda eu gostaria de salvar o nome do arquivo xml de venda no banco de dados, para conseguir realizar uma busca em outro momento. Isso seria feito apos eu enviar a venda para o Sat. Como pode ser feito ? Obrigado

Outra duvida, Eu gostaria de salvar o nome do xml de venda no banco de dados para conseguir realizar uma busca em outro momento. Isso seria feito apos eu enviar a venda para o Sat. Como pode ser feito ? Obrigado

Obrigado pela dica. Deu certo, segue o código pra quem necessitar: OpenDialog1.Filter := 'Arquivo XML|*.xml'; if OpenDialog1.Execute then begin ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName ); PrepararImpressao; ACBrSAT1.ImprimirExtrato; end; Obrigado