-
Total de ítens
44 -
Registro em
-
Última visita
Community Answers
-
wilsonaaugusto's post in Elemento 'cPaisPrestacao' na RPS para a cidade de São Paulo was marked as the answer
Atualizando:
1 - No ISSSaoPaulo.GravarXml.pas, mudei
if VersaoNFSe = ve200 then
begin
if NFSe.Servico.CodigoMunicipio <> '' then
LNFSeNode.AppendChild(AddNode(tcStr, '#1', 'cLocPrestacao', 7, 7, 1,
NFSe.Servico.CodigoMunicipio, ''))
else
LNFSeNode.AppendChild(AddNode(tcStr, '#1', 'cPaisPrestacao', 2, 2, 1,
CodIBGEPaisToSiglaISO2(NFSe.Servico.CodigoPais), ''));
end;
por
if VersaoNFSe = ve200 then
begin
if NFSe.Servico.CodigoMunicipio = '' then
NFSe.Servico.CodigoMunicipio := NFSe.Tomador.Endereco.CodigoMunicipio;
if NFSe.Servico.CodigoMunicipio <> '' then
LNFSeNode.AppendChild(AddNode(tcStr, '#1', 'cLocPrestacao', 7, 7, 1,
NFSe.Servico.CodigoMunicipio, ''))
else
LNFSeNode.AppendChild(AddNode(tcStr, '#1', 'cPaisPrestacao', 2, 2, 1,
CodIBGEPaisToSiglaISO2(NFSe.Servico.CodigoPais), ''));
end;
e no ISSSaoPaulo.LerXml.pas, mudei
if NFSe.Servico.CodigoMunicipio = '' then
NFSe.Servico.CodigoMunicipio := NFSe.Prestador.Endereco.CodigoMunicipio;
por
if NFSe.Servico.CodigoMunicipio = '' then
NFSe.Servico.CodigoMunicipio := NFSe.Tomador.Endereco.CodigoMunicipio;
Com isso o xml do RPS está sendo gerado e enviado corretamente. Mas não acho que é a solução final, posso estar preenchendo as propriedades do componente de maneira errada.
Mas queria finalizar este tópico.
Obrigado.
-
wilsonaaugusto's post in Dá para fazer múltiplos relatórios no Fortes Reports ? was marked as the answer
Bom dia!
É isso mesmo. Usei a propriedade NextReport para encadear os TRLReport necessários. Agora é cria a lógica entre as vias que preciso.
Obrigado pela atenção.
Marquei a minha resposta como solução, mas quem deu a solução mesmo foi o Daniel.
Muito obrigado!
-
wilsonaaugusto's post in Delphi 7 e a Bling API v3 was marked as the answer
Obrigado!
Estava seguindo as instruções do exemplo. Já fiz o cadastramento da minha aplicação. Coloquei um link de callback (que é obrigatório). Na verdade, criei um link fictício pois não tenho página para a aplicação.
Como tenho que usar o Delphi 7, fiz a instalação do Indy 10 e montei o código que coloco anexo. Nos meus testes, consigo abrir a página de login em um TWebBrowser e capturo o link de callback. Com isso, obtive o "authorization code" que irei usar para obter os tokens.
O TWebBrowser não dá uma aparência bonita para a página, mas é o que tenho... rsrsrs
Agora preciso adaptar isso na minha aplicação. Quando der, vou ver como migrar para uso do Synapse.
Agradeço a atenção.
BlingAuthorizationcode.txt
-
wilsonaaugusto's post in Informação Posto no Banco Sicredi was marked as the answer
Bom dia!
Acabei resolvendo da seguinte maneira: coloquei o valor 68 em 'ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito' mesmo. O calculo do digito do Nosso Numero ficou correto.
Obrigado
-
wilsonaaugusto's post in Mudando do ACBrNFSe para o ACBrNFSex was marked as the answer
Sim, eu vi este trecho de código. Notei o uso do count para erros e Alertas.
E, pelo que entendi, usa o LoadXML para "pegar" os dados das notas.
Como estou dando manutenção em código herdado, achei que teria algo similar ao que já tenho feito (ex. if NF.NfseCancelamento.DataHora <> 0 then) para não ter que mudar as regras já estabelecidas aqui.
Desculpa não prestei atenção no trecho "memoLog.Lines.Add("
Vou ver como adapto aqui.
Obrigado
