Anderson.OL

(via Vailton) Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

o certo é winexec() ao invés de winexe() Mas eu particularmente gosto de usar o shellexecute() ShellExecute(0,nil,"Calc.EXE",,,1) Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

citação:Obrigado Samir! Você realmente entendeu, se estivesse abandonado nem estaria postando no forum e respondendo algumas perguntas, infelizmente hoje não posso responder muitas perguntas, pois estarei ajudando este pessoal do mal, no qual virou prazer ter cópias piratas, FW, SqlLib, SqlRDD, etc... id=quote>id=quote>Virge! Eu me senti uma pessoa do Mal, afinal estou sendo ajudado via msn pelo Gilmer hoje! Mas juro de pé junto que não tenho cópias piratas do FW nem SqlLib... Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Estou com o seguinte erro na emissão de NFe com um cliente, tenho outros emitindo com sucesso, mas este em especial está com erro! Na hora de salvar o XML gera o seguinte erro: =========== Path and name: C:\RCANFe\RCANFe.EXE (32 bits) Size: 5,113,344 bytes Time from start: 0 hours 0 mins 32 secs Error occurred at: 27/07/2010, 14:24:05 Error description: Error BASE/1081 Argument error: + Args: [ 1] = U [ 2] = C nfe.xml Stack Calls =========== Called from: G:\prog\FiveWin\RCA NFe\Source\VoNFe.prg => TVONFE:SAVEXML(1001) Called from: G:\prog\FiveWin\RCA NFe\Source\CtrlNFe.PRG => TCTRLNFE:BIMPORTATXT(419) id=black>id=code>id=code>Abaixo deixo um trecho do código que está gerando o erro: VoNFe.PRGid=size4> [ 999]id=black> local cDetino,hHandle [1000]id=black> [1001]id=black> DEFAULT cFile := ::cChvAcesso+"nfe.xml"id=red> [1002]id=black> DEFAULT nTipo := 1 [1003]id=black> [1004]id=black> cDestino := ::cPathNFe id=code>id=code>É obvio que antes de salvar eu executo o método para pegar a Chave de Acesso, abaixo segue um trecho do meu código: CtrlNFe.PRGid=size4> [409]id=black> //-- Cria objeto da classe de criação do XML ---------------------//id=green> [410]id=black> [411]id=black> oNfe := TVoNFe():New() [412]id=black> [413]id=black> oNfe:PegaChaveAcesso(::oNfeUtil:cXml) //-- Carrega a propriedade ::cChvAcesso [414]id=black> if ValType(oNFe:cChvAcesso) == "C" [415]id=black> ::cChaveAcesso := oNFe:cChvAcesso //-- Salva chave de acesso em ::cChaveAcesso [416]id=black> else [417]id=black> ::cChaveAcesso := '' //-- Salva chave de acesso em ::cChaveAcesso [418]id=black> end [419]id=black> oNfe:SaveXml( , ::oNfeUtil:cXml , ) //-- Salva XML na pasta remessa [420]id=black> [421]id=black> //-- Envia NFe para Sefaz ---------------------------------------//id=green> [422]id=black> [423]id=black> ::cXmlAssinado := "" [424]id=black> ::EnviaSefaz( ::oNfeUtil:cXml, oNFe:cChvAcesso , ::lMensagem) [425]id=black> [426]id=black> //-- Salva XML assinado -----------------------------------------//id=green> [427]id=black> [428]id=black> oNFe:SaveXml( , ::cXmlAssinado, 2 ) id=code>id=code>Alguem já passou por isso? Alguem consegue dar uma dica? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Estou com o seguinte erro na emissão de NFe com um cliente, tenho outros emitindo com sucesso, mas este em especial está com erro! Na hora de salvar o XML gera o seguinte erro: =========== Path and name: C:\RCANFe\RCANFe.EXE (32 bits) Size: 5,113,344 bytes Time from start: 0 hours 0 mins 32 secs Error occurred at: 27/07/2010, 14:24:05 Error description: Error BASE/1081 Argument error: + Args: [ 1] = U [ 2] = C nfe.xml Stack Calls =========== Called from: G:\prog\FiveWin\RCA NFe\Source\VoNFe.prg => TVONFE:SAVEXML(1001) Called from: G:\prog\FiveWin\RCA NFe\Source\CtrlNFe.PRG => TCTRLNFE:BIMPORTATXT(419) id=black>id=code>id=code>Abaixo deixo um trecho do código que está gerando o erro: VoNFe.PRGid=size4> [ 999]id=black> local cDetino,hHandle [1000]id=black> [1001]id=black> DEFAULT cFile := ::cChvAcesso+"nfe.xml"id=red> [1002]id=black> DEFAULT nTipo := 1 [1003]id=black> [1004]id=black> cDestino := ::cPathNFe id=code>id=code>É obvio que antes de salvar eu executo o método para pegar a Chave de Acesso, abaixo segue um trecho do meu código: CtrlNFe.PRGid=size4> [409]id=black> //-- Cria objeto da classe de criação do XML ---------------------//id=green> [410]id=black> [411]id=black> oNfe := TVoNFe():New() [412]id=black> [413]id=black> oNfe:PegaChaveAcesso(::oNfeUtil:cXml) //-- Carrega a propriedade ::cChvAcesso [414]id=black> if ValType(oNFe:cChvAcesso) == "C" [415]id=black> ::cChaveAcesso := oNFe:cChvAcesso //-- Salva chave de acesso em ::cChaveAcesso [416]id=black> else [417]id=black> ::cChaveAcesso := '' //-- Salva chave de acesso em ::cChaveAcesso [418]id=black> end [419]id=black> oNfe:SaveXml( , ::oNfeUtil:cXml , ) //-- Salva XML na pasta remessa [420]id=black> [421]id=black> //-- Envia NFe para Sefaz ---------------------------------------//id=green> [422]id=black> [423]id=black> ::cXmlAssinado := "" [424]id=black> ::EnviaSefaz( ::oNfeUtil:cXml, oNFe:cChvAcesso , ::lMensagem) [425]id=black> [426]id=black> //-- Salva XML assinado -----------------------------------------//id=green> [427]id=black> [428]id=black> oNFe:SaveXml( , ::cXmlAssinado, 2 ) id=code>id=code>Alguem já passou por isso? Alguem consegue dar uma dica? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Encontrei o atributo bClrText em TRbtn.prg e fiz as seguintes modificações: trbgroup.prgid=size5> bAction, cType, bWhen, cFile, lBorder, ; lRound, cLayout, oPopup, lGrouping, lFirstElm, lEndElm ,cMsg, nRound, nClrText ) //-- Anderson - 14/7/2010 - Inclusão da cor do textoid=green> local oBtn, oThis := Self local nType local aLayout := { "TOP", "LEFT", "BOTTOM", "RIGHT", "MOSTLEFT", "MOSTRIGHT", "CENTER" } local aType := { "NORMAL", "POPUP", "SPLITPOPUP", "SAYBUTTON" } DEFAULT nRow := 2, nCol:= 2, nHeight := 32, nWidth := 100, cType := "NORMAL", cLayout := "TOP",; lBorder := .f., lRound := .f., lGrouping := .f., lFirstElm:= .f., lEndElm:= .f.,; nClrText := CLR_BLACK //-- Anderson - 14/7/2010 - Inclusão da cor do textoid=green> nType := Max( AScan( aType, cType ), 1 ) cLayout := aLayout[ Max( AScan( aLayout, cLayout ), 1 ) ] oBtn := TRBtn():New( nRow, nCol, nWidth, nHeight, cFile, ; bAction, Self, cMsg, bWhen, .f., .f.,; cPrompt, , lBorder, lRound, cLayout, ; ::hBrushUnSel, , -nRow - ::nTop, -nCol - ::nLeft, aType[ nType ], oPopup, , , , ; , , , , , lGrouping, lFirstElm, lEndElm, , , , , nRound ) oBtn:bClrText := {| lEnable | if( lEnable, nClrText, GetSysColor( COLOR_GRAYTEXT ) ) } //-- Anderson - 14/7/2010 - Inclusão da cor do textoid=green> return oBtn id=code>id=code>ribbon.chid=size5> [ PROMPT ]; [ SIZE , ] ; [ BITMAP ] ; [ ACTION ] ; [ ] ; [ WHEN ] ; [ ] ; [ [ ] ] ; [ ] ; [ ] ; [ [][ ] ]; [ MENU ]; [ MESSAGE ] ; [ COLOR ]; //-- Anderson - 14/7/2010 - Inclusão da cor do textoid=green> =>; [ := ] :AddButton( , , , , ,; [{|Self|}], [ Upper(<(type)>) ], <{WhenFunc}>, ; , [<.lBorder.>], <.lRound.>, [ Upper(<(layout)>) ], ; [], [<.lGrouping.>], [<.lFirstElm.>], [<.lEndElm.>], , [] , []) id=code>id=code>Após estas modificações é possivel definir a cor do texto de cada button inserido na ribbon. exemplo: sample.prgid=size5> PROMPT "Configuração de parametros" ; BITMAP "Parametros32" ; GROUP oGr10 ; ACTION Configuracao() ; COLOR RGB(255,255,0) ; //-- Anderson - 14/7/2010 - Inclusão da cor do textoid=green> SIZE 85, 80 id=code>id=code>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Na ribbon é possivel adicionar atalhos na QuickAccess, não é possivel adicionar um Hint (dica flutuante ao passar o mouse) nestes atalhos? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Na ribbon é possivel adicionar atalhos na QuickAccess, não é possivel adicionar um Hint (dica flutuante ao passar o mouse) nestes atalhos? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Grande parte dos objetos que usam bitmap já tem suporte a bitmaps com alpha channel, como exemplo posso citar a RibbonBar que estou usando no momento, mas quando uso estes mesmos bitmaps no menu aparece uma borda preta. O Menu não tem suporte a este tipo de bitmap? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Grande parte dos objetos que usam bitmap já tem suporte a bitmaps com alpha channel, como exemplo posso citar a RibbonBar que estou usando no momento, mas quando uso estes mesmos bitmaps no menu aparece uma borda preta. O Menu não tem suporte a este tipo de bitmap? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

É possivel personalizar a altura da linha de um menuitem? Gostaria de usar bitmaps de 24 pixels ao inveés dos bitmaps com 16pixels. Como faz? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

É possivel personalizar a altura da linha de um menuitem? Gostaria de usar bitmaps de 24 pixels ao inveés dos bitmaps com 16pixels. Como faz? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Já é possivel inserir um menu suspenso no QuickButton da RibbonBar nativa? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 13/07/2010 20:07:02

Já é possivel inserir um menu suspenso no QuickButton da RibbonBar nativa? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 13/07/2010 20:07:02

é possivel mudar a cor do texto de um botão inserido na ribbonbar nativa? (10.6) Se sim, como? Desde já agradeço a todos. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 14/07/2010 09:29:26

é possivel mudar a cor do texto de um botão inserido na ribbonbar nativa? (10.6) Se sim, como? Desde já agradeço a todos. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 14/07/2010 09:29:26

Warning W0027 Meaningless use of expression: 'String'id=red> WTF ? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Warning W0027 Meaningless use of expression: 'String'id=red> WTF ? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Estou atualizando o meu fivewin da versão 8.2 para a versao 10.5 e mudando também do xHarbour para Harbour. Estou com problemas no formato das fontes, elas estão fugindo do padrão, veja: xHarbour + FW 8.2id=size5> Harbour + FW 10.5id=size5> Isto se repete em todas as janelas do meu sistema, mas não sei o que fazer para corrigir, alguem já passou por isso e tem uma dica? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 23/06/2010 16:23:03

Estou atualizando o meu fivewin da versão 8.2 para a versao 10.5 e mudando também do xHarbour para Harbour. Estou com problemas no formato das fontes, elas estão fugindo do padrão, veja: xHarbour + FW 8.2id=size5> Harbour + FW 10.5id=size5> Isto se repete em todas as janelas do meu sistema, mas não sei o que fazer para corrigir, alguem já passou por isso e tem uma dica? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 23/06/2010 16:23:03

Gilmer, gostaria de atualizar minha versão do fivewin mas não te encontro online no skype, como faço? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Gilmer, gostaria de atualizar minha versão do fivewin mas não te encontro online no skype, como faço? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

O Retardado do contador do meu cliente não solicitou no SEFAZ autorização para emissão de NFe. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

citação:Amigo, não esTou querendo ser chato..... id=quote>id=quote>Cara, mesmo sem querer vc está conseguindo ser! Agora é só aguardar! Vailton é humano e tem outras tarefas... Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Preciso de ajuda, estou instalando os primeiros clientes de NFe e já me deparei com o seguinte erro: | TVoNFeUtil | +-----------------------------------------------------------------------------+ | | | Erro: Ao assinar o documento - O índice estava fora dos limites da matriz., | | caso esteja utilizando um certificado digital do tipo A3, existe uma grande | | possibilidade de o software gerenciado de dispositivo estar desatualizado, | | procure obter uma versão mais atualizada.. | | TVONFEUTIL:ASSINAR id=black> || +--------------+ | | | OK | | | +--------------+ | +-----------------------------------------------------------------------------+id=code> id=code> Como posso resolver isso? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 10/06/2010 17:18:30 Editado por - Anderson.ol on 11/06/2010 15:12:29