SISCO

Não funcionou os arquivos BCC32.CFG e ILINK32.CFG estão na pasta BIN do BCC7 ajustei as libs e não funcionou na minha pasta fwh não possui a pasta bin

Já estou com novo compilador FWH 16.08, mas não estou conseguindo compilar. Utilizo a xdev que está configurado da seguinte forma: PATH: C:\BCC7\bin;C:\XHARBOUR\bin INCLUDE: C:\BCC7\include;C:\XHARBOUR\include;C:\BCC7\include\dinkumware;C:\BCC7\include\windows\crtl;C:\BCC7\include\windows\rtl;C:\BCC7\include\windows\sdk;C:\BCC7\include\windows\sdk\atl;C:\fwh\include LIB: C:\XHARBOUR\lib;C:\fwh\lib;C:\BCC7\lib;C:\BCC7\lib\psdk Utilizo windows 10 Erro em um menu simples em anexo err.docx

Obrigado pela resposta O problema era esse mesmo.

Não sei porque o compilador está fazendo isso: Warning W8123: Path 'd:\compiler\bcc\include\dinkumware' not found - path ignored in option '-I' a unidade d não existe no meu computador, inciei um projeto simples e novo e continua dando o mesmo erro

Obrigado pela resposta Estou utilizando somente um compilador, mas estou convertendo o sistema de uma versão anterior ao fivewin 16. Vou verificar se ficou algum lixo.

Estou testando o compilador da nova versão do FIVEWIN 16, mas da o seguinte erro no Fastreph.prg. Alias não estou conseguindo compilar. Se alguém poder me ajudar ficarei grato. Erro compilador fivewin 16.txt

Fiz um teste de acordo com THEOTOKOS, mas deu o seguinte erro: Erro base 1004 class: ´NIL´ has no exported method: SETWORKAREA SELECT TITULO DbGoTop() IF TITULO->(Recno()) == 0 MSGSTOP("Consulta Não Encontrada","Atenção") RETURN .F. ENDIF cImagem1 := ".\IMAGEM\logo.bmp" RepDir := ".\REPORTS\" cTitulo := "CONTAS CORRENTE EM ABERTO " cTipo := "ENTIDADE" oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) //ícone da janela do FRH oFrPrn:SetTitle( cTitulo ) //título da janela do FRH oFrPrn:SetTitle( cTipo ) //título da janela do FRH oFrPrn:SetTitle( cImagem1 ) //título da janela do FRH oFrPrn:LoadLangRes( 'brazil.xml') //arquivo de idioma * cArqTmp := "TITULO" cCampo1 := "" * FrPrn:SetWorkArea(cArqTmp, 3, .f., {FR_RB_FIRST, FR_RE_LAST, 0}) FrPrn:SetUserDataSet( cArqTmp,cCampo1,; {|| DbGoTop() }, ; //--> bGoTop {|| DbSkip(1) }, ; //--> bSkipPlus {|| DbSkip(-1)}, ; //--> bSkipMinus {|| EOF() }, ; //--> bCheckEOF {|aField1| &(cArqTmp+"->"+aField1) } ) * FrPrn:PreviewOptions:SetAllowEdit( .F. ) FrPrn:PreviewOptions:SetZoomMode(2) FrPrn:PreviewOptions:SetOutlineExpand(.F.) oFrPrn:LoadFromFile(RepDir+"REL_TITABE.FR3") // para leitura direta de arquivo FR3 oFrPrn:PreviewOptions:SetAllowEdit( .f. ) // inibe o botão de edição do relatório pelo usuário oFrPrn:DesignReport() oFrPrn:ShowReport() oFrPrn:DestroyFR()

Obrigado por responderem. Fiz o gotop e nada, abaixo o restante do código oFrPrn:LoadFromFile(RepDir+"REL_TITABE.FR3") // para leitura direta de arquivo FR3 oFrPrn:PreviewOptions:SetAllowEdit( .f. ) // inibe o botão de edição do relatório pelo usuário oFrPrn:ShowReport() oFrPrn:DestroyFR()

SELECT TITULO IF TITULO->(Recno()) == 0 MSGSTOP("Consulta Não Encontrada","Atenção") RETURN .F. ELSE cImagem1 := ".\IMAGEM\logo.bmp" RepDir := ".\REPORTS\" cTitulo := "CONTAS CORRENTE EM ABERTO " cTipo := "ENTIDADE" oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) //ícone da janela do FRH oFrPrn:SetTitle( cTitulo ) //título da janela do FRH oFrPrn:SetTitle( cTipo ) //título da janela do FRH oFrPrn:SetTitle( cImagem1 ) //título da janela do FRH oFrPrn:LoadLangRes( 'brazil.xml') //arquivo de idioma oFrPrn:SetWorkArea("TITULO", Select("TITULO")) ENDIF

Estou fazendo alguns testes com Fastreport e utilizando DBF ao invés de array, mas quando imprime gera o relatório em branco, acredito que ele esteja indo para o final do arquivo. Se alguém poder me ajudar ficarei grato,

estou tentando gerar um relatório com dbf, consigo configurar todo os campos no fastreport, mas na hora de imprimir o relatório sai em branco, acredito que ele esteja indo pro final do arquivo, como faço ele ir pro inicio

Acredito que neste site tem as informações que você precisa http://www.cte.fazenda.gov.br/exibirArquivo.aspx?conteudo=mIbYaBc9suI=

verifica se ajuda http://www.cte.fazenda.gov.br/exibirArquivo.aspx?conteudo=PcLTH0WyZ6s=

verifica se ajuda http://www.cte.fazenda.gov.br/exibirArquivo.aspx?conteudo=PcLTH0WyZ6s=

Desculpe a demora em responder, o meu tempo só é pela noite. Fi alguns testes, mas ainda não funcionou, engraçado eu tenho uma rotina que funciona normalmente. Se você poder me mande um modelo de array.

Olá pessoal Estou fazendo uma tela com cabeçalho e detalhe, mas o detalhe só aparece no primeiro registro os demais ficam em branco. Já fiz uma tela desta e funcionou normalmente, mas nesta agora não estou conseguindo, estou trabalhando com sql. // GRID DE CADASTRO DE MTERIAL oXb_Mat := TXBrowse():New( oDMat ) oXb_Mat:CreateFromResource(100) // tela do browse oXb_Mat:cAlias := (oBd_Mat)->(Alias()) oXb_Mat:bChange := {||ATUALIZA_ACESSOS(nMod)} oXb_Mat:bKeyDown := {|nKey| PEGA_TECLAS_Mat(nKey)} oXb_Mat:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } } oXb_Mat:nMarqueeStyle := MARQSTYLE_HIGHLCELL // MARQSTYLE_HIGHLCELL oXb_Mat:nColDividerStyle := 4 oXb_Mat:nRowDividerStyle := 4 oXb_Mat:lColDividerComplete := .F. oXb_Mat:lFooter := .F. oXb_Mat:nFreeze := 1 oXb_Mat:nHeaderLines := 1 oXb_Mat:nDataLines := 1 oXb_Mat:bClrStd := {|| { CLR_BROWSE_TEXTO, IIF(((oBd_Mat)->(ORDKEYNO()))%2==0, CLR_BROWSE01, CLR_BROWSE02) } } oXb_Mat:bClrSelFocus := {|| { CLR_BROWSE_TEXTO_BARRA, CLR_BROWSE_BARRA } } oCol := oXb_Mat:AddCol() oCol:bStrData := { || STR((oBd_Mat)->IDMATERIAL) } oCol:cHeader := "CODIGO" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol := oXb_Mat:AddCol() oCol:bStrData := { || (oBd_Mat)->NOMEMAT } oCol:cHeader := "NOME DO MATERIAL" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol := oXb_Mat:AddCol() oCol:bStrData := { || (oBd_Mat)->NOMEMATI } oCol:cHeader := "NOME EM INGLÊS" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT // GRID DE CADASTRO DE REFERENCIAS oXb_Ref := TXBrowse():New( oDMat ) oXb_Ref:CreateFromResource(200) // tela do browse oXb_Ref:cAlias := (oBd_Ref)->(Alias()) Val_nKey1(nKey,oDlp,oXb_Ace,oGet,cRec,lBus,cMdo,oXb_Ace) /*, Increm2(nKey, oXb_Ace, oXb_Ace, oGet, oDlp, cRec)*/,IIF(nKey==VK_RETURN,(lEsc:=.T., oGet:=(oXb_Ace)->(FieldGet(1)),oDlp:End()), (NIL))} oXb_Ref:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } } oXb_Ref:nMarqueeStyle := MARQSTYLE_HIGHLCELL //MARQSTYLE_HIGHLROW oXb_Ref:nColDividerStyle := 4 oXb_Ref:nRowDividerStyle := 4 oXb_Ref:lColDividerComplete := .F. oXb_Ref:lFooter := .F. oXb_Ref:nFreeze := 1 oXb_Ref:nHeaderLines := 1 oXb_Ref:nDataLines := 1 oXb_Ref:bClrStd := {|| { CLR_BROWSE_TEXTO, IIF(((oBd_Ref)->(ORDKEYNO()))%2==0, CLR_BROWSE01, CLR_BROWSE02) } } oXb_Ref:bClrSelFocus := {|| { CLR_BROWSE_TEXTO_BARRA, CLR_BROWSE_BARRA } } oCol := oXb_Ref:AddCol() oCol:bStrData := { || STR((oBd_Ref)->IDPORTARIA) } oCol:cHeader := "CODIGO" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:nWidth := 50 oCol := oXb_Ref:AddCol() oCol:bStrData := { || (oBd_Ref)->NOMEPOR } oCol:cHeader := "PORTARIA" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:nWidth := 170 oCol := oXb_Ref:AddCol() oCol:bStrData := { || STR((oBd_Ref)->IDEXAME) } oCol:cHeader := "CODIGO" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:nWidth := 50 oCol := oXb_Ref:AddCol() oCol:bStrData := { || (oBd_Ref)->NOMEEXA } oCol:cHeader := "EXAME" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:nWidth := 170 oCol := oXb_Ref:AddCol() oCol:bStrData := { || (oBd_Ref)->REFERENCIA } oCol:cHeader := "REFERENCIA" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:nWidth := 150

Obrigado vou testar a dica

Obrigado por responder Fiz alguns testes, mas mesmo assim não funcionou, dou enter e consigo modificar o campo, mas para sair dele preciso clicar em um outro registro e não grava a informação. Acredito que deve ser porque estou utilizando comandos com sql.

Olá pessoal estou com um probleminha no xBrowse e não estou conseguindo resolver. Estou dando um get no xBrowse, mas ele está retornando em branco, ou seja o que eu coloco no get não está considerando. Se alguém poder me ajudar ficarei grato, estou mandando o código: oXb_VMnt := TXBrowse():New( oFld:aDialogs[1] ) oXb_VMnt:CreateFromResource(100) oXb_VMnt:cAlias := "TMP_MANUEXAMES" oXb_VMnt:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } } oXb_VMnt:nMarqueeStyle := MARQSTYLE_HIGHLCELL // MARQSTYLE_HIGHLCELL oXb_VMnt:nColDividerStyle := 4 oXb_VMnt:nRowDividerStyle := 4 oXb_VMnt:lColDividerComplete := .F. oXb_VMnt:lFooter := .F. oXb_VMnt:nFreeze := 1 oXb_VMnt:nHeaderLines := 1 oXb_VMnt:nDataLines := 1 oXb_VMnt:lHScroll := .T. // Barra Rolagem Horiz. oXb_VMnt:lVScroll := .T. // Barra Rolagem vertical oXb_VMnt:bClrSelFocus := {|| { CLR_BROWSE_TEXTO_BARRA, CLR_BROWSE_BARRA } } oCol := oXb_VMnt:AddCol() oCol:bStrData := { || STR(TMP_MANUEXAMES->IDEXAME) } oCol:cHeader := "Código" oCol:cFooter := "- " oCol:nDataStrAlign := AL_RIGHT oCol:nHeadStrAlign := AL_CENTER oCol:nWidth := 60 oCol := oXb_VMnt:AddCol() oCol:bStrData := { || TMP_MANUEXAMES->NOMEEXA } oCol:cHeader := "Exame" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_CENTER oCol:nWidth := 300 oCol := oXb_VMnt:AddCol() oCol:bStrData := { || TMP_MANUEXAMES->UNIDADE } oCol:cHeader := "Unidade" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_CENTER oCol:nWidth := 100 oCol := oXb_VMnt:AddCol() oCol:cHeader := "Obs" oCol:bStrData := { || TMP_MANUEXAMES->OBSPADRAO } oCol:cFooter := "- " oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_LEFT oCol:nWidth := 30 oCol:bFooter :={|| TMP_MANUEXAMES->(LastRec()) } oCol:nEditType := EDIT_GET oCol:cEditPicture :="XXX" oCol:bonPostEdit := { | oCol, uValue, nLastKey | If( nLastKey = 13, TMP_MANUEXAMES->OBSPADRAO := uValue), NIL ) } oCol:bEditvalue := { || TMP_MANUEXAMES->OBSPADRAO } oCol := oXb_VMnt:AddCol() oCol:bStrData := { || TMP_MANUEXAMES->RESULTADO } oCol:cHeader := "Resultado" oCol:cFooter := "- " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_CENTER oXb_VMnt:aCols[ 4 ]:bClrSelFocus := {|| { CLR_YELLOW , CLR_BLACK } } oXb_VMnt:aCols[ 4 ]:bClrStd := {|| {CLR_BLACK , NRGB(255,255,179)} }

olá pessoal, consegui resolver da seguinte forma 1) dando permissão no servidor na pasta onde está o banco de dados 2) instalando o firebird no servidor 3) no terminal copiar para a pasta que vai rodar o executável a dll fbcliente 4) informar o local para conexão do banco informado o ip do servidor e a pasta onde se encontra o banco de dados \\192.168.0.1:c:\SISTEMA\BANCO\BANCODEDADOS.FDB 5) exemplo de comando: cConString1:="FIREBIRD="+LOWER(cConnName)+":"+cBANCO+LOWER(cConnBase)+".fdb;uid=SYSDBA;pwd=masterkey;charset=ISO8859_1" Espero que sirva de ajuda

Olá pessoal estou estudando fivewin com banco de dados firebird, já montei um sisteminha e roda normalmente no localhost, mas quando coloco o banco no servidor não consigo conectar. Não sei se é permissão no servidor, que funciona com windows 2003, ou alguma configuração de acesso. Ficarei grato se vocês pudessem me ajudar.

Valeu pela ajuda de todos, resolvi da seguinte forma: cComm := "select A.NOMECLI, B.IDEXAME, B.NOMEEXA, B.QTDEXAME, B.VLEXAME FROM AMOSTRAS_DET B " cComm += "LEFT JOIN AMOSTRAS_CAB A ON B.IDAMOSTRA = A.IDAMOSTRA " cComm += "AND A.IDAMOSTRA = "+SR_cDBValue( nIDAMOSTRA ) oSql := SR_GetConnection() dbUseArea(.t., "SQLRDD", cComm, "TMP_AMOSTRA", .f.,.t.,,) A forma que estava usando para gerar o filtro era esta EXECUTA_SQL(cComm,"TMP_AMOSTRA"), mas não funcionou

Não funcionou, acho que deve ser algo no meu código que não estou conseguindo enxergar.

Olá pessoal estou implementando o meu sistema com FastReport, mas estou com dificuldades para filtrar as informações para o relatório. Tenho as seguintes tabelas AMOSTRAS_CAB (Cabeçalho) e AMOSTRAS_DET (Detalhe) no FireBird. O comando seguinte não funciona corretamente: cComm := "select A.NOMECLI, B.IDEXAME, B.NOMEEXA, B.QTDEXAME, B.VLEXAME FROM AMOSTRAS_CAB A " cComm += "LEFT JOIN AMOSTRAS_DET B ON B.IDAMOSTRA = A.IDAMOSTRA " cComm += "AND A.IDAMOSTRA = "+SR_cDBValue( nIDAMOSTRA ) EXECUTA_SQL(cComm,"TMP_EXAMES") Quando rodo este comando gera só um campo no FastReport e some os outros Já rodei direto no IBExpert funcionou normalmnete. Quando utilizo separado funciona normalmente os seguintes comandos: cComm:= "select * FROM AMOSTRAS_DET WHERE SR_DELETED <> 'T' AND IDAMOSTRA = "+SR_cDBValue( nIDAMOSTRA ) EXECUTA_SQL(cComm,"TMP_EXAMES") Aparece todos os campos da tabela. Se alguém poder me ajudar ficarei grato.