Daniel Simoes

Não há nenhum hotel próximo do Local.. (para uma caminhada)... Mas não será difícil chegar no local do Evento, através de Uber

https://www.google.com/maps/search/Hotéis/@-23.4428661,-47.5889043,12z/data=!3m1!4b1!4m8!2m7!3m6!1zSG90w6lpcw!2sParque+Tecnológico+de+Sorocaba+-+Av.+Itavuvu,+11777+-+Jardim+Santa+Cecilia,+Sorocaba+-+SP,+18078-005!3s0x94c5f65acba77f91:0x5857bfd362b63041!4m2!1d-47.4784705!2d-23.3868886

O portal da ACBrLib ainda está em construção... provisoriamente, subi o Help em: https://acbr.sourceforge.io/ACBrLib/PosPrinter/ACBrLibPosPrinter.html

Apenas para atualizar o tópico... já temos a ACBrLibPosPrinter disponível para Download https://www.projetoacbr.com.br/forum/files/category/35-acbrlibposprinter/

Analisando o código, me pareceu idêntico a implementação de balToledo2180 Então creio que não seja necessário adicionar um novo modelo... Repare ainda, que as classes do ACBrBAL sofreram um Refactoring, e a implementação do Post original está defasada... então talvez seja necessário atualizar (com cuidado) os seus fontes

O Lazarus/FPC facilita muito isso.. cbxBOLImpressora.Items.Clear; cbxBOLImpressora.Items.Assign(Printer.Printers); Ou seja, Printer.Printers retorna uma Lista com as impressoras do Sistema... seja em Windows ou Linux... GetPrinters, em Windows, irá evocar o método abaixo: //Enum all defined printers. First printer it's default procedure TWinPrinter.DoEnumPrinters(Lst: TStrings); var Flags : DWORD; Level : DWORD; PrtCount : DWORD; Needed : DWORD; Buffer : PByte; InfoPrt : PByte; i : Integer; DefaultPrinter : string; PDev : TPrinterDevice; TmpDevModeW : PDeviceModeW; PrtStr : string; BoolRes: LCLType.BOOL; B: Boolean; begin {$IFDEF NOPRINTERS} Lst.Clear; exit; {$ENDIF} DefaultPrinter := GetDefaultPrinter; Flags := PRINTER_ENUM_CONNECTIONS or PRINTER_ENUM_LOCAL; Level := 2; //Evaluate buffer size Needed := 0; EnumPrintersW(Flags, nil, Level, nil, 0, @Needed, @PrtCount); if Needed <> 0 then begin GetMem(Buffer, Needed); Fillchar(Buffer^, Needed, 0); try //Enumerate Printers BoolRes := EnumPrintersW(Flags, nil, Level, Buffer, Needed, @Needed, @PrtCount); if BoolRes then begin InfoPrt := Buffer; for i := 0 to PrtCount - 1 do begin if Level = 2 then begin PDev := TPrinterDevice.Create; PDev.Name := UTF8Encode(widestring(PPRINTER_INFO_2W(InfoPrt)^.pPrinterName)); PDev.Driver := UTF8Encode(widestring(PPRINTER_INFO_2W(InfoPrt)^.pDriverName)); PDev.Port := UTF8Encode(widestring(PPRINTER_INFO_2W(InfoPrt)^.pPortName)); TmpDevModeW := PPRINTER_INFO_2W(InfoPrt)^.pDevMode; if (TmpDevModeW <> nil) then begin // the devmode structure obtained this way have two problems // 1. It's not the full devmode, because it doesn't have // the private info // 2. It's not initialized with the current settings and // have not extra settings at all. // // PDev.DevMode:=PPRINTER_INFO_2(InfoPrt)^.PDevMode^; PDev.Device := UTF8Encode(widestring(TmpDevModeW^.dmDeviceName)); PDev.DefaultPaperName := UTF8Encode(widestring(TmpDevModeW^.dmFormName)); PDev.DefaultPaper := TmpDevModeW^.dmPaperSize; PDev.DefaultBin := TmpDevModeW^.dmDefaultSource; end else begin PDev.Device:=''; PDev.DefaultPaper:=0; PDev.DefaultBin := 0 end; PrtStr := PDev.Name; B := CompareText(PrtStr, DefaultPrinter)<>0; if B then Lst.AddObject(PrtStr,PDev) else begin Lst.Insert(0,PrtStr); Lst.Objects[0]:=PDev; end; Inc(InfoPrt,SizeOf(_PRINTER_INFO_2W)); end; end; end; finally FreeMem(Buffer); end; end; end;

Não há problema algum... e com certeza nossos consultores tentarão lhe ajudar... Movi para a área aberta, pois assim todos os usuários do fórum, podem ajudar na resposta...

Em Viracopos, creio que Uber seja uma opção... mas talvez o melhor a fazer, seja alugar um carro...

Movendo para o fórum aberto, pergunta fora do escopo do SAC

Creio que todas as perguntas sobre o Layout em TXT da NFe 4.0 já foram respondidas... Fechando o tópico

Nao há....Veja os Demos na pasta Exemplos...

Atualizou os fontes ?

O ACBr é OpenSource... portanto não cabe apenas aos desenvolvedores do ACBr dar continuidade ao mesmo... Toda a comunidade pode e deve ajudar... Fique a vontade para implementar e anexar as Units modificadas para avaliação

Aparentemente os diretórios padrões estão errados: const CACBrTEFDTidas_ArqTemp = 'C:\TEF_DIAL\req\intpos.tmp' ; CACBrTEFDTidas_ArqReq = 'C:\TEF_DIAL\req\intpos.001' ; CACBrTEFDTidas_ArqResp = 'C:\TEF_DIAL\resp\intpos.001' ; CACBrTEFDTidas_ArqSTS = 'C:\TEF_DIAL\resp\intpos.sts' ; CACBrTEFDTidas_GPExeName = 'C:\TEF_DIAL\Gcard.exe' ; Você não conseguirá deixar dois G.P. monitorando a mesma pasta, com os mesmos nomes de arquivos... Como um G.P. saberia se o arquivo é para ele ou não ??

Não anexe um DOCX... (nem todos usam MS-Word) Se quer anexar imagens no tópico, basta usar Ctrl-C, Ctrl-V

Sem analisar todo o código, não consigo saber se você inseriu a nova classe no componente, de forma correta...

SIM... use: ACBrNFe1.NotasFiscais.LoadFromIni(); ACBrNFe1.NotasFiscais.GerarIni();

Sim, é isso mesmo... Observe por exemplo, que temos a Classe TEFDial e TEFDisc... Observe que a TEFDisc praticamente não tem código, a não ser o código de inicialização e setup dos diretórios... A TEFDisc era usada pela TecBan, e a TEFDial era usada por RedeCard, Visanet e Amex... então em alguns cenários, era necessário manter ambos GPs em execução...

Não... o único layout que estamos seguindo é o disponível em: https://sourceforge.net/p/acbr/code/HEAD/tree/trunk2/Doctos/Manuais/Layout_TXT_NFe_NFCe_4_00.pdf?format=raw

Acho que seria necessário modificações nos fontes do Fortes... Penso que poderia ser criado um novo Filtro para o Fortes

Você não pode chamar: ACBrNFe1.DANFE.ImprimirDANFEPDF ?

O correto seria criar uma nova Classe de Gerenciador Padrão, em TACBrTEFD... Justamente por esse motivo, existem vários Gerenciadores Padrões, que podem ser acionados simultaneamente, no componente...

XMLSignLib: sxLibXml2 Então você também depende das DLLs da LibXML2 Pasta: \ACBr\DLLs\LibXml2

A WinCrypt é nativa do Windows... depende mais de qual Lib você configurou para assinar o XML...

Qual é exatamente o problema ? ele não gera o PDF ? ocorre algum erro ?