Marcelo Bill

Italo e demais Peço mais vez ajuda pra tentar implantar a minha NFSe Já configurei tudo que podia e que não podia, já tentei seguir o que voce me disse anteriormente mas continuo tendo o problema com esse erro URL não definida para :TNFSeGerarNFSe Meu provedor é SIAPNet, voce até já adicionou ele no Cidades.INI e tudo mais. Infelizmente estou patinando no gelo. Essas são as configurações do DataModule +--------------------------------------------------------------- With acbrNFSe.Configuracoes.Certificados do begin NumeroSerie :=dm.EmpresaCERTIFICADO.AsString; End; Path_NFSe :=LerIni('NFSE','PATHNFSe'); Path_RPS :=LerIni('NFSE','PATHRps'); Path_Ger :=LerIni('NFSE','PATHGer'); Path_SchemaS :=LerIni('NFSE','PATHSchemas'); With acbrNFSe.Configuracoes.Arquivos do begin AdicionarLiteral :=True; EmissaoPathNFSe :=True; SepararPorMes :=True; SepararPorCNPJ :=True; PathGer :=Path_Ger; PathSchemas :=Path_SchemaS; NomeLongoNFSe :=True; PathMensal :=GetPathGer(0); PathCan :=PathMensal; PathSalvar :=PathMensal; Salvar :=True; End; With acbrNFSe.Configuracoes.Geral do begin Salvar :=True; PathIniCidades :=Path_Local; PathIniProvedor :=Path_Local; CodigoMunicipio :=StrToInt(FormatFloat('00',dm.Empresa.FieldByName('CodUF').AsInteger)+FormatFloat('00000',dm.Empresa.FieldByName('CodMun').AsInteger)); UserWeb :=dm.Empresa.FieldByName('UsuarioWeb').AsString; SenhaWeb :=dm.Empresa.FieldByName('SenhaWeb').AsString; with Emitente do begin CNPJ :=dm.Empresa.FieldByName('cnpj').AsString; InscMun :=dm.Empresa.FieldByName('Municipal').AsString; RazSocial :=dm.Empresa.FieldByName('Razao').AsString; WebUser :=dm.Empresa.FieldByName('UsuarioWeb').AsString; WebSenha :=dm.Empresa.FieldByName('SenhaWeb').AsString; WebFraseSecr :=''; end; End; With acbrNFSe.Configuracoes.WebServices do begin Salvar :=True; Ambiente :=iif(dm.EmpresaAMBIENTE.AsInteger=0,taHomologacao,taProducao); Visualizar :=False; UF :=dm.Empresa.FieldByName('Estado').AsString; TimeOut :=5000; End; With acbrNFSe.Configuracoes.Geral do begin SSLLib :=libWinCrypt; SetConfigMunicipio; End; with acbrNFSe do begin if DANFSE <> nil then begin DANFSE.Logo := LerIni('NFSE','LOGOPREF'); DANFSE.PrestLogo := LerIni('NFSE','LOGO'); DANFSE.Prefeitura := dm.EmpresaPREFEITURA.AsString; DanfSE.PathPDF := Path_Local; DanfSE.TipoDANFSE :=tpPadrao; end; end; +------------------------------------------------------------------------ Aqui segue a forma que estou gerando e enviando {aqui eu preencho os dados da XML} MyLote :=dm04.NotaComRps.FieldByName('RPS').AsInteger; MyRps :=dm04.NotaComRps.FieldByName('RPS').AsInteger; dm00.acbrNFSe.Gerar(MyRps,MyLote); dm00.acbrNFSe.GerarLote(MyLote); //dm00.acbrNFSe.NotasFiscais.ValidarLote(MyLote,); dm00.acbrNFSe.EnviarSincrono(MyLote); //dm00.acbrNFSe.ConsultarLoteRps(MyLote); with dm00.acbrNFSe do begin rCodigo :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Codigo; rMsg :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Mensagem; rCorrecao :=WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ 0 ].Correcao; end; showmessage(rCodigo+' - '+rmsg+' - '+rCorrecao); o erro ocorre ao Gerar ou ao GerarLote, tanto com uma opção quanto a outra o erro ocorre. incrível, faz 3 anos que tento implantar essa nota, até então foi dificil descobrir que a Prefeitura de Pinda não tinha WS, agora que encontrei alguem na prefeitura que me respondeu a altura, não consigo avançar no caso. agradeço muito uma ajuda.

Daniel Eu de vorta ACBrETQPPLa.pas (Perfeito) não precisa mexer em nada, está funcionando corretamente no caso do Milimetro. agora eu determino 5,5 por exemplo e está sendo impresso à 5mm da esquerda e a 5mm do topo, perfeito. A única mudança mesmo é na ZPLII conforme post anterior. Espero que isso não se altere mais, já estou corrigindo meus modelos de etiqueta conforme essas configurações. Agora chega neh. das 8:00 as 1:08 da madrugada só vendo etiqueta, aja.. abraço a todos

Daniel Ebaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa Alterei a ComandoUnidade da ACBrETQZPLII.pas function TACBrETQZplII.ComandoUnidade: AnsiString; var a: Char; begin case Unidade of etqDots : a := 'd'; etqPolegadas : a := 'i'; else a := 'm'; end; // Result := '^MU'+a; //Result := ''; // Todos os comandos são convertidos para etqDots; end; e Removi todas as ConverterUnidade existente. (Bingo) problema resolvido na ZPLII Basta utilizar as medidas como antigamente era naquelas folhas quadriculadas onde a gente desenhava o relatório e depois escrevia o programa com base na linha e coluna onde continha o texto na mão. Agora, vou testar pra ver como ficou na Argox PPLa Daqui a pouco eu vorto

Daniel Mais um detalhe, voltei no tempo ACBr/AC (antes de Cristo) Eu usava dessa forma. zmemo.Lines.Add('^XA'); zmemo.Lines.Add('^MUm'); zmemo.Lines.Add('^LH1,1'); zmemo.Lines.Add('^FT3,3^A0N,3,3^FD'+LeftStr(dm.EmpresaFANTASIA.AsString,10)+'^FS'); zmemo.Lines.Add('^FT3,3^A0N,3,3^FD'+vCodigo+'^FS'); zmemo.Lines.Add('^FT1,4^AON5,5^FD'+vDescricao1+'^FS'); zmemo.Lines.Add('^FT1,6^AON1,5^FD'+vDescricao2+'^FS'); zmemo.Lines.Add('^FT1,8^AON1,5^FD'+vDescricao3+'^FS'); zmemo.Lines.Add('^FT1,10^AON1,5^FD'+'Original :'+vOriginal+'^FS'); zmemo.Lines.Add('^FT1,12^AON1,5^FD'+'Conversao:'+vConversao+'^FS'); zmemo.Lines.Add('^FT1,19,^BE,7,N,N,N^FD'+vBarra+'^FS'); zmemo.Lines.Add('^XZ'); Apenas adicionei o ^MUm conforme acima. Cara funciona direitinho, estou conseguindo fazer funcionar tudo em milimetros no caso ZPLII essa opção funciona sim, não sei nas demais. vou acionar novamente a opção no componente e desligar todas ConverterUnidades pra ver a m. que dá. se der certo, vou testar na Argox que tenho tambem daqui a pouco eu vorto

Daniel Me desculpa por não ser um gênio e não ter capacidade corrigir o problema no componente. A única coisa que posso dizer pra ajudar é que aparentemente o problema está ACBrETQClass.ConverterUnidade (entre calculos) que reflete diretamente em ACBrETQZPLII.ComandoCoordenadas assim como existe a diferença quando determino 3mm da esquerda e ela imprime a 10mm, existe também a definição da largura da etiqueta, pq se voce perceber na figura2, a segunda etiqueta lateral sai totalmente em branco, quando deveria ser preenchida conforme minha impressão. Sendo assim, em todas as functions que contenha aHorizontal e ou aVertical deve passar por essa conversão acredito eu. ImprimirTexto, ImprimirBarra, LinhaCaixa, ImrimirImagem, etc..

desculpa disse 60,60 quando deveria dizer 3,3 pelo que entendi voce determinou que seria 3mm da esquerda e 3mm do topo no caso do Biscoito, o que mesmo assim da essa diferença grande

Daniel Veja se entende o que estou fazendo Figura1: Largura de cada Etiqueta 50mm 2 Colunas Largura entre as etiquetas 3mm Codigo=Config do Campo Codigo que convertendo seria ImprimirTexto(ONormal, Fonte, FonteH, FonteV, LinhaV(mm), ColunaH(mm), CODIGO, 0); Figura2: Assim vou mostrar que mesmo colocando na Linha(1), Coluna(2), ele dá uma diferença de 7mm Figura3: Com aquelas conversões eu consigo fazer isso, mas não etá seguro, varia muito se eu mexer em tamanho, espaços etc. Figura4: Usando o Demo, voce mandou na Linha(60), Coluna(60), o que na realidade ficou com 10(mm) da esquerda e 8mm do topo da etiqueta. Config no Demo EtqMilimetro

Daniel Perai. depois que atualizei o componente todo, agora, o Demo está dando sinal de vida. Tá meio grandão as fontes mas vou verificar agora tudo denovo. De volta a novos testes. Assim que terminar eu grito abraço

Guenta ai Atualizei o componente e da dando um erro Fortes D:\CD\ACBr\trunk2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFCe\Fortes\ACBrDANFCeFortesFr.pas(1371) Error: Undeclared identifier: 'UnlimitedHeight' vou tentar descobrir. Reinstalar o componente e testar o Demo novamente

Bom dia aTodos Daniel Me perdoe na demora da resposta. Estive meio acamado. hoje estou testando aquela ACBrSerial.zip que voce postou aqui e disse inclusive que o demo também estava corrigido de acordo com o teste online da ZPLII. Putz, agora ferrou de vez. não testei ainda a PPLA. Com relação a impressora Zebra S4M, digo que ela realmente não é compativel com EPL2 em nenhuma das resoluções. Fiz o teste com o proprio Demo. ZPLII pra conseguir imprimir alguma coisa, tive que criar variaveis de fator de multiplicação pra chegar no milimetro desejado. Exemplo: aConversaoW :=0.3500; (50mm * 0.3500) corresponde a largura da etiqueta aConversaoH :=0.3450; (3mm * 0.3450) corresponde 3mm da esquerda da etiqueta aConversaoV :=0.3900; (3mm * 0.3900) corresponde 3mm do topo da etiqueta aConversaoB :=0.4270; (7mm * 0.4270) corresponde 7mm da Altura da barra Mas eu fiz isso só pra tentar ajudar a encontrar o problema, por favor, NÃO siga essas medidas pra fazer quisquer conversões, pois mesmo com essas funcionando, caso eu mude um linha ou outra, dê um espaço maior ou menor entre uma linha e outra, as conversões já não seguem da mesma forma. Na ZPLII também testei com o demo e deu o mesmo problema. Só lembrando, ainda estou com a S4M e tenho uma Argox OS214-Plus, ainda estou à sua disposição se quisermos resolver isso de vez. De outra forma, vou manter a Unit como estava antes dessas Units que voce postou aqui. Ou quem sabe, desistir do milimetro e mudar toda minha aplicação para Polegada. O problema é que vou ter que praticamente criar a etiqueta pra cada usuário, coisa que eu desejei evitar quando desenvolvi esse Construtor de etiquetas. Tenho dois sistemas, em cada sistema tenho aprox 22 modelos de etiqueta diferente, por isso desenvolvi esse Construtor para que esses modelos sejam tratados como registros no banco de dados e cada usuário pode se adequar àquele que melhor lhe convir ou criar seu proprio modelo. abraço

Ok Daniel Obrigado por responder, vou testar suas alterações

Boa noite Daniel Só lembrando, eu estou com uma S4M da zebra aqui comigo, ganhei mais uma semana pra ficar com ela. Se te interessar, posso ir até Tatui e levar a impressora pra voce testar o que precisar... O que voce acha ? O único problema é que não posso deixar a impressora com voce, no máximo, posso levar, deixar ai com voce durante o dia todo, dormirei em Tatui e no dia seguinte talvez o dia todo também. Digo isso porque estou no Vale do Paraíba a 300km. Estou a sua disposição. Se concordar com isso, na terça-feira dia 30 estarei ai. abraço

Oia eu mais uma vez Esquece tudo ACBrDownload Funciona perfeitamente, acho que foi apenas uma confusão no preenchimento das propriedades. Vou deixar claro aqui procedure TFormulario.acao_Baixar_SchemasExecute(Sender: TObject); Try With Baixar do begin Protocolo :=protHTTP; DownloadDest :='c:\pasta_para_destino_do_arquivo_que será_baixado'; DownloadNomeArq :='nome_do_arquivo_no_site.rar'; DownloadUrl :='https://www.dominio.com.br/pasta/subpasta/nome_do_arquivo_no_site.rar'; StartDownload; end; Except on E:Exception do Begin Showmessage('Erro '+e.Message); Exit; End; end; Controle de Progresso (BytesDownloaded deve ser uma variavel Integer Global) procedure TFormulario.BaixarHookMonitor(Sender: TObject; const BytesToDownload, BytesDownloaded: Integer; const AverageSpeed: Double; const Hour, Min, Sec: Word); var sConnectionInfo: string; begin pb.Position := BytesDownloaded; sConnectionInfo := sConnectionInfo + ' - ' + Format('%.2d:%.2d:%.2d', [Sec div 3600, (Sec div 60) mod 60, Sec mod 60]); sConnectionInfo := FormatFloat('0.00 KB/s' , AverageSpeed) + sConnectionInfo; sConnectionInfo := FormatFloat('###,###,##0', BytesDownloaded / 1024) + ' / ' + FormatFloat('###,###,##0', BytesToDownload / 1024) +' KB - ' + sConnectionInfo; lbStatus.Caption := sConnectionInfo; end; procedure TFormulario.BaixarHookStatus(Sender: TObject; Reason: THookSocketReason; const BytesToDownload, BytesDownloaded: Integer); begin case Reason of HR_Connect : begin Pb.Position := 0; end; HR_ReadCount : begin Pb.Max := BytesToDownload; Pb.Position := BytesDownloaded; end; HR_SocketClose : begin case Baixar.DownloadStatus of stStop : begin Pb.Position := 0; lbStatus.Caption := 'Download Encerrado...'; end; stPause : lbStatus.Caption := 'Download Pausado...'; stDownload : Begin lbStatus.Caption := 'Download Finalizado com Sucesso'; Pb.Position := 0; Pb.Max :=0; end; end; end; end; end; A realidade é que a descrição das propriedades não trazem a informação adequada, em DownloadURL eu estava entendendo que deveria ser informado apenas a URL, afinal o nome do arquivo de origem já existe na propriedade DownloadNomeArq Portanto Caso encerrado. Peço desculpas por não ter compreendido o funcionamento, uma vez que já havia usado o ACBrDonwload apenas como protFTP. abraço, boa a noite todos e por hoje chega. ufa Graças a Deus. menos um problema na minha vida.

Daniel Obrigado pela dica do HTTPSend. Testei aqui, funciona bonitinho, mas não tem controle de progresso. Fiz var arquivo:TStringlist; begin with THTTPSend.Create do begin HTTPMethod('GET','https://www.dominio.com.br/pasta/subpastaadmgeral.txt'); arquivo:=TStringlist.Create; arquivo.LoadFromStream(Document); arquivo.SaveToFile('d:\delphi\aplicacao\admgeral.txt'); end; end;

Daniel obrigado por responder, já imaginava isso, diante de algumas perguntas no forum e sem respostas. Tudo bem posso tentar usar a Synapse, só tem uma situação. Até semana passada, meu site estava num provedor HTTP:// ai troquei o provedor e nesse novo, por conta do meu projeto, meu site passará a ficar no modo seguro HTTPS:// Já tentei com o acbrDownload, IdHTTP e ambos me trazem um erro de OIHandler Invalid ISS, algo do tipo. já adicionei o IOHandle mas não tenho conhecimento suficiente para configura-lo, pois, depois de adicionar, o erro passou a ser falta de DLL. Então coloquei na pasta da aplicação as Dlls libeay e ssleay, mas o erro persiste. Pela synapse eu consigo fazer download usando a URL HTTPS:// ???? Estou usando idFtp pra fazer meus downloads, mas é um saco ficar configurando toda a Ftp, pois tenho várias situações de Downloads dentro da aplicação. Seria ótimo se o AcbrDownload funcionasse, pois ele tem controle de progresso. (O comentário do Waldir Paim diz que o .RAR está imcompatível, no entanto o aCBRDowload foi feito para efetuar Downloads e não querer descompactar um arquivo .RAR. Não entendo o motivo do erro em relação a incompatibilidade) Fazer o Download é fácil demais. alguns casos de Downloads rapidos uso UrlDownloadFile, mas também não controle de progresso. Neste momento estou quebrando a cabeça pra montar uma Função assim: function DownFTP(aPasta, aOrigem, aDestino:String; aBarra:TProgressBar):Boolean; Var cpnFtp:TIdFtp; Begin cpnFtp:=TIdFtp.Create(nil); With cpnFtp do begin Disconnect; Host :=NomeDoHost; Port :=21; Username :=NomeDoUsuario; Passive :=True; Password :=NomeDaSenha; OnWorkBegin :=DownFtp1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); OnWork :=DownFtp2Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); OnWorkEnd :=DownFtp3WorkEnd(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); Connect(True); if not Connected then begin Application.MessageBox('Não foi possível Conectar','Erro',mb_ok+mb_IconError); Exit; end; ChangeDir(aPasta); Try bytesToTransfer := Size(aOrigem); Get(aOrigem,aDestino,True,True); Result:=True; Except On E:Exception do begin Result:=false; Application.MessageBox(pchar(e.Message),'Erro',mb_ok+mb_IconError); end; end; Disconnect; end; End; Tá funcionando bonitinha, mas não consigo associar OnWorkBegin, OnWork, OnWorEnd;. Se conseguisse já não dependeria do HTTPS, embora FTP seja um pouco mais lento que HTTP/HTTPS Praticamente estou escrevendo uma função semelhante ao AcbrDownload kkkk Synapse dá condição de baixar HTTPS ? Seria mais fácil aprender como associar OnWorkBegin, etc.. ? Seria possível usar idHTTP vinculado ao Handler e deixar a DLL na pasta da aplicação ? Qual DLL é essa ? Qual versão ? Que bom seria se alguém pudesse dar essa força pra nós. Eu adoraria ajudar, mas como já disse, meu conhecimento em componentes é quase nada.

Pessoal Uso D7, estou tentando fazer uso do ACBrDownload, pelo que vi nos posts anteriores, está com o mesmo problema. Meu ACBr foi atualizado em 18/01/2018 Ele executa rapidinho, cria o arquivo Exemplo: Arquivo.rar.part e não executa nada quando ligado a barras de progresso, alem de travar a aplicação. Testei no ACBrDownload Demo, e dá exatamente o mesmo problema. alguem já passou por isso ?

Ultimo detalhe, em relação a posição Vertical (linha) está perfeito, se informo que quero que seja impresso a 2mm do topo ele corresponde, com relação Horizontal, se informo que quero que seja impresso a 6mm da Esq, ele imprime a 12mm, ou seja, ele ta dobrando a medida. Fiz a gambiarra e dividi por 2 todas as informações que se referem a medida horizontal. Isso inclui todos os tipos que envolvem essa medida. Mas não vou disponibilizar minha aplicação dessa forma, vou aguardar suas possíveis correções. Se não conseguirmos fazer funcionar onde mm vale mm, então manteremos as RTIs (Recurso Técnico improvisado) Abraço

Daniel boa tarde É o seguinte, depois muito testes, cheguei a conclusão em relação a AcbrEtqZplII.Pas: a- Melhor resolução para Zebra ZPLII é 600 dpi, pois as demais, o componente não consegue acompanhar a qualidade principalmente no tange o código de barras; b- Nessa resolução, a etqMilimetros funciona adequadamente, já nas demais resoluções, se voce define 1 mm ela não corresponde na impressão; c- Conforme o último post, não consegui resolver, a solução foi desabilitar, voce seria mais capaz do que eu pra pensar nesse caso (obs*) obs*: o acbrEtq tem duas funções ImprimirTexto(ComandoFonte), uma recebe Fonte:Integer, a outra recebe Fonte:String, no meu caso, eu mandei a Fonte=10 ou 11 etc, ai bate na exception, quando eu mando Fonte='10' ou '11', passa pela exception porém a impressora não acata a fonte como A, B, C, etc., ela imprime sem com a Fonte A; d- Em relação a altura da Barra, na função ComandoBarras, eu removi a ConverterUnidade deixando apenas IntToStr(aAlturaBarras) + ',' + e funcionou perfeitamente; e- Em relação a Função ComandoLinhaCaixa, também removi todas as ConverterUnidade deixando o valor originale funcionou de acordo, no entanto, a espessura Horizonta e vertical, deixei com 0 (zero) e ainda ficou grossa conforme a imagem. Se quiser fazer algo para que eu possa testar aqui é só avisar. Estarei com a impressora Zebra S4M até sexta feira.

Daniel boa tarde É o seguinte, depois muito testes, cheguei a conclusão: a- Melhor resolução para Zebra ZPLII é 600 dpi, pois as demais, o componente não consegue acompanhar a qualidade principalmente no tange o código de barras; b- Nessa resolução, a etqMilimetros funciona adequadamente, já nas demais resoluções, se voce define 1 mm ela não corresponde na impressão; c- Conforme o último post, não consegui resolver, a solução foi desabilitar, voce seria mais capaz do que eu pra pensar nesse caso (obs*) obs*: o acbrEtq tem duas funções ImprimirTexto, uma recebe Fonte:Integer, a outra recebe Fonte:String, no meu caso, eu mandei a Fonte=10 ou 11 etc, ai bate na exception,

Daniel boa noite. Encontrei a primeira divergência no acbrETQZPLII.pas Em TacbrETQZPLII.ComandoFonte Voce está bloqueando a funcionalidade criando uma Exception onde Caso o cFonte não esteja dentro de ['0'..'9','A'..'Z'] Porem, no AcbrETQ.ImprimirTexto voce está mandando, quando a fonte for >=10, cFonte := Chr(55+Fonte) //'A'..'Z' Bom, se usei uma fonte 15 por exemplo, o cFonte teria o resultado de Chr(55+15)= Chr(70) = 'F', ou seja, está dentro de A..Z, mas não entendi porque a Excepion foi disparada; Então eu desabilitei as linhas if (aMultVertical > 10) then raise Exception.Create('Multiplicador Vertical deve estar entre 1 e 10'); if (aMultHorizontal > 10) then raise Exception.Create('Multiplicador Horizontal deve estar entre 1 e 10'); cFonte := PadLeft(aFonte,1,'A')[1]; //if not CharInSet(cFonte, ['0'..'9','A'..'Z']) then // raise Exception.Create('Fonte deve "0" a "9" e "A" a "Z"'); Result := '^CF' + cFonte + IntToStr(Max(aMultVertical,1)) + ',' + IntToStr(Max(aMultHorizontal,1)); Depois disso deu certo, está imprimindo como se fosse a letra "F" ou se eu colocar a Fonte =10(A), 11(B), 12(C), 13(D), 14(E), 15(F) etc... Agora, estou tentando descobrir por que, usando o etqMilimetro, exemplo Vertical=2 ele imprime a 4 milimetros do topo da etiqueta e horizontal=3 ele imprime a 6 milimetros da esquerda da etiqueta; Outra coisa, eu determino o Tamanho da Etiqueta, assim como minha etiqueta tem 50x30 (mm), ou seja é uma variavel que informo 50, pois no caso de 2 colunas, a posição inicial da coluna à direita, deveria ser de 50(mm)+Horizontal=3(mm). Mas essa configuração manda a coluna da direita pra bem longe. estou ainda analisando o caso mais tarde informo mais outras situações.

Oxi, ajudou e muito. Vou estudar tudo e todas as opções com relação a Gerar e EnviarSincrono, a ideia é que possamos enviar e já imediatamente receber o OK da Prefeitura assim como na NF-e Muito obrigado Ítalo, espero que eu consiga andar com minhas próprias pernas depois dessa Aula.

Meu Deus. Não sei mais o que faço. Já fiz aparecer todos os dados do prestador, preenchi a tags do PrestadorDeServiços, a nota ta sendo impressa bonitinha, mas na hora de enviar continua a mesma coisa o mesmo erro "URL não definida para TNfseEnviarLoteRps"

Eu estava com um problema ao imprimir a NFSe. Ai o Juliomar resolveu o problema. agora estou conseguindo imprimir. Mas percebi uma coisa, não está aparecendo os dados do prestador que no caso sou eu, acredito que esteja faltando preencher a XML de forma correta veja essa foto da nota, me diga se ta errada.

To tentando executar o Demo da NFSE e quando abre o projeto da falta de uma propriedade "Property ExplicitLeft does not exist", então eu ignoro todos, depois quando tento executar ocorre um erro diz que falta RLINK32.DLL e em outra hora "Erro interno LA30" Será que tem algum demo já compilado (EXE) ?

Boa tarde Ítalo Caramba, to rodando como peão aqui. preciso saber qual é propriedade que armazena essa "URL não definida" A coisa parece ser muito simples mas não acho nada. Vou configurar o Demo com as informações que tenho logo volto com mais informações