Anthony Ormond

Samir em Sampa?? Com um monte de "bambis"??? Com um monte de loiras geladas??? Rs rs rs rs

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=15813

Vcs estão gravando o COO(número do contador de ordem de operação) inicial e final no banco de dados após a redução Z??? Ou tem alguma forma de pegar o COO inicial e final de cada dia no final do mês??? Editado por - aormond on 18/08/2009 15:27:15 Editado por - aormond on 18/08/2009 15:27:33 Editado por - aormond on 18/08/2009 15:28:33

Obrigado pelas dicas, mas infelizmente nem todas as impressoras fiscais tem Metodos para o SINTEGRA. Pelo que até agora só a Bematech e Daruma tem esses comandos. citação:Boa noite! Que eu saiba não, voce vai precisar de usar os comandos da dll sim, pois algumas informaçoes voce precisa recuperar da memória da impressora fiscal. Bye FWXH 9.02, PELLESC, MYMAKE 1.9J, DBF Belzonte - Minas Gerais id=quote>id=quote>

Só para acrescentar caso vc esteja começando o desenvolvimento!! http://www.sintegra.gov.br/

Meu sistema trabalha com diversas impressoras fiscais, tem alguma forma prática para pegar essas informações na impressora fiscal para incluir no registro60M sem precisar utilizar as dlls de cada impressora?? citação:Bom dia! Não so atraves das dlls, mas fatalmente tera que usar algum recurso das dlls para buscar determinadas informações, o grande total por exemplo, mas muitas informações voce mesmo gera ao efetuar uma venda, basta grava-las em arquivo enquanto estão na memória logo após voce fechar o cupom. t+ FWXH 9.02, PELLESC, MYMAKE 1.9J, DBF Belzonte - Minas Gerais id=quote>id=quote> Editado por - aormond on 11/08/2009 10:32:35

Olá, muito obrigado pela resposta. Pelo que percebi somente atraves das dlls das impressoras fiscais eu consigo ter acessos aos dados do registro 60M ou tem outra forma??? citação:Ola, boa noite! Consulte o Layout para geração do Sintegra, você verá que para cada ECF voce deve gerar o grupo de registros 60 respectivo. Cada ECF gera o seu e depois voce envia esses registros para o retaguarda, consultando o layout voce verá que cada ECF deve ser perfeitamente identificado atraves do seu serial, fazendo com que cada um seja lido pelo validador do Sintegra de forma correta. t+ FWXH 9.02, PELLESC, MYMAKE 1.9J, DBF Belzonte - Minas Gerais id=quote>id=quote>

Olá Pessoal!!! Gostaria de uma dica de vocês!!! Tenho 3 terminais com impressoras fiscais, estou desenvolvendo o Sintegra no sistema de retarguada, como enviaria as informações do registro 60A para o meu retarguada?? Desde já, obrigado a todos!!!

Olá Pessoal!!! Gostaria de uma dica de vocês!!! Tenho 3 terminais com impressoras fiscais, estou desenvolvendo o Sintegra no sistema de retarguada, como enviaria as informações do registro 60A para o meu retarguada?? Desde já, obrigado a todos!!!

happy birthday to you!!!!! Feliz cumpleaños!!! Herzlichen Glückwunsch zum Geburtstag!!! عيد ميلاد سعيد!!! 生日快樂!!!! С Днем РождениÑ!!!!

happy birthday to you!!!!! Feliz cumpleaños!!! Herzlichen Glückwunsch zum Geburtstag!!! عيد ميلاد سعيد!!! 生日快樂!!!! С Днем РождениÑ!!!!

Olá Luiz, obrigado pela dica, mas já faço isso hoje, pensei que houve-se uma forma para enviar diretamente para Anvisa sem precisar entrar no site. Até mais, um abraço. Anthony R. Ormond. citação: citação:Eu não ouvi falar disso, foi bom saber.... Obrigado. Não querendo desviar o assunto mas desviando, como vc faria esse envio do arquivo, desde que a Anvisa só disponibiliza a WebService? Editado por - aormond on 06/05/2009 11:58:33 id=quote>id=quote>Ola colega se vc ja tiver gerando o arquivo XML em seu sistema fica facil,é so usar o controle activex, dai seu usuario acessa pagina via sistema,conforme a forma que vc montar ele nem percebe que esta acesssando a internet, qq coisa de uma olhada no GMAPD.PRG no samples que a lógica é a mesma... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 Editado por - empresoft on 06/05/2009 12:58:58 id=quote>id=quote>

Eu não ouvi falar disso, foi bom saber.... Obrigado. Não querendo desviar o assunto mas desviando, como vc faria esse envio do arquivo, desde que a Anvisa só disponibiliza a WebService? Editado por - aormond on 06/05/2009 11:58:33

É realmente não vejo uma postagem do Kapiaba ha um bom tempo, seja qual motivo for estarei torcendo para ele... Um abraço

Não se esqueça: o Xml faz diferença maiusculo e minusculo, vc deve seguir o Layout que a anvisa disponibiliza.

De uma olhada nesse tópico http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10281 citação:VOU BAIXAR ESSA CLASSE, mas funciona mesmo,,,, vc tem algum exemplo, que pode disponibilizar, por favor, nao pedindo muito,,,,obrigado luis antonio id=quote>id=quote>

Olá Luis eu utilizo essa classe http://www.fivewin.com.br/contadownload.asp?nome=TXMLWrite1.zip&arquivo=204 para escrever xml com o padrão da Anvisa. Verifique no site da Anvisa um exemplo do layout.

Qual foi o erro?? citação: DEFINE DIALOG oP01f RESOURCE "UNIDADES" oP01f:lHelpIcon := .f. oActiveX = TActiveX():New( oP01f, "Shell.Explorer" ) oP01f:oClient = oActiveX oActiveX:Do( "Navigate", "http://www.fivewin.com.br/" ) Redefine BtnGet oCod Var Mcod Id 121 Of oP01F ; Update ReDefine BtnGet oNme Var MNme ID 122 OF oP01f ; Update ; Picture "@!" Redefine BUTTON oConfirma ID 123 OF oP01f; Action If(vopcao = "Inc",Grava(), If(vOpcao = "Con",(noESC:=.t.,oP01f:End(),Saf_Un1(1)),If(vOpcao="Exc",Deleta(),If(vOpcao="Alt",Altera(),Cons_Uni())))) Redefine BUTTON oVoltar ID 124 OF oP01f; Action (noESC:=.t.,oP01f:End(),Saf_Un1(1)) Redefine BUTTON oFechar ID 125 OF oP01f; Action (noESC:=.t.,oP01f:End()) Cancel Redefine BtnBmp oRet_Ini ID 126 Resource "TOP" OF oP01f ; Font oFontEm ; Action (DbGotop(), Cons_Uni()), Reg_Actual() ; ToolTip "Retornar ao Inicio do Banco de Dados" ; NoBorder CentraBmp Redefine BtnBmp oRet_Reg ID 127 Resource "PREV" OF oP01f; Font oFontEm ; Action (DbSkip(-1),Cons_Uni()), Reg_Actual(); ToolTip "Retornar Um Registro no Banco de Dados" ; NoBorder CentraBmp Redefine BtnBmp oAva_Reg ID 128 Resource "PROX" OF oP01f; Font oFontEm ; Action (DbSkip(), Cons_Uni()), Reg_Actual() ; ToolTip "Avançar um Registro no Banco de Dados" ; NoBorder CentraBmp Redefine BtnBmp oAva_Fin ID 129 Resource "FIM" OF oP01f; Font oFontEm ; Action (DbGoBottom(), Cons_Uni()), Reg_Actual(); ToolTip "Ir ao Final do Banco de Dados" ; NoBorder CentraBmp Redefine Get oReg_Atual Var cReg_Atual Id 130 Of oP01F ; Update oReg_Atual:Disable() oCod:Disable() If vOpcao = "Exc" .or. vOpcao = "Con" oNme:Disable() Endif If vopcao = "Inc" oRet_Ini:Disable() oRet_Reg:Disable() oAva_Reg:Disable() oAva_Fin:Disable() Inicia_Inclusao() else oRet_Ini:Enable() oRet_Reg:Enable() oAva_Reg:Enable() oAva_Fin:Enable() Cons_Uni() endif ACTIVATE DIALOG oP01f CENTERED Valid noESC dbCloseAll() Release Mcod, Mnme, oNme, oCod, oReg_Atual, cReg_Atual Return(.t.) id=code>id=code>Fiz assim.. da erro noa hora de abrir a tela.. erro .. e fecha o sistema.. Um Xharbraço. Uso Fwh 8.4 (xharbour 1.1) e Xmate Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA id=quote>id=quote>

Rs rs rs rs rs!!! Quem é o "CARA" é o Anderson.ollll(Como diz o Kapiaba) e o Mestre Kapiaba. Não chego aos pés. citação:É possivel, vou pedir pro "CARA" que já fez, postar a dica. id=quote>id=quote>

Veja se é isso que vc quer. function transfer() ******************* local oActiveX, oDlg Define window oDlg Title "htm in dialog" oActiveX = TActiveX():New( oDlg, "Shell.Explorer" ) oDlg:oClient = oActiveX oActiveX:Do( "Navigate", http://www.fivewin.com.br/ ) Activate Window oDlg Maximized return .t. id=code>id=code>Espero que ajude!!!! Um abraço citação:Ola amigos tem como eu carregar, ao invez de um bmp um HTM no fundo da tela para usar como mascara para um PDV? flow amigos Um Xharbraço. Uso Fwh 8.4 (xharbour 1.1) e Xmate Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA id=quote>id=quote> Editado por - aormond on 09/02/2009 13:13:00

Gostei dessa!!!! Rs rs rs rs Só falta nos convidar para festa!!!! Editado por - aormond on 30/01/2009 15:23:30

Mestre Kapiaba, funcionou. Muito obrigado. citação:#Include 'FiveWin.Ch' // Cabezera de FW STATIC oLbx, oDlg // oLbx=Browser, oDlg=Datos FUNCTION... USE CLIENTES NEW SHARED ALIAS CLI INDEX ON CODCLIEN TO CLIENTES SET INDEX TO CLIENTES SELECT CLI DBGOTOP() DEFINE DIALOG oDlg RESOURCE "DLG_CLIENTES"; COLORS CLR_BLACK, nRGB(193,205,205) REDEFINE LISTBOX oLbx FIELDS ; ID 1013 OF oDlg //-> Se explodir o ARRAY, va colocando .F. ou .T. oLbx:aJustify := {.T., .F., .F., .F., .F., .F., .F., .F.} //etc oLbx:nLineStyle := 2 oLbx:Refresh() ACTIVATE DIALOG oDlg DBCLOSEALL() RELEASE ALL RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>

João vou testar a sua sugestão, muito obrigado. citação:#Include 'FiveWin.Ch' // Cabezera de FW STATIC oLbx, oDlg // oLbx=Browser, oDlg=Datos FUNCTION... USE CLIENTES NEW SHARED ALIAS CLI INDEX ON CODCLIEN TO CLIENTES SET INDEX TO CLIENTES SELECT CLI DBGOTOP() DEFINE DIALOG oDlg RESOURCE "DLG_CLIENTES"; COLORS CLR_BLACK, nRGB(193,205,205) REDEFINE LISTBOX oLbx FIELDS ; ID 1013 OF oDlg //-> Se explodir o ARRAY, va colocando .F. ou .T. oLbx:aJustify := {.T., .F., .F., .F., .F., .F., .F., .F.} //etc oLbx:nLineStyle := 2 oLbx:Refresh() ACTIVATE DIALOG oDlg DBCLOSEALL() RELEASE ALL RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>

Esses comandos exibem o conteudo do banco de dados? Eu gostaria que mostra-se o conteudo do dbf sem saber qual é o nome de sua estrutura.

Boa Tarde a todos!!!! Tenho um dbf e não sei qual é sua estrutura, gostaria de exibir em um listbox todo os dados sem saber o numero e nome da colunas existentes. Teria como?? Não sei se fui claro. Desde já, obrigado. Editado por - aormond on 28/01/2009 09:13:58