johnbh3

procedure SetDefaultPrinter(PrinterName: String); var I: Integer; Device : PChar; Driver : Pchar; Port : Pchar; HdeviceMode: Thandle; aPrinter : TPrinter; begin Printer.PrinterIndex := -1; getmem(Device, 255); getmem(Driver, 255); getmem(Port, 255); aPrinter := TPrinter.create; for I := 0 to Printer.printers.Count-1 do begin if Printer.printers[i] = PrinterName then begin aprinter.printerindex := i; aPrinter.getprinter (device, driver, port, HdeviceMode); StrCat(Device, ´,´); StrCat(Device, Driver ); StrCat(Device, Port ); WriteProfileString(´windows´, ´device´, Device); StrCopy( Device, ´windows´ ); SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@Device)); end; end; Freemem(Device, 255); Freemem(Driver, 255); Freemem(Port, 255); aPrinter.Free; end; Pessoal boa noite, peguei este código no google, ele funciona. Só que eu tenho um pequeno problema; Eu tenho windows impressoras com nome PDF24, Fax, Daruma Esta PDF24 se eu faço SetDefaultPrinter('PDF24) - OK funciona Porém em nosso sistema temos um cadastro de impressora onde colocamos as portas Então nome do compartilhamento da impressora PDF24 e DANFE_PDF, então eu queria saber se existe algum funcao que retorne o nome das impressoras com seus compartilhamentos, dai eu conseguiria aplicar a SetDefaultPrinter.

! ----------------------------------------! ! SEM VALOR FISCAL ! ! ----------------------------------------! ! ! E CONFERENCIA TESTEE ! ! ---------------------------------------- ESTE e E TIPO EXPANDIDO

Ola Pessoal tenho um TXT que falamos direto com a porta da impressora. Tem opção de enviar direito ou regrar um TXT Quando gerado o TXT ele fica assim ! ----------------------------------------! ! SEM VALOR FISCAL ! ! ----------------------------------------! ! ! E CONFERENCIAE ! ! ---------------------------------------- Eu consigo pegar o conteúdo deste TXT e jogar de volta pro Fortes ou outro de forma que ele fica negrito automático baseado no que esta no TXT?

Pessoal, eu já vi uma configuração antes que consegue por edits abaixo da coluna do cxGrid para pesquisa, embaixo de cada coluna. Alguém sabe qual propriedade?

Bom dia Eu até tenho, pensei que existisse um emulador pra cenário com suporte, essas coisas. Mas obrigado pessoal! Se quiserem fechar o post.

Olá Bom dia, Pessoal existe emulador de impressora não fiscal?

Pessoal Boa tarde Estou mechendo com Horse e estou tendo um retorno do seguinte: ESTE ERRP >>>> Microsoft MSXML is not installed Passo este JSON { "teste1": 1, "teste2": "01244553107", "teste3": 1, "teste3": "M", "xmlPagamentos":"<?xml version='1.0' standalone='yes' ?> <FINALIZADORES> <ITEM> <FIN_CODIGO>1</FIN_CODIGO> <VFI_VALOR>43,89</VFI_VALOR> </ITEM> </FINALIZADORES>", "quantidade": "1" } e dentro do JSON estou como pode ver na xmlPagamentos eu pago um XML. No delphi basicamente pego assim XMLDoc := TXMLDocument.Create(Application); XMLDoc.XML.Text := (XML); // no XML eu pego o conteudo da TAG xmlPagamentos senhores

top isso mesmo, eu fiz com case ficou maior kkkk

Ola Bom dia duvida em SQL/Firebird Pessoal, seguinte eu tenho uma tabela EXEMPLO: PEDIDO E o seguinte campos: ID, DATA, NUM_PEDIDO, NUM_PREP Ocorre que dependendo do cenário NUM_PREP pode estar NULL Então quero seguinte quando NUM_PREP não estiver vazio exiba ele num ALIAS NUM_PEDIDO, quando ele (NUM_PREP )estiver VAZIO (Null) eu exiba ele buscando do campo NUM_PEDIDO como alias NUM_PEDIDO No final quero que retorno em : NUM_PEDIDO sempre isto pq tem um APP que ja espera este NUM_PEDIDO e n quebra ele CASE WHEN VD.NUM_PREP IS NULL THEN VD.NUM_PEDIDO ELSE VD.NUM_PREP Fiz isso ta errado?

Olá, E possivel gerar relatorio do fortes em imagem? Se sim podem me da uma dica?

Pessoal fortes Exporta para imagem? Sabem me dizer como faz?

Ola, pessoal duas dúvidas básicas o ACBrTEFAPI e comunicado rest? Outra dúvida posso usar o Tef com uma venda não fiscal(sem o nfce) ?

Desculpe @Italo Giurizzato Junior eu estou confuso quanto ao nfse? NEste outro post o acbrnfseX nao tem nada haver com nacional então e isso? nwst

@Italo Giurizzato Junior Sobre esta postagem - existe alguma previsão dos município começarem a operar isto?

Pessoal eu coloquei aspas nas datas e deu certo. Sabem me dizer como eu faça para recuperar 2. Recupere os pedidos feitos há menos de cinco anos. Exemplo fiz pedido de 09/11/2022 e recuperar os pedidos a menos de 5 anos. CREATE TABLE `pedido` ( `cod_pedido` int(11) NOT NULL, `val_total_pedido` decimal(18,2) DEFAULT NULL, `dta_pedido` date DEFAULT NULL, `cod_fun` int(11) DEFAULT NULL ) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4; INSERT INTO `pedido` (`cod_pedido`, `val_total_pedido`, `dta_pedido`, `cod_fun`) VALUES (1, '5000.00', '2022-11-08', 1), (2, '7200.00', '2022-11-08', 1), (3, '3200.00', '2022-11-08', 2), (4, '9000.00', '2022-11-08', 3);

Existe algum segredo para trabalhar com data no Mysql Um outro teste SELECT * FROM `funcionario` WHERE funcionario.dta_admissao BETWEEN 1999-01-01 AND 2022-01-01 and funcionario.cod_func_supervisor IS NULL Eu tenho um funcionario com data_admissao com conteudo igual 2021-11-01 O comando acima n deveria retornar este registro?

pessoal eu to confuso quanto a uso de Mysql com esses dados coisa boba com 4 registro cod_dependente cod_func nome_depedente dta_nascimento des_sexo 12PATRICIA1990-01-21F4 2JOHN KENNEDY SOUZA1985-0 3-21M11PATRICIA2001-01-21F2 4JOSE1994-01-21F SELECT * FROM `dependentes` where dta_nascimento >= 2000-01-01 Eu uso o seguinte comando sql e retorna nenhum registo.

UPDATE OR INSERT INTO RELTRPPDV ( LOJ_CODIGO ,PDV_CODIGO ,PRO_CODIGO ,TRP_CODIGO ,TPD_SEQUENCIA ) VALUES ( 1 ,1 ,15604 ,10 ,10) WHERE LOJ_CODIGO = 1 AND PDV_CODIGO = 1 AND TRP_CODIGO = 1 Ele da um erro no Where Como eu faço um SQL update nesta condição?

Pessoal Alguém sabe porque eu consigo usar este comando PostMessage(DBGrid1.Handle, WM_HSCROLL, 0, 0); PostMessage(DBGrid1.Handle, WM_HSCROLL, 1 ,0); Pra quem não sabe - Este comando eu consigo simulado o clique do Scroll pra direita ou pra esquerta no botão por exemplo

Ola, Sabem alterar as cores dos itens do RadioGroup Eu colquei um form de uma azul, e queria deixar o radio pegando a cor do fundo ok - porem a fonte ficar branca. Ele não fica branco de de jeito nenhum Var i : Integer; begin // Para trocar as cores dos botoes do RadioGroup for i := 0 to RADIOGROUP1.Items.Count-1 do begin TRadioButton(RADIOGROUP1.Controls[i]).Font.Color := clGreen; TRadioButton(RADIOGROUP1.Controls[i]).Font.Style := [fsBold]; end; TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Color := clRed; TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Style := [fsBold]; end; Já coloquei a cor de fonte do form em branco e nada tambem

Pessoal Seguinte Eu queria alterar uma tabela que seria assim update nfe set nf.finalidade= 1 e tenho uma outra tabela select v.status from venda v where v.status = 'R' E possivel fazer isto com where simples e também inner join?

Resolvido pessoal, se puder fechar ! A solução e: UTF8Decode no JSON para envio OK! Como postei toda solução aqui, caso alguém precise já fica a dica! Forte a abraço a todos.

Muito estranho o idHttp esta enviando nada! Eu até uma VCL zerado e coloquei apenas em uses IdServerIOHandler, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdCoderMIME, uLkJSON,XSuperObject; var idHttp:TIdHTTP; SoketSSL:TIdSSLIOHandlerSocketOpenSSL; JsonStreamRetorno, JsonStreamEnvio: TStringStream; SJson: String; begin idHttp := tidHttp.Create(self); with idHttp.Request.CustomHeaders do begin Clear; Values['Content-Type'] := 'application/json'; end; SoketSSL := TIdSSLIOHandlerSocketOpenSSL.Create(self); idHttp.IOHandler := SoketSSL; SJson :='{ "pagador": { "cpfCnpj": "13259086000113", "nome:"TESTE"}}'; JsonStreamEnvio := TStringStream.Create(SJson); JsonStreamRetorno := TStringStream.Create(''); idhttp.Post('http://webhookinbox.com/view/iiZ4ti1N/',JsonStreamEnvio,JsonStreamRetorno); ShowMessage(JsonStreamRetorno.DataString); Inventei um conteudo JSON bobo atoa e tem mesmo comportamento não enviar pro webhookinbox que vc sugeriu!

Cara, no postman mandou a o request pro endereço endereço que vc disse: http://webhookinbox.com/ Mas com idtpp passou pelo meu post porem n mandou nada pro endpoint http://webhookinbox.com/ e retornou um HTML todo estranho no postman retorna o OK com 200 No idHtpp passa retorna 200 com um HTML todo estranho e como disse acima não manda nada pro endpoint http://webhookinbox.com/

Bacana no postman mandou ma sno idtpp deu acess violantion hahahaha, e com inter comunica