Dfox

boa tarde tenta usar essa função function IfExtraiXmlnf(sXML : string; sQuery :TDataSet): String; var sl : TStringList; begin if not DirectoryExists(ExtractFilePath(sXML)) then ForceDirectories(ExtractFilePath(sXML)); if sQuery.fieldbyname('xml').AsString <> '' then begin {TBlobField(sQuery.FieldByName('xml')).SaveToFile(sXML);} try sl := TStringList.Create; sl.Add(sQuery.fieldbyname('xml').AsString); sl.SaveToFile(sXML, TEncoding.UTF8); finally sl.Free; end; end; Result := sXML; end; exemplo de uso var sXML: string; begin sXML := qrnota.fieldbyname('nfe_xml').AsString; try if FileExists(IfExtraiXmlnf(sXML,qrnota)) then begin end;

Resolvi para quem precisar esta ai como eu fiz procedure TfrmOrcamentoPDV.btvend_imp_ticketClick(Sender: TObject); var OldIndex: Integer; begin frmmodulo.qrconfig.Open; OldIndex := frxPrinters.PrinterIndex; fxOrcamento.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'rel\Ticket-IF.fr3'); fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString; fxOrcamento.PrepareReport; fxOrcamento.PrintOptions.ShowDialog := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 1; if frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 0 then fxOrcamento.Print else fxOrcamento.ShowReport; // Volta a padrão no fast {Uses frxPrinter} frxPrinters.PrinterIndex := OldIndex; end;

Boa tarde, pessoal tenho no meu sistema as impressão em fastreport o problema é quando eu imprimo frmmodulo.qrconfig.Open; fxOrcamento.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'rel\Ticket-IF.fr3'); fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString; fxOrcamento.PrepareReport; fxOrcamento.PrintOptions.ShowDialog := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 1; if frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 0 then fxOrcamento.Print else fxOrcamento.ShowReport; todas impressão sai na impressora que eu setei fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString; alguem sabe alguma solucão

Obrigado vou dar uma olhada mais se alguém tiver uma função que faça Transforma a quantidade de dias digitados em anos, meses e dias Ficarei agradecido. Achei essa função em c++ https://www.vivaolinux.com.br/script/Transforma-a-quantidade-de-dias-digitados-em-anos-meses-e-dias

Boa tarde, Pessoal alguem tem ou sabe como fazer para converter dias em mês e anos?

1 consumo de distribuição 2 sim permanece consumo indevido

Boa tarde um cliente meu ficou desde o mês 05 sem manifestar e agora está dando erro de consumo indevido o que fazer neste caso?

Obrigado.

Boa tarde, aguem pode me dizer em qual Unit esta a função CodIBGEToCidade

nfe está saindo zerado

Boa tarde a todos, minha duvida é o seguinte estou querendo destacar o ipi na nota mas não esta saindo, o que esta faltando?

Obrigado era isso mesmo

Boa tarde a todos, alguém sabe o nome desse componente para Delphi?

Obrigado consegui enviar a alteração

Juliomar Marchetti bom dia você fazer o o pull request la, eunão cosegui fazer segue a correção {$IFDEF DELPHIXE2_UP} system.Actions, {$ENDIF} para {$IFDEF DELPHIXE3_UP} system.Actions, {$ENDIF} no xe2 não tem esse system.Actions segue em anexo UCEditorForm_U.pas

Boa tarde, pessoal podem me tirar uma dúvida ao enviar uma nota ela terá que ter um gtin válido ou esse gtin terá que constar na na sefaz? É que gero os Gtin pelo sistema

Juliomar Marchetti obrigado, pela atenção baixei novamente por aui http://infussolucoes.github.io/usercontrol-sd/ e so deu erro nessa parte {$IFDEF DELPHIXE2_UP} system.Actions, {$ENDIF} dessa unit UCEMailForm_U então comentei e passou de boa.

Juliomar Marchetti segue as os arquivos corrigidos 100% compatível com Delphi xe2 pckUserControl_DT.dpk pckUserControl_RT.dpk UCEditorForm_U.pas

Bom dia a todos fui testar o user control no Delphi xe2 e deu erro na instalação então vi que o Juliomar Marchetti também contribui com o projeto, poderia ver o que esta errado: log_Delphi_XE2.txt

Bom dia a todos sabem aquele problema de fazer um PDV ajusta com a resolução do monitor então aqui esta a solução teste o Dresize DResize.zip

Obrigado pela atenção mas consegui assim procedure TfrmPrincipal.Ac_WhatsAppExecute(Sender: TObject); var meulink, minhamsg, meuphone :string; num:Integer; begin Randomize; num := Round(Random(2) +1); case num of 1: meuphone := '1798573-1231'; 2,3: meuphone := '18 99396-5327'; end; minhamsg := 'Olà Tudo bem'; if InputQuery('Sua Menssagem', 'Escreva Algo:', minhamsg) then begin meulink := 'https://api.whatsapp.com/send?1=pt_BR&phone=' + meuphone + '&text=' + minhamsg + ''; ShellExecute(handle,'open',PChar(meulink), '', '',SW_SHOWNORMAL); end; end;

O erro era porque, estava assinando o Rps

alguém já viu esse erro?. Erro(s): Código : L4 Mensagem: Estrutura do xml recebido incorreta. javax.xml.bind.MarshalException - with linked exception:[org.xml.sax.SAXParseException; lineNumber: 0; columnNumber: 0; cvc-complex-type.2.4.d: Invalid content was found starting with element 'ns2:Signature'. No child element is expected at this point.]. Correção: Valide as tags do xml antes de enviar. Fiorilli

Boa tarde, como gera entre dois números de celular? ex: ao clicar um botão ele me retornar um numero de telefone (17) 98573-1231 ou (18) 99396-5327 algo como randômico.

Acho que se eu passar os valores para a nota arredondando e depois somar os itens também arredondando acho que resolve.