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

Boa noite, Alguém tem alguma rotina pronta para reimprimir em outro momento o comprovante de Vendas ? Porque por exemplo pode acontecer do cliente não querer nota, e voltar pedindo a nota em outro dia. Sei que o cancelamento pode ser impresso a qualquer momento, mas não consegui assemelhar os códigos com a venda. Obrigado;

Bom dia, Então não preciso me preocupar com isso? Ao instalar no equipamento real em produção ele vai gerar o Extrato Nº e não aparecerá mais escrito TESTE >>>>>>>>>>>>>>>>>>> ? Obg

Resolvi modificando o código e adicionado Case. Deu mais trabalho mais deu certo. Att.,

Bom dia, Estou usando o exemplo SAT do ACBR com emulador, e meus Extratos saem com Nº000000. Qual numero deve ir ai? E Como faço para alterar ele, e a parte debaixo escrito TESTE ? Obrigado

Bom Noite. Alguém me da uma luz de como fazer: Armazenei todos os itens dos produtos no banco , então no cadastro do meu produto esta +- assim: EX de como esta no cadastro do banco de dados: produto 1 PIS.CST = 'pis49' COFINS.CST = 'cof49' indRegra = 'irArredondamento' No gerar venda apresenta os seguintes erros: Incompatible types: 'TpcnindRegra' and 'string': Incompatible types: 'TpcnOrigemMercadoria' and 'string' Incompatible types: 'TpcnCSTIcms' and 'string' Incompatible types: 'TpcnCSOSNIcms' and 'string' Incompatible types: 'TpcnCstPis' and 'string' Incompatible types: 'TpcnCstCofins' and 'string' ****Código abaixo. (Queria saber de um jeito de utiizar esses valores que armazenei no banco de dados, ou alguam forma de conversão.) Prod.indRegra := dm_dados.tbl_saida_produtoIAT.AsString; // irTruncamento ou irArredondamento; Prod.qCom := dm_dados.tbl_saida_produtoSAIPROD_QUANTIDADE.AsInteger; Prod.vUnCom := dm_dados.tbl_saida_produtoSAIPROD_VALORPRODUTO.AsCurrency; Prod.vDesc := dm_dados.tbl_saida_produtoSAIPROD_DESCONTO.AsCurrency; Prod.vOutro := dm_dados.tbl_saida_produtoSAIPROD_MAODEOBRA.AsCurrency; Imposto.ICMS.orig := dm_dados.tbl_saida_produtoORIGEMDOPRODUTO.AsString; if ACBrSAT1.Config.emit_cRegTrib = RTRegimeNormal then begin Imposto.ICMS.CST := dm_dados.tbl_saida_produtoICMS_CST.AsString; Imposto.ICMS.pICMS := dm_dados.tbl_saida_produtoICMS_pICMS.AsCurrency; //Alíquota efetiva do imposto end else begin Imposto.ICMS.CSOSN := dm_dados.tbl_saida_produtoICMS_CSOSN.AsString; end; Imposto.PIS.CST := dm_dados.tbl_saida_produtoPIS_CST.AsString; Imposto.PIS.vBC := dm_dados.tbl_saida_produtoPIS_vBC.AsCurrency; //Valor da Base de Cálculo do PIS Imposto.PIS.pPIS := dm_dados.tbl_saida_produtoPIS_pPIS.AsCurrency; //Alíquota do PIS (em percentual) Ex. Se a alíquota for 0,65% informar 0,0065 Imposto.COFINS.CST := dm_dados.tbl_saida_produtoCOFINS_CST.AsString; Imposto.COFINS.vBC := dm_dados.tbl_saida_produtoCOFINS_vBC.AsCurrency; //Valor da Base de Cálculo da COFINS Imposto.COFINS.pCOFINS := dm_dados.tbl_saida_produtoCOFINS_pCOFINS.AsCurrency; Obrigado

Boa noite. Esse é meu primeiro sistema em SAT e estou com algumas duvidas no codigo abaixo, se puderem me ajudar ficaria muito agradecido. Comentei na frente da linha com a minha duvida. Imposto.ICMS.orig := oeNacional; if ACBrSAT1.Config.emit_cRegTrib = RTRegimeNormal then begin Imposto.ICMS.CST := cst00; Imposto.ICMS.pICMS := 18; //Esse 18 seria 18% ? é fixo ? end else begin Imposto.ICMS.CSOSN := csosn102; end; Imposto.PIS.CST := pis49; Imposto.PIS.vBC := 0; // esse valor é sempre 0 ? Imposto.PIS.pPIS := 0; //esse valor é sempre 0 ? Imposto.COFINS.CST := cof49; Imposto.COFINS.vBC := 0; //esse valor é sempre 0 ? Imposto.COFINS.pCOFINS := 0; //esse valor é sempre 0 ? infAdProd := 'Informacoes adicionais'; // imposto aproximado TotalItem := (Prod.qCom * Prod.vUnCom); Imposto.vItem12741 := TotalItem * 0.12; // Esse 0.12 seria 12% é fixo ? ou como devo calcular ? Obrigado.