felipeiw

opa Obrigado Daniel, obrigado Gilberto, a ideia do Daniel é otima e muito profissional show !!!

pessoal tenho um cliente que estava usando o email @hotmail.com para enviar as notas, configurado assim smtp.live.com 587 usuario [email protected] tls = sim ssl = nao parou de enviar, algum amigo sabe se houve alguma alteração nos serviços do hotmail ? esta retornando o seguinte erro: SMTP error: unable to login Obrigado

opa obrigado rsmuller9 Faço isso "tento" jogar a diferença no primeiro ítem, mais as vezes mesmo assim da diferença por conta da quantidade de itens, quantidade de produtos e preços, tenho resolvido aumentando as casas decimais, mais enfim é isso mesmo né ? Abs

Pessoal como fazem com desconto, ja que temos q ratear o valor do desconto nos itens q compõem a nfce, é uma doideira principalmente quando trabalhando com 2 decimais no preço, as vezes pessoal quer arredondar o total da nota, digita um desconto e pra ficar o valor final é bem chatinho. obrigado

Renato tentei assim, mais nao consegui terminar procedure TF1Receitas.Button4Click(Sender: TObject); begin ShowMessage(receita('004479')); end; function TF1Receitas.receita(produto: String): string; var i: Integer; begin Result := produto + #13; for i := 0 to CdsReceita.RecordCount -1 do Result := Result + receita(CdsReceita.RecordCount[i]); end; Onde CdsReceita é uma clientdataset da pesquisa

Renato obrigado pela resposta a tabela por exemplo se chama receitas, dentro dela tenho campo codigoprincipal e o codigoitem primeiro codigo o principal o segundo os itens que o formam: 100 - 150 100 - 151 100 - 152 digamos que o 152 seja formado pelos itens: 152 - 160 152 - 161 152 - 162 o 162 seja formado pelos itens: 162 - 180 162 - 181 como montaria sua sua função pra retornar, 100 = principal, estrutura resultante seria: 100-150 100-151 100-152 152-160 152-161 152-162 162-180 162-181 ? Obrigado

pessoal tenho uma base de dados com uma receita de produto, e dentro da receita principal, pode haver outros produtos que também possuem receitas ou não e dentro destas outros produtos que possuem também receitas, então pode haver vários níveis, como poderia montar uma função recursiva para ir listando todos esses níveis um abaixo do outro ? Obrigado

Pessoal estava precisando imprimir um pedido 2x na mesma pagina A4, dividindo então a pagina ao meio, e vai ter pedidos com quantidade variável de itens. Obrigado

Pessoal vcs conhecem um banco ou sei la o que eles sao chamado QI Tech, um cliente esta precisando fazer boletos com esse pessoal ? obrigado

No provedor Giap a nota é enviada é recebida na prefeitura, e vem de retorno o xml anexado, como faço para imprimir ? Obs: no retorno consta um link que se acessado, baixa o pdf da nota fiz um consulta usando o exemplo consultar nfse por rps, consultou porem nao baixou o xml da nfs, deveria baixa-lo ? Obrigado retorno.txt

ola, sim informei dessa maneira q vc descreveu

Concordo Italo, veja que no provedor Giap que acertamos mes passado esse campo era obrigatório e foi uma das rejeições, e agora esta rodando certinho, vou ver com o pessoal do provedor, muito obrigado !

Não retornou erro, a nota foi aceita e esta disponível no site da prefeitura, na verdade meu cliente que reclamou e solicitou a inclusão dessa informação, já que ele incluía essa informação quando fazia a nota direto no site da prefeitura. Obrigado

Pessoal, analisando o xml do provedor Fiorilli a tag codigo cnae nao foi preenchido, estou passando pela propriedade Servico.CodigoCnae, esta correta a maneira de alimentar essa tag ? Obrigado

Acabei abandonando o ambiente de homologação deles, estou fazendo direto em ambiente de produção, e num topico meu, passei pro Italo os problemas de recepção, o problema maior é que a prefeitura q estou testando nao aceita cancelamento pelo site, somente presencial kkkk, com o preço da gasolina, ta ficando complicado kkk, brincadeira pessoal

oi Italo segue 380-lista-nfse-sinc-soap.xml

pessoal no provedor Giap estou pegando o retorno da seguinte maneira e esta funcionando: ACBrNFs.Emitir(CdsNotas1NUMERO.AsString,meAutomatico,False); if (ACBrNFs.WebService.Emite.Sucesso = True) then begin if (Length1(ACBrNFs.WebService.Emite.CodVerificacao) > 0) then begin CdsNotas1.Edit; CdsNotas1NFECHA.Value := Copy(ExtractFileName(ACBrNFs.NotasFiscais.Items[0].NomeArq),1,PosEx('-',ExtractFileName(ACBrNFs.NotasFiscais.Items[0].NomeArq))-1); CdsNotas1NFEPRO.Value := ACBrNFs.WebService.Emite.Protocolo; CdsNotas1NFEREC.Value := ACBrNFs.WebService.Emite.CodVerificacao; CdsNotas1NUMSER.Value := StrToInt(ACBrNFs.WebService.Emite.NumeroNota); CdsNotas1.Post; CdsNotas1.ApplyUpdates(0); end else ShowMessage('1-Erro ao enviar a Nota '); end; porem no provedor Fiorilli nao entra no primeiro IF (sucesso = True), como devo pegar o retorno desse provedor, tem diferença mesmo entre os provedores ? Obrigado

bom dia amigo obrigado pela resposta fiz isso e infelizmente no meu caso nao funcionou Abs

Pessoal tenho um cliente com varios computadores, usando gmail para enviar os emails, em apenas 1 computador da empresa retorna o seguinte erro: smtp error: unable to login, o mesmo usuario, mesma senha, ja desativei o antivirus, ja atualizei as dlls, apesar de que deixo as dlls na pasta do EXE, no servidor, os amigos tem alguma sugestão do que mais posso estar testando ? obrigado

Italo o pessoal do provedor pediu pra preencher o valor 101005 no campo cnae e deu certo. Muito Obrigado

Italo fiz da seguinte maneira e consegui pegar os retornos agora: ACBrNFs.Emitir(DM1Notas.CdsNotas1NUMNOT.AsString,meAutomatico,False); if (ACBrNFs.WebService.Emite.Sucesso = True) then begin if (Length1(ACBrNFs.WebService.Emite.CodVerificacao) > 0) then begin DM1Notas.CdsNotas1.Edit; DM1Notas.CdsNotas1NFECHA.Value := Copy(ExtractFileName(ACBrNFs.NotasFiscais.Items[0].NomeArq),1,PosEx('-',ExtractFileName(ACBrNFs.NotasFiscais.Items[0].NomeArq))-1); DM1Notas.CdsNotas1NFEPRO.Value := ACBrNFs.WebService.Emite.Protocolo; DM1Notas.CdsNotas1NFEREC.Value := ACBrNFs.WebService.Emite.CodVerificacao; DM1Notas.CdsNotas1NUMSER.Value := StrToInt(ACBrNFs.WebService.Emite.NumeroNota); DM1Notas.CdsNotas1.Post; DM1Notas.CdsNotas1.ApplyUpdates(0); end else ShowMessage('Erro ao enviar a Nota '); end; Por hora consegui enviar as notas q estavam no limite do prazo kkk. Muito Obrigado

sim, mandei todos os xmls referente a essa nota Obrigado 18436-env-lot.xml 18436-env-lot-soap.xml 18436-rec.xml 18436-rec-soap.xml 3521091723791600016256000000000018436-rps.xml

Gerando as notas pro provedor Giap esta gerando com um codigo de serviço 5250803, porem nao estou passando essa informação pro componente, passo as propriedades descritas abaixo, de onde pode estar vindo esse codigo ? Servico.ItemListaServico := 10.05 Servico.CodigoTributacaoMunicipio := 101005 Obrigado

sim, Italo percebi agora que comentou, mais isso quer dizer que não vou ter o xml, pra eu imprimir por exemplo, pegando pelo componente ? e por favor Italo teria como me auxiliar, como consigo o retorno, de que se a nota foi registrada com sucesso, numero do codigo verificador ? obrigado

Italo, obrigado mais uma vez !!! Registrou a nota no site da prefeitura, porem nao gerou o xml da nota, talvez alguma propriedade que eu não esteja marcando ? 18434-env-lot.xml 18434-env-lot-soap.xml 18434-rec.xml 18434-rec-soap.xml