Wellington Vieira
-
Posts
424 -
Joined
-
Last visited
-
Days Won
10
Posts posted by Wellington Vieira
-
-
Boa tarde,
Eu tenho para o ITAÚ, mas de forma on-line, não usando arquivo de REMESSA, mas a API do ITAU, onde você gera as credenciais para o cliente junto ao ITAÚ e depois gera um certificado digital junto ao banco e a partir dai a cada processo você pega TOKEN e envia dos dados do boleto em arquivo JSON e será incluso na base de dados do banco para imprimir o boleto eu utilizo os fonte da classe MRBOLETO.
Segue o developer's do ITAU.
https://devportal.itau.com.br/ -
Bom dia,
SQL é uma linguagem declarativa cada consulta você declara o que quer que o SQL faça, ou seja a medida que vai necessitando das operações você irá declarando a tabela ou tabelas, contudo o PLANO de consultas é o que afeta a eficiência das consultas.
(PLANO de consultas) - nas consultas qual modelo será mais eficiente.
- Fazer uma varredura completa
- Criar um índice
Para o PLANO de consultas, vai depender dos dados contidos na tabela e da frequência com o que as consultas serão executadas, para definir se será uma varredura completa ou se irá criar índices.
-
Como configurar o Gmail no Outlook e outros (Nova atualização mais recente para 2022 Aplicativos menos seguros não são mais compatíveis)
-
Como configurar o Gmail no Outlook e outros (Nova atualização mais recente para 2022 Aplicativos menos seguros não são mais compatíveis)
-
Boa tarde,
Alguém já começou ou tem a integração do SEU PDV com as "MAQUININHA DE CARTÃO".
Não é TEF com o uso do PINPAD e SITEF, e sim a integração do PDV diretamente com a(s) maquininhas de cartão de crédito, como neste exemplo da maquininha STONE e o PDV DA VHSYS que o software PDV interage com a maquininha de cartão, aguarda o processamento na maquininha e recebe o ok da maquininha, ai a maquininha imprime o recibo da transação e também a NFC-e diretamente na maquininha.
Alguém já começou ou tem esta interação ??? LEMBRANDO NÃO É O TEF COM PINPAD.
Exemplo do softwaer VHSYS e maquininha.
https://www.google.com.br/search?q=integrar+pdv+com+maquininha+de+cartão&sxsrf=ALiCzsa3BAGQBP66l4QMoog5HbK3tbFKVQ%3A1657139131028&source=hp&ei=uu_FYvvEPK_k1sQPvbSOmAs&iflsig=AJiK0e8AAAAAYsX9y0jm7-XOloHmIFXdc_9jHTCQYGMg&oq=&gs_lcp=Cgdnd3Mtd2l6EAEYADIHCCMQ6gIQJzIHCCMQ6gIQJzIHCCMQ6gIQJzIHCCMQ6gIQJzINCC4QxwEQowIQ6gIQJzIHCCMQ6gIQJzINCC4QxwEQowIQ6gIQJzIHCCMQ6gIQJzIHCCMQ6gIQJzINCC4QxwEQowIQ6gIQJ1AAWABg7ApoAXAAeACAAQCIAQCSAQCYAQCwAQo&sclient=gws-wiz#kpvalbx=_v-_FYpubM8bU1sQPx5mo6AI23 -
Boa tarde,
Se quiser agrupar por "LOTE", então o "group by Lote"select lote,tipo,secao,bitola,acab,sum(estqatual) as estqatual,codipi,tributo,tratamento,local,compriment,comprimenf,local,bitola1,bitola2,cod_item_k FROM dpropro0
where tipo = '52100' and COALESCE(dpropro0.SR_DELETED,' ') <> 'T' GROUP BY lote ORDER BY tipo asc, secao asc, bitola asc; -
Bom dia,
Em listbox eu uso assim.objetarray:nat := nRegistroVetor
objetarray:refresh()
// objetarray -> Nome do objeto a que se refere a LISTBOX ou o BROWSE.
// nRegistroVetor -> O Numero da linha dentro do array
-
Boa tarde,
Fica dentro de um arquivo que dei o nome de "WSISCOM.RC", é um arquivo de Resource Script.barra_cliente BITMAP "\bmp\barra_cliente.bmp"
ou seja, no diretório onde esta instalado o sistema, em uma subpasta neste diretório chamado "bmp".
Por ser um arquivo de Resource Script ele é utilizado somente na compilação, não necessitando levar esta subpasta "bmp" para o cliente.
-
ou
@ 254,201 buttonbmp onota01 bitmap "pdv_nfe.bmp" left size 045,19 font obotaof of pedido pixel
-
Boa noite
@ 080,003 BTNBMP oatendimentobut06 left size 032,30 font obotaof noborder resource "barra_cliente" of atendimento action( listbox_clientes() ) oatendimentobut06:lTransparent = .t. oatendimentobut06:refresh()
-
Boa tarde,
Edu nesta tela que deve ser uma dialog quando abrir esta TELA você pode colocar uma ON INIT e chamar uma função com um TIMER.ex.
define dialog ODIALOG title "" from 000,000 to 650,595 pixel private otimer_atualiza ..... ...array ou browse ... activate dialog ODIALOG center on init ( atualiza_browse_timer() ) otimer_atualiza:end() function atualiza_browse_timer() define timer otimer_atualiza interval 70 action( atuliza_browse() ) activate timer otimer_atualiza rerturn nil function atuliza_browse() // comandos para atualizar o browse ou array.... return nilFiz na correria, mas acredito que seja isso.
-
-
-
https://mail.google.com/mail/u/0/?pli=1#inbox/FMfcgzGpGBCvPhwCkZpWXqfDlVZtsQbg
Em tempo:
Data correta é 26/05/2022. -
https://mail.google.com/mail/u/0/?pli=1#inbox/FMfcgzGpGBCvPhwCkZpWXqfDlVZtsQbg
Você que programa em xHarbour, esta é para você.
Nesta quinta-feira (29/05/2022), às 9h, DLL Unimake.DFe com xHarbour na prática.
Integre seu ERP ou PDV para envio dos documentos fiscais eletrônicos (Nfe, Nfce, Cte, MDFe, NFSe, etc.) com a DLL Unimake.Dfe.
Vamos falar e praticar sobre:
- Instalando a DLL para uso na linguagem xHarbour;
- Consumindo o serviço "Consultar Status do Serviço da NFe";
- Consumindo o serviço "Consultar Situação da NFe".
Seja muito mais produtivo na integração com os documentos fiscais eletrônicos (NFe, NFCe, CTe, CTeOS, MDFe, GNRE, NFSe, etc.).
Link para participação:
https://youtu.be/YwQgMJmhNVA
Participe e compartilhe. -
Bom dia,
Segue um prg, que usado com o SITEF da SOFTWARE EXPRESS. (Terá que fazer o contrato com eles, para usar o TEF dedicado - Transferência Eletrônica de Fundos, consumindo a dll deles ou a comunicação via "TXT"), ou o Gerenciador padrão, neste caso tem que ser homologado.PDV -> PINPAD -> IMPRESSORA NÃO FISCAL ( para NFC-e ou SAT-ECF)
OU DESENVOLVER consumindo as dll ou api's das operadoras de cartão, que neste caso precisam ser homologados.
TEF.prg
#include "FiveWin.ch" #include "Directry.ch" ***************************************************************************** * PROGRAMA..: FAZTEF.PRG * * FUNCAO....: Ativa gerenciador padrao de TEF. * * * * PARÂMETROS: V_CTIPO -> Tipo da operação a ser executada; * * V_CTEF -> Número de controle de operação TEF; * * V_CPAGO -> Valor da operação passado como texto. * * * * AUTOR...: Vilian F. Arraes EM: 14/05/02 * ***************************************************************************** FUNCTION fazTef(v_cTipo,v_cTef,v_cPago, nCtTEF, nPgTEF, CintPos, lhiper, nMosMSG, lconf_pre) LOCAL v_cBuf,v_cTxt,v_cCupom:=Space(6),v_n,v_nLin,v_nRet := 0, aRet,v_cRede,; v_cFinal,v_cNSU,oDlgTef,oSay[3],v_cValor, teste_val, osayTxtVal, osayTxtDoc, ; nValorSaque, nOrdCli default lhiper := .f., nMosMSG := .t., v_cPago := '1,00', nCtTEF := 1, nPgTEF := 1, lconf_pre := .f. //private ltravatef := .f. ltravatef := .f. BEGIN SEQUENC CursorWait() //FAZ VENDA EM CARTÃO IF v_cTipo = "CRT" nVezes := 1 do while !ver_ativo(cdirtef) if !_tefdedic if ltravatef liberatc() endif endif if !v_superM obtn_finaliza:disable() obtn_finaliza:refresh(.t.) endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TEF não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !v_superM obtn_finaliza:enable() obtn_finaliza:refresh(.t.) endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo DelMsgTef( cDirTef ) v_cCupom = vdocum if val(StrTran(v_cPago,",")) > 999 teste_val = StrTran(v_cPago,",") else teste_val = strzero(val(StrTran(v_cPago,",")),3) endif if !_tefdedic v_cTxt := "000-000 = CRT"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "004-000 = 0"+CRLF+; "701-000 = SALC"+_versao+CRLF+; "706-000 = 3"+CRLF+; "716-000 = "+_soft+CRLF+; "999-999 = 0"+CRLF else v_cTxt := "000-000 = CRT"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "210-084 = SALC"+_versao+"10"+CRLF+; "701-034 = 4"+CRLF+; "999-999 = 0"+CRLF endif // "001-000 = "+v_cTef+CRLF+; // "777-777 = teste Redecard"+CRLF+; // Homologação // "777-777 = TESTE HIPERCARD"+CRLF+; // Homologação IF .NOT. Empty( v_cTxt := EnvCmdTef(v_cTxt) ) //SE TRANSAÇÃO APROVADA IF Substr(v_cTxt,At("009-000",v_cTxt)+10,1) = "0" v_nLin := Val( ExtMsgTef(v_cTxt,"028-000") ) v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTef( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT c_cnpj := ExtMsgTef(v_cTxt,"600-000") c_codban := ExtMsgTef(v_cTxt,"601-000") c_codaut := ExtMsgTef(v_cTxt,"602-000") if empty(c_cnpj) .and. empty(c_codban) .and. empty(c_codaut) c_cnpj := ExtMsgTef(v_cTxt,"007-000") c_codban := ExtMsgTef(v_cTxt,"010-000") c_codaut := ExtMsgTef(v_cTxt,"013-000") if "VISA"#upper(c_codban) c_codban := "01" elseif "MASTER"#upper(c_codban) c_codban := "02" elseif "AMEX"#upper(c_codban) c_codban := "03" elseif "SORO"#upper(c_codban) c_codban := "04" else c_codban := "99" endif endif if empty(c_cnpj) nOrdCli := acliente->(indexord()) acliente->(dbsetorder(1)) if acliente->(dbseek(alltrim(albx_formas[iformas,19]))) c_cnpj := alltrim(acliente->CNPJ) else if v_nfce erro("CNPJ da CREDENCIADA TEF não cadastrado!", "ERRO") erro("NFC-E não poderá ser enviada sem essa informação!", "ERRO") endif endif acliente->(dbsetorder(nOrdCli)) endif if empty(c_codban) c_codban := ExtMsgTef(v_cTxt,"010-003") endif if empty(c_codaut) c_codaut := ExtMsgTef(v_cTxt,"013-000") endif if v_nfce .and. !v_nfce_ecf cValorTEF := ExtMsgTef(v_cTxt,"003-000") cValorTEF := val(cValorTEF) v_cTpTran := ExtMsgTef(v_cTxt,"011-000") v_cRedeTr := ExtMsgTef(v_cTxt,"010-000") aadd(aCOOCDC, { strzero(val(vdocum), 9), ; albx_formas[iformas, 4], cValorTEF, albx_formas[iformas, 16], ; v_cTpTran, v_cRedeTr, vtot_ven }) endif if nPgTEF > 1 .and. nCtTEF < nPgTEF // verifica se existe mais um cartao tef na mesma venda e faz backup do INTPOS.001 e Imprime.txt nFileHandle := FCreate( cDirTef+"\imprime"+strzero(nCtTEF, 2)+".txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos"+strzero(nCtTEF, 2)+".TMP", .f.) if !_tefdedic if GrvCmdTef(5,{left(albx_formas[nCtTEF, 1],16),"CNF"},.f.,.f.) DelMsgTef(cdirtef) endif endif albx_formas[iformas, 14] := cDirTef+"\imprime"+strzero(nCtTEF, 2)+".txt" albx_formas[iformas, 15] := cDirTef+"\IntPos"+strzero(nCtTEF, 2)+".TMP" elseif nPgTEF > 1 .and. nCtTEF == nPgTEF // testa se é o ultimo cartao tef, se for não faz CNF e imprime cdc´s na ordem nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos.001", .f.) /* if _tefdedic if GrvCmdTef(5,{left(albx_formas[nCtTEF, 1],16),"CNF"},.f.,.f.) DelMsgTef(cdirtef) endif endif */ albx_formas[iformas, 14] := cDirTef+"\imprime.txt" if !_tefdedic albx_formas[iformas, 15] := cDirTef+"\IntPos.001" else albx_formas[iformas, 15] := if(file(cDirTef+"\IntPos.tmp"), cDirTef+"\IntPos.tmp", cDirTef+"\IntPos.001") endif else nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos.001", .f.) albx_formas[iformas, 14] := cDirTef+"\imprime.txt" albx_formas[iformas, 15] := cDirTef+"\IntPos.001" endif v_nRet := 1 if _tefdedic nValorSaque := round(Val( strtran(ExtMsgTef(v_cTxt,"200-000"), ',', '.') ), 2) if nValorSaque > 0 // round((val(StrTran(v_cPago,",")) / 100), 2) vtot_tef := vtot_tef + nValorSaque albx_formas[iformas, 2] := albx_formas[iformas, 2] + nValorSaque endif nDescCielo := round(Val( strtran(ExtMsgTef(v_cTxt,"210-081"), ',', '.') ), 2) if nDescCielo > 0 vdesconto := vdesconto + (albx_formas[iformas, 2] - (nDescCielo + nValorSaque)) albx_formas[iformas, 2] := albx_formas[iformas, 2] - ((albx_formas[iformas, 2] - nDescCielo)) + nValorSaque endif else nValorSaque := round(Val( ExtMsgTef(v_cTxt,"708-000") ) / 100, 2) if (round((val(StrTran(v_cPago,",")) / 100), 2) + nValorSaque) > round((val(StrTran(v_cPago,",")) / 100), 2) vtot_tef := vtot_tef + nValorSaque albx_formas[iformas, 2] := albx_formas[iformas, 2] + nValorSaque endif nDescCielo := round(Val( strtran(ExtMsgTef(v_cTxt,"709-000"), ',', '.') ), 2) / 100 if nDescCielo > 0 vdesconto := vdesconto + nDescCielo albx_formas[iformas, 2] := albx_formas[iformas, 2] - vdesconto vtot_tef := vtot_tef - vdesconto endif endif ELSE lTEFneg := .t. DelMsgTef( cDirTef ) Ferase(cDirTef+"\IntPos.res") v_nRet := -21 ENDIF ENDIF //FAZ VENDA COM CHEQUE - INCLUSO PARA REDECARD EM 22/03/06 ELSEIF v_cTipo = "CHQ" nVezes := 1 do while !ver_ativo(cdirtef) if !_tefdedic if ltravatef liberatc() endif endif if !v_superM obtn_finaliza:disable() obtn_finaliza:refresh(.t.) endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TEF não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !v_superM obtn_finaliza:enable() obtn_finaliza:refresh(.t.) endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo DelMsgTef( cDirTef ) v_cCupom = vdocum if val(StrTran(v_cPago,",")) > 999 teste_val = StrTran(v_cPago,",") else teste_val = strzero(val(StrTran(v_cPago,",")),3) endif if !_tefdedic v_cTxt := "000-000 = CHQ"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "004-000 = 0"+CRLF+; "701-000 = SALC"+_versao+CRLF+; "706-000 = 3"+CRLF+; "716-000 = "+_soft+CRLF+; "999-999 = 0"+CRLF else v_cTxt := "000-000 = CHQ"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "999-999 = 0"+CRLF endif // "001-000 = "+v_cTef+CRLF+; * "032-927 = teste"+CRLF+; // Homologação IF .NOT. Empty( v_cTxt := EnvCmdTef(v_cTxt) ) //SE TRANSAÇÃO APROVADA IF Substr(v_cTxt,At("009-000",v_cTxt)+10,1) = "0" .OR. Substr(v_cTxt,At("009-000",v_cTxt)+10,2) = 'P1' if Substr(v_cTxt,At("028-000",v_cTxt)+10,1) # "0" v_nLin := Val( ExtMsgTef(v_cTxt,"028-000") ) v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTef( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT if nPgTEF > 1 .and. nCtTEF < nPgTEF // verifica se existe mais um cartao tef na mesma venda e faz backup do INTPOS.001 e Imprime.txt nFileHandle := FCreate( cDirTef+"\imprime"+strzero(nCtTEF, 2)+".txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos"+strzero(nCtTEF, 2)+".TMP", .f.) if !_tefdedic if GrvCmdTef(5,{left(albx_formas[nCtTEF, 1],16),"CNF"},.f.,.f.) DelMsgTef(cdirtef) endif endif albx_formas[iformas, 14] := cDirTef+"\imprime"+strzero(nCtTEF, 2)+".txt" albx_formas[iformas, 15] := cDirTef+"\IntPos"+strzero(nCtTEF, 2)+".TMP" elseif nPgTEF > 1 .and. nCtTEF == nPgTEF // testa se é o ultimo cartao tef, se for não faz CNF e imprime cdc´s na ordem nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos.001", .f.) if _tefdedic if GrvCmdTef(5,{left(albx_formas[nCtTEF, 1],16),"CNF"},.f.,.f.) DelMsgTef(cdirtef) endif endif if !_tefdedic albx_formas[iformas, 15] := cDirTef+"\IntPos.001" else albx_formas[iformas, 15] := if(file(cDirTef+"\IntPos.tmp"), cDirTef+"\IntPos.tmp", cDirTef+"\IntPos.001") endif albx_formas[iformas, 14] := cDirTef+"\imprime.txt" //albx_formas[iformas, 15] := cDirTef+"\IntPos.001" else nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos.001", .f.) albx_formas[iformas, 14] := cDirTef+"\imprime.txt" albx_formas[iformas, 15] := cDirTef+"\IntPos.001" endif endif v_nRet := 1 ELSE DelMsgTef( cDirTef ) Ferase(cDirTef+"\IntPos.res") v_nRet := -21 ENDIF ENDIF if File(cDirTef+"\Intpos.res") Ferase(cDirTef+"\IntPos.res") endif //FAZ CONFIRMAÇÃO DE VENDA EM CARTÃO ELSEIF v_cTipo = "CNF" nVezes := 1 do while !ver_ativo(cdirtef) //if ltravatef if !_tefdedic liberatc() endif //endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes > 3 exit endif else erro("Gerenciador TEF não ativo!","Atenção") nVezes++ if nVezes > 3 exit endif endif //if ltravatef if !_tefdedic travatc() endif //endif sysrefresh() enddo v_cTxt := MemoRead( if(!_tefdedic, cDirTef+"\RESP\IntPos.001", CintPos)) v_cCupom := ExtMsgTef(v_cTxt,"002-000") v_cNSU := ExtMsgTef(v_cTxt,"012-000") v_cRede := ExtMsgTef(v_cTxt,"010-000") v_cFinal := ExtMsgTef(v_cTxt,"027-000") if len(alltrim(v_cCupom)) == 0 v_cTxt := "000-000 = CNF"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "027-000 = "+v_cFinal+CRLF+; "999-999 = 0"+CRLF else v_cTxt := "000-000 = CNF"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "027-000 = "+v_cFinal+CRLF+; "999-999 = 0"+CRLF endif if _tefdedic .and. nVezes > 3 Ferase(cDirTef+"\RESP\IntPos.001") elseif !_tefdedic .and. nVezes > 3 Ferase(cDirTef+"\RESP\IntPos.001") endif IF .NOT. Empty(EnvCmdTef( v_cTxt )) v_nRet := 1 DelMsgTef(cDirTef) ENDIF if File(cDirTef+"\Intpos.res") Ferase(cDirTef+"\IntPos.res") endif if !_tefdedic liberatc() endif //CANCELA CUPOM TEF NÃO IMPRESSO ELSEIF v_cTipo = "NCN" if !_tefdedic travatc() ltravatef := .t. endif nVezes := 1 do while !ver_ativo(cdirtef) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") if !lLoopNCN nVezes++ if nVezes >= 3 exit endif endif else erro("Gerenciador TEF não ativo!","Atenção") if !lLoopNCN nVezes++ if nVezes >= 3 exit endif endif endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo Ferase(cDirTef+"\Imprime.txt") v_cTxt := MemoRead( if(_tefdedic, CintPos, cDirTef+"\RESP\IntPos.001") ) v_cNSU := ExtMsgTef(v_cTxt,"012-000") v_cRede := ExtMsgTef(v_cTxt,"010-000") v_cFinal := ExtMsgTef(v_cTxt,"027-000") v_cValor := ExtMsgTef(v_cTxt,"003-000") IF v_cTef = NIL v_cTef := ExtMsgTef(v_cTxt,"001-000") ENDIF if !_tefdedic v_cTxt := "000-000 = NCN"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "027-000 = "+v_cFinal+CRLF+; "999-999 = 0"+CRLF else v_CupVinc := ExtMsgTef(v_cTxt,"002-000") v_cTxt := "000-000 = NCN"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_CupVinc+CRLF+; // Cupom fiscal vinculado "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "027-000 = "+v_cFinal+CRLF+; "999-999 = 0"+CRLF endif IF .NOT. Empty(EnvCmdTef( v_cTxt )) DelMsgTef(cDirTef) nResp := .t. else if _tefdedic nResp := .F. endif ENDIF if !_tefdedic liberatc() ltravatef := .f. endif if !_tefdedic DEFINE DIALOG odlg_ncn RESOURCE "TEFNCN" FONT fnt_ecf COLOR RGB(182,221,199), _CORPADRAO REDEFINE SAY ID 30 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY osayTxtDoc ID 31 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY ID 32 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY osayTxtVal ID 33 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY oSay[1] ID 301 OF odlg_ncn COLOR COR_SAY,RGB(182,221,199) UPDATE REDEFINE SAY oSay[2] ID 302 OF odlg_ncn COLOR COR_SAY,RGB(182,221,199) UPDATE REDEFINE SAY oSay[3] ID 303 OF odlg_ncn COLOR COR_SAY,RGB(182,221,199) UPDATE if upper(left(alltrim(v_cNsu),3)) <> 'ADM' oSay[1]:SetText(v_cNSU) endif oSay[2]:SetText(v_cRede) IF val(v_cNsu) <> 0 oSay[2]:SetText(v_cRede) else osayTxtDoc:SetText("") osayTxtDoc:refresh(.t.) odlg_ncn:refresh(.t.) ENDIF IF val(v_cvalor) <> 0 if _tefdedic oSay[3]:SetText(Trans(Val(v_cValor),"@E 999,999.99")) else oSay[3]:SetText(Trans(Val(v_cValor)/100,"@E 999,999.99")) endif else osayTxtVal:SetText("") osayTxtVal:refresh(.t.) odlg_ncn:refresh(.t.) ENDIF REDEFINE BUTTON ID 101 of odlg_ncn action odlg_ncn:end() COLOR cor_btn CANCEL odlg_ncn:lhelpicon:=.f. ACTIVATE DIALOG odlg_ncn CENTERED else if nResp .and. nMosMSG erro("Transação não foi Efetuada."+CRLF+"Favor reter o Cupom.","Atenção") endif endif if File(cDirTef+"\Intpos.res") Ferase(cDirTef+"\IntPos.res") endif //FAZ ADM ELSEIF v_cTipo = "ADM" nVezes := 1 do while !ver_ativo(cdirtef) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TEF não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo if !_tefdedic v_cTxt := "000-000 = ADM"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "701-000 = SALC"+_versao+CRLF+; "706-000 = 3"+CRLF+; "716-000 = "+_soft+CRLF+; "999-999 = 0"+CRLF else v_cTxt := "000-000 = ADM"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "999-999 = 0"+CRLF endif IF .NOT. Empty( v_cTxt:=EnvCmdTef( v_cTxt ) ) v_nLin := Val( ExtMsgTef(v_cTxt,"028-000") ) v_Canc := Val( ExtMsgTef(v_cTxt,"025-000") ) IF v_nLin > 0 v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTef( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) if !_tefdedic ltravatef := .t. travatc() endif if _tefdedic if !v_nfce IF PrintCupTef( .T. ) = 1 fazTef("CNF",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001") ELSE if v_Canc > 0 fazTef("CNF",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001") erro("Transação TEF confirmada."+CRLF+"Favor reimprimir último comprovante.","Atenção") else fazTef("NCN",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001" ) endif ENDIF else cRet := MemoRead( cDirTef+"\imprime.txt") nViasTEF := 2 for xTef := 1 to nViasTEF oFrPrn := frReportManager():New() oFrPrn:LoadFromFile(".\tef.fr3") oFrPrn:AddVariable("Comprovante", "tef", "'"+cRet+"'") oFrPrn:PrintOptions:SetShowDialog(.f.) oFrPrn:PrepareReport() oFrPrn:Print(.T.) oFrPrn:ClearDataSets() oFrPrn:DestroyFR() next fazTef("CNF",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001") endif else if !v_nfce IF PrintCupTef( .T. ) = 1 liberatc() fazTef("CNF",v_cTef,v_cPago) ELSE fazTef("NCN",v_cTef ) ENDIF else cRet := MemoRead( cDirTef+"\imprime.txt") nViasTEF := 2 for xTef := 1 to nViasTEF oFrPrn := frReportManager():New() oFrPrn:LoadFromFile(".\tef.fr3") oFrPrn:AddVariable("Comprovante", "tef", "'"+cRet+"'") oFrPrn:PrintOptions:SetShowDialog(.f.) oFrPrn:PrepareReport() oFrPrn:Print(.T.) oFrPrn:ClearDataSets() oFrPrn:DestroyFR() next fazTef("CNF",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001") endif endif if !_tefdedic liberatc() ltravatef := .f. endif ENDIF v_nRet := 1 DelMsgTef( cDirTef ) if File(cDirTef+"\Intpos.res") Ferase(cDirTef+"\IntPos.res") endif Ferase(cDirTef+"\Imprime.txt") ENDIF ELSEIF v_cTipo = "CNC" if lhiper cdirant := cdirtef cdirtef := cdirhiper endif nVezes := 1 do while !ver_ativo(cdirtef) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TEF não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo DelMsgTef( cdirtef ) v_cTXT := MemoRead( CintPos ) v_cCupom := ExtMsgTef(v_cTxt,"002-000") v_valort := ExtMsgTef(v_cTxt,"003-000") v_cRede := ExtMsgTef(v_cTxt,"010-000") v_cNSU := ExtMsgTef(v_cTxt,"012-000") v_dtcmv := ExtMsgTef(v_cTxt,"022-000") v_hrcmv := ExtMsgTef(v_cTxt,"023-000") // v_cFinal := ExtMsgTef(v_cTxt,"027-000") if !_tefdedic v_cTxt := "000-000 = CNC"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(v_valort)+CRLF+; "004-000 = 0"+CRLF+; "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "022-000 = "+v_dtcmv+CRLF+; "023-000 = "+v_hrcmv+CRLF+; "701-000 = SALC"+_versao+CRLF+; "706-000 = 3"+CRLF+; "716-000 = "+_soft+CRLF+; "999-999 = 0"+CRLF else v_cTxt := "000-000 = CNC"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(v_valort)+CRLF+; "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "022-000 = "+v_dtcmv+CRLF+; "023-000 = "+v_hrcmv+CRLF+; "999-999 = 0"+CRLF endif // "027-000 = "+v_cFinal+CRLF+; //"777-777 = teste Redecard"+CRLF+; // Homologação // se nao for necessario pra CNC retirar essas 2 linhas //"777-777 = TESTE HIPERCARD"+CRLF+; // Homologação IF .NOT. Empty( v_cTxt := EnvCmdTef(v_cTxt) ) //SE TRANSAÇÃO APROVADA nResp := .T. IF Substr(v_cTxt,At("009-000",v_cTxt)+10,1) = "0" v_nLin := Val( ExtMsgTef(v_cTxt,"028-000") ) v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTef( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) ELSE DelMsgTef( cdirtef ) Ferase(cdirtef+"\IntPos.res") v_nRet := -21 nResp := .f. ENDIF ELSE if !_tefdedic liberatc() endif DelMsgTef( cdirtef ) Ferase(cdirtef+"\IntPos.res") v_nRet := -21 nResp := .F. ENDIF if lhiper cdirtef := cdirant cdirant := cdirtef endif //FAZ PRE-AUTORIZACAO ELSEIF v_cTipo = "PRE" nVezes := 1 do while !ver_ativo(cdirtef) if !_tefdedic if ltravatef liberatc() endif endif if !v_superM obtn_finaliza:disable() obtn_finaliza:refresh(.t.) endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TEF não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !v_superM obtn_finaliza:enable() obtn_finaliza:refresh(.t.) endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo DelMsgTef( cDirTef ) v_cCupom = vdocum if val(StrTran(v_cPago,",")) > 999 teste_val = StrTran(v_cPago,",") else teste_val = strzero(val(StrTran(v_cPago,",")),3) endif if lconf_pre cConf501 := "0010000000000000000000000000000000000000000000000000000000000000000000000000000" else cConf501 := "1101000000000000000000000000000000000000000000000000000000000000000000000000000" endif if !_tefdedic v_cTxt := "000-000 = PRE"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "004-000 = 0"+CRLF+; "501-001 = "+cConf501+CRLF+; "701-000 = SALC"+_versao+CRLF+; "716-000 = "+_soft+CRLF+; "999-999 = 0"+CRLF else v_cTxt := "000-000 = PRE"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "210-084 = SALC"+_versao+"10"+CRLF+; "501-001 = "+cConf501+CRLF+; "701-034 = 4"+CRLF+; "999-999 = 0"+CRLF endif // "001-000 = "+v_cTef+CRLF+; // "777-777 = teste Redecard"+CRLF+; // Homologação // "777-777 = TESTE HIPERCARD"+CRLF+; // Homologação IF .NOT. Empty( v_cTxt := EnvCmdTef(v_cTxt) ) //SE TRANSAÇÃO APROVADA IF Substr(v_cTxt,At("009-000",v_cTxt)+10,1) = "0" v_nLin := Val( ExtMsgTef(v_cTxt,"028-000") ) v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTef( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT if nPgTEF > 1 .and. nCtTEF < nPgTEF // verifica se existe mais um cartao tef na mesma venda e faz backup do INTPOS.001 e Imprime.txt nFileHandle := FCreate( cDirTef+"\imprime"+strzero(nCtTEF, 2)+".txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) if !lconf_pre if !_tefdedic ltravatef := .t. travatc() endif if _tefdedic IF PrintCupTef( .T. ) = 1 if !_tefdedic liberatc() endif fazTef("CNF",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001") ELSE fazTef("NCN",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001" ) ENDIF else IF PrintCupTef( .T. ) = 1 liberatc() fazTef("CNF",v_cTef,v_cPago) ELSE fazTef("NCN",v_cTef ) ENDIF endif if !_tefdedic liberatc() ltravatef := .f. endif endif COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos"+strzero(nCtTEF, 2)+".TMP", .f.) if lconf_pre if !_tefdedic if GrvCmdTef(5,{left(albx_formas[nCtTEF, 1],16),"CNF"},.f.,.f.) DelMsgTef(cdirtef) endif endif endif if lconf_pre albx_formas[iformas, 14] := cDirTef+"\imprime"+strzero(nCtTEF, 2)+".txt" albx_formas[iformas, 15] := cDirTef+"\IntPos"+strzero(nCtTEF, 2)+".TMP" endif elseif nPgTEF > 1 .and. nCtTEF == nPgTEF // testa se é o ultimo cartao tef, se for não faz CNF e imprime cdc´s na ordem nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) if !lconf_pre if !_tefdedic ltravatef := .t. travatc() endif if _tefdedic IF PrintCupTef( .T. ) = 1 if !_tefdedic liberatc() endif fazTef("CNF",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001") ELSE fazTef("NCN",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001" ) ENDIF else IF PrintCupTef( .T. ) = 1 liberatc() fazTef("CNF",v_cTef,v_cPago) ELSE fazTef("NCN",v_cTef ) ENDIF endif if !_tefdedic liberatc() ltravatef := .f. endif endif COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos.001", .f.) if lconf_pre albx_formas[iformas, 14] := cDirTef+"\imprime.txt" if !_tefdedic albx_formas[iformas, 15] := cDirTef+"\IntPos.001" else albx_formas[iformas, 15] := if(file(cDirTef+"\IntPos.tmp"), cDirTef+"\IntPos.tmp", cDirTef+"\IntPos.001") endif endif else nFileHandle := FCreate( cDirTef+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) if !lconf_pre if !_tefdedic ltravatef := .t. travatc() endif if _tefdedic IF PrintCupTef( .T. ) = 1 if !_tefdedic liberatc() endif fazTef("CNF",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001") ELSE fazTef("NCN",v_cTef,v_cPago,,, cDirTef+"\RESP\intpos.001" ) ENDIF else IF PrintCupTef( .T. ) = 1 liberatc() fazTef("CNF",v_cTef,v_cPago) ELSE fazTef("NCN",v_cTef ) ENDIF endif if !_tefdedic liberatc() ltravatef := .f. endif endif COPYFILE(cDirTef+"\RESP\IntPos.001",cDirTef+"\IntPos.001", .f.) if lconf_pre albx_formas[iformas, 14] := cDirTef+"\imprime.txt" albx_formas[iformas, 15] := cDirTef+"\IntPos.001" endif endif v_nRet := 1 ELSE lTEFneg := .t. DelMsgTef( cDirTef ) Ferase(cDirTef+"\IntPos.res") v_nRet := -21 ENDIF ENDIF ENDIF END SEQUENC RETURN v_nRet FUNCTION ExtMsgTef( cTxt,cCod ) LOCAL cLin if At(cCod,cTxt) == 0 cLin := "" else cLin := Substr(cTxt,At(cCod,cTxt)+10) cLin := Left(cLin,At(CHR(13)+CHR(10),cLin)-1) endif RETURN cLin FUNCTION EnvCmdTef( cTxt ) LOCAL nQte:= 0,cRet,nLin, c002Req, c001sts, c002sts, c003sts, c005Sts, nFileHandle Ferase(cDirTef+"\RESP\IntPos.Sts") nFileHandle := FCreate( cDirTef+"\REQ\IntPos.tmp", 0 ) FWrite( nFileHandle, cTxt, Len(cTxt) ) FClose( nFileHandle ) copyfile(cDirTef+"\REQ\IntPos.tmp",cDirTef+"\REQ\IntPos.001") ferase(cDirTef+"\REQ\IntPos.tmp") // Frename(cDirTef+"\REQ\IntPos.tmp",cDirTef+"\REQ\IntPos.001") c001sts := ExtMsgTef(cTxt, "000-000") DO WHILE nQte < 4 SysWait(2) IF File(cDirTef+"\RESP\IntPos.Sts") EXIT ENDIF nQte++ sysrefresh() ENDDO IF nQte >= 4 if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") else erro("Gerenciador TEF não ativo!","Atenção") endif if !_tefdedic if ltravatef travatc() endif endif if _tefdedic if c001sts # 'CNF' DelMsgTef( cDirTef ) else ferase(cDirTef+"\IntPos.CNF") copyfile(cDirTef+"\REQ\IntPos.001",cDirTef+"\IntPos.CNF") ferase(cDirTef+"\REQ\IntPos.001") aImprime := Directory(cDirTef+"\imprime*.txt" ) if len(aImprime) > 0 aeval(aImprime, {|a| ferase(cDirTef+"\"+alltrim(a[1]))}) endif endif else DelMsgTef( cDirTef ) endif RETURN "" ELSE if _tefdedic if file(cDirTef+"\IntPos.CNF") ferase(cDirTef+"\IntPos.001") copyfile(cDirTef+"\IntPos.CNF", cDirTef+"\REQ\IntPos.001") ferase(cDirTef+"\IntPos.CNF") endif c001stsD := MemoRead( cDirTef+"\RESP\IntPos.sts" ) c001stsD := ExtMsgTef(c001stsD, "000-000") if c001stsD == 'NCN' .or. c001stsD == 'CNF' DelMsgTef( cDirTef ) RETURN cTxt endif endif ENDIF nQte := 0 DO WHILE nQte < if(_tefdedic, 300, 300) .AND. .NOT. File(cDirTef+"\RESP\IntPos.001") nQte++ SysWait(2) if File(cDirTef+"\RESP\IntPos.001") c002Req := MemoRead( cDirTef+"\RESP\IntPos.001" ) if c001sts == "CRT" // inicio teste numero 47 e 48 roteiro visa c002sts := ExtMsgTef(c002Req, "001-000") c003sts := ExtMsgTef(cTxt, "001-000") c002sts := val(c002sts) c003sts := val(c003sts) c009sts := ExtMsgTef(c002Req, "009-000") if c009sts == "0" .and. c002sts # c003sts Ferase(cDirTef+"\RESP\IntPos.001") loop endif // fim teste numero 47 e 48 roteiro visa endif nFileHandle := FCreate( cDirTef+"\IntPos.tmp", 0 ) FWrite( nFileHandle, c002Req, Len(c002Req) ) FClose( nFileHandle ) Frename(cDirTef+"\IntPos.tmp",cDirTef+"\IntPos.res") endif sysrefresh() ENDDO IF nQte < if(_tefdedic, 300, 300) * ok('Aguardando teste RedeCard...') // Homologação cTxt := MemoRead( cDirTef+"\RESP\IntPos.001" ) cRet := ExtMsgTef(cTxt,"030-000") nLin := Val( ExtMsgTef(cTxt,"028-000") ) IF nLin = 0 .AND. .NOT. Empty(cRet) if type("Wvar") == "U" if valtype(ODLG_PROA) == 'O' SetForegroundWindow( ODLG_PROA:hWnd ) sysrefresh() endif if valtype(ownd_tef) == 'O' ownd_tef:refresh(.t.) ownd_tef:setfocus() endif ok(cRet,"Atenção") Wvar := .t. endif ENDIF ELSE cTxt := "" if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") else erro("Gerenciador TEF não Responde !","Atenção") endif if !_tefdedic if ltravatef travatc() endif endif DelMsgTef( cDirTef ) ENDIF RETURN cTxt FUNCTION DelMsgTef( cDir ) Ferase(cDir+"\RESP\IntPos.001") Ferase(cDir+"\RESP\IntPos.sts") //Ferase(cDir+"\Imprime.txt") RETURN NIL /*function ApagTEF(cdir, nArqSeq, cArq001) if empty(cArq001) .and. empty(nArqSeq) return(NIL) endif Ferase(cArq001) Ferase(cDir+"\RESP\IntPos.sts") Ferase(nArqSeq) return NIL */ function ApagTEFG(nArqSeq, cArq001) if empty(cArq001) .and. empty(nArqSeq) return(NIL) endif Ferase(cArq001) Ferase(nArqSeq) return NIL FUNCTION DelMsgTefM( cDir, ntefi, nPgTEF ) // if ntefi # nPgTEF Ferase(cDir+"\IntPos"+strzero(ntefi, 2)+".TMP") // endif Ferase(cDir+"\RESP\IntPos.sts") Ferase(cDir+"\imprime"+if(ntefi == nPgTEF, "", strzero(ntefi, 2))+".txt") RETURN NIL ***************************************************************************** * PROGRAMA: PrintCupTef.PRG * * FUNCAO..: Imprime cupom TEF. * * * * AUTOR...: Vilian F. Arraes EM: 01/05/2002 * ***************************************************************************** FUNCTION PrintCupTef( lErro, cForma, cValor ) LOCAL n,k,cTxt,lRet:=.T.,aRet,cMsg := "",cRet,nSecs:=Seconds(), var_imprimir IF File(cDirTef+"\imprime.txt") CursorWait() ownd_tef:SetFocus() ownd_tef:Show() aRet := tef_aguarde("I_IMPRESSORA") aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex cRet := MemoRead( cDirTef+"\RESP\IntPos.001" ) IF .NOT. Empty( cMsg := ExtMsgTef(cRet,"030-000") ) aRet[3]:SetText(cMsg) aRet[1]:Update() ENDIF cTxt := MemoRead(cDirTef+"\imprime.txt") //SE FOR IMPRESSÃO APÓS ERRO IF lErro lImpCCD := .f. if _bematech .or. _daruma .or. _sweda .or. _elgin .or. _urano .or. _epson CancCupTEF() aRet[3]:SetText("Verificando impressora...") if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF GrvCmdFis(25,,,,,.F.) if !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc == '02' .or. cInfDoc == '04' IF GrvCmdFis(if(cInfDoc == '02', 88, 25),,,,,.F.) if !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif elseif _daruma .or. _sweda .or. _elgin .or. _bematech // incluido em 05/02/2011 lAlgoAberto := .f. if _daruma cEstado := space(2) if GrvCmdFis(41,,,@cEstado,,.f.) cEstado := substr(cEstado, 1,1) if cEstado # '0' lAlgoAberto := .t. endif elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif elseif _elgin nStGerCDC := 0 E_StatExtMFD(@nStGerCDC) if nStGerCDC = 4 // "Relatório Gerencial Aberto" lAlgoAberto := .t. elseif nStGerCDC = 2 // "Comprovante de Débito ou Crédito Aberto" lAlgoAberto := .t. endif elseif _bematech if GrvCmdFis(80,,,,,.f.) lAlgoAberto := .t. endif else if GrvCmdFis(41,,,,,.f.) lAlgoAberto := .t. endif endif if lAlgoAberto if v_framework cGerAbre := space(2) nRet := DaMFDInf('56', @cGerAbre) cGerAbre := alltrim(cGerAbre) if cGerAbre == '4' nQualComando := 25 else nQualComando := 23 endif else nQualComando := 25 endif IF GrvCmdFis(nQualComando,,,,,.F.) if !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif endif aRet[3]:SetText(cMsg) if _tefdedic c028001 := ExtMsgTef(cRet, "028-001") if val(c028001) == 0 nLinCorte := 0 nviastef := 1 else nLinCorte := val(c028001) + 1 endif else nLinCorte := 0 endif FOR n = 1 TO nviastef if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado # 32 .and. nEstado # 64 IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.f.) RETURN -22 ENDIF ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc # '02' .and. cInfDoc # '04' cIndGer := ascan(aGerEpson, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerEpson[cIndGer, 1]) IF !GrvCmdFis(24,,2,cIndGer,,.F.) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _elgin lAlgoAberto := .f. nStGerCDC := 0 E_StatExtMFD(@nStGerCDC) if nStGerCDC = 4 // "Relatório Gerencial Aberto" lAlgoAberto := .t. elseif nStGerCDC = 2 // "Comprovante de Débito ou Crédito Aberto" lAlgoAberto := .t. endif if !lAlgoAberto cIndGer := ascan(aGerElgin, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerElgin[cIndGer, 1]) nRetElgin := E_AbreGerMFD(cIndGer) if nRetElgin == 0 IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _daruma if v_framework nRet := daProgFormas("RG", "TEF1", ";") nRet := DaAbreGerMFD('TEF1') endif elseif _bematech .and. W_MFD == 1 if !GrvCmdFis(80,,,,,.F.) cIndGer := ascan(aGerBema, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerBema[cIndGer, 1]) BmAbrGerNo(cIndGer) endif elseif _sweda if !GrvCmdFis(83,,,,,.f.) cIndGer := ascan(aGerSweda, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerSweda[cIndGer, 1]) ecfAbreGer(cIndGer) endif endif aRet[2]:SetTotal(MlCount(cTxt)*1.10) // reincluir aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) nRetC := FTEF_Corte(@k, @nLinCorte, @aRet, @lerro, @n, @cForma, @cValor,,,,, cMsg1 := ExtMsgTef(cRet,"030-000")) if nRetC == -22 RETURN -22 elseif nRetC == -30 RETURN 1 endif var_imprimir := Left(StrTran( Memoline(cTxt,50,k),CRLF),48)+CRLF if _urano .or. _epson IF !GrvCmdFis(22,var_imprimir) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF else if .NOT. GrvCmdFis(24,var_imprimir,,,,.f.) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. nviastef > 1 FOR k = 1 TO 10 if _urano .or. _epson if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif else if .NOT. GrvCmdFis(24,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif if valtype(aRet[1]) == 'O' aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") aRet[1]:show() aRet[1]:SetFocus() SysWait(3) aRet[1]:SetFocus() // Alteracao Alex IF .NOT. Empty( cMsg := ExtMsgTef(cRet,"030-000") ) aRet[3]:SetText(cMsg) ENDIF endif ENDIF sysrefresh() NEXT if !GrvCmdFis(25,,,,,.F.) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif // Fim da Bematech / Daruma / Elgin / Sweda / Urano / Epson ELSE IF .NOT. GrvCmdFis(21,{cForma,cValor,NIL},,,,.F.) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE RETURN -22 ENDIF ENDIF if _tefdedic c028001 := ExtMsgTef(cRet, "028-001") // nLinCorte := val(c028001) + 1 if val(c028001) == 0 nLinCorte := 0 nviastef := 1 else nLinCorte := val(c028001) + 1 endif else nLinCorte := 0 endif FOR n = 1 TO nviastef aRet[2]:SetTotal(MlCount(cTxt)*1.1) aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) nRetC := FTEF_Corte(@k, @nLinCorte, @aRet, @lerro, @n, @cForma, @cValor,,,,, cMsg1 := ExtMsgTef(cRet,"030-000")) if nRetC == -22 RETURN -22 elseif nRetC == -30 RETURN 1 endif IF .NOT. GrvCmdFis(22,Left(StrTran( Memoline(cTxt,50,k), CRLF),48)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF ENDIF if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. nviastef > 1 FOR k = 1 TO 10 if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") SysWait(5) aRet[1]:SetFocus() // Alteracao Alex IF .NOT. Empty( cMsg := ExtMsgTef(cRet,"030-000") ) aRet[3]:SetText(cMsg) ENDIF ENDIF sysrefresh() NEXT if !_epson if !GrvCmdFis(23) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif else if !GrvCmdFis(88) IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrintCupTef( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif endif ENDIF aRet[1]:End() ; aRet[1] := NIL ELSE if !_tefdedic liberatc() endif ok("Não há cupons para imprimir!","Atenção") lRet := .f. ENDIF RETURN If(lRet,1,0) STATIC FUNCTION ErroPrinter(aRet) local retorno := .f. if valtype(aRet[1]) == 'O' aRet[1]:End() ; aRet[1] := NIL ownd_tef:SetFocus() ownd_tef:Show() if !_tefdedic liberatc() endif retorno := Continua("Impressora não Responde. Tentar imprimir novamente?") if !_tefdedic travatc() endif if retorno syswait(5) endif else retorno := .t. endif RETURN retorno STATIC FUNCTION tef_aguarde( cIcone,cMens ) LOCAL oDlgWait,oMtr,nPerc,oSay,oIco CursorWait() cIcone := If(cIcone=NIL,"I_AGUARDE",cIcone) DEFINE DIALOG oDlgWait RESOURCE "DLG_AGUARDE" FONT fnt_ecf COLOR cor_dlg REDEFINE ICON oIco NAME (cIcone) ID 101 OF oDlgWait UPDATE REDEFINE SAY oSay ID 301 OF oDlgWait UPDATE REDEFINE METER oMtr VAR nPerc TOTAL 100 ID 901 OF oDlgWait UPDATE IF cMens # NIL oSay:SetText(cMens) ENDIF odlgWait:lhelpicon:=.f. ACTIVATE DIALOG oDlgWait CENTERED NOWAIT RETURN {oDlgWait,oMtr,oSay} ***************************************************************************** * PROGRAMA: GrvCmdTef.PRG * * FUNCAO..: Envia comando para TEF. * * * * AUTOR...: Vilian F. Arraes EM: 01/05/2002 * ***************************************************************************** FUNCTION GrvCmdTef(nCmd,uPar,lMens,lInic, nCtTEF, nPgTEF, nArqSeq, cArq001, cCodForma) LOCAL nRet:=0, oIni, nTef:=0, cTef, kl, xki, aSoTEF, nQtVinc // aImprime, default cCodForma := '' lMens := If(lMens=NIL,.T.,lMens) lInic := If(lInic=NIL,.T.,lInic) if vl_seqtef == NIL vl_seqtef := vl_venda endif cTef := StrZero(val(vl_seqtef),10) //VER TEF ATIVO IF nCmd = 1 nRet := BmTfStatus(cTef) //ACIONA TEF ADM ELSEIF nCmd = 2 nRet := fazTef("ADM",cTef,uPar ) //VENDA CARTÃO ELSEIF nCmd = 3 nRet := fazTef("CRT",cTef,uPar, nCtTEF, nPgTEF ) //IMPRIME VENDA DE CARTÃO ELSEIF nCmd = 4 if !_tefdedic travatc() ltravatef := .t. endif nRet := PrintCupTef( .F.,uPar[1], uPar[2] ) if !_tefdedic liberatc() ltravatef := .f. endif //CONFIRMA IMPRESSÃO DE TEF ELSEIF nCmd = 5 nRet := fazTef("CNF",cTef,uPar[1],,, cArq001) // original ELSEIF nCmd = 6 nRet := fazTef("CHQ",cTef,uPar, nCtTEF, nPgTEF ) //IMPRIME VENDA COM MULTIPLOS CARTOES ELSEIF nCmd = 7 if 'INTPOS.001'$upper(cArq001) COPYFILE(cDirTef+"\IntPos.001",cDirTef+"\RESP\IntPos.001", .f.) ferase(cDirTef+"\IntPos.001") cArq001 := cDirTef+"\RESP\IntPos.001" endif nRet := PrtCupTefM( .F., albx_formas[nCtTEF, 4], albx_formas[nCtTEF, 2], nCtTEF, nPgTEF, nArqSeq, cArq001, cCodForma) if nRet == -44 nRet := 1 endif // PRE-AUTORIZACAO ELSEIF nCmd = 8 nRet := fazTef("PRE",cTef,uPar, nCtTEF, nPgTEF, , , , .t.) ENDIF ownd_tef:Show() IF lMens IF nRet = 0 erro("Gerenciador TEF Inativo !","Atenção") ELSEIF nRet = -2 erro("Parâmetro inválido para comando "+Str(nCmd,2)+" !","Atenção") ELSEIF nRet = -18 erro("Não foi possível abrir/criar arquivo .001 ou .sts !","Atenção") ELSEIF nRet = -19 erro("Numero de Identificação não bate com o do arquivo .001 !","Atenção") ELSEIF nRet = -20 erro("Transação finalizada pelo operador !","Atenção") ELSEIF nRet = -21 erro("A transação não foi aprovada !","Atenção") ELSEIF nRet = -22 erro("Não foi possível terminar a impressão !","Atenção") ELSEIF nRet = -23 erro("Não foi possível terminar a operação !","Atenção") ELSE RETURN .T. ENDIF ELSEIF nRet = 1 RETURN .T. ENDIF RETURN .F. FUNCTION ver_ativo( cdir ) LOCAL nQte:= 0, retorno := .t., ctxt cTxt := "000-000 = ATV"+CRLF+; // colocar ATV antes de toda requisicao // para visa "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "999-999 = 0"+CRLF if !_tefdedic if !ltravado travatc() endif endif Ferase(cDir+"\RESP\IntPos.sts") Ferase(cDir+"\REQ\IntPos.tmp") nFileHandle := FCreate( cDir+"\REQ\IntPos.tmp", 0 ) FWrite( nFileHandle, cTxt, Len(cTxt) ) FClose( nFileHandle ) Frename(cDir+"\REQ\IntPos.tmp",cDir+"\REQ\IntPos.001") Ferase(cDir+"\REQ\IntPos.tmp") DO WHILE nQte < 4 SysWait(2) IF File(cDir+"\RESP\IntPos.Sts") Ferase(cDir+"\RESP\IntPos.sts") // ver se não vai afetar nada, se afetar retirar, em 03/07/2012. EXIT ENDIF nQte++ sysrefresh() ENDDO IF nQte >= 4 retorno = .f. ENDIF if !_tefdedic if !ltravado liberatc() endif endif return retorno function VFimBobina() local Wret := .t., cErroExt private vSemPapel := .f. if v_NFCE .and. !v_NFCE_ECF return(.t.) endif if _bematech uBuf1_status := 0 ubuf2_status := 0 ubuf3_status := 0 nRet := Bmretorno(@uBuf1_status, @ubuf2_status, @ubuf3_status) if ubuf2_status >= 128 Wret := .f. endif elseif _daruma uBuf1_status := space(5) ubuf2_status := space(150) ubuf3_status := space(5) nComando := 8 if v_framework nRet := DaECF(@nComando, @ubuf2_status) ubuf2_status := alltrim(ubuf2_status) ubuf2_status := strtran(ubuf2_status, chr(0), '') if nRet == -12 nRet := 1 endif if ubuf2_status == 'Bobina de papel ausente' Wret := .f. endif endif elseif _Sweda uBuf1_status := 0 ubuf2_status := 0 ubuf3_status := 0 nRet := Ecfretorno(@uBuf1_status, @ubuf2_status, @ubuf3_status) if ubuf2_status >= 128 Wret := .f. endif elseif _elgin uBuf1_status := 0 ubuf2_status := 0 ubuf3_status := 0 nRet := E_retorno(@uBuf1_status, @ubuf2_status, @ubuf3_status) if ubuf2_status >= 128 Wret := .f. endif elseif _urano vSemPapel := .f. Estado_Urano() if vSemPapel Wret := .f. endif elseif _epson /* if EPSON_AbrePorta() # 0 erro('Não foi possível abrir a porta de comunicação com a Impressora!') retorno := .f. endif */ cEstadoImpressora := space(17) cEstadoFisc := space(17) cRetCmd := space(5) cMsgCmd := space(101) nRet := EPSON_RetornoEx( @cEstadoImpressora, @cEstadoFisc, @cRetCmd, @cMsgCmd) // msginfo(cEstadoImpressora) /* msginfo(cEstadoImpressora) msginfo(cEstadoFisc) msginfo(cRetCmd) msginfo(cMsgCmd) */ if substr(cEstadoImpressora, 15, 1) == '1' .or. ; substr(cEstadoImpressora, 3, 1) == '1' .or. ; substr(cEstadoImpressora, 9, 1) == '1' .or. ; substr(cEstadoImpressora, 8, 1) == '1' Wret := .f. endif /* vflag_aberto := space(21) GrvCmdFis(04,NIL,21,@vflag_aberto,,.f.) vflag_aberto := substr(vflag_aberto, 9, 4) vflag_aberto := HexToDec(vflag_aberto) *** Analisando o flag if vflag_aberto >= 32768 vflag_aberto = vflag_aberto - 32768 Wret := .f. endif if vflag_aberto >= 16384 vflag_aberto = vflag_aberto - 16384 Wret := .f. endif if vflag_aberto >= 4096 vflag_aberto = vflag_aberto - 4096 // Wret := .f. endif if vflag_aberto >= 2048 && Memória Fiscal sem espaco vflag_aberto = vflag_aberto - 2048 Wret := .f. endif if vflag_aberto >= 1024 && Memória Fiscal sem espaco vflag_aberto = vflag_aberto - 1024 Wret := .f. endif if vflag_aberto >= 512 vflag_aberto = vflag_aberto - 512 Wret := .f. endif if vflag_aberto >= 256 vflag_aberto = vflag_aberto - 256 Wret := .f. endif if vflag_aberto >= 128 vflag_aberto = vflag_aberto - 128 Wret := .f. endif if vflag_aberto >= 64 vflag_aberto = vflag_aberto - 64 Wret := .f. endif if vflag_aberto >= 32 vflag_aberto = vflag_aberto - 32 Wret := .f. endif if vflag_aberto >= 16 vflag_aberto = vflag_aberto - 16 Wret := .f. endif if vflag_aberto >= 8 vflag_aberto = vflag_aberto - 8 Wret := .f. endif if vflag_aberto >= 4 vflag_aberto = vflag_aberto - 4 Wret := .f. endif if vflag_aberto >= 2 vflag_aberto = vflag_aberto - 2 Wret := .f. endif // if vflag_aberto >= 1 && Cupom Fiscal Aberto // vflag_aberto = vflag_aberto - 1 // endif */ endif return(Wret) function VFimPapel() local Wret := .t., cErroExt private vSemPapel := .f. if v_NFCE .and. !v_NFCE_ECF return(.t.) endif if _bematech uBuf1_status := 0 ubuf2_status := 0 ubuf3_status := 0 nRet := Bmretorno(@uBuf1_status, @ubuf2_status, @ubuf3_status) if ubuf2_status >= 128 Wret := .f. endif elseif _daruma uBuf1_status := space(5) ubuf2_status := space(5) ubuf3_status := space(5) if v_framework nRet := Daretorno(uBuf1_status, ubuf2_status) if nRet == -12 nRet := 1 endif uBuf1_status := val(uBuf1_status) ubuf2_status := val(uBuf2_status) if uBuf1_status == 72 .or. ubuf2_status == 2 Wret := .f. endif endif elseif _Sweda uBuf1_status := 0 ubuf2_status := 0 ubuf3_status := 0 nRet := Ecfretorno(@uBuf1_status, @ubuf2_status, @ubuf3_status) if ubuf2_status >= 128 Wret := .f. endif elseif _elgin uBuf1_status := 0 ubuf2_status := 0 ubuf3_status := 0 nRet := E_retorno(@uBuf1_status, @ubuf2_status, @ubuf3_status) if ubuf2_status >= 128 Wret := .f. endif elseif _urano vSemPapel := .f. Estado_Urano() if vSemPapel Wret := .f. endif elseif _epson cEstadoImpressora := space(17) cEstadoFisc := space(17) cRetCmd := space(5) cMsgCmd := space(101) nRet := EPSON_RetornoEx( @cEstadoImpressora, @cEstadoFisc, @cRetCmd, @cMsgCmd) if substr(cEstadoImpressora, 15, 1) == '1' .or. ; substr(cEstadoImpressora, 3, 1) == '1' .or. ; substr(cEstadoImpressora, 9, 1) == '1' .or. ; substr(cEstadoImpressora, 8, 1) == '1' Wret := .f. endif endif return(Wret) ***************************************************************************** * PROGRAMA: PrtCupTefM.PRG * * FUNCAO..: Imprime cupom TEF. * * * * AUTOR...: Vilian F. Arraes EM: 01/05/2002 * * ALTERADO: Sebastiao de Oliveira Pessoa EM: 09-20-2010 * ***************************************************************************** FUNCTION PrtCupTefM( lErro, cForma, cValor, nki, nPgTEF, cNumArq, cArq001, cCodForma) LOCAL n,k,cTxt,lRet:=.T.,aRet,cMsg := "",cRet,nSecs:=Seconds(), var_imprimir, aImprime, aImprime1, aImprime2 private nViasMC, nTefGP, nTefHp, nTefTc IF File(cNumArq) CursorWait() ownd_tef:SetFocus() ownd_tef:Show() aRet := tef_aguarde("I_IMPRESSORA") aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex cRet := MemoRead( cArq001) // "\RESP\IntPos.001" ) IF .NOT. Empty( cMsg := ExtMsgTef(cRet,"030-000") ) aRet[3]:SetText(cMsg) aRet[1]:Update() ENDIF cTxt := MemoRead(cNumArq) //SE FOR IMPRESSÃO APÓS ERRO IF lErro lGerImp := .t. cTxt := "" nViasMC := 0 if _tefdedic nTefGP := Directory(_cdirtef+"\imprime*.txt" ) nViasMC := len(nTefGP) else nTefGP := Directory(_cdirtef+"\imprime*.txt" ) nTefHp := Directory(cdirhiper+"\imprime*.txt" ) nTefTc := Directory(cdirtecban+"\imprime*.txt" ) nViasMC := len(nTefGP) + len(nTefHp) + len(nTefTc) endif LeAposerro(@aImprime, @aImprime1, @aImprime2, @cTxt) lImpCCD := .f. lerroImp := .t. if _bematech .or. _daruma .or. _sweda .or. _elgin .or. _urano .or. _epson CancCupTEF() aRet[3]:SetText("Verificando impressora...") if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF GrvCmdFis(25,,,,,.F.) if !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) // (PrtCupTefM( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc == '02' .or. cInfDoc == '04' IF GrvCmdFis(if(cInfDoc == '02', 88, 25),,,,,.F.) if !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF endif elseif _daruma .or. _sweda .or. _elgin .or. _bematech // incluido em 05/02/2011 lAlgoAberto := .f. if _daruma cEstado := space(2) if GrvCmdFis(41,,,@cEstado,,.f.) cEstado := substr(cEstado, 1,1) if cEstado # '0' lAlgoAberto := .t. endif elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF endif elseif _elgin nStGerCDC := 0 E_StatExtMFD(@nStGerCDC) if nStGerCDC = 4 // "Relatório Gerencial Aberto" lAlgoAberto := .t. elseif nStGerCDC = 2 // "Comprovante de Débito ou Crédito Aberto" lAlgoAberto := .t. endif elseif _bematech if GrvCmdFis(80,,,,,.f.) lAlgoAberto := .t. endif else if GrvCmdFis(41,,,,,.F.) lAlgoAberto := .t. endif endif if lAlgoAberto if v_framework cGerAbre := space(2) nRet := DaMFDInf('56', @cGerAbre) cGerAbre := alltrim(cGerAbre) if cGerAbre == '4' nQualComando := 25 else nQualComando := 23 endif else nQualComando := 25 endif IF GrvCmdFis(nQualComando,,,,,.F.) if !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF endif endif aRet[3]:SetText(cMsg) if _tefdedic if nViasMC > 1 nLinCorte := 0 nviastef := 1 else c028001 := ExtMsgTef(cRet, "028-001") if val(c028001) == 0 nLinCorte := 0 nviastef := 1 else nLinCorte := val(c028001) + 1 endif endif else nLinCorte := 0 endif FOR n := 1 TO if(nViasMC == 1, nviastef, 1) if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado # 32 .and. nEstado # 64 IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc # '02' .and. cInfDoc # '04' cIndGer := ascan(aGerEpson, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerEpson[cIndGer, 1]) IF !GrvCmdFis(24,,2,cIndGer,,.F.) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _elgin lAlgoAberto := .f. nStGerCDC := 0 E_StatExtMFD(@nStGerCDC) if nStGerCDC = 4 // "Relatório Gerencial Aberto" lAlgoAberto := .t. elseif nStGerCDC = 2 // "Comprovante de Débito ou Crédito Aberto" lAlgoAberto := .t. endif if !lAlgoAberto cIndGer := ascan(aGerElgin, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerElgin[cIndGer, 1]) nRetElgin := E_AbreGerMFD(cIndGer) if nRetElgin == 0 IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _daruma if v_framework nRet := daProgFormas("RG", "TEF1", ";") nRet := DaAbreGerMFD('TEF1') endif elseif _bematech .and. W_MFD == 1 if !GrvCmdFis(80,,,,,.F.) cIndGer := ascan(aGerBema, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerBema[cIndGer, 1]) BmAbrGerNo(cIndGer) endif elseif _sweda if !GrvCmdFis(83,,,,,.f.) cIndGer := ascan(aGerSweda, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerSweda[cIndGer, 1]) ecfAbreGer(cIndGer) endif endif aRet[2]:SetTotal(MlCount(cTxt)*1.10) aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) nRetC := FTEF_Corte(@k, @nLinCorte, @aRet, @lerro, @n, @cForma, @cValor, @nki, @nPgTEF, @cNumArq, @cArq001, cMsg1 := ExtMsgTef(cRet,"030-000")) if nRetC == -22 RETURN -22 elseif nRetC == -30 RETURN 1 endif var_imprimir := Left(StrTran( Memoline(cTxt,50,k),CRLF),48)+CRLF if _urano .or. _epson IF !GrvCmdFis(22,var_imprimir) if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF else IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif else IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF else IF .NOT. GrvCmdFis(24,var_imprimir,,,,.f.) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. if(nViasMC == 1, nviastef, 1) > 1 FOR k = 1 TO 10 if _urano .or. _epson if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF else IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif else IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif else if .NOT. GrvCmdFis(24,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano .and. !_tefdedic GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif if valtype(aRet[1]) == 'O' aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") aRet[1]:show() aRet[1]:SetFocus() SysWait(3) aRet[1]:SetFocus() // Alteracao Alex IF .NOT. Empty( cMsg := ExtMsgTef(cRet,"030-000") ) aRet[3]:SetText(cMsg) ENDIF endif ENDIF sysrefresh() NEXT if !GrvCmdFis(25,,,,,.F.) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif // Fim da Bematech / Daruma / Elgin / Sweda / Urano aRet[1]:End() ; aRet[1] := NIL RETURN -44 ELSE IF !GrvCmdFis(if(_daruma, 78, 21),{cForma,cValor,NIL},,,,.F.) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE RETURN -22 ENDIF ENDIF v_cTpTran := ExtMsgTef(cRet,"011-000") v_cRedeTr := ExtMsgTef(cRet,"010-000") if _bematech if W_MFD == 1 .or. cModeloBm == 'MP25FI' .or. cModeloBm == 'MP50FI' cCooCDC := space(6) GrvCmdFis(14,, 6, @cCooCDC) aadd(aCOOCDC, { strzero(val(cCooCDC), 9), cForma, cValor, cCodForma, v_cTpTran, v_cRedeTr, vtot_ven }) endif else cCooCDC := space(6) GrvCmdFis(14,, 6, @cCooCDC) aadd(aCOOCDC, { strzero(val(cCooCDC), 9), cForma, cValor, cCodForma, v_cTpTran, v_cRedeTr, vtot_ven }) endif if _tefdedic c028001 := ExtMsgTef(cRet, "028-001") // nLinCorte := val(c028001) + 1 if val(c028001) == 0 nLinCorte := 0 nviastef := 1 else nLinCorte := val(c028001) + 1 endif else nLinCorte := 0 endif FOR n = 1 TO nviastef aRet[2]:SetTotal(MlCount(cTxt)*1.1) aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) nRetC := FTEF_Corte(@k, @nLinCorte, @aRet, @lerro, @n, @cForma, @cValor, @nki, @nPgTEF, @cNumArq, @cArq001, cMsg1 := ExtMsgTef(cRet,"030-000")) if nRetC == -22 RETURN -22 elseif nRetC # -22 .and. k == MlCount(cTxt) exit elseif nRetC == -30 RETURN 1 endif IF .NOT. GrvCmdFis(22,Left(StrTran( Memoline(cTxt,50,k), CRLF),48)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF ENDIF if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. nviastef > 1 FOR k = 1 TO 10 if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") SysWait(5) aRet[1]:SetFocus() // Alteracao Alex IF .NOT. Empty( cMsg := ExtMsgTef(cRet,"030-000") ) aRet[3]:SetText(cMsg) ENDIF ENDIF sysrefresh() NEXT if !_epson if !GrvCmdFis(23) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif else if !GrvCmdFis(88) IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) RETURN (PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif endif ENDIF if valtype(aRet[1]) == 'O' aRet[1]:End() ; aRet[1] := NIL endif ELSE if !_tefdedic liberatc() endif ok("Não há cupoms para imprimir !","Atenção") ENDIF RETURN(If(lRet,1,0)) function Leaposerro(aImprime, aImprime1, aImprime2, cTxt) private nQueTEF := 0 cTxt := "" if _tefdedic aImprime := Directory(_cdirtef+"\imprime*.txt" ) aImprime1 := {} aImprime2 := {} else aImprime := Directory(_cdirtef+"\imprime*.txt" ) aImprime1 := Directory(cdirtecban+"\imprime*.txt" ) aImprime2 := Directory(cdirhiper+"\imprime*.txt" ) endif if (len(aImprime) >= 1 .or. len(aImprime1) >= 1 .or. len(aImprime2) >= 1) .and. nViasMC == 1 if _tefdedic if len(nTefGP) > 0 cTxt := Memoread(_cdirtef+"\imprime.txt" ) endif else if len(nTefGP) > 0 cTxt := Memoread(_cdirtef+"\imprime.txt" ) elseif len(nTefHp) > 0 cTxt := Memoread(cdirhiper+"\imprime.txt" ) elseif len(nTefTc) > 0 cTxt := Memoread(cdirtecban+"\imprime.txt" ) endif endif elseif len(aImprime) >= 1 .or. len(aImprime1) >= 1 .or. len(aImprime2) >= 1 CriaTxt(@cTxt) endif return(.t.) function CriaTxt(cTxt) local kl, ncont, nTefDial, nTefTecB, nTefHiper, nTotTef, nSequen := 1, cTxt1 := '' cTxt := "" if _tefdedic nTefDial := len(Directory(_cdirtef+"\imprime*.txt" )) nTefTecB := 0 nTefHiper := 0 else nTefDial := len(Directory(_cdirtef+"\imprime*.txt" )) nTefTecB := len(Directory(cdirtecban+"\imprime*.txt" )) nTefHiper := len(Directory(cdirhiper+"\imprime*.txt" )) endif if _tefdedic nTotTef := nTefDial cTxt := "" for kl := 1 to len(albx_formas) if albx_formas[kl, 2] == 0 .or. albx_formas[kl, 3] # 'A' loop endif if file(albx_formas[kl, 14]) cTxt1 := MemoRead(albx_formas[kl, 15]) c028001 := ExtMsgTef(cTxt1, "028-001") c028000 := ExtMsgTef(cTxt1, "028-000") nFimCupTef := val(c028000) if val(c028001) == 0 nLinCorte := 0 nviastef := 1 else nLinCorte := val(c028001) endif if nLinCorte > 0 cTxtV1 := MemoRead(albx_formas[kl, 14]) for k := 1 to nLinCorte cTxt := cTxt + Left(StrTran( Memoline(cTxtV1,50,k),CRLF),48)+CRLF sysrefresh() next for ncont := 1 to 10 cTxt := cTxt + (Space(10)+CRLF) sysrefresh() next for k := (nLinCorte + 1) to nFimCupTef cTxt := cTxt + Left(StrTran( Memoline(cTxtV1,50,k),CRLF),48)+CRLF sysrefresh() next if nSequen < nTotTef for ncont := 1 to 10 cTxt := cTxt + (Space(10)+CRLF) sysrefresh() next endif else cTxtV1 := MemoRead(albx_formas[kl, 14]) for k := 1 to nFimCupTef cTxt := cTxt + Left(StrTran( Memoline(cTxtV1,50,k),CRLF),48)+CRLF sysrefresh() next endif nSequen++ endif sysrefresh() next else nTotTef := nTefDial + nTefTecB + nTefHiper for kl := 1 to len(albx_formas) if albx_formas[kl, 2] == 0 .or. albx_formas[kl, 3] # 'A' loop endif if file(albx_formas[kl, 14]) cTxt := cTxt + MemoRead(albx_formas[kl, 14]) for ncont := 1 to 10 cTxt := cTxt + (Space(10)+CRLF) sysrefresh() next cTxt := cTxt + MemoRead(albx_formas[kl, 14]) if nSequen < nTotTef for ncont := 1 to 10 cTxt := cTxt + (Space(10)+CRLF) sysrefresh() next endif nSequen++ endif sysrefresh() next endif return(.t.) function FTEF_Corte(k, nLinCorte, aRet, lerro, n, cForma, cValor, nki, nPgTEF, cNumArq, cArq001, cMsgTela) local nRet := 1 begin sequence if _tefdedic if k == nLinCorte .and. nLinCorte > 1 nret := TEF_Espaco(@lerro, @n, @aRet, @cForma, @cValor, @nki, @nPgTEF, @cNumArq, @cArq001) if nRet == -22 .or. nRet == -30 break endif if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif if valtype(aRet) == 'A' .and. len(aRet) > 0 SysWait(1) aRet[3]:SetText("Destaque o comprovante.") SysWait(5) aRet[3]:SetText(cMsgTela) if aRet[1] # NIL aRet[1]:SetFocus() // Alteracao Alex endif endif endif endif end sequence return(nRet) function TEF_Espaco(lerro, n, aRet, cForma, cValor, nki, nPgTEF, cNumArq, cArq001) local nLinhasTEF := 10 if lerro if n = 1 FOR k = 1 TO nLinhasTEF if _urano .or. _epson if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) nRetPrin := PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 ) RETURN(if(nRetPrin == -44, -30, -22)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) nRetPrin := PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 ) RETURN(if(nRetPrin == -44, -30, -22)) // RETURN(-30) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif else if .NOT. GrvCmdFis(24,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) nRetPrin := PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 ) RETURN(if(nRetPrin == -44, -30, -22)) // RETURN(-30) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) nRetPrin := PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 ) RETURN(if(nRetPrin == -44, -30, -22)) // RETURN(-30) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif sysrefresh() NEXT endif else IF n = 1 FOR k = 1 TO nLinhasTEF if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(@aRet) nRetPrin := PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 ) RETURN(if(nRetPrin == -44, -30, -22)) // RETURN(-30) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(@aRet) nRetPrin := PrtCupTefM( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 ) RETURN(if(nRetPrin == -44, -30, -22)) // RETURN(-30) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif sysrefresh() NEXT endif endif return(1)TECBAN.prg
#include "FiveWin.ch" ***************************************************************************** * PROGRAMA..: FAZTECBAN.PRGF * * FUNCAO....: Ativa gerenciador padrao de TEC-BAN * * * * PARÂMETROS: V_CTIPO -> Tipo da operação a ser executada; * * V_CTecBan -> Número de controle de operação TecBan; * * V_CPAGO -> Valor da operação passado como texto. * * * * AUTOR...: Alexandre Pereira EM: 19/07/04 * ***************************************************************************** FUNCTION fazTecBan(v_cTipo,v_cTecBan,v_cPago, nCtTEF, nPgTEF, CintPos) LOCAL v_cBuf,v_cTxt,v_cCupom:=Space(6),v_n,v_nLin,v_nRet := 0,aRet,v_cRede,; v_cFinal,v_cNSU,oDlgTecBan,oSay[3],v_cValor, teste_val, osayTxtVal ltravatef := .f. BEGIN SEQUENC CursorWait() //FAZ VENDA EM CARTÃO IF v_cTipo = "CRT" if !v_superM ODLG_pag:disable() ODLG_pag:refresh(.t.) endif nVezes := 1 do while !ver_ativo(cdirtecban) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TECBAN não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo if !v_superM ODLG_pag:enable() ODLG_pag:refresh(.t.) endif DelMsgTecBan( cdirtecban ) v_cCupom = vdocum if val(StrTran(v_cPago,",")) > 999 teste_val = StrTran(v_cPago,",") else teste_val = strzero(val(StrTran(v_cPago,",")),3) endif v_cTxt := "000-000 = CRT"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // "001-000 = "+v_cTecBan + CRLF+; "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "999-999 = 0"+CRLF // "777-777 = TESTE TECBAN"+CRLF+; // teste 11 item 25 roteiro tecban * "032-927 = teste"+CRLF+; // Homologação IF .NOT. Empty( v_cTxt := EnvCmdTecBan(v_cTxt) ) //SE TRANSAÇÃO APROVADA IF Substr(v_cTxt,At("009-000",v_cTxt)+10,1) = "0" v_nLin := Val( ExtMsgTecBan(v_cTxt,"028-000") ) v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTecBan( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT if nPgTEF > 1 .and. nCtTEF < nPgTEF// verifica se existe mais um cartao tef na mesma venda e faz backup do INTPOS.001 e Imprime.txt nFileHandle := FCreate( cdirtecban+"\imprime"+strzero(nCtTEF, 2)+".txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cdirtecban+"\RESP\IntPos.001",cdirtecban+"\IntPos"+strzero(nCtTEF, 2)+".TMP", .f.) if GrvCmdTecBan(5,{left(albx_formas[nCtTEF, 1],16),"CNF"},.f.,.f., nCtTEF, nPgTEF) DelMsgTef(cdirtecban) endif albx_formas[iformas, 14] := cdirtecban+"\imprime"+strzero(nCtTEF, 2)+".txt" albx_formas[iformas, 15] := cdirtecban+"\IntPos"+strzero(nCtTEF, 2)+".TMP" elseif nPgTEF > 1 .and. nCtTEF == nPgTEF // testa se é o ultimo cartao tef, se for não faz CNF e imprime cdc´s na ordem nFileHandle := FCreate( cdirtecban+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) albx_formas[iformas, 14] := cdirtecban+"\imprime.txt" albx_formas[iformas, 15] := cdirtecban+"\IntPos.001" else nFileHandle := FCreate( cdirtecban+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) albx_formas[iformas, 14] := cdirtecban+"\imprime.txt" albx_formas[iformas, 15] := cdirtecban+"\IntPos.001" endif v_nRet := 1 ELSE DelMsgTecBan( cdirtecban ) v_nRet := -21 ENDIF ENDIF DelReqTecBan( cdirtecban ) //FAZ VENDA COM CHEQUE ELSEIF v_cTipo = "CHQ" nVezes := 1 do while !ver_ativo(cdirtecban) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TECBAN não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !_tefdedic if ltravatef liberatc() endif endif sysrefresh() enddo DelMsgTecBan( cdirtecban ) v_cCupom = vdocum if val(StrTran(v_cPago,",")) > 999 teste_val = StrTran(v_cPago,",") else teste_val = strzero(val(StrTran(v_cPago,",")),3) endif v_cTxt := "000-000 = CHQ"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // "001-000 = "+v_cTecBan + CRLF+; "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(teste_val)+CRLF+; "999-999 = 0"+CRLF * "032-927 = teste"+CRLF+; // Homologação IF .NOT. Empty( v_cTxt := EnvCmdTecBan(v_cTxt) ) //SE TRANSAÇÃO APROVADA IF Substr(v_cTxt,At("009-000",v_cTxt)+10,1) = "0" .OR. Substr(v_cTxt,At("009-000",v_cTxt)+10,2) = 'P1' if Substr(v_cTxt,At("028-000",v_cTxt)+10,1) # "0" v_nLin := Val( ExtMsgTecBan(v_cTxt,"028-000") ) v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTecBan( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT if nPgTEF > 1 .and. nCtTEF < nPgTEF// verifica se existe mais um cartao tef na mesma venda e faz backup do INTPOS.001 e Imprime.txt nFileHandle := FCreate( cdirtecban+"\imprime"+strzero(nCtTEF, 2)+".txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) COPYFILE(cdirtecban+"\RESP\IntPos.001",cdirtecban+"\IntPos"+strzero(nCtTEF, 2)+".TMP", .f.) if fazTecBan("CNF",left(albx_formas[nCtTEF, 1],16),v_cPago) DelMsgTef(cdirtecban) endif albx_formas[iformas, 14] := cdirtecban+"\imprime"+strzero(nCtTEF, 2)+".txt" albx_formas[iformas, 15] := cdirtecban+"\IntPos"+strzero(nCtTEF, 2)+".TMP" elseif nPgTEF > 1 .and. nCtTEF == nPgTEF // testa se é o ultimo cartao tef, se for não faz CNF e imprime cdc´s na ordem nFileHandle := FCreate( cdirtecban+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) albx_formas[iformas, 14] := cdirtecban+"\imprime.txt" albx_formas[iformas, 15] := cdirtecban+"\IntPos.001" else nFileHandle := FCreate( cdirtecban+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) albx_formas[iformas, 14] := cdirtecban+"\imprime.txt" albx_formas[iformas, 15] := cdirtecban+"\IntPos.001" endif endif v_nRet := 1 ELSE DelMsgTecBan( cdirtecban ) v_nRet := -21 ENDIF ENDIF DelReqTecBan( cdirtecban ) //FAZ CONFIRMAÇÃO DE VENDA EM CARTÃO ELSEIF v_cTipo = "CNF" nVezes := 1 do while !ver_ativo(cdirtecban) if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TECBAN não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif sysrefresh() enddo // v_cCupom = vdocum v_cTxt := MemoRead( cdirtecban+"\RESP\IntPos.001" ) v_cCupom := ExtMsgTecBan(v_cTxt,"002-000") v_cNSU := ExtMsgTecBan(v_cTxt,"012-000") v_cRede := ExtMsgTecBan(v_cTxt,"010-000") v_cFinal := ExtMsgTecBan(v_cTxt,"027-000") v_cTxt := "000-000 = CNF"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // "001-000 = "+v_cTecBan + CRLF+; "002-000 = "+v_cCupom+CRLF+; "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "027-000 = "+v_cFinal+CRLF+; "999-999 = 0"+CRLF IF .NOT. Empty(EnvCmdTecBan( v_cTxt )) v_nRet := 1 DelMsgTecBan(cdirtecban) ENDIF DelReqTecBan( cdirtecban ) if !_tefdedic liberatc() endif //CANCELA CUPOM TecBan NÃO IMPRESSO ELSEIF v_cTipo = "NCN" if !_tefdedic travatc() ltravatef := .t. endif nVezes := 1 do while !ver_ativo(cdirtecban) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TECBAN não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo v_cTxt := MemoRead( cdirtecban+"\RESP\IntPos.001" ) v_cNSU := ExtMsgTecBan(v_cTxt,"012-000") v_cRede := ExtMsgTecBan(v_cTxt,"010-000") v_cFinal := ExtMsgTecBan(v_cTxt,"027-000") v_cValor := ExtMsgTecBan(v_cTxt,"003-000") IF v_cTecBan = NIL v_cTecBan := ExtMsgTecBan(v_cTxt,"001-000") ENDIF v_cTxt := "000-000 = NCN"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // "001-000 = "+v_cTecBan + CRLF+; "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "027-000 = "+v_cFinal+CRLF+; "999-999 = 0"+CRLF if !_tefdedic liberatc() endif DEFINE DIALOG odlg_ncn RESOURCE "TefNCN" FONT fnt_ecf COLOR RGB(182,221,199), _CORPADRAO REDEFINE SAY ID 30 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY ID 31 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY ID 32 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY osayTxtVal ID 33 color _CORPADTXT, _CORPADRAO of odlg_ncn UPDATE REDEFINE SAY oSay[1] ID 301 OF odlg_ncn COLOR COR_SAY,RGB(182,221,199) UPDATE REDEFINE SAY oSay[2] ID 302 OF odlg_ncn COLOR COR_SAY,RGB(182,221,199) UPDATE REDEFINE SAY oSay[3] ID 303 OF odlg_ncn COLOR COR_SAY,RGB(182,221,199) UPDATE if upper(left(alltrim(v_cNsu),3)) <> 'ADM' oSay[1]:SetText(v_cNSU) endif oSay[2]:SetText(v_cRede) IF val(v_cvalor) <> 0 oSay[3]:SetText(Trans(Val(v_cValor)/100,"@E 999,999.99")) else osayTxtVal:SetText("") osayTxtVal:refresh(.t.) odlg_ncn:refresh(.t.) ENDIF REDEFINE BUTTON ID 101 of odlg_ncn action odlg_ncn:end() COLOR cor_btn CANCEL odlg_ncn:lhelpicon:=.f. ACTIVATE DIALOG odlg_ncn CENTERED IF .NOT. Empty(EnvCmdTecBan( v_cTxt )) DelMsgTecBan(cdirtecban) ENDIF DelReqTecBan( cdirtecban ) //FAZ ADM ELSEIF v_cTipo = "ADM" nVezes := 1 do while !ver_ativo(cdirtecban) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TECBAN não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo v_cTxt := "000-000 = ADM"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // "001-000 = "+v_cTecBan + CRLF+; "999-999 = 0"+CRLF IF .NOT. Empty( v_cTxt:=EnvCmdTecBan( v_cTxt ) ) v_nLin := Val( ExtMsgTecBan(v_cTxt,"028-000") ) IF v_nLin > 0 v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTecBan( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT nFileHandle := FCreate( cdirtecban+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) if !_tefdedic travatc() endif IF PrintTecBan( .T. ) = 1 if !_tefdedic liberatc() endif fazTecBan("CNF",v_cTecBan,v_cPago) ELSE fazTecBan("NCN",v_cTecBan ) ENDIF if !_tefdedic liberatc() endif ENDIF v_nRet := 1 DelMsgTecBan( cdirtecban ) ENDIF DelReqTecBan( cdirtecban ) ELSEIF v_cTipo = "CNC" nVezes := 1 do while !ver_ativo(cdirtecban) if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") nVezes++ if nVezes >= 3 exit endif else erro("Gerenciador TECBAN não ativo!","Atenção") nVezes++ if nVezes >= 3 exit endif endif if !_tefdedic if ltravatef travatc() endif endif sysrefresh() enddo DelMsgTecBan( cdirtecban ) v_cTXT := MemoRead( CintPos ) v_cCupom := ExtMsgTecBan(v_cTxt,"002-000") v_valort := ExtMsgTecBan(v_cTxt,"003-000") v_cRede := ExtMsgTecBan(v_cTxt,"010-000") v_cNSU := ExtMsgTecBan(v_cTxt,"012-000") v_dtcmv := ExtMsgTecBan(v_cTxt,"022-000") v_hrcmv := ExtMsgTecBan(v_cTxt,"023-000") // v_cFinal := ExtMsgTef(v_cTxt,"027-000") v_cTxt := "000-000 = CNC"+CRLF+; "001-000 = "+horaStr(time())+CRLF+; // colocar hora aqui nesse campo para nao gerar igual "002-000 = "+v_cCupom+CRLF+; "003-000 = "+AllTrim(v_valort)+CRLF+; "010-000 = "+v_cRede+ CRLF+; "012-000 = "+v_cNSU +CRLF +; "022-000 = "+v_dtcmv+CRLF+; "023-000 = "+v_hrcmv+CRLF+; "999-999 = 0"+CRLF // "027-000 = "+v_cFinal+CRLF+; //"777-777 = teste Redecard"+CRLF+; // Homologação // se nao for necessario pra CNC retirar essas 2 linhas //"777-777 = TESTE HIPERCARD"+CRLF+; // Homologação IF .NOT. Empty( v_cTxt := EnvCmdTecBan(v_cTxt) ) //SE TRANSAÇÃO APROVADA nResp := .T. IF Substr(v_cTxt,At("009-000",v_cTxt)+10,1) = "0" v_nLin := Val( ExtMsgTecBan(v_cTxt,"028-000") ) v_cBuf := "" FOR v_n = 1 TO v_nLin v_cBuf += StrTran(ExtMsgTecBan( v_cTxt,"029-"+StrZero(v_n,3) )+CRLF,["]) sysrefresh() NEXT nFileHandle := FCreate( cdirtecban+"\imprime.txt", 0 ) FWrite( nFileHandle, v_cBuf, Len(v_cBuf) ) FClose( nFileHandle ) ELSE DelMsgTecBan( cdirtecban ) Ferase(cdirtecban+"\IntPos.res") v_nRet := -21 nResp := .f. ENDIF ELSE if !_tefdedic liberatc() endif DelMsgTecBan( cdirtecban ) Ferase(cdirtecban+"\IntPos.res") v_nRet := -21 nResp := .F. ENDIF ENDIF END SEQUENC RETURN v_nRet FUNCTION ExtMsgTecBan( cTxt,cCod ) LOCAL cLin if At(cCod,cTxt) == 0 cLin := "" else cLin := Substr(cTxt,At(cCod,cTxt)+10) cLin := Left(cLin,At(CHR(13)+CHR(10),cLin)-1) endif RETURN cLin FUNCTION EnvCmdTecBan( cTxt ) LOCAL nQte:= 0,cRet,nLin, nFileHandle Ferase(cdirtecban+"\RESP\IntPos.Sts") nFileHandle := FCreate( cdirtecban+"\REQ\IntPos.tmp", 0 ) FWrite( nFileHandle, cTxt, Len(cTxt) ) FClose( nFileHandle ) Frename(cdirtecban+"\REQ\IntPos.tmp",cdirtecban+"\REQ\IntPos.001") DO WHILE nQte < 4 SysWait(2) IF File(cdirtecban+"\RESP\IntPos.Sts") EXIT ENDIF nQte++ sysrefresh() ENDDO IF nQte >= 4 if !_tefdedic if ltravatef liberatc() endif endif if _tefdedic erro("Sem conexão SiTef","Atenção") else erro("Gerenciador TECBAN não ativo!","Atenção") endif if !_tefdedic if ltravatef travatc() endif endif DelMsgTecBan( cdirtecban ) RETURN "" ENDIF nQte := 0 DO WHILE nQte < 300 .AND. .NOT. File(cdirtecban+"\RESP\IntPos.001") nQte++ SysWait(2) sysrefresh() ENDDO IF nQte < 300 * ok('Aguardando teste RedeCard...') // Homologação cTxt := MemoRead( cdirtecban+"\RESP\IntPos.001" ) cRet := ExtMsgTecBan(cTxt,"030-000") nLin := Val( ExtMsgTecBan(cTxt,"028-000") ) IF nLin = 0 .AND. .NOT. Empty(cRet) if type("Wvar") == "U" if valtype(ownd_tef) == 'O' ownd_tef:refresh(.t.) ownd_tef:setfocus() endif ok(cRet,"Atenção") DelMsgTecBan( cdirtecban ) Wvar := .t. endif ENDIF ELSE cTxt := "" erro("Gerenciador TECBAN não Responde !","Atenção") DelMsgTecBan( cdirtecban ) ENDIF RETURN cTxt FUNCTION DelMsgTecBan( cDir ) Ferase(cDir+"\RESP\IntPos.001") Ferase(cDir+"\RESP\IntPos.sts") Ferase(cDir+"\Imprime.txt") RETURN NIL FUNCTION DelReqTecBan( cDir ) Ferase(cDir+"\REQ\IntPos.001") Ferase(cDir+"\REQ\IntPos.sts") RETURN NIL ***************************************************************************** * PROGRAMA: PrintTecBan.PRG * * FUNCAO..: Imprime cupom TecBan. * ***************************************************************************** FUNCTION PrintTecBan( lErro, cForma, cValor) LOCAL n,k,cTxt,lRet:=.T.,aRet,cMsg,cRet,nSecs:=Seconds(), var_imprimir IF File(cdirtecban+"\imprime.txt") CursorWait() oWnd_tef:SetFocus() oWnd_tef:Show() aRet := TecBan_aguarde("I_IMPRESSORA") aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex cRet := MemoRead( cdirtecban+"\RESP\IntPos.001" ) IF .NOT. Empty( cMsg := ExtMsgTecBan(cRet,"030-000") ) aRet[3]:SetText(cMsg) aRet[1]:Update() ENDIF cTxt := MemoRead(cdirtecban+"\imprime.txt") //SE FOR IMPRESSÃO APÓS ERRO IF lErro lImpCCD := .f. if _bematech .or. _daruma .or. _sweda .or. _elgin .or. _urano .or. _epson CancCupTEF() aRet[3]:SetText("Verificando impressora...") if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF GrvCmdFis(25,,,,,.F.) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc == '02' .or. cInfDoc == '04' IF GrvCmdFis(if(cInfDoc == '02', 88, 25),,,,,.F.) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif else if _daruma .or. _sweda .or. _elgin // incluido em 05/02/2011 lAlgoAberto := .f. if _daruma cEstado := space(2) if GrvCmdFis(41,,,@cEstado,,.f.) cEstado := substr(cEstado, 1,1) if cEstado # '0' lAlgoAberto := .t. endif endif else if GrvCmdFis(41,,,,,.f.) lAlgoAberto := .t. endif endif if lAlgoAberto if v_framework cGerAbre := space(2) nRet := DaMFDInf('56', @cGerAbre) cGerAbre := alltrim(cGerAbre) if cGerAbre == '4' nQualComando := 25 else nQualComando := 23 endif else nQualComando := 25 endif IF GrvCmdFis(nQualComando,,,,,.F.) sysrefresh() syswait(1) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif else IF GrvCmdFis(25,,,,,.t.) sysrefresh() syswait(1) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif endif FOR n = 1 TO nviastef if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado # 32 .and. nEstado # 64 IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc # '02' .and. cInfDoc # '04' cIndGer := ascan(aGerEpson, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerEpson[cIndGer, 1]) IF !GrvCmdFis(24,,2,cIndGer,,.F.) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _daruma if v_framework daProgFormas("RG", 'TEF1', ';') DaAbreGerMFD('TEF1') endif elseif _bematech .and. W_MFD == 1 if !GrvCmdFis(80,,,,,.f.) cIndGer := ascan(aGerBema, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerBema[cIndGer, 1]) BmAbrGerNo(cIndGer) endif elseif _elgin lAlgoAberto := .f. nStGerCDC := 0 E_StatExtMFD(@nStGerCDC) if nStGerCDC = 4 // "Relatório Gerencial Aberto" lAlgoAberto := .t. elseif nStGerCDC = 2 // "Comprovante de Débito ou Crédito Aberto" lAlgoAberto := .t. endif if !lAlgoAberto cIndGer := ascan(aGerElgin, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerElgin[cIndGer, 1]) E_AbreGerMFD(cIndGer) endif elseif _sweda if !GrvCmdFis(83,,,,,.f.) cIndGer := ascan(aGerSweda, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerSweda[cIndGer, 1]) ecfAbreGer(cIndGer) endif endif aRet[2]:SetTotal(MlCount(cTxt)*1.10) aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) var_imprimir := Left(StrTran( Memoline(cTxt,50,k),CRLF),48)+CRLF if _urano IF .NOT. GrvCmdFis(22, var_imprimir) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF elseif _epson IF !GrvCmdFis(22,var_imprimir) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF else if !GrvCmdFis(24, var_imprimir) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF ENDIF endif if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. nviastef > 1 FOR k = 1 TO 10 if _urano if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif elseif _epson if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif else if !GrvCmdFis(24,Space(10),,,,.F. ) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif if valtype(aRet[1]) == 'O' aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex SysWait(3) aRet[3]:SetText(cMsg) aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() ENDIF sysrefresh() NEXT if !GrvCmdFis(25,,,,,.F.) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif endif // Fim da Bematech / Daruma ELSE IF .NOT. GrvCmdFis(if(_daruma, 78, 21),{cForma,cValor,NIL},,,,.F.) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF ENDIF FOR n = 1 TO nviasTef aRet[2]:SetTotal(MlCount(cTxt)*1.1) aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) if _urano .or. _epson IF !GrvCmdFis(22,Left(StrTran( Memoline(cTxt,50,k),CRLF),48)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF else IF !GrvCmdFis(22,Left(StrTran( Memoline(cTxt,50,k),CRLF),48)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF ENDIF endif if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. nviasTef > 1 FOR k = 1 TO 10 if _urano .or. _epson if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif else if .NOT. GrvCmdFis(24,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") SysWait(5) aRet[3]:SetText(cMsg) aRet[1]:SetFocus() // Alteracao Alex ENDIF sysrefresh() NEXT if !_epson if !GrvCmdFis(23) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif else if !GrvCmdFis(88) IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrintTecBan( .T., cForma, cValor )) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif endif ENDIF aRet[1]:End() ; aRet[1] := NIL ELSE if !_tefdedic liberatc() endif ok("Não há cupons para imprimir !","Atenção") ENDIF RETURN If(lRet,1,0) STATIC FUNCTION ErroPrinter(aRet) local retorno aRet[1]:End() ; aRet[1] := NIL oWnd_tef:SetFocus() oWnd_tef:Show() if !_tefdedic liberatc() endif retorno = Continua("Impressora não Responde. Tentar imprimir novamente?","Confirmação") if !_tefdedic travatc() endif if retorno syswait(5) endif RETURN retorno STATIC FUNCTION TecBan_aguarde( cIcone,cMens ) LOCAL oDlgWait,oMtr,nPerc,oSay,oIco CursorWait() cIcone := If(cIcone=NIL,"I_AGUARDE",cIcone) DEFINE DIALOG oDlgWait RESOURCE "DLG_AGUARDE" FONT fnt_ecf COLOR cor_dlg REDEFINE ICON oIco NAME (cIcone) ID 101 OF oDlgWait UPDATE REDEFINE SAY oSay ID 301 OF oDlgWait UPDATE REDEFINE METER oMtr VAR nPerc TOTAL 100 ID 901 OF oDlgWait UPDATE IF cMens # NIL oSay:SetText(cMens) ENDIF odlgWait:lhelpicon:=.f. ACTIVATE DIALOG oDlgWait CENTERED NOWAIT RETURN {oDlgWait,oMtr,oSay} ***************************************************************************** * PROGRAMA: GrvCmdTecBan.PRG * * FUNCAO..: Envia comando para TecBan. * * * ***************************************************************************** FUNCTION GrvCmdTecBan(nCmd,uPar,lMens,lInic, nCtTEF, nPgTEF, nArqSeq, cArq001, cCodForma) LOCAL nRet:=0,oIni,nTecBan:=0,cTecBan, kl, xki, aSoTEF, nQtVinc // aImprime, default cCodForma := '' lMens := If(lMens=NIL,.T.,lMens) lInic := If(lInic=NIL,.T.,lInic) cTecBan := StrZero(val(vl_venda),10) //VER TEF ATIVO IF nCmd = 1 nRet := BmTfStatus(cTecBan) //ACIONA TecBan ADM ELSEIF nCmd = 2 nRet := fazTecBan("ADM",cTecBan,uPar ) //VENDA CARTÃO // ELSEIF nCmd = 3 // nRet := fazTecBan("CRT",cTecBan,uPar ) ELSEIF nCmd = 3 nRet := fazTecBan("CRT",cTecBan,uPar, nCtTEF, nPgTEF ) //IMPRIME VENDA DE CARTÃO ELSEIF nCmd = 4 if !_tefdedic travatc() ltravatef := .t. endif nRet := PrintTecBan( .F.,uPar[1], uPar[2] ) if !_tefdedic liberatc() ltravatef := .f. endif //CONFIRMA IMPRESSÃO DE TecBan ELSEIF nCmd = 5 nRet := fazTecBan("CNF",cTecBan,uPar[1], nCtTEF, nPgTEF ) //VENDA CHEQUE ELSEIF nCmd = 6 nRet := fazTecBan("CHQ",cTecBan,uPar, nCtTEF, nPgTEF ) //IMPRIME VENDA COM MULTIPLOS CARTOES ELSEIF nCmd = 7 if 'INTPOS.001'$upper(cArq001) COPYFILE(cdirtecban+"\IntPos.001",cdirtecban+"\RESP\IntPos.001", .f.) ferase(cdirtecban+"\IntPos.001") cArq001 := cdirtecban+"\RESP\IntPos.001" endif nRet := PrtCupTefB( .F., albx_formas[nCtTEF, 4], albx_formas[nCtTEF, 2], nCtTEF, nPgTEF, nArqSeq, cArq001, cCodForma) if nRet == -44 nRet := 1 endif ENDIF oWnd_tef:Show() IF lMens IF nRet = 0 erro("Gerenciador TECBAN Inativo !","Atenção") ELSEIF nRet = -2 erro("Parâmetro inválido para comando "+Str(nCmd,2)+" !","Atenção") ELSEIF nRet = -18 erro("Não foi possível abrir/criar arquivo .001 ou .sts !","Atenção") ELSEIF nRet = -19 erro("Numero de Identificação não bate com o do arquivo .001 !","Atenção") ELSEIF nRet = -20 erro("Transação finalizada pelo operador !","Atenção") ELSEIF nRet = -21 erro("A transação não foi aprovada !","Atenção") ELSEIF nRet = -22 erro("Não foi possível terminar a impressão !","Atenção") ELSEIF nRet = -23 erro("Não foi possível terminar a operação !","Atenção") ELSE RETURN .T. ENDIF ELSEIF nRet = 1 RETURN .T. ENDIF RETURN .F. ***************************************************************************** * PROGRAMA: PrtCupTefB.PRG * * FUNCAO..: Imprime cupom TEF. * * * * AUTOR...: Vilian F. Arraes EM: 01/05/2002 * * ALTERADO: Sebastiao de Oliveira Pessoa EM: 09-20-2010 * ***************************************************************************** FUNCTION PrtCupTefB( lErro, cForma, cValor, nki, nPgTEF, cNumArq, cArq001, cCodForma) LOCAL n,k,cTxt,lRet:=.T.,aRet,cMsg := "",cRet,nSecs:=Seconds(), var_imprimir, aImprime, aImprime1, aImprime2 private nViasMC, nTefGP, nTefHp, nTefTc IF File(cNumArq) CursorWait() ownd_tef:SetFocus() ownd_tef:Show() aRet := TecBan_aguarde("I_IMPRESSORA") aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex cRet := MemoRead( cArq001) IF .NOT. Empty( cMsg := ExtMsgTef(cRet,"030-000") ) aRet[3]:SetText(cMsg) aRet[1]:Update() ENDIF cTxt := MemoRead(cNumArq) //SE FOR IMPRESSÃO APÓS ERRO IF lErro lGerImp := .t. lerroImp := .t. cTxt := "" nTefGP := Directory(_cdirtef+"\imprime*.txt" ) nTefHp := Directory(cdirhiper+"\imprime*.txt" ) nTefTc := Directory(cdirtecban+"\imprime*.txt" ) nViasMC := 0 nViasMC := len(nTefGP) + len(nTefHp) + len(nTefTc) LeAposerro(@aImprime, @aImprime1, @aImprime2, @cTxt) lImpCCD := .f. if _bematech .or. _daruma .or. _sweda .or. _elgin .or. _urano .or. _epson CancCupTEF() aRet[3]:SetText("Verificando impressora...") if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF GrvCmdFis(25,,,,,.F.) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF )) // (PrtCupTefB( .T., cForma, cValor )) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc == '02' .or. cInfDoc == '04' IF GrvCmdFis(if(cInfDoc == '02', 88, 25),,,,,.F.) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF endif else if _daruma .or. _sweda .or. _elgin // incluido em 05/02/2011 lAlgoAberto := .f. if _daruma cEstado := space(2) if GrvCmdFis(41,,,@cEstado,,.f.) cEstado := substr(cEstado, 1,1) if cEstado # '0' lAlgoAberto := .t. endif endif else if GrvCmdFis(41,,,,,.f.) lAlgoAberto := .t. endif endif if lAlgoAberto if v_framework cGerAbre := space(2) nRet := DaMFDInf('56', @cGerAbre) cGerAbre := alltrim(cGerAbre) if cGerAbre == '4' nQualComando := 25 else nQualComando := 23 endif else nQualComando := 25 endif IF GrvCmdFis(nQualComando,,,,,.F.) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF endif else IF GrvCmdFis(25,,,,,.F.) if !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF endif IF Empty(cMsg) aRet[3]:SetText("Imprimindo Leitura X...") ELSE aRet[3]:SetText(cMsg) ENDIF ELSEIF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF endif endif aRet[3]:SetText(cMsg) FOR n := 1 TO if(nViasMC == 1, nviastef, 1) if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado # 32 .and. nEstado # 64 IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _epson cInfDoc := space(56) GrvCmdFis(41,, 56, @cInfDoc,,.f.) cInfDoc := substr(cInfDoc, 1, 2) if cInfDoc # '02' .and. cInfDoc # '04' cIndGer := ascan(aGerEpson, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerEpson[cIndGer, 1]) IF !GrvCmdFis(24,,2,cIndGer,,.F.) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif elseif _daruma if v_framework daProgFormas("RG", 'TEF1', ';') DaAbreGerMFD('TEF') endif elseif _bematech .and. W_MFD == 1 if !GrvCmdFis(80,,,,,.f.) cIndGer := ascan(aGerBema, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerBema[cIndGer, 1]) BmAbrGerNo(cIndGer) endif elseif _elgin lAlgoAberto := .f. nStGerCDC := 0 E_StatExtMFD(@nStGerCDC) if nStGerCDC = 4 // "Relatório Gerencial Aberto" lAlgoAberto := .t. elseif nStGerCDC = 2 // "Comprovante de Débito ou Crédito Aberto" lAlgoAberto := .t. endif if !lAlgoAberto cIndGer := ascan(aGerElgin, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerElgin[cIndGer, 1]) E_AbreGerMFD(cIndGer) endif elseif _sweda if !GrvCmdFis(83,,,,,.f.) cIndGer := ascan(aGerSweda, {|a| 'TEF1'$a[2] }) cIndGer := if(cIndGer == 0, '01', aGerSweda[cIndGer, 1]) ecfAbreGer(cIndGer) endif endif aRet[2]:SetTotal(MlCount(cTxt)*1.10) // reincluir aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) var_imprimir := Left(StrTran( Memoline(cTxt,50,k),CRLF),48)+CRLF if _urano .or. _epson IF !GrvCmdFis(22,var_imprimir) if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF else IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif else IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF else IF .NOT. GrvCmdFis(24,var_imprimir) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. if(nViasMC == 1, nviastef, 1) > 1 // IF n = 1 .and. if(len(aImprime) == 1, nviastef, 1) > 1 FOR k = 1 TO 10 if _urano .or. _epson if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) if _urano nEstado := 0 GrvCmdFis(78,,,@nEstado,,.F.) if nEstado == 32 .or. nEstado == 64 IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF else IF !GrvCmdFis(24,,,'TEF1',,.F.) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF ENDIF endif else IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001 )) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif else if .NOT. GrvCmdFis(24,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif if valtype(aRet[1]) == 'O' aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") aRet[1]:show() aRet[1]:SetFocus() SysWait(3) aRet[3]:SetText(cMsg) aRet[1]:SetFocus() // Alteracao Alex endif ENDIF sysrefresh() NEXT if !GrvCmdFis(25,,,,,.F.) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(25,,,,,.F.) RETURN -22 ENDIF endif endif // Fim da Bematech / Daruma / Elgin / Sweda / Urano aRet[1]:End() ; aRet[1] := NIL RETURN -44 ELSE IF .NOT. GrvCmdFis(if(_daruma, 78, 21),{cForma,cValor,NIL},,,,.F.) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE RETURN -22 ENDIF ENDIF v_cTpTran := ExtMsgTef(cRet,"011-000") v_cRedeTr := ExtMsgTef(cRet,"010-000") if _bematech if W_MFD == 1 .or. cModeloBm == 'MP25FI' .or. cModeloBm == 'MP50FI' cCooCDC := space(6) GrvCmdFis(14,, 6, @cCooCDC) aadd(aCOOCDC, { cCooCDC, cForma, cValor, cCodForma, v_cTpTran, v_cRedeTr }) endif else cCooCDC := space(6) GrvCmdFis(14,, 6, @cCooCDC) aadd(aCOOCDC, { cCooCDC, cForma, cValor, cCodForma, v_cTpTran, v_cRedeTr }) endif FOR n = 1 TO nviastef aRet[2]:SetTotal(MlCount(cTxt)*1.1) aRet[1]:Update() FOR k = 1 TO MlCount(cTxt) IF .NOT. GrvCmdFis(22,Left(StrTran( Memoline(cTxt,50,k), CRLF),48)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF ENDIF if valtype(aRet[1]) == 'O' aRet[2]:Set(k) aRet[1]:show() aRet[1]:SetFocus() // Alteracao Alex endif sysrefresh() NEXT IF n = 1 .and. nviastef > 1 FOR k = 1 TO 10 if .NOT. GrvCmdFis(22,Space(10)+CRLF,,,,.F. ) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif sysrefresh() NEXT if _epson EPSON_CortaPapel() elseif _urano GRVCMDFIS(80,,,,,.f.) elseif _elgin Elgin_Corta(1) elseif _bematech BmCortePapel(0) elseif _sweda ecfCorte(1) elseif _daruma DaGuilhotina("1") endif aRet[2]:Set(aRet[2]:nTotal) SysWait(1) aRet[3]:SetText("Destaque o comprovante.") SysWait(5) aRet[3]:SetText(cMsg) aRet[1]:SetFocus() // Alteracao Alex ENDIF sysrefresh() NEXT if !_epson if !GrvCmdFis(23) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif else if !GrvCmdFis(88) IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF elseif !VFimPapel() IF ErroPrinter(aRet) RETURN (PrtCupTefB( .T., cForma, cValor, nki, nPgTEF, cNumArq, cArq001)) ELSE GrvCmdFis(23) RETURN -22 ENDIF endif endif ENDIF aRet[1]:End() ; aRet[1] := NIL ELSE if !_tefdedic liberatc() endif ok("Não há cupoms para imprimir !","Atenção") ENDIF RETURN(If(lRet,1,0)) -
Em 20/04/2022 at 02:55, Andre Meneghetti disse:
O propósito é descobrir se há uma cobra alterando dados nos DBFs afim de me prejudicar. Não quero pegar a senha de ninguém, somente provar a Sacanagem que estão me fazendo.
Bom dia,
Neste caso, estou com o emotta, o mais seguro é alterar a sua base para um banco de dados relacional ( sql,postgresql,mysql), para atender este fim de alguém querer alterar as suas tabelas terá que ter acesso a senha do banco de dados.
-
13 horas atrás, Andre Meneghetti disse:
Bom dia a todos.
Há muitos anos atrás eu desenvolvia em Borland Pascal um pequeno programa que capturada tudo que era digitado e gravava em um arquivo texto. Alguém tem coisa parecida? Pode ser em C++ ou outra linguagem acessível que funcione no Windows preferencialmente escondida e funcione para qualquer janela em Foco.
Esta também foi a minha interpretação como o João e o Ladinilson, logo se entendi errado me desculpe. Se puder explicar a finalidade, tenho certeza que muitos poderão lhe ajudar.
-
Boa tarde,
Preciso consumir API do ITAÚ para a emissão de boleto bancário de forma on-line, consegui fazer isso utilizando o PHP, mas acredito que possa ser feito em Five Win, só não tenho certeza de onde partir. Acredito que usando a lib hbcur.lib e o oHTTP, mas não estou sabendo por onde começar, abaixo a construção que fiz em PHP. Se alguém souber como fazer esta mesma construção em PHP só que em FIVE, agradeço o auxílio.
EM PHP.
<?php $Client_certificado_crt = $_GET['Client_certificado_crt']; $Client_certificado_key = $_GET['Client_certificado_key']; $Cliente_Token = $_GET['Cliente_Token']; $Client_ID_envia = $_GET['Client_ID_envia']; $Cliente_Field = $_GET['Cliente_Field']; $curl = curl_init(); curl_setopt_array($curl, array( CURLOPT_URL => 'https://api.itau.com.br/cash_management/v2/boletos', CURLOPT_RETURNTRANSFER => true, CURLOPT_ENCODING => '', CURLOPT_MAXREDIRS => 10, CURLOPT_TIMEOUT => 0, CURLOPT_FOLLOWLOCATION => true, CURLOPT_HTTP_VERSION => CURL_HTTP_VERSION_1_1, CURLOPT_CUSTOMREQUEST => 'POST', CURLOPT_SSLCERT,$Client_certificado_crt, CURLOPT_SSLKEY,$Client_certificado_key, CURLOPT_CAINFO,$Client_certificado_crt, CURLOPT_POSTFIELDS => $Cliente_Field, CURLOPT_HTTPHEADER => array( 'Content-Type: application/json', 'x-itau-apikey: ' + $Client_ID_envia, 'x-itau-correlationID: 2', 'Authorization: Bearer ' + $Cliente_Token ), )); $response = curl_exec($curl); $info =curl_errno($curl)>0 ? array("curl_error_".curl_errno($curl)=>curl_error($curl)) : curl_getinfo($curl); echo("<pre>"); print_r($info); curl_close($curl); echo $response; echo("</pre>"); ?>
Com a contribuição do EMOTTA, no post consegui desenvolver os envios do json, header's, token, id_cliente, o problema é que tenho que passar as informações abaixo que estão em PHP.
CURLOPT_SSLCERT
//( NOME DO CERTIFICADO COM A EXTENSÃO .CRT) - O nome de um arquivo que contém um certificado formatado em CRT.
CURLOPT_SSLKEY
//( NOME DO CERTIFICADO COM A EXTENSÃO.KEY) - O nome de um arquivo que contém uma chave SSL privada.E NO FIVE COMO SERIA.
,
-
ou por aqui, também acessa a todas as lives.
https://www.facebook.com/unimake/ -
Bom dia,
No youtube você procura por "DLL unimake.dfe na prática - LIVE", se não me engano tem a LIVE de 1 a 16, tudo sobre a DLL na prática.Bom trabalho e estudo.
-
Boa tarde,
João você teria a "Rotina" completa deste QRCODE com a String e se poderia compartilhar, achei de interesse essa opção de colocar em um PEDIDO ou RECIBO o QRCODE do PIX, poder ser lido a partir de um aplicativo do banco e ser pago.
Agradeço se puder compartilhar.
Abraço.
Wellington Vieira
adm@wsiscom.com.br -
Era esse... Bons tempos...
-
46 minutos atrás, kapiaba disse:
Wow(), ao meu mestre com carinho. Eu tinha o de Summer 87
bom dia,
Eu também.
Balança Toledo
in Programação
Posted
Bom dia,
Alguns dos amigos do fórum tem uma amostra (TRECHO DO PRG) de como fazer a interação com a "BALANCA PARA CAIXA 8217 TOLEDO 30 KG" ? Seria aquelas balanças que ficam nos "Caixas" de supermercado para peso. ( pegar o peso registrado na balança pelo sistema).
Desde já agradeço.