Hetosoft Sistemas

brigadoooooooooooooooooooo.

certinho so outra duvida, // Valor Total dos Tributos imp.vTotTrib := RoundTo(DM_CNT.ConhecimentovTotTrib.AsFloat, -2); // Obs do Contribuinte if (imp.vTotTrib <> 0.0) then begin with compl.ObsCont.Add do begin xCampo := 'Lei da Transparencia'; xTexto := 'O valor aproximado de tributos incidentes sobre o preço deste servico e de R$ ' + FormatFloat('##0.00', imp.vTotTrib) + ' (' + FormatFloat('#0.00', DM_CNT.ConhecimentoAliqNBS.AsFloat) + '%) ' + 'Fonte: IBPT'; end; end; como fazer o do CT-e porque o da NF-e tenho uma tabela em ecxel que mostra os tributos somo e faço o calculo mais com ct-e nao tem produtos, eu pego o icms para fazer esse calculo ?

Atualizei os fontes do acbr e o cte que era 1.4 abilitei o 2.0 depois disso nao consigo mais compilar o projeto da erro na seguinte linha Erro: comando nao existe. with Rem.InfNF.Add do comando: case DM12.Client_CteNFTIPO.AsInteger of 1: begin with Rem.InfNF.Add do begin nRoma := ''; nPed := DM12.Client_CteNFNUMDOC.AsString; serie := DM12.Client_CteNFSER.AsString; nDoc := DM12.Client_CteNFNUMDOC.AsString; dEmi := DM12.Client_CteNFDATAEMISSAO.AsDateTime; vBC := 0; vICMS := 0; vBCST := 0; vST := 0; vProd := DM12.Client_CteNFVALORDOC.AsFloat; vNF := DM12.Client_CteNFVALORDOC.AsFloat; nCFOP := StrToInt(cfop); nPeso := 0; PIN := ''; end;

Aguardando resposta tambem

atualizei o acbr hoje de manha e deu erro ao compilar ACBr_BoletoFC_Quick fala que as dcu's RLFilters, RLPDFFilter nao existe na pasta, procurei os arquivos e nao achei, o que eu faço.

eu conseguir na verdade fis isso fCancelado:=False; //////////////////////////////////////////////////// 20 : begin if Mensagem = '' then Mensagem := 'CONFIRMA ?'; Resposta := ifThen( (DoExibeMsg( opmYesNo, Mensagem ) = mrYes), '0', '1' ) ; {Digitado := ( Resposta <> '1') ;} fCancelado:=False; end ; //Cabei de ser homologado na Certified CIELO e com Cielo Premia tive que fazer alguma modificacoes mais tudo ok. fazer com que o dinheiro sempre seja imprimirdo por ultimo na impressora fiscal desabilitei eta funcao opeImprimePagamentos : procedure TForm1TEFD.ACBrTEFD1ComandaECF(Operacao : TACBrTEFDOperacaoECF; Resp : TACBrTEFDResp; var RetornoECF : Integer ); Var Est : TACBrECFEstado ; P : Integer; Linha, CodFPG : String ; ValorFPG : Double ; begin Memo1.Lines.Add('ComandaECF: '+GetEnumName( TypeInfo(TACBrTEFDOperacaoECF), integer(Operacao) )); try Est := Form1_ACBrECF.ACBrECF1.Estado; case Operacao of opeAbreGerencial : Form1_ACBrECF.ACBrECF1.AbreRelatorioGerencial; opeCancelaCupom : if Est = estNaoFiscal then begin Form1_ACBrECF.ACBrECF1.CancelaNaoFiscal; end else begin Form1_ACBrECF.ACBrECF1.CancelaCupom;//2 Form_PDV.Cancelar_Cupom_REGISTROS_TefFim(-1); end; opeFechaCupom : if Est = estNaoFiscal then Form1_ACBrECF.ACBrECF1.FechaNaoFiscal('') //'Projeto ACBr|http://acbr.sf.net' else begin Form_PDV.Finalizar_ACBrECF_Memo; Form1_ACBrECF.ACBrECF1.FechaCupom( Form_PDV.DBMemo2.Text); //'Projeto ACBr|http://acbr.sf.net' end; opeSubTotalizaCupom : if Est = estNaoFiscal then Form1_ACBrECF.ACBrECF1.SubtotalizaNaoFiscal( 0, '' ) //'Projeto ACBr|http://acbr.sf.net' else Form1_ACBrECF.ACBrECF1.SubtotalizaCupom( 0, '' ); //'Projeto ACBr|http://acbr.sf.net' opeFechaGerencial, opeFechaVinculado : Form1_ACBrECF.ACBrECF1.FechaRelatorio ; opePulaLinhas : begin Form1_ACBrECF.ACBrECF1.PulaLinhas( Form1_ACBrECF.ACBrECF1.LinhasEntreCupons ); Form1_ACBrECF.ACBrECF1.CortaPapel( True ); //Sleep(200); end; opeImprimePagamentos : begin {while mPagamentos.Lines.Count > 0 do begin Linha := mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); ShowMessage(CodFPG+' - '+FloatToStr(ValorFPG)); if (CodFPG <> '') and (ValorFPG > 0) then Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); end; mPagamentos.Lines.Delete(0); end; } end; end; RetornoECF := 1 ; except RetornoECF := 0 ; end; end; //E COLOQUEI AQUI 'P' : begin if not AutoEfetuarPagamento then procedure TACBrTEFD.FinalizarCupom(DesbloquearMouseTecladoNoTermino: Boolean); Var I, J, Ordem : Integer; Est, EstNaoFiscal : AnsiChar; ImpressaoOk : Boolean ; GrupoFPG : TACBrTEFDArrayGrupoRespostasPendentes ; P : Integer; Linha, CodFPG : String ; ValorFPG : Double ; begin ImpressaoOk := False ; fTefClass.GravaLog( 'FinalizarCupom'+IfThen(DesbloquearMouseTecladoNoTermino, ', DesbloquearMouseTecladoNoTermino','') ) ; try while not ImpressaoOk do begin try BloquearMouseTeclado( True ); try EstNaoFiscal := 'N'; Est := EstadoECF; while Est <> 'L' do begin // É não fiscal ? Se SIM, vamos passar por todas as fases... if Est = 'N' then begin case EstNaoFiscal of 'N' : EstNaoFiscal := 'V' ; 'V' : EstNaoFiscal := 'P' ; 'P' : EstNaoFiscal := 'N' ; end ; Est := EstNaoFiscal ; end ; try Case Est of 'V' : ECFSubtotaliza( RespostasPendentes.TotalDesconto ); 'P' : begin if not AutoEfetuarPagamento then begin //FORMAS TEF GrupoFPG := nil ; AgruparRespostasPendentes( GrupoFPG ); Ordem := 0 ; For I := 0 to Length( GrupoFPG )-1 do begin if GrupoFPG.OrdemPagamento = 0 then begin Inc( Ordem ) ; if InfoECFAsDouble(ineSubTotal) > 0 then ECFPagamento( GrupoFPG.IndiceFPG_ECF, GrupoFPG.Total ); For J := 0 to RespostasPendentes.Count-1 do if RespostasPendentes[J].IndiceFPG_ECF = GrupoFPG.IndiceFPG_ECF then begin if (RespostasPendentes[J].Header = 'CHQ') and CHQEmGerencial then begin RespostasPendentes[J].OrdemPagamento := 999; Dec( Ordem ) ; end else RespostasPendentes[J].OrdemPagamento := Ordem; end; end else Ordem := GrupoFPG.OrdemPagamento ; end; if vTEFDjaExPag<>1 then begin ////////////////////////////////////// //FORMA NAO TEF while Form1TEFD.mPagamentos.Lines.Count > 0 do begin Linha := Form1TEFD.mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); if (CodFPG <> '') and (ValorFPG > 0) then begin //Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); //ShowMessage('desligue a impressora'); vTEFDjaExPag:=1; ECFPagamento( CodFPG, ValorFPG ); end; end; Form1TEFD.mPagamentos.Lines.Delete(0); end; ////////////////////////////////////// end; end;

desculpe se eu falei alguma bobagem, mais agora to precisando muito de vcs, estou em sp e ontem foi aprovado na softwareexpress tef dll sitef e estou aqui na certified e to travado em uma questao, quando eu chamo um crt escolho o cartao debito ou credito vem a messagem insira ou passe o cartao neste momento clico em CancelarResp mostrar a messagem 13 - Operacao Cancelada? clico em Nao em vem de continuar esperando o cartao ser inserido fica em lupe na messagem 13 - Operacao Cancelada? Sim / Nao se eu aperta sim, blz cancela tudo, mais se eu aperta Nao nao para na messagem insira ou passe o cartao e sim mostra de novo a messagem 13 - Operacao Cancelada? Sim / Nao o que devo fazer testei tambem no demo acbrtefd e ta a mesma coisa.

engraçado fui homologado com Autoefetuarpagamento como true acho o comentario Você precisará rever sua lógica de programação... equivocado, deveriam respeita mais os mebros do forum. nao sou contribuidor para ficar ouvindo isso. estou aqui para tirar duvidas, se eu fosse iqual a vc nao taria aqui no forum e sim dando consultoria com mais respeito.

eu optei por AutoEfetuarPagamento com isso o pagamento de cartao nao mostra no memu mPagamentos entao como vou opnar qual pagamento imprimir primeiro, sabendo que o acbrtefd imprimi sempre o cartao por ultimo ? ---------fis umas mudanca so pra homologa amanha na serverPDV sitef ------------- desabilitei em procedure TForm1TEFD.ACBrTEFD1ComandaECF( opeImprimePagamentos : begin { desabilitei while mPagamentos.Lines.Count > 0 do begin Linha := mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); ShowMessage(CodFPG+' - '+FloatToStr(ValorFPG)); if (CodFPG <> '') and (ValorFPG > 0) then Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); end; mPagamentos.Lines.Delete(0); end; } desabilitei end; ///////////////// e adicionei em procedure TACBrTEFD.FinalizarCupom( 'P' : begin if not AutoEfetuarPagamento then begin //FORMAS TEF GrupoFPG := nil ; AgruparRespostasPendentes( GrupoFPG ); Ordem := 0 ; For I := 0 to Length( GrupoFPG )-1 do begin if GrupoFPG.OrdemPagamento = 0 then begin Inc( Ordem ) ; if InfoECFAsDouble(ineSubTotal) > 0 then ECFPagamento( GrupoFPG.IndiceFPG_ECF, GrupoFPG.Total ); For J := 0 to RespostasPendentes.Count-1 do if RespostasPendentes[J].IndiceFPG_ECF = GrupoFPG.IndiceFPG_ECF then begin if (RespostasPendentes[J].Header = 'CHQ') and CHQEmGerencial then begin RespostasPendentes[J].OrdemPagamento := 999; Dec( Ordem ) ; end else RespostasPendentes[J].OrdemPagamento := Ordem; end; end else Ordem := GrupoFPG.OrdemPagamento ; end; ////////////////////////////////////// //FORMA NAO TEF while Form1TEFD.mPagamentos.Lines.Count > 0 do begin Linha := Form1TEFD.mPagamentos.Lines[0] ; P := pos('|',Linha) ; if P > 0 then begin CodFPG := Trim(copy(Linha,1,P-1)) ; ValorFPG := StringToFloatDef( copy(Linha, P+1, Length(Linha) ), 0 ); if (CodFPG <> '') and (ValorFPG > 0) then //Form1_ACBrECF.ACBrECF1.EfetuaPagamento( CodFPG, ValorFPG ); //ShowMessage('desligue a impressora'); ECFPagamento( CodFPG, ValorFPG ); end; Form1TEFD.mPagamentos.Lines.Delete(0); end; ////////////////////////////////////// end; if (InfoECFAsDouble(ineSubTotal) > 0) then begin if (InfoECFAsDouble(ineTotalAPagar,0) > 0) then begin ComandarECF( opeImprimePagamentos ) ; if InfoECFAsDouble(ineSubTotal) > 0 then Break; end else Break; end ; ComandarECF( opeFechaCupom ) end ; //////////////////////////////////////////////////////// Com isso fis com que a forma de pagamento DINHEIRO SEMPRE FIQUE NA ULTIMA POSICAO DA IMPRESSORA FISCAL EX: CARTAO DINHEIRO mais depois queria saber a forma certa para isso, sai de cuiaba para sao paulo e quase fiquei sem ser aprovado so por causa disso, que sufoco.

Estou em sao paulo homologando o sitef, e aqui no serverPDV pede que a forma de pagamento DINHEIRO sempre fique na ultima posicao do cupom ex CARTAO DINHEIRO mesmo que eu passa primiero o dinheiro e depois o cartao o dinheiro sempre tem que aparece por ultimo, como façor isso , esotu usando o ACBRTEFD coloco o primeiro dinheiro 01|2,00 no mPagamento e depois cartao 02|3,00 como façor para no cupom imprimir o dinheiro por ultimo, sabendo qu eestou usando a funcao Autoefetuarpagamento, muito obrigado pela atencao estou aqui na server PDV

resolvir fazendo isso if key = vk_F1 then begin BitBtn3.Click; end;

concordo com vc mais vamos lar, dia 11 to indo para sao paulo para homologa o sitef e esotu usando o componete acbrtef ok, e estou com um grande problema, nas telas Exibe Menu e Obtem Campo, eles tem 3 botoes com &Ok &Cancelar &Repetir ate ai nada de mais, mias no roterio pré-homologacao pedi para voltar a tela que dizer o botao &Repetir sabendo que a tecla de atalho é Alt+R blz, volta a tela mais não funciona mais o TECLADO porque a telca Alt fica fixada virtualmente, pra volta ao normal tenho que aperta a tecla Alt de novo, minha primeira pertuta foi tem como usa em vez de & os atalhos F, para nao da esse problema de Alt fica precionado (sabendo que nao é teclado velho pos usei 3 novos), tentei usar os atalho F1 no okkeydown mais nao encontrei a funcao que esta em cada botao do form Exibe Menu queria assim if vk_f1 then begin a funcao do botao Voltar end; com isso vou tira o & do atalho de cada botao &Ok &Cancelar &Repetir obrigado pela atencoa, espero ter esplicado bem.

No tef tem os botaoes OK, CANCELAR, REPETIR Com os atalhos Alt+O Alt+C Alt+R tentei colocar F1, F2, F3 como atalho mais nao conceguir pos acbr usar o status do botal OK, CANCELAR, REPETIR como façor para cololar os atalhos F1 para OK e ect no evento onkeydow obrigado pela atencao.

Eu tambem estou com o mesmo problema, a messagem é download concluido . nais o nome fica Arquivo.exe.part e mesmo renomeando ele nao tem conteudo tamanho 0kb o que devo fazer ja coloquei o bufferSize de varios tambanho e nada.

BLZ porque ate o codigo do Servico: tava a variavel e nao o cod 01.05 / Licednciamento ou cessao de idreito de uso de programas de computacao

posso voltar as pasta fontes da versao anteriro que tem a pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

tem componete do FastReport para BOLETO, NF-E , NFS-E, CT-E ? Uso todos o qreport. falar nisso depois que atualizai a nfs-e no relatorio qreport 5.02 delphi 7 a DATA DE SERVICO no top da nfs-e ta saida o nome da vliavel em vez da data (qrlDataSer)

Como façor para manda nfs-e para dois email juntos ex: [email protected]; [email protected] sem usar a //CC.Add('[email protected]'); //especifique um email válido //CC.Add('[email protected]'); //especifique um email válido usando o Para:= [email protected]; [email protected] Da erro ao enviar SMTP ERROR: MailPermanent Failure-Bad if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; //CC.Add('[email protected]'); //especifique um email válido //CC.Add('[email protected]'); //especifique um email válido try mmEmailMsg.Text:=dm.Client_MERCADOFANTASIA.Text+' Nº '+DM12.Client_NotaFiscalNUMERO.Text; ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(Trim(edtSmtpHost.Text) , Trim(edtSmtpPort.Text) , Trim(edtSmtpUser.Text) , Trim(edtSmtpPass.Text) , Trim(edtSmtpUser.Text) , Para , edtEmailAssunto.Text , mmEmailMsg.Lines , cbEmailSSL.Checked , True //Enviar PDF junto , nil //Lista com emails que serão enviado cópias - TStrings , nil // Lista de anexos - TStrings , False ); //Pede confirmação de leitura do email CC.Free; MessagemH(3,'Enviado com Sucesso !!!'); except MessagemH(2,'Erro ao enviar !!!'); end; end;

Isaque Pinheiro instalaei o qreport 5.02 e subistituir os arquivos ACBrNFSeDANFSeQRRetrato.zip tudo blz, vc vai colocar no servidor svn://svn.code.sf.net/p/acbr/code ?

sim instalaei o qreport 5.02 e subistituir os arquivos e compilei tudo de novo, agora blz, mais ainda preferia a pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

ta dano erro ao compilar o ACBrNFSeDanfseQRpkg Erro Cannot load package QR5RunD7 it contains uni QRExpr which is also contained in packge QR4RunD7 sabendo que uso o QREPORT 4.6 Esse ja resolvir mudei o {$IFDEF VER150} QR4RunD7, vcljpg; {$ENDIF} // D7 {$IFDEF VER200} QR5RunD2009, vclimg; {$ENDIF} // D2009 {$IFDEF VER210} QR5RunD2010, vclimg; {$ENDIF} // D2010 {$IFDEF VER220} QR5RunDXE, vclimg; {$ENDIF} // XE {$IFDEF VER230} QR5RunDXE2, vclimg; {$ENDIF} //XE2 {$IFDEF VER240} QR5RunDXE3, vclimg; {$ENDIF} //XE3 Cara piro tudo aqui, tava tudo 100% com essa mudanca da pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

que compricacao porque nao deixa como tava, so substituir a arquivos e pronto. mais tudo otimo, o acbr é o top dos componentes. acompanhei o txt, e agora ta dando erro aqui unit ACBrNFSeDANFSeQRRetrato; if trim(FNFSe.Servico.Descricao) = '' then qrlCodServico.Caption := FNFSe.Servico.ItemListaServico + ' / ' + messagem erro [Error] ACBrNFSeDANFSeQRRetrato.pas(412): Undeclared identifier: 'qrlCodServico'

Antes de troca o servidor do ACBr que era (https://acbr.svn.sourceforge.net/svnroot/acbr) tinha estar pasta aqui D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3 eu usor delphi 7 qreport 4 so copiar os arquivos para D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe e pronto , depois que mudou para svn://svn.code.sf.net/p/acbr/code nao tem mais esta pasta, e agora ta dando erro ao imprimir nfs-e Erro reading QRNFSe.Page.Continuous: Property Continuous does not exit o que devo fazer agora. ta tudo parado.

Bom dia, No caso da DLL capicom, já está sendo reconhecida pela Microsoft como "deprecated", o ACBr contempla a possibilidade de usar o net framework para futuros códigos de assinatura e criptografia digitais? ou pode-se ficar tranquilo com a CAPICOM para o windows 8 64 bits?

Uso o acbrmonitor so para validar o XML E ENVIAR, crio o xml pelo acbrdemo, preciso atualizar o acbrmonitor ?