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