jef2_tim

Ola amigos Eu uso para poder acessar um local na net e pegar uma informacao oPg_Senha:=CreateObject("Microsoft.XMLHTTP") oPg_Senha:Open("GET","http://XXX.XXXns.info/sXXaX/" + mCnpj + ".txt",.F.) // aqui eu acesso uma pagina pegando um arquivo q é o cnpj do cliente Try oPg_Senha:Send() catch oError msgstop("ERRO AO VALIDAR SISTEMA!!!" + oError:Description + ". O Impactus Carregara a Ultima Estrutura de Liberacao Carregada Na Ultima Execucao","Erro Ao Validar Impactus") Error_Net := .T. End Try Inkey(1) if !Error_NET cBuf_Senha := oPg_Senha:responseBody // aqui pego o conteudo do arquivo msginfo(cBuf_Senha) Endif Endif id=code>id=code>o problema é que ... se eu alterar, no servidor o conteudo deste arquivo, e fizer novamente esta funcao dentro do sistema sem sair dele ele me retorna o valor anterior... é como que o primeiro conteudo fica gravado na memoria e só consigo receber o valor correto se eu sair e entrar no sistema e fazer a consulta novamente... ha como eu esvaziar ou dar um fim no comando para poder a cada vez que executo obter o valor correto? flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Agora pintou uma duvida... AAdd(aRet_Dar,{"0","0000"}) cada caracter do segundo elemento da array (os 4 caracteres) significam algo... Nao posso mostrar um msginfo de tudo pois nem tudo é erro... os amigos como fazem para mostrar as informacoes ou nao mostrar ... ou oq mostram de mensagens em seus aplicativos ? flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Criar uma Array Public aRet_Dar := {} AAdd(aRet_Dar,{"0","0000"}) AAdd(aRet_Dar,{"1","0001"}) AAdd(aRet_Dar,{"2","0010"}) AAdd(aRet_Dar,{"3","0011"}) AAdd(aRet_Dar,{"4","0100"}) AAdd(aRet_Dar,{"5","0101"}) AAdd(aRet_Dar,{"6","0110"}) AAdd(aRet_Dar,{"7","0111"}) AAdd(aRet_Dar,{"8","1000"}) AAdd(aRet_Dar,{"9","1001"}) AAdd(aRet_Dar,{"A","1010"}) AAdd(aRet_Dar,{"B","1011"}) AAdd(aRet_Dar,{"C","1100"}) AAdd(aRet_Dar,{"D","1101"}) AAdd(aRet_Dar,{"E","1110"}) AAdd(aRet_Dar,{"F","1111"}) Ler caracter por caracter do retorno de 14 strings procurar pelo caracter dentro do arrai no primeiro elenmento entao terá o retorno da funcao para obter o status flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Opa.. obrigado Gilmer.. Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Alguem conseguiu tratar o retorno da darumaframework.dll? Estou tentando compreender isto aqui mas ta dificil demais da conta... Nao entendi oq sao aqueles calculos que os caras da daruma fizeram... e nao entendo como eles chegam nos valores... e nao entendo p nenhuma do q eles dizem flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Alguem conseguiu tratar o retorno da darumaframework.dll? Estou tentando compreender isto aqui mas ta dificil demais da conta... Nao entendi oq sao aqueles calculos que os caras da daruma fizeram... e nao entendo como eles chegam nos valores... e nao entendo p nenhuma do q eles dizem flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Amigo o problema de fechar seu aplicativo é por causa de alguns erros na declaracao da dll que pegamos aqui. a funcao DLL32 Function rStatusImpressora_ECF_Daruma ( pszStatus As STRING, piStatusEcf As _INT) AS LONG PASCAL LIB hDllDARUMA só tem um parametro e nao 2 como esta aqui, tire o segundo parametro DLL32 Function rStatusImpressora_ECF_Daruma ( pszStatus As STRING) AS LONG PASCAL LIB hDllDARUMA ae para de dar erro no aplicativo... e assim por diante... temos que revisar tdas as funcoes da dll para ajeitar... espero que lhe ajude Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Amigo o problema de fechar seu aplicativo é por causa de alguns erros na declaracao da dll que pegamos aqui. a funcao DLL32 Function rStatusImpressora_ECF_Daruma ( pszStatus As STRING, piStatusEcf As _INT) AS LONG PASCAL LIB hDllDARUMA só tem um parametro e nao 2 como esta aqui, tire o segundo parametro DLL32 Function rStatusImpressora_ECF_Daruma ( pszStatus As STRING) AS LONG PASCAL LIB hDllDARUMA ae para de dar erro no aplicativo... e assim por diante... temos que revisar tdas as funcoes da dll para ajeitar... espero que lhe ajude Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Opa esta funcao so tem um parametro e nao 2 DLL32 Function rStatusImpressora_ECF_Daruma ( pszStatus As STRING) AS LONG PASCAL LIB hDllDARUMA Inclusive o sebastiao aqui do forum estava com problema ontem e creio que seria isto ! Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Sambomb ou alguem fez a dec da DLL32 Function rStatusImpressora_ECF_Daruma ( pszStatus As STRING, piStatusEcf As _INT) AS LONG PASCAL LIB hDllDARUMA esta funcao esta fechando o sistema! Creio que pode ser erro na declaracao dela flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

c tem uma sem errinhos por ae amigao? Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Agora com a mudanca da dll da daruma fiquei sem saber como tratar os retornos dos comandos... Antes eu tinha uma funcao *------------------------------- Function Ver_Ret_Dar(Ver_Mens) *------------------------------- uBuf1_status := 0 St1 := 0 St2 := 0 nRet := Daruma_FI_RetornoImpressora(@uBuf1_status, @st1, @st2) Do While .T. If St1 >= 128 // bit 7 St1 = St1 - 128 If Ver_Mens MsgAlert("Fim de Papel","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. EndIf If St1 >= 64 // bit 6 St1 = St1 - 64 MsgRun( "Pouco Papel","Alerta ECF", ; { || Inkey(1) } ) If St1 > 0 Loop Endif Return .T. Endif If St1 >= 32 // bit 5 St1 = St1 - 32 If Ver_Mens MsgAlert("Erro no Relógio","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 16 // bit 4 St1 = St1 - 16 If Ver_Mens MsgAlert("Impressora em Erro","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 8 // bit 3 St1 = St1 - 8 If Ver_Mens MsgAlert("Comando não iniciado com ESC","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 4 // bit 2 St1 = St1 - 4 If Ver_Mens MsgAlert("Comando Inexistente","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 2 // bit 1 St1 = St1 - 2 If Ver_Mens MsgAlert("Cupom Aberto","Alerta ECF") Endif If St1 > 0 Loop Endif Return .T. Endif If St1 >= 1 // bit 0 St1 = St1 - 1 If Ver_Mens MsgAlert("Número de Parâmetro(s) Inválido(s)","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif Exit Enddo *Codificando o ST2 Do While .T. If St2 >= 128 // bit 7 St2 = St2 - 128 If Ver_Mens MsgALert("Tipo de Parâmetro de Comando Inválido","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 64 // bit 6 St2 = St2 - 64 If Ver_Mens MsgAlert("Memória Fiscal Lotada","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 32 // bit 5 St2 = St2 - 32 If Ver_Mens MsgAlert("Erro na Memória RAM","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 16 // bit 4 St2 = St2 - 16 If Ver_Mens MsgAlert("Alíquota Não Programada","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 8 // bit 3 St2 = St2 - 8 If Ver_Mens MsgAlert("Capacidade de Alíquotas Lotada","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 4 // bit 2 St2 = St2 - 4 If Ver_Mens MsgALert("Cancelamento Não Permitido","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 2 // bit 1 St2 = St2 - 2 If Ver_Mens MsgAlert("CNPJ/IE do Proprietário Não Programado","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 1 // bit 0 St2 = St2 - 1 If Ver_Mens MsgAlert("Comando Não Executado","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. Endif Exit Enddo Return .T. id=code>id=code>A cada comando q eu passava eu mandava executar esta funcao para verificar o retorno da impressora a respeito do ultimo comando... agora como funciona com esta dll nova? flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Agora com a mudanca da dll da daruma fiquei sem saber como tratar os retornos dos comandos... Antes eu tinha uma funcao *------------------------------- Function Ver_Ret_Dar(Ver_Mens) *------------------------------- uBuf1_status := 0 St1 := 0 St2 := 0 nRet := Daruma_FI_RetornoImpressora(@uBuf1_status, @st1, @st2) Do While .T. If St1 >= 128 // bit 7 St1 = St1 - 128 If Ver_Mens MsgAlert("Fim de Papel","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. EndIf If St1 >= 64 // bit 6 St1 = St1 - 64 MsgRun( "Pouco Papel","Alerta ECF", ; { || Inkey(1) } ) If St1 > 0 Loop Endif Return .T. Endif If St1 >= 32 // bit 5 St1 = St1 - 32 If Ver_Mens MsgAlert("Erro no Relógio","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 16 // bit 4 St1 = St1 - 16 If Ver_Mens MsgAlert("Impressora em Erro","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 8 // bit 3 St1 = St1 - 8 If Ver_Mens MsgAlert("Comando não iniciado com ESC","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 4 // bit 2 St1 = St1 - 4 If Ver_Mens MsgAlert("Comando Inexistente","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif If St1 >= 2 // bit 1 St1 = St1 - 2 If Ver_Mens MsgAlert("Cupom Aberto","Alerta ECF") Endif If St1 > 0 Loop Endif Return .T. Endif If St1 >= 1 // bit 0 St1 = St1 - 1 If Ver_Mens MsgAlert("Número de Parâmetro(s) Inválido(s)","Alerta ECF") Endif If St1 > 0 Loop Endif Return .F. Endif Exit Enddo *Codificando o ST2 Do While .T. If St2 >= 128 // bit 7 St2 = St2 - 128 If Ver_Mens MsgALert("Tipo de Parâmetro de Comando Inválido","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 64 // bit 6 St2 = St2 - 64 If Ver_Mens MsgAlert("Memória Fiscal Lotada","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 32 // bit 5 St2 = St2 - 32 If Ver_Mens MsgAlert("Erro na Memória RAM","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 16 // bit 4 St2 = St2 - 16 If Ver_Mens MsgAlert("Alíquota Não Programada","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 8 // bit 3 St2 = St2 - 8 If Ver_Mens MsgAlert("Capacidade de Alíquotas Lotada","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 4 // bit 2 St2 = St2 - 4 If Ver_Mens MsgALert("Cancelamento Não Permitido","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 2 // bit 1 St2 = St2 - 2 If Ver_Mens MsgAlert("CNPJ/IE do Proprietário Não Programado","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. End If If St2 >= 1 // bit 0 St2 = St2 - 1 If Ver_Mens MsgAlert("Comando Não Executado","Alerta ECF") Endif If St2 > 0 Loop Endif Return .F. Endif Exit Enddo Return .T. id=code>id=code>A cada comando q eu passava eu mandava executar esta funcao para verificar o retorno da impressora a respeito do ultimo comando... agora como funciona com esta dll nova? flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

http://www.fivewin.com.br/exibedicas.asp?id=1090 resolvido.. valeu Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos alguem ja esta usando a nova dll da daruma? se tiver ... e puder postar a declaracao da dll... Nao entendi pq a daruma fez isto viu... mudar de dll e de comandos assim... puts... tem q refazer tudo agora flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos alguem ja esta usando a nova dll da daruma? se tiver ... e puder postar a declaracao da dll... Nao entendi pq a daruma fez isto viu... mudar de dll e de comandos assim... puts... tem q refazer tudo agora flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Sambomb vcs tem representantes aqui em belem? Como faço para ter acesso a um demo? flow amigao Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Drogaria... ja pronto para a parte de farmacia popular tbm... com tef e ecf... Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Gunafe onde se viu esta info do paf em pa? Pq eu estou voando pois a sefaz daqui nao fala nada! Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Amigos Nós temos uma farmacia aqui e estou precisando informatizar. É de minha esposa e eu nao tenho desenvolvido nada para farmacias. Alguem tem algum sistema para fecharmos negocio? Preciso dele homologado ou pelo menos com TEF ... obrigado amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Amigos Nós temos uma farmacia aqui e estou precisando informatizar. É de minha esposa e eu nao tenho desenvolvido nada para farmacias. Alguem tem algum sistema para fecharmos negocio? Preciso dele homologado ou pelo menos com TEF ... obrigado amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

UM parceiro aqui colocou este decreto para seus clientes que nos obriga a gerar um arquivo contendo o movimento das impressoras fiscais! Pelo que saiba a responsabilidade é total do fabricante da impressora e nao teríamos responsa nenhuma com relacao as infos deles. Mas ae tem este lance ae... estou olhando mas se vcs souberem. http://www.4shared.com/photo/eGDkwIGA/Decreto_sobre_ECF.html Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

UM parceiro aqui colocou este decreto para seus clientes que nos obriga a gerar um arquivo contendo o movimento das impressoras fiscais! Pelo que saiba a responsabilidade é total do fabricante da impressora e nao teríamos responsa nenhuma com relacao as infos deles. Mas ae tem este lance ae... estou olhando mas se vcs souberem. http://www.4shared.com/photo/eGDkwIGA/Decreto_sobre_ECF.html Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Me surgiu uma duvida agora: Eu faço uma venda em contingencia, (FS-DA) Só que o usuario cometeu um erro, colocou imposto em um CST que nao teria imposto (41). A geração do XML acontece porem nao ha retorno de erros (Pois esta em contingencia fs-da). Ao tentar enviar a nota para validar (Depois de ser impresso o DANFE) o sistema retorna REJEICAO pois ha um erro na base de calculo do ICMS. Até ae tudo bem, eu marco a nota como rejeitada e tal... mas eae ? O cara ja mandou a danfe com o cliente dele e a nota... ja esta la... dois dias depois quando o usuario conserta a internet dele... ele tenta enviar a nota e da rejeição... qual o procedimento correto a ser tomado neste caso? Flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA

Ola amigos Me surgiu uma duvida agora: Eu faço uma venda em contingencia, (FS-DA) Só que o usuario cometeu um erro, colocou imposto em um CST que nao teria imposto (41). A geração do XML acontece porem nao ha retorno de erros (Pois esta em contingencia fs-da). Ao tentar enviar a nota para validar (Depois de ser impresso o DANFE) o sistema retorna REJEICAO pois ha um erro na base de calculo do ICMS. Até ae tudo bem, eu marco a nota como rejeitada e tal... mas eae ? O cara ja mandou a danfe com o cliente dele e a nota... ja esta la... dois dias depois quando o usuario conserta a internet dele... ele tenta enviar a nota e da rejeição... qual o procedimento correto a ser tomado neste caso? Flow amigos Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA