sidnei_alves1

fiz um teste em outra maquina e funcionou, alguem tem alguma pista do que pode ser isso?

Sim, foi eu mesmo que falei que era um problema na dll deles. estava tudo normal.

pelo que Debug aqui ele fecha o sistema quando chama essa função if LoadLibrary(PChar(LibName)) = 0 then já testei com o do governo é o erro não ocorre, somente com a Dll da DIMEP

Boa tarde. Há 7 dias atras estava testando o SAT sem problema como equipamento da DIMEP, atualizei o fontes recompilei todos e hoje fui tenta emitir alguns testes e ao chegar essa função LoadDLLFunctions. o sistema fecha sozinho. to usando windows 7, já desabilitei o antivírus pra ver se é algo nele, mais continua fechando automático. alguém já passou por isso

Juliomar, qual seria a propriedade para a personalização das mensagens?

Não sou Expert no assunto, mais a impressora esta funcionando normal? fora do sistema?

Boa tarde. Desculpe se já tem pesquisei e não achei. Quando o cliente não tem internet e o sistema tenta consultar o status do serviço, fica bem lento o retorno demorando as vezes mais de 1 minuto pra retornar um erro, (por causa que não tem conexão com a internet). tem como diminuir esse tempo? pra não demorar tanto?

se quiser me adiciona Skype: sidnei.siscom

Marlus da DIMEP vai disponibilizar outra versão oficial da DLL, ele me mandou uma de teste recompilada e funcionou normal, ele falo que amanha ja deve ta no 4bee pra download.

Já passei pro Marlus da DIMEP, ele já esta verificando lá.

Olha. aqui na sua dll não da erro mesmo funciona 100% mais com a dll 1.0.2.0 não funciona.

nelstart pode me manda essa sua dll? aqui to usando a versao 1.0.2.0

Bom dia. Fiz o teste aqui usando o SATTeste.exe. o mesmo erro ocorre ao enviar a segunda em diante. erro: EExternalException - External exception C0000008. é o mesmo que ocorrer com minha aplicação. A primeira venda vai normal. na segunda em diante ja da erro.

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