Antonio Carlos L

Creio que aqui seja o local devido para essa postagem. Tenho um DataModule onde está o componente ACBrNFe existe no private a declaração FNFe : TNFe; Logo depois do XML ser lido é atribuído assim : FNFe := ACBrNFe.NotasFiscais.Items[0].NFe; O processamento é feito sem problema e é feito ACBrNFe.NotasFiscais.Clear; Entretanto quando leio outro XML e faço a nova atribuição FNFe := ACBrNFe.NotasFiscais.Items[0].NFe; Verifico que os valores que existiam em FNFe não são apagados quando é feito ACBrNFe.NotasFiscais.Clear; Como FNFe não é criado explicitamente não tenho como dar Free e não existe nesse nível Clear. No ACBR vi que são criados coleções e elas são excluídas quando se faz o Clear Alguém já teve que lidar com algo do tipo ? Obrigado.

Obrigado, @BigWings vou ver sim.

Caros, preciso carregar xml em um dataset em memoria, mas queria criar os fields do clientdataset em runtime. Qual classe e em qual(is) unit(s) eu deveria focar para extrair essas informações ? Muito obrigado.

Bastou acrescentar o caminho do certificado, a senha dele, e o numero de série que já estava. Vou pensar nessa mudança quando portar para linux.

Caros tive que fazer um emissor que roda como serviço em uma VPS. Quando rodo ele standalone nenhum problema, mas se coloco como serviço diz que não consegue falar com o provedor de criptografia que é o certificado que esta instalado no windows. O Certificado A1 esta com essa configuração apontado para o numero de série que esta registrado no windows. SSLLib = libWinCript CryptLib = cryWinCrupt HttpLib = httpWinHttp XmlSignLib = xslibXml2 Para usar como serviço eu teria que usar OpenSSL e apontar fisicamente para o arquivo do certificado ?

@Juliomar Marchetti tenho a inscrição do Dia do Acbr mas não consegui ver ontem, acessei e não vi onde consigo rever, não é possível ?

Caros, sempre procedo a inutilização numero a numero, nunca por faixa. Acontece que ou por latência, queda da internet ou demora na resposta da SEFAZ o numero é inutilizado mas não se obtém a resposta, quando se vai tentar inutilizar novamente vem a resposta "Ja existe pedido de Inutilizacao com a mesma faixa de inutilizacao". E ai é quando se consulta na SEFAZ esta lá, sendo necessário acertar manualmente. Existe uma forma de consultar a inutilização para corrigir de forma automática ? Obrigado.

Moderador, marque como resolvido. A StringList ao enviar como texto entre cada linha mandava #$D#$A isso quando a linha era ocupada totalmente era substituído por ; mas se a linha é variável cortava,. Obrigado a todos

@BigWings obrigado pelo retorno. No caso é um sistema especifico para um cliente e a nota será sempre impressa por ESCPOS . Veja se estou fazendo algo errado por favor S := TStringList.Create; S.Add('PROCON/RJ : Tel.151 Rua da Ajuda, 5 Centro - Rio de Janeiro '); S.Add('ALERJ : Tel.08002827060 Rua Primeiro de Março, s/n Praca XV RJ'); S.Add('sequencia de 6 linhas com exatos 60 caracteres incluindo espaços'); //// InfAdic.infCpl := S.Text; ( ao inspecionar o conteúdo todo o texto esta presente , mas ao gerar o XML simplesmente uma parte é cortada, não tem quebra de linha ou ; no texto //// finally FreeaNIL(S); FreeaNIL(T); end; Já que as linhas adicionais são informações relativas a entrega como referência e coisa do tipo, nada fiscal, eu pensei em logo após a emissão do cupom emitir logo abaixo esse texto pois ai sim poderia usar a formatação da ESCPOS, você acha que isso pode dar problema em relação a questões legais ?

@Juliomar Marchetti primeiro obrigado. Acabei fazendo duas perguntas em um único tópico, desculpe. a - Você sabe me dizer se é possível ao gerar o xml a tag <infCpl> manter todos os caracteres informados ou ela corta em 255 caracteres mesmo ? Gostaria de frisar que não estou enviando nenhum tipo de caractere diferente de alfabéticos e numéricos b - Desculpe não entendi "se estiver entre as tags remova elas senão vai tentar trocar e não achando vai limpar o campo" Isso quer dizer que se eu passar por exemplo <n>qualquer texto</N> ligaria o negrito ? Obrigado.

Caros, estou necessitando imprimir na NFCe ESCPOS algumas informações além das obrigatórias aqui no RJ. Monto tudo numa StringList e mesmo sendo criada corretamente ao passar para ela para InfAdic.infCpl := lMonta.Text nem todas as informações são impressas . No manual diz que a tag suporta 5000 caracteres parece que acaba havendo a limitação de 255 caracteres. É possível em ESCPOS passar formatação sem correr o risco de haver rejeição devido as tags <> ? Obrigado.

Resolvi @BigWings da seguinte forma : Unit2 ( data module ) // criado pelo form principal type TAtualizaTotal = procedure (pTotal, pTroco:Currency) of object; cdecl; private FAtualizaTotal : TAtualizaTotal; public property AtualizaTotal: TAtualizaTotal read FAtualizaTotal write FAtualizaTotal; Unit1 ( form principal ) private procedure SetDisplay(pTotal, pTroco:Currency); cdecl; evento onCreate do form principal Application.CreateForm(TDM, DM); DM.AtualizaTotal := @SetDisplay;

Diz que os parametros não correspondem

Amigos estou iniciando em Lazarus. Tenho um procedimento que funciona 100% em Delphi mas nem compila em Lazarus ( última versão ) Unit2 ( data module ) // criado pelo form principal type TAtualizaTotal = procedure (pTotal, pTroco:Currency) of object; private FAtualizaTotal : TAtualizaTotal; public property AtualizaTotal: TAtualizaTotal read FAtualizaTotal write FAtualizaTotal; Unit1 ( form principal ) private procedure SetDisplay(pTotal, pTroco:Currency); evento onCreate do form principal Application.CreateForm(TDM, DM); DM.AtualizaTotal := SetDisplay; simplesmente não compila Poderiam me dar uma luz por favor

Obrigado

Então @Juliomar Marchetti eu entrei em Projeto, Opções de Projeto , Opções do Compilador, Configuração e Alvo e mudei o modo de construção para 64 bits e compilou. @Daniel Simoes obrigado pelo retorno, você teria um link que eu pudesse ter como referencia para instalar esse Cross Compile ? Obrigado aos dois pela atenção

Desculpe, confesso que não havia atentado a essas recomendações. O estranho é que no 2.08 64bits ele rodava. Será que a versão anterior a 2.08 fosse 32bits e ficou ali o aquivo ? E desculpe a pergunta, eu consigo instalando par 32 bits compilar para 64 ? Obrigado pela atenção.

Bom dia a todos, Eu estava usando o Lazarus 2.08 64 bits no windows 10 normalmente. Removi o 2.08 e fiz uma instalação limpa do Lazarus 2.10 Conforme podem ver os pacotes foram instalado sem nenhum erro, e quando tento compilar o projeto tenho esse erro : Error: ppc386.exe can't be executed, error message: Failed to execute ""ppc386.exe" -MObjFPC -Scghi -O1 -g -gl -l -vewnhibq -FuC:\Lazarus\packager\registration\ -FUC:\Lazarus\packager\units\i386-win64\ fcllaz.pas Não existe nesta versão 2.10 esse pcc386.exe apenas o pccx64.exe No Delphi tem a questão dos LibraryPaths 32 e 64 seria algo do tipo no Lazarus ? Obrigado

Obrigado, eu estava bem longe mesmo ao tentar relacionar o VER12P ao VER120 do delphi, achei no .INC que a diretiva VER12P é para setar UNICODE , o tipo é que mudou https://wiki.lazarus.freepascal.org/User_Changes_3.2.0#TBlobData_opaque_type_reworked_to_TBytes Se eu fizer algo do tipo {$IFDEF LCL_FULLVERSION > 2010000} deve funcionar também . Muito Obrigado !!!!!

Pessoal procurei em https://www.freepascal.org/docs-html/prog/progch1.html o que seria essa condicional {$IFDEF VER12P} que deve ser algo parecido com o delphi VER120 etc, poderiam dar uma luz ? Com a mudança do Lazarus da 2.08 para 2.10 alguns pacotes pararam de funcionar e preciso ajustar Aparentemente ou alguns Tipos mudaram , não encontrei onde fala sobre isso e estou com erros do tipo : property AsBlob: TBlobData read {$IFDEF VER12P}GetAsBytes{$ELSE}GetAsString{$ENDIF} write SetAsBlob; Error: Illegal symbol for property access Ou essa diretiva precisa ser ajustada. Agradeço desde já

feito conforme orientação

Fiz a postagem aqui, mas movam onde entenderem melhor, Cenário : ACBr 20261 , Fortes 476, O Fortes deixou de compilar erros abaixo, e creio que mesmo que seja resolvido, o ACBr também estra afetado pois vários outros componentes estão dando erro de tipo property AsBlob: TBlobData read {$IFDEF VER12P}GetAsBytes{$ELSE}GetAsString{$ENDIF} write SetAsBlob;

Oi @walter faria eu abri o xml que vc postou, nele não existe a geração dessas tags, entretanto observei, e pode ser que nesse estado seja assim que os grupos COFINS e PIS que normalmente sai assim : -<PIS> -<PISAliq> ..... </PIS> -<COFINS> -<COFINSAliq> ..... </COFINSAliq> </COFINS> No seu XML está assim : -<PIS> -<PISOutr> ... </PISOutr> </PIS> -<COFINS> -<COFINSOutr> ... </COFINSOutr> </COFINS> Desculpe se não tiver relação.

Moderador feche o tópico, essas mesma linhas aparecem também em logout e removendo não existe a menor diferença, acho que seja código perdido.

Caros estou fazendo a integração com eFrete. Estou usando o exemplo como guia. No exemplo em Frm_ACBrCIOT Linhas 340 e 341 na operação login onde é solicitado o token existe essas duas linhas ObterOperacaoTransportePDF.CodigoIdentificacaoOperacao := '123'; ObterOperacaoTransportePDF.DocumentoViagem := '456'; Entretanto no XML de pedido essas tags não aparecem. Poderiam esclarecer essa necessidade ? Obrigado.