triburtini
Membros-
Total de ítens
7 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
triburtini's Achievements
-
API Bradesco para acesso a extrato bancário
triburtini replied to Nairê Alvanez's tópico in ACBrDiversos
Bom dia @Nairê Alvanez teve sucesso na utilização da API ? Conseguiu integrar com outros bancos? Tambem estou a procura da solução... -
254-Rejeicao: NF-e referenciada nao informada para NF-e complementar
triburtini replied to adebaldo.cruz's tópico in ACBrNFe
Bom dia companheiros Estou passando por este problema Ja fiz varias tentativas sem sucesso.. Alguem poderia me dar uma LUZ? Segue XML com problemas GN000006-51190700033677859972559200000436551000436550-procNfe.xml -
so pra resumir e vc ter uma visao geral do processo 1 - vc faz a pre autorizacao (quantas quiser nao tem restrição) a cada pre-autorização o DATASus te retorna um numero; 2 - Vc confirma a venda com os itens autorizados na pre-autorizacao e emite o cupom fiscal, 3 - Vc confirma a autorizacao no site do DATASUS (informando o codigo do cupom que foi emitido e o numero da pre-autorizacao) 4 - Vc Emite os cupons vinculados com o texto que o DATASUS retorna na autorizacao (processo 3) 5 - pronto so isso..
-
Cara vou nessa, amanha te passo os itens 2, 3 e 4
-
1-Pre Autorizacao (Vc informa pro site do FP) 1.1 - Informa os dados da farmacia e do usuario que ta fazendo a solicitacao (que deverao estar cadastrados no site do DataSUS) { Usuário Farmacia / Vendedor } Usuario := UsuarioFarmaciaDTO.Create; Usuario.UsuarioFarmacia := Parametro(FPopularEmail).AsString; Usuario.SenhaFarmacia := Parametro(FPopularSenha).AsString; Usuario.UsuarioVendedor := fVendedorLogin; Usuario.SenhaVendedor := fVendedorSenha; 1.2 - Informa os produtos a serem cotados { MEDICAMENTOS SOLICITADOS } for Item := 0 to fVenda.Produtos.Count-1 do begin fProduto := TVdaProduto(fVenda.Produtos.Items[item]); if not fProduto.Deleted then begin SetLength(Medicamentos, Length(Medicamentos) + 1); Medicamentos[Length(Medicamentos) - 1] := MedicamentoDTO.Create; Medicamentos[Length(Medicamentos) - 1].coCodigoBarra := fProduto.Produto.FPopular_EAN13; Medicamentos[Length(Medicamentos) - 1].qtPrescrita := fProduto.FPopular.Posologia; Medicamentos[Length(Medicamentos) - 1].qtSolicitada := fProduto.Qtde * fProduto.Produto.Apresentacao; Medicamentos[Length(Medicamentos) - 1].vlPrecoVenda := fProduto.Produto.FPopular_Total; end; end; 1.3 Dados do estabelecimento e paciente { Dados do Estabelecimento e Paciente } Solicitacao := SolicitacaoDTO.Create; Solicitacao.arrMedicamentoDTO := Medicamentos; Solicitacao.coSolicitacaoFarmacia := StrZero(fVenda.FPopular.IdSolicitacao, 6); Solicitacao.dtEmissaoReceita := TXSDateTime.Create; Solicitacao.dtEmissaoReceita.AsDateTime := fVenda.FPopular.ReceitaData + Time; Solicitacao.nuCnpj := ApenasDigitos(fSistema.Empresa.CnpjCpf); Solicitacao.nuCpf := ApenasDigitos(fVenda.FPopular.CompradorCPF); Solicitacao.nuCrm := fVenda.FPopular.Profissional.NumeroRegistro; Solicitacao.sgUfCrm := fVenda.FPopular.Profissional.UFConselho; Solicitacao.dnaEstacao := Trim(ObterSolicitacao(Solicitacao)); 1.4 Executa a pre-solicitacao e obtem o retorno do site Autorizacao := AutorizacaoDTO.Create; Autorizacao := WebService.ExecutarSolicitacao(Solicitacao, Usuario); fVenda.FPopular.ReqRetorno := Autorizacao.inAutorizacaoSolicitacao; fVenda.FPopular.ReqRetornoDescricao := Autorizacao.descMensagemErro; fVenda.FPopular.ReqRetornoNomePaciente := Autorizacao.noPessoa; fVenda.FPopular.ReqRetornoCodigoDataSus := Autorizacao.nuAutorizacao; for Item := Integer(Low(Autorizacao.arrMedicamentoDTO)) to Integer(High(Autorizacao.arrMedicamentoDTO)) do begin fProduto := fVenda.Produtos.GetProdutoEANFP(Autorizacao.arrMedicamentoDTO[item].coCodigoBarra); if Assigned(fProduto) then begin fProduto.FPopular.QtdeAutorizada := Trunc(Autorizacao.arrMedicamentoDTO[item].qtAutorizada); fProduto.FPopular.ValorParcelaMS := Autorizacao.arrMedicamentoDTO[item].vlPrecoSubsidiadoMS; fProduto.FPopular.ValorParcelaPaciente := Autorizacao.arrMedicamentoDTO[item].vlPrecoSubsidiadoPaciente; fProduto.FPopular.ValorParcelaPaciente := (fProduto.TotalLiquido - fProduto.FPopular.ValorParcelaMS); fProduto.FPopular.ReqRetorno := Copy(Autorizacao.arrMedicamentoDTO[item].inAutorizacaoMedicamento,1,4); fProduto.FPopular.ReqRetornoDescricao := Copy(Autorizacao.arrMedicamentoDTO[item].inAutorizacaoMedicamento,8,200); end; end; Observacao: Com isso vc tem o retorno do DAtaSus e os produtos autorizados e nao autorizados
-
Cara seguinte, li seus posts anteriores e percebi que vc tem duvida quanto ao preco do produto, uma vez que ele e vendido pela f popular e vendido a preco normal fora do f popular No meu sistema nao tenho um campo com o preco da farmacia popular, pq consulto o preco do produto no site atravez do codigo de barras e o site me retorna o preco e o desconto que devo utilizar.. Vou preparar um esquema do processo pra te passar.. penei muito no comeco
-
Boa tarde... Se precisar de ajuda com o F Popular..ja fiz no meu sistema