sidnei_alves1

Bom dia. NetStart téria como voce me mostra um trecho do codigo seu e a versão da dll da dimep que ta usando?

Sim já exclui tudo e reinstalei tudo, no emulador não ocorre o erro não, fiz mais de 50 notas no emulador e nao ocorre nenhum erro. so ocorrer no D-SAT da dimep

OLha como ta meu codigo fonte: So Lembrando que a primeira venda vai normal, ja na segunda em diante não vai mais, da erro na funcao: Resp := xSAT_EnviarDadosVenda( numeroSessao, PAnsiChar(codigoDeAtivacao),PAnsiChar(dadosVenda) ) ; versão da dll dimep: 1.0.2.0 procedure GerarSAT(CodigoVenda:Integer) ; var TotalItem: Double; sXMLGerado:String; iItem:integer; DirEnv, DirResp : String; numSessao,CodigoNota: Integer; TempMemo:TMemo; ok:Boolean; begin try ModACBr.ACBrSAT.CFe.Clear; ModACBr.ACBrSAT.InicializaCFe ; TempMemo := TMemo.Create(Application); TempMemo.Visible:=False; TempMemo.Parent := frm_Principal; with ModACBr.ACBrSAT.CFe do begin CarregaDadosEmitente; SQLString(Tabela.Consulta,'Select n.*,e.* from nnfe n,nnfestatus e '+ ' where n.no_codigo = e.no_codigo'+ ' and n.codvenda='+inttostr(CodigoVenda)+ ' and n.modelo=59'); CodigoNota:= MostCampoQ(Tabela.Consulta,'no_codigo','I'); iRegEmp := MostCampoQ(Tabela.Consulta,'crt','I'); SQLString(Tabela.Consulta,'Select * from nnfecli where no_codigo='+inttostr(CodigoNota)); if Tabela.Consulta.IsEmpty=False then begin if MostCampoQ(Tabela.Consulta,'cli_codigo','I')>0 then begin if ValidaDocs(ModACBr.ACBrValidador,'CPF',MostCampoQ(Tabela.Consulta,'CNPJ','S')) then Dest.CNPJCPF := TiraCaracEspecial(MostCampoQ(Tabela.Consulta,'CNPJ','S')); if MostCampoQ(Tabela.Consulta,'cli_nome','S')<>'' then begin Dest.xNome := MostCampoQ(Tabela.Consulta,'cli_nome','S'); Entrega.xLgr := MostCampoQ(Tabela.Consulta,'cli_endereco','S'); Entrega.nro := MostCampoQ(Tabela.Consulta,'cli_numero','S') ; Entrega.xCpl := MostCampoQ(Tabela.Consulta,'cli_endcompl','S'); Entrega.xBairro:= MostCampoQ(Tabela.Consulta,'cli_bairro','S') ; Entrega.xMun := MostCampoQ(Tabela.Consulta,'cli_cidade','S'); Entrega.UF := MostCampoQ(Tabela.Consulta,'cli_estado','S') ; end; end; end; if SQLString(Tabela.Consulta,'Select p.*,i.* from nnfeprod p,nnfeprodimp i '+ ' where p.no_codigo=i.no_codigo and p.item=i.item and '+ ' p.no_codigo='+inttostr(CodigoNota)) then begin while not(Tabela.Consulta.Eof) do begin with Det.Add do begin nItem := MostCampoQ(Tabela.Consulta,'ITEM','I'); Prod.cProd := MostCampoQ(Tabela.Consulta,'CODIGO','S'); if EAN13Valido(MostCampoQ(Tabela.Consulta,'CODBARRA','S')) then Prod.cEAN := MostCampoQ(Tabela.Consulta,'CODBARRA','S'); Prod.xProd := MostCampoQ(Tabela.Consulta,'DESCRICAO','S'); prod.NCM := MostCampoQ(Tabela.Consulta,'NCM','S'); Prod.CFOP := MostCampoQ(Tabela.Consulta,'CFOP','S'); Prod.uCom := MostCampoQ(Tabela.Consulta,'UN','S'); Prod.qCom := MostCampoQ(Tabela.Consulta,'QTDE','F'); Prod.vUnCom := MostCampoQ(Tabela.Consulta,'PRECO','F'); Prod.indRegra := irArredondamento; Prod.vDesc := 0; Prod.vRatDesc := MostCampoQ(Tabela.Consulta,'DESCONTO','F'); Prod.vRatAcr := MostCampoQ(Tabela.Consulta,'OUTRAS','F'); Imposto.vItem12741 := MostCampoQ(Tabela.Consulta,'vTotTrib','F'); infAdProd := MostCampoQ(Tabela.Consulta,'INFADIC','S'); // with Prod.obsFiscoDet.Add do // begin // xCampoDet := 'campo'; // xTextoDet := 'texto'; // end; Imposto.ICMS.orig := StrToOrig(ok,MostCampoQ(Tabela.Consulta,'ORIG','S')); if (iRegEmp <= 1) then // simples nacional begin Imposto.ICMS.CSOSN := StrToCSOSNIcms(ok,MostCampoQ(Tabela.Consulta,'IC_STI','S')); end else begin Imposto.ICMS.CST := StrToCSTICMS(ok,MostCampoQ(Tabela.Consulta,'IC_STI','S')); end; Imposto.ICMS.pICMS := MostCampoQ(Tabela.Consulta,'IC_PICMS','F'); Imposto.PIS.CST := StrToCSTPIS(OK,MostCampoQ(Tabela.Consulta,'PIS_CST','S')); Imposto.PIS.vBC := MostCampoQ(Tabela.Consulta,'PIS_VBC','F'); Imposto.PIS.pPIS := MostCampoQ(Tabela.Consulta,'PIS_PPIS','F'); Imposto.COFINS.CST := StrToCSTCOFINS(OK,MostCampoQ(Tabela.Consulta,'CO_CST','S')); Imposto.COFINS.vBC := MostCampoQ(Tabela.Consulta,'CO_VBC','F'); Imposto.COFINS.pCOFINS := MostCampoQ(Tabela.Consulta,'CO_PCOFINS','F'); end; Tabela.Consulta.Next; end; end; SQLString(Tabela.Consulta,'Select vlBaseIcms,vlIcms,vlBaseICmsSt,vlIcmsSt,'+ 'vltotNota,vlFrete,vlSeguro,vlDesconto,'+ 'vlOutras,vltotNota,vltotProd,vTotTrib, '+ 'vlpis, vlcofins '+ ' from nnfe '+ ' where no_codigo='+inttostr(CodigoNota)); Total.DescAcrEntr.vDescSubtot := MostCampoQ(Tabela.Consulta,'vlDesconto','F'); Total.DescAcrEntr.vAcresSubtot:= MostCampoQ(Tabela.Consulta,'vloutras','F'); Total.vCFe := MostCampoQ(Tabela.Consulta,'vltotNota','F'); Total.vCFeLei12741 := MostCampoQ(Tabela.Consulta,'vTotTrib','F'); if SQLString(Tabela.Consulta,'select * from formapgto where codvenda='+ inttostr(CodigoVenda)) then begin while not(Tabela.Consulta.Eof) do begin with Pagto.Add do begin if ((Tabela.Consulta.FieldByName('FORMA').AsString='Dinheiro') or (Tabela.Consulta.FieldByName('FORMA').AsString='Troca') or (Tabela.Consulta.FieldByName('FORMA').AsString='Boleto') or (Tabela.Consulta.FieldByName('FORMA').AsString='Vale/Tichets')) then begin cMP := mpDinheiro; vMP := Tabela.Consulta.FieldByName('VALOR').AsFloat; end else if ((Tabela.Consulta.FieldByName('FORMA').AsString='Cheque') or (Tabela.Consulta.FieldByName('FORMA').AsString='Cheque-pre')) then begin cMP := mpCheque; vMP := Tabela.Consulta.FieldByName('VALOR').AsFloat; end else if ((Tabela.Consulta.FieldByName('FORMA').AsString='Cartao') or (Tabela.Consulta.FieldByName('FORMA').AsString='Cartão')) then begin cMP := mpCartaodeCredito; vMP := Tabela.Consulta.FieldByName('VALOR').AsFloat; end else if ((Tabela.Consulta.FieldByName('FORMA').AsString='Crediario')) then begin cMP := mpCreditoLoja; vMP := Tabela.Consulta.FieldByName('VALOR').AsFloat; end else begin cMP := mpOutros; vMP := Tabela.Consulta.FieldByName('VALOR').AsFloat; end; end; Tabela.Consulta.Next; end; end; // | Informações Adicionais if SQLString(Tabela.Consulta,' Select inffisco,infcompl,infcomplusu '+ ' from nnfe where no_codigo='+inttostr(CodigoNota)) then begin InfAdic.infCpl :=MostCampoQ(Tabela.Consulta,'INFCOMPL','S')+ MostCampoQ(Tabela.Consulta,'INFCOMPLUSU','S'); end; end; sXMLGerado := ModACBr.ACBrSAT.CFe.GetXMLString( True ); DirEnv := ExtractFilePath(Application.ExeName)+'\Env\'; DirResp := ExtractFilePath(Application.ExeName)+'\Res\'; try ModACBr.ACBrSAT.EnviarDadosVenda(); except end; numSessao := ModACBr.ACBrSAT.numeroSessao; ForceDirectories( DirEnv ); ForceDirectories( DirResp ); TempMemo.Lines.Text:= sXMLGerado; TempMemo.Lines.SaveToFile(DirEnv + 'CFe-'+IntToStrZero(numSessao,6)+'.xml'); if ModACBr.ACBrSAT.Resposta.codigoDeRetorno = 6000 then begin TempMemo.Lines.Text:=ModACBr.ACBrSAT.CFe.AsXMLString; TempMemo.Lines.SaveToFile(DirResp + 'CFe-'+ModACBr.ACBrSAT.CFe.infCFe.ID+'-rec.xml'); if ImpPerguntaSAT then begin if varSATImpresaoDetalhada then ModACBr.ACBrSAT.ImprimirExtrato else ModACBr.ACBrSAT.ImprimirExtratoResumido; end; end else begin showmessage(ModACBr.ACBrSAT.Resposta.RetornoLst.Text); end; finally FreeAndNil(TempMemo); if Assigned(Frm_MensagemLoadNF) then FreeAndNil(Frm_MensagemLoadNF); end; end;

Mudei aqui, mais o erro ocorre ainda.

to usando asssim Variavel sXMLGerado:String; ModACBr.ACBrSAT.CFe.Clear; ModACBr.ACBrSAT.InicializaCFe ; dados da nota sXMLGerado := ModACBr.ACBrSAT.CFe.GetXMLString( True ); ModACBr.ACBrSAT.EnviarDadosVenda(sXMLGerado);

Desinstala tudo, e exclui a pasta SAT e faz dinovo a ativação informando o CNPJ Emitente: 11.111.111/1111-11 IE: 111.111.111 CNPJ Soft house: CNPJ Valido

também da isso ao inicializa não sei se tem algo a ve. log.zip

você cria o componente em runtime ou usa datamodule?

Sim,estou usando o satDinamico_stdcall, e outra coisa que reparece aqui e a demora do retorna da funcao que envia a venda isso ocorre pra voce tbem. mais ha tentei de tudo aqui e so envia a primeira, as outras nao vai.

Então aqui so envia a primeira venda normal, mais depois nao envia mais, so fechando a aplicação e abrindo dinovo, no emulador funciona normal.

Boa tarde Estou efetuando testes com o D-SAT da Dimep. O primeiro envio esta indo ok, mais ao tenta fazer mais vendas da erro. até onde debuguei esta dando um exception na funcao da dll que manda o xml de venda, dando erro. Resp := xSAT_EnviarDadosVenda( numeroSessao, PAnsiChar(codigoDeAtivacao), PAnsiChar(dadosVenda) ) ; Retorno: '?MY'#1'?X\'#4'TJ?'#5 se eu fechar toda a aplicação e abrir dinovo ai consigo fazer outra venda, mais depois trava e da erro dinovo.

Fiz um teste aqui hoje, Somente da Soft house deve ser valido o da emitente coloca 11.111.111/1111-11 e IE 111.111.111.111 aqui pra mim deu certo

Testei aqui deu certo, valew. Verdade nem tinha reparado que era de guarulhos rsrs.

a sim vou testa, muito obrigado.

Versão Completa, paga

to usando o DANFE.fr3

FastReport

Bom dia. Gostaria de saber se tem alguma propriedade que que saia a linha continua pra separar os itens. aqui to usando a os impostos aproximados, apos ele deveria sair "eu acho" a linha que separa os itens.

Tenho o mesmo na minha aplicação usuários impacientes, tem alguma forma de fazer um Freeze .

Boa tarde. Esta dando acesso negado ao acessar a pasta spooler. o que pode ser? uso windows 7

hum valew, vou fazer isso então, pro que conversei com o pessoal da bematech e falaram que não tem erro no drivers no windows 7. ai fica complicado.

Ja tentei de tudo, alguem ja passou por isso?

Resolvido. tinha invertido os campos aqui de Assinatura e código de ativação nos eventos.

boa tarde. tentei de tudo pra consegui ativar pelo ACBrSAT mais da o mesma mensagem do amigo acima: gostaria de saber se alguém conseguiu ativar apos dar essas mensagens? Ja usei CNPJ Contribuinte 11.111.111/1111-11 software 11.111.111/1111-11 ou 22.222.222/2222-22 porem da a mesma mensagem. segue o log do acbrsat ACBrSAT.zip

Voltei... rs consegui eu tava deixando a versaoDF = 2.00, mudei pra 3.10 ai foi normal sou de SP.