Antonio Carlos L

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.

Unit Frm_ACBrCIOT; procedure TfrmACBrCIOT.btnCriarEnviarClick(Sender: TObject); linha 1095 {$if CompilerVersion < 23} MemoDados.Lines.Add(IntToStr(TipoCarga.Codigo) + ' - '+ TipoCargaToStr(TipoCarga.Descricao)); {$else} MemoDados.Lines.Add(TipoCarga.Codigo.ToString + ' - '+ TipoCargaToStr(TipoCarga.Descricao)); {$IfEnd} para adequar a Delphis mais antigos

Oi foi erro de digitação meu, estava SYNA*.dcu veja que as DCUs do SynEdit se chamam SynAuto* e por isso são apagadas. Compreendo as implicações se ele for rodado dentro do raiz, abraço e obrigado.

Primeiramente parabéns pelo ótimo trabalho. Hoje ao executar o ApagaACBR.bat descobri que algumas dcu do SynEdit foram apagadas pois o bat vai ao raiz do disco e SYN*.dcu acabava fazendo isso. A partir do ApagaACBR.bat criei outro .bat que pega outras DCUs que não estão sendo apagadas. @echo off del ACBr*.bpl ACBr*.dcp DCLACBr*.bpl DCLACBr*.dcp PCN*.bpl PCN*.dcp SYNA*.bpl SYNA*.dcp /s del a*.dcu b*.dcu c*.dcu d*.dcu f*.dcu g*.dcu h*.dcu i*.dcu j*.dcu l*.dcu m*.dcu n*.dcu o*.dcu p*.dcu r*.dcu s*.dcu t*.dcu u*.dcu /s Esse .bat não volta ao raiz do disco, ele varre os subdiretórios abaixo dele e se os componentes forem instalados dentro de onde foi baixado Abraços e obrigado a toda a equipe.

Você diz "Se o Regime for normal não da este erro, mas mantendo seu Regime que é o Simples Nacional da este erro:" No xml postado vc esta usando a ST 00 para ICMS que é de regime normal