Dfox

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.

Bom dia descobri que os valores passado para o banco são esses item 1 icms 245,70 item 2 icms 36,75 item 3 icms 6,125 item 4 icms 19,25 item 5 icms 95,20 item 6 icms 8,925 item 7 icms 11,375 esses valores passado para a nfe da um valor e pelo RoundABNT da outro, dai da diferença de centavos mais deveria dar tudo o mesmo valor já que ambos usa o ABNT

estranho faço assim e fica 423,32 frmnotafiscal_menu.qrnota.fieldbyname('VALOR_ICMS').AsFloat := frmnotafiscal_menu.qrnota.fieldbyname('VALOR_ICMS').AsFloat + RoundABNT(qrnotafiscal_item.fieldbyname('VALOR_ICMS').AsFloat, -2);

item 1 icms 245,70 item 2 icms 36,75 item 3 icms 6,13 item 4 icms 19,25 item 5 icms 95,20 item 6 icms 8,92 item 7 icms 11,38 soma total 423,33 usando a soma com RoundABNT da 423,32 e da rejeição.

Na verdade 423,33 aí passa

Tem 7 item e somando o valor do ICMS deu 423,32 e da erro com a sefaz e se eu alterar para 423,31 aí passa

O estranho é que eu usei a função ABNT pegando item a item do banco de dados e mesmo assim deu diferença de centavos

Bom dia, a Todos, qual forma de arredondar o ACBr usa, para gerar o XML da nota fiscal, porque eu gravo item a item do icms no banco de dados e depois faço uma soma total e da diferença de centavos.

Bom dia, Obrigado deu certo agora.