microfly

boa tarde se possível poderia me enviar no meu email suporte@microfly.com.br Obrigado (19) 3833-4521 - Paulínia - João Aranha Luiz Carlos Nogueira http://www.amasystem.com.br

eu desenvolvi um modulo completo somente para NFS-E TANTO incluir dados auomático como buscar a XML veja em https://www.amasystem.com.br/ tem o resumo do que faz e um video de procedimentos Obs: vc pode selecionar na pasta Schemas\Abrasf, Schemas\Ginfes e assim por diante tem todos para território brasileiro Desenvolvido em Fivewin1011 + Xharbour + Mysql 6.0 + sqlrdd (19) 3833-4521 Luiz Carlos - Paulinia Fico no Aguardo - Vendo com Fontes

Eduardo Motta quando precisar e eu puder ajuda-lo conte sempre comigo

Boa tarde quero agradecer a todos que tentaram me ajudar em especial ao meu amigo Eduardo Motta que entrou aqui na minha maquina e perdeu algum tempo para me ajudar , que DEUS abencoe a todos. Muito Obrigado

boa tarde Evandro ja fiz tudo isso , nao da erro na compilacao, ja foi feito isso tb via memowrit()

Olá a todos, Amigos boa noite, estou com um problema para executar o seguinte comando SQL usando SQLRDD. Se executo em uma Ferramenta Case Tipo o Phpmyadmin, HeidSql, MysqlFront, etc. é exibido o Resultado, mas no código PRG compilado, não executa FUNCTION Imprime_DAV(v_Numero_Orcamento) ******************************************************************************** RepDir := CurDrive() +":\"+ CurDir() + '\RELS\' TITULO := 'DAV - DOCUMENTO AUXILIAR DE VENDA' RELATORIO_FAST := 'EMISSAO_DAV.fr3' *---------------------------------------------------------------------------- IF FILE( (CurDrive() +":\"+ CurDir() + '\RELS\'+RELATORIO_FAST)) cComm_Cabecalho:= "select * from orcamento WHERE orcamento = " + SR_cDBValue( v_Numero_Orcamento ) + " ORDER BY orcamento DESC" EXECUTA_SQL(cComm_Cabecalho,"tmp_orcamento") *------------------------------------------------------------------------- cComm_Cliente:= "select * from cliente WHERE codcli = " + SR_cDBValue( tmp_orcamento->codcli ) EXECUTA_SQL(cComm_Cliente,"tmp_cliente") *------------------------------------------------------------------------- cComm_Itens:= " select itens.*, " cComm_Itens:= cComm_Itens + " pro.codbar AS c_barras, pro.nompro AS pro_nompro, pro.und AS pro_und " cComm_Itens:= cComm_Itens + " from itemorca as itens " cComm_Itens:= cComm_Itens + " LEFT JOIN produtos AS pro ON itens.codbar = pro.codbar " cComm_Itens:= cComm_Itens + " WHERE itens.orcamento = " + SR_cDBValue( v_Numero_Orcamento ) + " ORDER BY itens.orcamento DESC " EXECUTA_SQL(cComm_Itens,"tmp_Itens") *------------------------------------------------------------------------- oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) // ícone da janela do FRH oFrPrn:SetTitle( 'Relatorio ' + TITULO ) // título da janela do FRH oFrPrn:LoadLangRes( (CurDrive() +":\"+ CurDir() + '\RELS\' + 'brazil.xml' )) // arquivo de idioma oFrPrn:SetWorkArea("tmp_orcamento", select("tmp_orcamento")) oFrPrn:SetWorkArea("tmp_cliente", select("tmp_cliente")) oFrPrn:SetWorkArea("tmp_Itens", select("tmp_Itens")) oFrPrn:LoadFromFile(RepDir+RELATORIO_FAST) // para leitura direta de arquivo FR3 oFrPrn:PreviewOptions:SetAllowEdit( .F. ) *------------------------------------------------------------------------- M->RELATORIO_DESINER = (.T.) IF M->RELATORIO_DESINER = (.T.) oFrPrn:DesignReport() // aqui para "desenhar" o relatório endif oFrPrn:PreviewOptions:SetZoomMode(2) oFrPrn:ShowReport() // aqui para gerar o preview do relatório. oFrPrn:DestroyFR() ELSE MsgStop('Está Faltando o Arquivo' + RepDir+(ARQUIVO_FR3)) ENDIF RETURN(.T.) *----------------------------------------------------------------------------------------------------------------------------------------------------- já o mesmo comando em Ferramenta case select itens.*, pro.codbar AS c_barras, pro.nompro AS pro_nompro, pro.und AS pro_und from itemorca as itens LEFT JOIN produtos AS pro ON itens.codbar = pro.codbar WHERE itens.orcamento = 1 ORDER BY itens.orcamento DESC EXECUTA_SQL(cComm_Itens,"tmp_Itens") Será que está correto ? Veja a imagem

Eu comecei a programar em 1975 iniciei com o Cobol, Foltran, Assembler, Mumps, Basic , Dbase I II III , Clarion depois que conheci CLIPPER me apachonei por ele e hoje estou com Fivein + xharbour

bom dia Obrigados a todos que me responderam para arrumar uma solução, mais funcionou como &Condicao eu tinha errado na matriz que compunha a condicao:={"?????" }. agradeço a todos muito obrigado Luiz Carlos Nogueira (Batata) skype suporte.microfly zap (11) 96969-3667 (19) 3844-8556 - Paulínia - SP

vlw meu amigo , mais eu ja resolvi sua ideia foi muito boa obrigado

vlw vou procurar algo a respeito mais estou com problema com o AFILL Application =========== Path and name: C:\FOLHAFWH\Folhafwh.Exe (32 bits) Size: 4,422,656 bytes Time from start: 0 hours 0 mins 15 secs Error occurred at: 20/11/2017, 19:39:43 Error description: Error BASE/9999 Argument error: AFILL Args: [ 1] = U [ 2] = N 0 abraços e obrigado Luiz Carlos Nogueira(Batata)

obrigado pela força , abs

Bom dia a todos tenho que usar do while com macro pois tenho 3 opcoes e cada opcao tem uma condicao diferente exemplo da opcao 2 If T_Escolha_Forma_Calculo = 2 Folfun->(OrdSetFocus("arqfun16")) condicao:="Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8) >= Str(M->vCodemp,4)+Str(Codigo1,8) .and. Str(folfun->Fun_Codemp,4)+Str(folfun->fun_alocac,8)<=Str(M->vCodemp,4)+Str(Codigo2,8) .and. !folfun->(eof())" ? condicao _reg:=folfun->(recno()) Do while &Condicao // da erro aqui alquem poderia me ajudar solucionar esse problema ou estou fazendo algo errado ? Apagar() Folfun->(Dbskip()) Enddo folfun->(Dbgoto(_reg)) Endif Do while &condicao Apagar() T_TXT_001 := Str(FolFun->Fun_Matric,5) T_TXT_002 := ALLTRIM(FolFun->Fun_Nome) oT_TXT_001 : Refresh() oT_TXT_002 : Refresh() Folfun->(Dbskip()) Enddo folfun->(Dbgoto(_reg)) ALERT('Calculo Por Setor' ) *--------------------------------------------------------------------------------------------------------------------------------------------* Desde de já muito obrigado atodos Luiz Carlos Nogueira (Batata) Paulinia - SP zap (11) 96969-3667

Alguém tem as LIB TSBROWSE 8 ou 9 TSBUTTON 7 compilada para a versão FWH17.01 se alguém tiver pode me enviar no email suporte@microfly.com.br já pedi ajuda ao criador das libs Manuel Mercado já faz 15 dias e ele não responde por isso decidi nos próximos projetos não utilizar mais nada de terceiros e só dor de cabeça qdo muda a versão do FWH Luiz Carlos Nogueira (19) 3844-8556 / zap (11) 9 6969-3667 Obrigado desde já

Obrigado mano João

Boma Dia a todos Alguem poderia me passar algum exemplo de como utilizar a webcam32 pois a minha eu não consigo tirar foto e gravar fiz um sistema escolar e funcionava muito bem na versão fivewin2.8 e na versãoo 18.01 agora na versão fivewin 17.01inão funciona mais agora estou migrando todo meus sistemas para mysql. Obrigado alquem poder rme ajudar Estou alterando meus sistemas para mysql e utilizando o FastReport com ajuda do meu amigo Marcio (da informais) para ver se volto no mercado de trabalho. meus sistemas são todos em 32 bits

Agradeço a todos amigos que me ajudaram, Especialmente ao João Santos e ao Luiz Augusto Martins (Gunafe) que me deu a maior força dando referencias da minha pessoa. Agradeço ao Leonardo da Sygecom pela força e pelos conselhos que me deu. Agradeço especialmente ao Marcio (da empresa Informais ) que esta se dicando o seu tempo em me ensinar MYSQL uma pessoa de bom coração e todos dia depois do expediente fica horas conectado comigo me ensinando o MYSQL até aos sabados. me aconselhando e me fazendo CRITICAS CONSTRUTIVAS que esta me ajudando E MUITO. Agradeco ao Eduardo Mota que me ajudou muito . Agradeço tb ao Wanderson pela confiança no meu trabalho e na minha pessoa. Enfim quero agradecer a todos que nao foram poucos nao, que DEUS de muita PAZ E SAÚDE a TODOS desse grupo e aos seu familiares MUITO OBRIGADO POR TUDO. Luiz Carlos Nogueira (19) 3844-8556 - Paulínia - João Aranha zap (11) 9 6969-3667 Obs: aqueles que precisarem de ajuda profissional pode contar comigo, ajudarei com o maior prazer , inclusive aos iniciantes. trabalho com Fivewin desde 1999.

quero agradecer a todos que me ajudaram sem exceção sanar meu problema graças a DEUS e a todos amigos aqui do forum consegui. todos que contribuirão me pediram para eu não mencionar seus nomes eu vou respeitar Mais um eu quero fazer questão de agradecer ao meu amigo irmão JOÃO SANTOS pelo empenho em me ajudar. MUITO OBRIGADO JOÃO SANTOS que DEUS.lhe de muita saúde e sorte a você e toda sua família MUITO OBRIGADO A TODOS DO GRUPO SEM EXCEÇÃO QUE DEUS DE MUITA SAUDE E SORTE A VCS E TODA A SUAS FAMILIAS. e vou deixar aqui a quem interessar o sistema o mesmo valor 100,00 reais eu mando o sistema de bar completo (com os fontes) zap 11 96969-3667 (19) 3844-8556 - Paulinia suporte@microfly.com.br skype suporte.microfly agradeço a todos

Muto obrigado meu amigo que DEUS lhe de bastante saude e sucesso a vc e toda sua familia me adcione no skype que lhe passo os fontes skype suporte.,microfly zap 11 96969-3667

Gilmer ja respondi no skype obrigado

quero agradecer a todos que me ajudaram sem exceção sanar meu problema graças a DEUS e a todos amigos aqui do forum consegui. todos que contribuirão me pediram para eu não mencionar seus nomes eu vou respeitar Mais um eu quero fazer questão de agradecer ao meu amigo irmão JOÃO SANTOS pelo empenho em me ajudar. MUITO OBRIGADO JOÃO SANTOS que DEUS.lhe de muita saúde e sorte a você e toda sua família MUITO OBRIGADO A TODOS DO GRUPO SEM EXCEÇÃO QUE DEUS DE MUITA SAUDE E SORTE A VCS E TODA A SUAS FAMILIAS. e vou deixar aqui a quem interessar o sistema o mesmo valor 100,00 reais eu mando o sistema de bar completo (com os fontes) Peço desculpas aos amigos do forun pois eu disse que iria colocar o setup do sistema de tecidos a disposicao mais tive muita dor essa semana e me atrasei um pouco mais estou mudando ele para ribonbar e colocarei a disposicao ate domingo zap 11 96969-3667 (19) 3844-8556 - Paulinia suporte@microfly.com.br skype suporte.microfly agradeço a todos

Muito obrigado meu amigo sua oração ja é uma bela contribuição fique com DEUS vc e toda sua familia tenha bastante saude paz e harmonia

Muito obrigado que DEUS de bastante SAUDE E SUCESSO A TODOS , nao vou desistir de lutar pela minha vida

ja lhe enviei os dados que pediu obrigado

Muito obrigado Rubens que DEUS lhe de muita saude a vc e toda sua familia e muito sucesso