Aldemir Almeida

Bom dia! Na impressão da DANFE só imprime o nome fantasia, já alterei a propriedade ACBrNFe1.DANFE.ImprimeNomeFantasia para "false", mas mesmo assim continua aparecendo. o fantasia, queria colocar a razão social.

isso homologação, não sei se era na sefaz am, mas hoje consegui. como fechar o post ?

Bom dia, estou informando o responsável técnico no nfce infRespTec.CNPJ :='27022733000183'; infRespTec.xContato :='Aldemir Gomes de Almeida Filho'; infRespTec.email :='[email protected]'; infRespTec.fone :='993747210'; infRespTec.idCSRT :=0; infRespTec.hashCSRT :=''; esta retornando o esse erro: 'Rejeicao: Falha no schema XML' ( // MsgErro já está na String Nativa da IDE... por isso deve usar "CreateDef")13190307916960000145650020000000151000000154-nfe.xml

Estou usando D-Link (DWM-221), porém trava tudo ao clicar em enviar! como resolver isso ?

Corrigi alterei o campo manual da unit ACBrNFeDANFeRLRetrato rlmEndereco.Top := 80; para 80 e ficou otima Resolvido!

Boa tarde, Cabeçalho de DANFE estar cortando o telefone, como ajustar no layout do danfe ?

Compro Sistema para hospital 92 99374-7210 [email protected]

Também pesava assim, mas fiz o teste e conseguir enviar normal, queria saber se tem algum problema fiscal quanto a isso.

Boa noite! Tem algum problema em emitir notas fiscais modelo 55 com a data retroativa ?

Resolvido! a forma citada a cima está certa!, percebi que no qrItensTempAfterPost, estava percorrendo novamente essa tabela para pegar o valor total, então coloquei uma qrItensTemp.Tag=1, ficou assim: var q2: TQuery; begin q2:=TQuery.Create(Self); q2.DatabaseName:='SISTEMA'; qrItensTemp.Tag:=1;//Incluir essa tag qrItensTemp.DisableControls;//Tabela temporário com dados qrItensTemp.First; while not qrItensTemp.Eof do begin q2.Close;//Consulta para pegar novo valor q2.SQL.Text:='select vl_venda from tb_item '+ ' where cod_item=:cod_item'; q2.ParamByName('cod_item').Value := qrItensTempcod_item.AsInteger; q2.Open; qrItensTemp.Edit; qrItensTempvl_unit.Value := q2.FieldByName('vl_venda').AsFloat; qrItensTemp.Post; qrItensTemp.Next; end; qrItensTemp.Enablecontrols; qrItensTemp.Tag:=0;//Incluir essa tag q2.Close; q2.Destroy; edtCod.SetFocus; end; e no qrItensTempAfterPost dei um exit para não percorrer a tabela if qrItensTemp.Tag=1 then exit; Obrigado a todos. Resolvido!

Quando debug a senteça " while not qrItensTemp.Eof do " vai para true e sai

Com o while not qrItensTemp.Eof do ele percorre somente o primeiro registro e sai. como se ela estivesse vazia depois do qrItensTemp.Post;

Boa noite! Estou tentando atualizar os dados em uma tabela temporária, mas não estou conseguindo, estou utilizando um ClientDataSet. um help por favor! ele só atualiza o primeiro registro. var q2: TQuery; begin q2:=TQuery.Create(Self); q2.DatabaseName:='SISTEMA'; qrItensTemp.DisableControls;//Tabela temporário com dados qrItensTemp.First; while not qrItensTemp.IsEmpty do begin q2.Close;//Consulta para pegar novo valor q2.SQL.Text:='select vl_venda from tb_item '+ ' where cod_item=:cod_item'; q2.ParamByName('cod_item').Value := qrItensTempcod_item.AsInteger; q2.Open; qrItensTemp.Edit; qrItensTempvl_unit.Value := q2.FieldByName('vl_venda').AsFloat; qrItensTemp.Post; qrItensTemp.Next; end; qrItensTemp.Enablecontrols; q2.Close; q2.Destroy; edtCod.SetFocus; end; .

Não tem mais opções de velocidade, vou comparar com código e o manual.

Testei todas a as velocidades, no manual esta 9600. acho que o problema esta no componente, que não consegui capturar o peso!