Hetosoft Sistemas

NFS-e de Varzea Grande - MT Erro nao foi possivel carregar o arquivo Signature xmlns http//www.w3.org/2000/09/xmldsing SignedInfo canonicalizationMethod agorithm = http//www.w3.org/tr/2001/rec-xml-c14n-20010315 quando eu Gerar e Enviar NFSe sabendo que modifiquei o GerarNFSe(vNumRPS); ACBrNFSe1.NotasFiscais.Clear; with ACBrNFSe1 do begin NotasFiscais.NumeroLote:='0001'; with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8' IdentificacaoRps.Serie := '8'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); IdentificacaoRps.Tipo := trRPS; DataEmissao := Date; // TnfseNaturezaOperacao = ( noTributacaoNoMunicipio, noTributacaoForaMunicipio, noIsencao, noImune, noSuspensaDecisaoJudicial, noSuspensaProcedimentoAdministrativo ); NaturezaOperacao := noTributacaoNoMunicipio; // NaturezaOperacao := noTributacaoNoMunicipio51; // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP ); // RegimeEspecialTributacao := retNenhum; RegimeEspecialTributacao := retMicroempresaMunicipal; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snSim; // TnfseSimNao = ( snSim, snNao ); IncentivadorCultural := snSim; // TnfseSimNao = ( snSim, snNao ); // snSim = Ambiente de Produção // snNao = Ambiente de Homologação Producao := snNao; // TnfseStatusRPS = ( srNormal, srCancelado ); Status := srNormal; (* Usando quando o RPS for substituir outro RpsSubstituido.Numero := FormatFloat('#########0', i); RpsSubstituido.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); RpsSubstituido.Tipo := trRPS; *) Servico.Valores.ValorServicos := 100.00; Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao ); // stRetencao = snSim // stNormal = snNao Servico.Valores.IssRetido := stNormal; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := 0.00; Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; Servico.Valores.Aliquota := 0.02; if Servico.Valores.IssRetido = stNormal then begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; // A função RoundTo5 é usada para arredondar valores, sendo que o segundo // parametro se refere ao numero de casas decimais. // exemplos: RoundTo5(50.532, -2) ==> 50.53 // exemplos: RoundTo5(50.535, -2) ==> 50.54 // exemplos: RoundTo5(50.536, -2) ==> 50.54 Servico.Valores.ValorIss := RoundTo5(ValorISS, -2); Servico.Valores.ValorIssRetido := 0.00; end else begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; Servico.Valores.ValorIss := 0.00; Servico.Valores.ValorIssRetido := RoundTo5(ValorISS, -2); end; Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; Servico.ItemListaServico := '1.05'; //'01.07'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo CNAE tem que ser '6511102' Servico.CodigoCnae := '6511102'; Servico.CodigoTributacaoMunicipio := '118879'; //Servico.CodigoCnae := '6202300'; // Informação Opcional //Servico.CodigoTributacaoMunicipio := '7221400'; //'118879'; Servico.Discriminacao := 'Aluguel de SoftWare'; //'discriminacao'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo do Municipio tem que ser '999' //Servico.CodigoMunicipio := edtCodCidade.Text; Servico.CodigoMunicipio :='999'; // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7] Servico.ExigibilidadeISS := exiExigivel; // Informar para Saatri Servico.CodigoPais := 1058; // Brasil Servico.MunicipioIncidencia := StrToIntDef(edtCodCidade.Text, 0); with Servico.ItemServico.Add do begin Descricao := 'SERVICO 1'; Quantidade := 1; ValorUnitario := 15.00; end; Prestador.Cnpj := edtEmitCNPJ.Text; Prestador.InscricaoMunicipal := edtEmitIM.Text; // Para o provedor ISSDigital deve-se informar também: Prestador.Senha := 'senha'; Prestador.FraseSecreta := 'frase secreta'; Prestador.cUF := 33; Tomador.IdentificacaoTomador.CpfCnpj := '03953552000102'; Tomador.IdentificacaoTomador.InscricaoMunicipal := '20370'; Tomador.RazaoSocial := 'NERY E ANDRADE NERY LTDA - ME'; Tomador.Endereco.Endereco := 'RUA PRINCIPAL'; Tomador.Endereco.Numero := '100'; Tomador.Endereco.Complemento := 'APTO 11'; Tomador.Endereco.Bairro := 'CENTRO'; Tomador.Endereco.CodigoMunicipio := edtCodCidade.Text; Tomador.Endereco.UF := edtEmitUF.Text; Tomador.Endereco.CEP := edtEmitCEP.Text; Tomador.Contato.Telefone := '1122223333'; Tomador.Contato.Email := '[email protected]'; (* Usando quando houver um intermediario na prestação do serviço IntermediarioServico.RazaoSocial := 'razao'; IntermediarioServico.CpfCnpj := '00000000000'; IntermediarioServico.InscricaoMunicipal := '12547478'; *) (* Usando quando o serviço for uma obra ConstrucaoCivil.CodigoObra := '88888'; ConstrucaoCivil.Art := '433'; *) end; end;

Mais vc usa como, so queria um exemplo pra ver que estou no caminho certo?

Mais deu pra entender ?

sim delpji 7, e ja uso o acbrnfe,a questao quando tem conexao remota e é A3, so o servidor pode fazer nf-e as conecxoe nao, quando é A1 blz, e a maiorias do meus cliente usa A3, blz abrir o demo acbrtcp coloqei servidor , porta 3436, la em repsota coloquei NFe.StatusServico; conecrtar telnet localhost 3434 mais so isso, es a questao , tem exemplo de como usar ACBrTCP para acbnfemonitor, percebi que esotu voando na maionese, nao sei como comerca a nao ser a esplicacao acima , que deu certo a opcao status e imprimir danfe. A FUNCAO QUE EU FIZ function TForm_NFEM.EnviarComandoNFEM(Comando: string; numeroNota:string): Boolean; var Size :integer ; SL : TStrings; I:integer; begin EDIT1.Text:=Comando; EDIT2.Text:=''; Memo1.Clear ; Statusbar1.Panels[1].Text := 'Aguarde Enviando Comando ! ' + 'Tempo Inicial '+timetostr(time); if DM.Client_MERCADO_PISNFEM_INDY.Text = 'True' then begin TCP.WriteLn(Comando+sLineBreak+'.'+sLineBreak); //--> writln para enviar dados... Size := TCP.ReadInteger; Memo1.Lines.Add(TCP.ReadLn(#3,-1,Size)); end else begin fSocket.SendString(Comando+sLineBreak+'.'+sLineBreak ); Memo1.Lines.Add( fSocket.RecvTerminated(100000, #3) ); end; Statusbar1.Panels[1].Text := Statusbar1.Panels[1].Text +' Tempo Final :'+timetostr(time); if Copy(Memo1.Text,0,2) = 'OK' then begin Result:=True; Edit2.Text:='OK'; end else begin Result:=False; Edit2.Text:='ERRO'; end; RespostaNFe0; if Copy(Memo1.Text,0,29) = 'OK: Lote recebido com sucesso' then begin if RespostaNFe(numeroNota)=True then Result:=True else Result:=False; end; ----------------------------------------------- EnviarComandoNFEM('NFE.StatusServico', ''); ----------------------------------------------- OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := 'C:\Controles_SQL\NFe\EnvioDeResposta'; if OpenDialog1.Execute then begin if ConectarNFEM=True then EnviarComandoNFEM('NFE.ImprimirDanfe('+OpenDialog1.FileName+')', ''); end; ---------------------------------------------------------------------------- O Crjiar nota da dando erro mais o importa e sabe que esotu no caminho certo ou nao? --------------------------------------------------------------------------------- var cTextoIni,cTextoIni2,vNumLote,vAux:string; begin Atualizar_MERCADO_PIS; try {Numero da Nota} vAux:=DM12.Client_NotaFiscalNUMERO.Text;// {Numero do Lote} vNumLote:='1';//edtLoteNFe.Text; except MessageDlg('Número da Nota ou Lote Inválido !',mtWarning,[mbOK],0); Exit; end; cTextoIni:= '[identificacao]'+ 'NaturezaOperacao='+Form_NotaFiscal.DBLookupComboBox2.Text+''+ 'Modelo=55'+ 'Serie=1'+ 'Codigo='+vAux+''+ 'Numero='+vAux+''+ 'Serie=1'+ 'Emissao='+DM12.Client_NotaFiscalC_EMISSAO.Text+''+ 'Saida='+DM12.Client_NotaFiscalC_ENTREGA.Text+''+ 'Tipo=1'+ 'FormaPag=0'+ 'Finalidade=0'+ '[Emitente]'+ 'CNPJ='+DM.Client_MERCADO_PISCNPJ.Text+''+ 'IE='+DM.Client_MERCADO_PISESCRICAO.Text+''+ 'Razao='+DM.Client_MERCADO_PISRASAO.Text+''+ 'Fantasia='+DM.Client_MERCADO_PISFANTASIA.Text+''+ 'Fone='+DM.Client_MERCADO_PISTEL.Text+''+ 'CEP='+DM.Client_MERCADO_PISCEP.Text+''+ 'Logradouro='+DM.Client_MERCADO_PISENDERECO_SPED.Text+''+ 'Numero='+DM.Client_MERCADO_PISNUMERO.Text+''+ 'Complemento='+ 'Bairro='+DM.Client_MERCADO_PISBAIRRO.Text+''+ 'CidadeCod='+DM.Client_MERCADO_PISMUNICIPIOIBGE.Text+''+ 'Cidade='+DM.Client_MERCADO_PISCIDADE.Text+''+ 'UF=MT'+ 'PaisCod=1058'+ 'Pais=BRASIL'+ '[Destinatario]'+ 'CNPJ='+DM12.Client_NotaFiscalC_CNPJ.Text+''+ 'IE='+DM12.Client_NotaFiscalC_IE.Text+''+ 'ISUF='+ 'NomeRazao='+DM12.Client_NotaFiscalC_RAZAO.Text+''+ 'Fone='+DM12.Client_NotaFiscalC_FONE.Text+''+ 'CEP='+DM12.Client_NotaFiscalC_CEP.Text+''+ 'Logradouro='+DM12.Client_NotaFiscalC_ENDERECO.Text+''+ 'Numero='+DM12.Client_NotaFiscalC_NUMERO.Text+''+ 'Complemento='+ 'Bairro='+DM12.Client_NotaFiscalC_BAIRRO.Text+''+ 'CidadeCod='+DM12.Client_NotaFiscalC_MUNICIPIOIBGE.Text+''+ 'Cidade='+DM12.Client_NotaFiscalC_MUNICIPIO.Text+''+ 'UF=MT'+ 'PaisCod=1058'+ 'Pais=BRASIL'; if DM12.Client_ProdutoCODIGOTRIBUTADO.Text<>'' then begin DM12.Client_Produto.First; while not DM12.Client_Produto.Eof do begin cTextoIni2:= '[Produto'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'CFOP='+DM12.Client_ProdutoCFOP.Text+''+ 'Codigo='+pchar( DM12.Client_ProdutoCODIGO.Text )+''+ 'Descricao='+DM12.Client_ProdutoPRODUTOS.Text+''+ 'EAN='+ 'NCM='+Copy(DM12.Client_ProdutoCODIGOTRIBUTADO.Text,01,08)+''+ 'Unidade='+DM12.Client_ProdutoUNID.Text+''+ 'Quantidade='+DM12.Client_ProdutoQUANT.text+''+ 'ValorUnitario='+DM12.Client_ProdutoVALOR.text+''+ 'ValorTotal='+DM12.Client_ProdutoTOTAL.text+''+ 'ValorDesconto='+DM12.Client_ProdutoDESCONTO.text+''+ 'NumeroDI='+ 'DataRegistroDI='+ 'LocalDesembaraco='+ 'UFDesembaraco='+ 'DataDesembaraco='+ 'CodigoExportador='+ '[LADI001'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'NumeroAdicao='+ 'CodigoFrabricante='+ 'DescontoADI'+ '[iCMS'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'CST='+DM12.Client_ProdutoST.Text+''+ 'Origem='+ 'Modalidade='+ 'ValorBase='+ 'Aliquota='+ 'Valor='+ 'ModalidadeST='+ 'PercentualMargemST='+ 'PercentualReducaoST='+ 'ValorBaseST='+ 'AliquotaST='+ 'ValorST='+ 'PercentualReducao='+ '[iPI'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'CST='+ 'ClasseEnquadramento='+ 'CNPJProdutor='+ 'CodigoSeloIPI='+ 'QuantidadeSelos='+ 'CodigoEnquadramento='+ 'ValorBase='+ 'Quantidade='+ 'ValorUnidade='+ 'Aliquota='+ 'Valor'+ '[iI'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'ValorBase='+ 'ValorDespAduaneiras='+ 'ValorII='+ 'ValorIOF='+ '[PIS'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'CST='+ 'ValorBase='+ 'Aliquota='+ 'Valor='+ 'Quantidade='+ 'TipoCalculo='+ '[PISST'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'ValorBase='+ 'AliquotaPerc='+ 'Quantidade='+ 'AliquotaValor='+ 'ValorPISST='+ '[COFINS'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'CST='+ 'ValorBase='+ 'Aliquota='+ 'Valor='+ 'TipoCalculo='+ 'Quantidade='+ '[COFINSST'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+ 'ValorBase='+ 'AliquotaPerc='+ 'Quantidade='+ 'AliquotaValor='+ 'ValorCOFINSST='; cTextoIni:=cTextoIni+cTextoIni2; DM12.Client_Produto.Next; end; end else begin MessageDlg('Verifique os produtos sem NCM o Campo é obrigatório !',mtWarning,[mbOK],0); Exit; end; cTextoIni:=cTextoIni+ '[Total]'+ 'BaseICMS='+DM12.Client_NotaFiscalF_VALOR1.Text+''+ 'ValorICMS='+DM12.Client_NotaFiscalF_VALOR2.Text+''+ 'ValorProduto='+DM12.Client_NotaFiscalF_VALOR5.Text+''+ 'BaseICMSSubstituicao='+DM12.Client_NotaFiscalF_VALOR3.Text+''+ 'ValorICMSSubstituicao='+DM12.Client_NotaFiscalF_VALOR4.Text+''+ 'ValorFrete='+DM12.Client_NotaFiscalF_VALOR6.Text+''+ 'ValorSeguro='+DM12.Client_NotaFiscalF_VALOR7.Text+''+ 'ValorDesconto='+DM12.Client_NotaFiscalDESCONTO.Text+''+ 'ValorII='+ 'ValorIPI='+ 'ValorPIS='+ 'ValorCOFINS='+ 'ValorOutrasDespesas='+DM12.Client_NotaFiscalF_VALOR8.Text+''+ 'ValorNota='+DM12.Client_NotaFiscalF_VALO10 .Text+''+ '[Transportador]'+ 'FretePorConta='+ 'CnpjCpf='+ 'NomeRazao='+ 'IE='+ 'Endereco='+ 'Cidade='+ 'UF='+ 'ValorServico='+ 'ValorBase='+ 'Aliquota='+ 'Valor='+ 'CFOP='+ 'CidadeCod='+ 'Placa='+ 'UFPlaca='+ 'RNTC='+ '[Volume001]'+ 'Quantidade='+ 'Especie='+ 'Marca='+ 'Numeracao='+ 'PesoLiquido='+ 'PesoBruto='+ '[Fatura]'+ 'Numero='+ 'ValorOriginal='+ 'ValorDesconto='+ 'ValorLiquido='+ '[Duplicata001]'+ 'Numero='+ 'DataVencimento='+ 'Valor='+ '[DadosAdicionais]'+ 'Complemento='+ '[infAdic001]'+ 'Campo='+ 'Texto='; //cTextoIni:='NFe.CriarEnviarNFe('+cTextoIni+','+vNumLote+',[0])'; cTextoIni:='NFe.CriarEnviarNFe('+cTextoIni+','+vNumLote+',[0])'; if ConectarNFEM=True then EnviarComandoNFEM( cTextoIni , '');

blz vamos lar, o que eu achei no pdf ou ajuda, foi isso: Modo TCP/IP: Abra uma conexão Socket com a máquina onde o ACBrNFeMonitor está instalado, na porta configurada no ACBrNFeMonitor. (Você deve conhecer o IP da máquina) Verifique se o FireWall de ambas as máquinas permite o trafego de dados nessa porta. Envie e Receba os comandos usando a sintaxe do ACBr (veja abaixo) Todo comando enviado para o ACBrNFeMonitor dever ser concluido com CR+LF+'.'+CR+LF ou #13+#10+#46+#13+#10 Toda resposta do ACBrNFeMonitor para a aplicação comercial será encerrada com o caracter ETX, #3 ou chr(3) xemplo: Configure o ACBrNFeMonitor para trabalhar com TCP/IP porta 3434 (poderia ser qualquer porta)... Re-inicie o ACBrNFeMonitor No Prompt do DOS do Windows, na mesma máquina onde o ACBrNFeMonitor está sendo executado, digite: TELNET localhost 3434 para quem nunca mecheu em conexao Socket, como eu, nao entendir porra nenhuma do que esta acima, mais concordo com opnioes acima é so pesquisar, estao vim em outro luga outro forum os seguinte comnado para socket. if indy = true the TCP.WriteLn(Comando+sLineBreak+'.'+sLineBreak); //--> writln para enviar dados... Size := TCP.ReadInteger; Memo1.Lines.Add(TCP.ReadLn(#3,-1,Size)); if indy = false the fSocket.SendString(Comando+sLineBreak+'.'+sLineBreak ); Memo1.Lines.Add( fSocket.RecvTerminated(100000, #3) ); ai fis alguns ajusti para saber que deu certo ou nao, pegando as primeira lentras do memo, if Copy(Memo1.Text,0,2) = 'OK' then begin Result:=True; Edit2.Text:='OK'; end else begin Result:=False; Edit2.Text:='ERRO'; end; tem alguma coisa que eu possa muda, ou estou fazando tudo errado. era so isso que eu queria , descupem que eu pedi d+.

se for o PDF ou arquivo de ajuda eu nao achei e tambem nao achei o topico do isaque.

Leu o CHM que vem junto no SVN. por favor onde fica , em que pasta ?

estou querendo usar ACBrNFeMonitor mais estou com duvidas vi os comando para o acbrnfemonitor Sintaxe: NFe.StatusServico; Exemplo: NFe.StatusServico; mais como enviar para o acbrnfemonitor , e saber a resposta, nao entedir muito ?

Ja tentei de tudo aqui e nao consigui diminuir o tempo de espera para a primerira via para segunda, nos comprovante tef estaem 2 segundos como façor para muda para 1 ou ate menos ?

O ACBr tem ? Manifestação do Destinatário: Confirmação da Operação, Desconhecimento da Operação e Operação não Realizada de NF-e.

Aonde eu posso ler sobre esse assunto, sabendo que nem sei o que o ACBrMDFe.

é muito medo de ir em sao paulo e ser reporvando ja aconteceu comigo ehe, mais muito obrigado vou continuar os teste. ha ta, isso aconte tambem com CRT tem senha , todo processo que pede senha de cartao, durante o tempo de impressao nao aparece Transacao Ok e no pre-homologacao diz. * O usuário do cartão deve ser informado através de display do andamento da transação financeira. (Ex. “Aguarde Impressão”, “Imprimindo Cupom TEF” e etc.) tenho que fica dizento(mostrando messagem) que ta imprimindo ?

fis o teste de novo olhando para o log 31- -- 07/02 15:00:52:302 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 3 TipoCampo = -1 Buffer = Transacao OK Tam.Min = 0 Tam.Max = 0 -- 07/02 15:00:52:304 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Transacao OK -- 07/02 15:00:52:308 - CliSiTef DoExibeMsg: Oper: opmExibirMsgCliente Mensagem: Transacao OK -- 07/02 15:06:46:252 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: -- 07/02 15:06:46:257 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: -- 07/02 15:06:46:264 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 07/02 15:06:46:279 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 3 TipoCampo = -1 Buffer = Retire o cartao da leitora Tam.Min = 0 Tam.Max = 0 -- 07/02 15:06:46:280 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Retire o cartao da leitora -- 07/02 15:06:46:285 - CliSiTef DoExibeMsg: Oper: opmExibirMsgCliente Mensagem: Retire o cartao da leitora -- 07/02 15:06:50:480 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: -- 07/02 15:06:50:485 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: 32- -- 07/02 15:06:45:939 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 3 TipoCampo = -1 Buffer = Transacao OK Tam.Min = 0 Tam.Max = 0 -- 07/02 15:06:45:941 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Transacao OK -- 07/02 15:06:45:945 - CliSiTef DoExibeMsg: Oper: opmExibirMsgCliente Mensagem: Transacao OK Analizando o log, eu percebir que em operacoes normais como CRT ta blz mais quando é ADM acotenci isso, olhando o 32- mostra a messagem Transacao OK e depois finaliza o log olhando o 31- ele mostro Transacao OK e depois Limpa para mostra a messagem Retire o cartao da leitora ai finaliza o log O que devo fazer?

quando eu digito no formulario ObtemCampo uma data invalida, onde no codogo fonte fica a validacao ?

Seq.31 - Realizar uma transação de Pré-Autorização com cartão de Crédito magnético Seq.32 - - Realizar uma transação de Pré-Autorização com cartão de Crédito digitado (não-magnético) Mastercard: 5000 0000 0000 0001 a diferenca dois dois é, um coloca o cartao e outro digitar o cartao. mais quando finaliza e comerca imprimir o comprovante na messagem do operador e do cliente mostra resultados diferentes, na 31 o resutlado da messagem do operador e cliente, nao mostra nada fica em blanco, ate o fim da impressao. na 32 o resutlado da messagem do operador e cliente, mostra Transacao Ok, ate o fim da impressao. porque era para mostra Transacao Ok na 31 tambem nao era? Obrigado pela atencao e desculpe minha esplicacoes.

quando esta imprimindo o cupom (ECF).... -ERRADO na seq. 31 lMensagemCliente.caption = '' lMensagemOperador= '' vazio (na segunda via ele muda o status para Destaque 2 via, e depois volta para '' vazio ) -CORRETO mais na seq. 32 lMensagemCliente.caption = Transacao Ok lMensagemOperador= Transacao Ok (na segunda via ele muda o status para Destaque 2 via, e depois volta para Transacao Ok) porque a diferenca, sabendo que o que muda e seg 31 - usar o cartao chip seg 32 - digirar o cartao mastercadrd 5000 0000 0000 0001 ; Obrigado pela atencao ?

no form ObtemCampo quando digitamos um venc ou datatrazacao e for invalido ele avisa(mostra uma messagem) correto, onde fica no fonte do acbr estas messagem de advertencia, ex: quero fazer if TipoCampo=500 then e edit1.text<>'03' then 'senha invalida' ex: vou colocar 03 como senha do supervisor.

onde fica a funcao que valida por exemplo que uma data e invida, para eu emplementar meu codigo supervisor ?

Desculpa, não sabia., eu pensava que era par aeditar o assunto, editar os testo do mesmo assunto, blz, nao vai acontecer mais. Pegunta So a ultima duvida O SiTEF Demo, nao valida a senha ne ?

So a ultima duvida O SiTEF Demo, nao valida a senha ne ?

Obrigado,esta no PDF SiTef - Interface Simplificada com a aplicação(VRS-110).PDF 3.3.2 Tabela de valores para TipoCampo //Número do Cartão de Crédito Digitado if TipoCampo=512 then TamanhoMaximo := 16; //Digitar senha if TipoCampo=500 then Edit1.PasswordChar:='#' else Edit1.PasswordChar:=#0;

ex qual o tipocampo que representa digitar numero cartao 0000 0000 0000 0000 ?

Otimo, O SiTEF Demo, nao valida a senha ne ? onde eu vejo os tipo de campo, ex onde vc viu que tipocampo=500 é senha ? , obrigadoooo. procedure TForm5TEFD.FormShow(Sender : TObject); begin if TipoCampo=500 then Edit1.PasswordChar:='#' else Edit1.PasswordChar:=#0;

- Código do supervisor deve estar mascarado e validado no form OnObetrCampo procedure TForm5.Edit1KeyPress(Sender : TObject; var Key : char); begin if Key in [#13,#8] then exit ; { Enter e BackSpace, OK } if Operacao in [tcDouble, tcCMC7] then if not (Key in ['0'..'9', DecimalSeparator]) then { Apenas números } Key := #0 ; if (TamanhoMaximo > 0) and (Length( Edit1.Text ) >= TamanhoMaximo) then Key := #0 ; end; tentei usar o status tcDouble, tcCMC7 para fazer mais ou menos assim if Operacao in [ TCADM ] then Edit1.PasswordChar:=# else Edit1.PasswordChar:=#0; mais qual seria o status quando chamado um ADM Obrigado pela atencao?

brigadoooooo os eventos do form OnObtemCampo nao estavaao linkado ao componetes.