Acbrtefd1.chq

[Hetosoft Sistemas]

{

Function TACBrTEFD.CHQ( const Valor : Double; const IndiceFPG_ECF : String;

        const DocumentoVinculado : String = ''; const CMC7 : String = '';

        const TipoPessoa : AnsiChar = 'F'; const DocumentoPessoa : String = '';

        const DataCheque : TDateTime = 0; const Banco   : String = '';

        const Agencia    : String = ''; const AgenciaDC : String = '';

        const Conta      : String = ''; const ContaDC   : String = '';

        const Cheque     : String = ''; const ChequeDC  : String = '';

        const Compensacao: String = '' ) : Boolean ;

begin

   Result := fTefClass.CHQ( Valor, IndiceFPG_ECF, DocumentoVinculado, CMC7,

                            TipoPessoa,  DocumentoPessoa, DataCheque,

                            Banco, Agencia, AgenciaDC,

                            Conta, ContaDC, Cheque, ChequeDC, Compensacao);

}

  ACBrTEFD1.CHQ(

  StringToFloatDef(edValorTEF.Text, 0) ,edFPGCheque.Text,

  ACBrECF1.NumCOO, '0',

  'J', '08398100000120',

  StrToDate('20/03/2013'), '399',

  '0820','5',

  '0000145953','7',

  '660497','8');

  MostraSaldoRestante;

 

 

Coloco esses dados , e fala que Dados invalidos,

o que eu devo ta fazendo de errado?

 

 

[Régys Silveira]

Precisamos de mais informações, o que você está fazendo, quando, como, qual teste do roteiro, consegue reproduzir o erro com o demo do ACBrTEFD? Quais os passos?

[Hetosoft Sistemas]

estou no teste 60 do sitef

Realizar uma transação de Cheque

cupom

item

subtotal

- pagamento chque,

isso no demo do acbrtefd

e coloco o comando acima, e da o erro de dados invalidos.

[Régys Silveira]

Conseguiu simular com o demo ado ACBrTEFD?

[Hetosoft Sistemas]

desde do comerco eu fiz com o demo do ACBrTEFD (Atualizado)

 

 

ACBrTEFD1.CHQ(

  StringToFloatDef(edValorTEF.Text, 0) ,edFPGCheque.Text,

  ACBrECF1.NumCOO, '0',

  'J', '08398100000120',

  StrToDate('20/03/2013'), '399',

  '0820','5',

  '0000145953','7',

  '660497','8');

 

os dados estao todos corretos, mais fala DADOS INVALIDOS.

[Régys Silveira]

o problema está no CMC7 que você está passando como '0', teria que passar em branco '', também está faltando o parâmetro compensação pelo que vi ai no teu código.

[Hetosoft Sistemas]

o que devo coloca em

const Compensacao: String = ''  :

 

ja deichei em blanco '',

ja coloque 'True' e 'False'

mais continua dando erro

de DADOS INVALIDOS.

 

 

 

  ACBrTEFD1.CHQ(

  1.00 ,'04',

  '004620', '',

  'J', '08398100000120',

  StrToDate('20/03/2013'), '399',

  '0820','5',

  '0000145953','7',

  '660497','8',

  '');

 

E agora coloquei tudo manual e nada.

[Daniel Simoes]

Quem acusa Dados Inválidos ? Tente nos enviar um Print-Screen... Se for o SiTEF, envie o LOG...

[Hetosoft Sistemas]

nao conseguir coloca a imagem,

mais a messagem depois que envio o comando

Cara nao conseguir endentifica se o sitef ou acbr ?

 

mais o comando é esse:

 

 

  ACBrTEFD1.CHQ(

  1.00 ,'04',

  '004620', '',

  'J', '08398100000120',

  StrToDate('19/03/2013'), '399',

  '0820','5',

  '145953','7',

  '660497','8',

  '');

  MostraSaldoRestante;

 

 

 

mais limpei o log. e clique em CHQ - onde esta o comando acima

Log acbr:

 

-- 20/03 11:35:42:591 - BloquearMouseTeclado: SIM

-- 20/03 11:35:42:592 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:42:609 - ContinuaFuncaoSiTefInterativo, Retornos: STS = -100 ProximoComando = 22 TipoCampo = -1 Buffer =  Tam.Min = 1 Tam.Max = 2

-- 20/03 11:35:42:609 - *** ContinuaFuncaoSiTefInterativo, Finalizando: STS = -100

-- 20/03 11:35:42:610 - BloquearMouseTeclado: NAO

-- 20/03 11:35:43:425 - InfoECF: ineEstadoECF

-- 20/03 11:35:43:452 -     Ret: P

-- 20/03 11:35:43:453 - InfoECF: ineSubTotal

-- 20/03 11:35:43:545 -     Ret: 1

-- 20/03 11:35:43:545 - InfoECF: ineTotalAPagar

-- 20/03 11:35:43:546 -     Ret: 0

-- 20/03 11:35:43:547 - *** IniciaFuncaoSiTefInterativo. Modalidade: 1 Valor: 1,00 Documento: 004620 Data: 20130320 Hora: 113543 Operador:  Restricoes: [15;25]{TipoTratamento=4}

-- 20/03 11:35:43:556 - BloquearMouseTeclado: SIM

-- 20/03 11:35:43:557 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:583 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = Conectando SiTef Tam.Min = 0 Tam.Max = 0

-- 20/03 11:35:43:584 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Conectando SiTef

-- 20/03 11:35:43:587 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:597 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 13 TipoCampo = -1 Buffer =  Tam.Min = 0 Tam.Max = 0

-- 20/03 11:35:43:598 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem:

-- 20/03 11:35:43:609 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem:

-- 20/03 11:35:43:610 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:617 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = SiTef Conectado Tam.Min = 0 Tam.Max = 0

-- 20/03 11:35:43:618 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: SiTef Conectado

-- 20/03 11:35:43:621 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

-- 20/03 11:35:43:634 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = Dados Invalidos Tam.Min = 1 Tam.Max = 2

-- 20/03 11:35:43:634 - CliSiTef DoExibeMsg: Oper: opmOK Mensagem: Dados Invalidos

-- 20/03 11:35:43:635 - BloquearMouseTeclado: NAO

 

 

 

 

[Daniel Simoes]

Pelo LOG dá para perceber que a Mensagem vem do SiTEF

 

-- 20/03 11:35:43:634 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = Dados Invalidos Tam.Min = 1 Tam.Max = 2

 

Verifique com a Sw.Express se eles tem alguns valores que possam ser usados nesse teste... Se não conseguir... informe dados de um Cheque Bancário real

[Hetosoft Sistemas]

é real, do meu banco, mais vou liga la, blz

[Daniel Simoes]

Humm.. lembrei de algo...

 

Experimente copiar o arquivo em anexo "cheques.ini" para a mesma pasta onde está o CliSiTef.ini  (e após isso reinicie a aplicação)

Cheque.ini

Cheque.ini

[Hetosoft Sistemas]

Vc é o cara mano.