SAOliveira

Ops... seu tmp é o resultado de um select, se for sem chance, ou vc usa xBrowse com array, ou alimenta um temporário e update no BD. Estou presumindo.

oCol_cod:nEditType :=EDIT_GET oCol_cod:cEditPicture :="999999" oCol_cod:oEditFont :=oPub:fBCour13 oCol_cod:bOnPostEdit :={|oCol_cod,uValue,nKey|IF(nKey= 13,Valida_Codigo(uValue),NIL)} oCol_cod:bEditValue :={||NFEITEM->codent} **----------------------------------------------------------** STATIC FUNCTION Valida_Codigo(Arg1) **----------------------------------------------------------** NFEITEM->codent:=Arg1 ; oBrw:nColSel:=4 oBrw:Refresh() RETURN(.T.)

Acredito que o ACBR dele seja este: http://www.slideshare.net/redeicpbrasil/ac-br-conectividade-social-icp

Opa Ladinilson. Só não esqueça de mim.

Testei, e não rola. Tem editores que traz o .xml numa única linha. Pode ser por aí.

De uma olhada, que sabe serve ou te ajuda. **----------------------------------------------------------** STATIC FUNCTION BuscaCooperado() **----------------------------------------------------------** _nombusca:=Space(60) COP->(OrdSetFocus(2)) ; COP->(DBSeek("A")) DEFINE DIALOG oDlgBuscaCop RESOURCE "COP_CADASTRO_BUSCA" OF oDlg oDlgBuscaCop:cCaption:=" ..:: Localizar Cooperado no cadastro ::.." oDlgBuscaCop:lTransparent:=.F. oDlgBuscaCop:lHelpIcon:=.f. oDlgBuscaCop:oFont:=oPub:fNorm11 oDlgBuscaCop:SetColor(oPub:CorPreto,oPub:CorCinza) REDEFINE SAY ID 1001 OF oDlgBuscaCop FONT oPub:fNorm11 COLOR oPub:CorPreto,oPub:CorCinza REDEFINE GET Onombusca VAR _nombusca PICTURE "@!K" ID 101 OF oDlgBuscaCop FONT oPub:fBCour13 COLOR oPub:CorGet,oPub:CorFundoGet UPDATE ; on Change(Conteudo(Onombusca,nKey,oBrwBuscaCop)) REDEFINE xBrowse oBrwBuscaCop ID 201 OF oDlgBuscaCop Alias("COP") COLUMNS 1,2 oBrwBuscaCop:bKeydown := { |nkey| if(nkey == VK_RETURN,(_codcop:=COP->a_codcop,Ocodcop:Refresh(),oDlgBuscaCop:END()),NIL ) } oBrwBuscaCop:SetColor( PRETO,CINZACC ) oBrwBuscaCop:l2007 := .T. oBrwBuscaCop:lAllowRowSizing := .F. // Nao move as Linhas (nao sei) oBrwBuscaCop:lHScroll := .F. // Barra rolagem Horizontal oBrwBuscaCop:lVScroll := .T. // Barra rolagem vertical oBrwBuscaCop:lRecordSelector := .T. // Barra aponta registro lateral esquerda; oBrwBuscaCop:nRecSelColor := RGB(205,220,255) // cor da barra lateral pontador de linha oBrwBuscaCop:lAllowColSwapping := .F. // Click no header (.f.)Trava oBrwBuscaCop:nDataLines := 1 oBrwBuscaCop:lColDividerComplete := .T. // linha divisoria de colunas mesmo com tabela vazia. oBrwBuscaCop:bClrStd := {|| { AZUL,FundoGet } } // cor da linha sem focu oBrwBuscaCop:bClrSel := {|| { AZUL,FundoGet } } // cor da celula sem focu oBrwBuscaCop:bClrSelFocus := {|| { PRETO,RGB(188,210,238) } } // cor da celula em focu oBrwBuscaCop:bClrRowFocus := {|| { PRETO,RGB(188,210,238) } } // cor da coluna sem focu oBrwBuscaCop:nColDividerStyle := 4 // cor da divisao de coluna LINESTYLE_LIGHTGRAY oBrwBuscaCop:nRowDividerStyle := 4 // cor da divisao da linha LINESTYLE_LIGHTGRAY oBrwBuscaCop:nMarqueeStyle := 5 //MARQSTYLE_HIGHLROW // tipo de linha selecionada MARQSTYLE_HIGHLROW oBrwBuscaCop:nRowHeight := 20 oBrwBuscaCop:SetRDD() oBrwBuscaCop:lHeader := .T. // se vai mostrar header cabeçalho) oBrwBuscaCop:nHeaderLines := 1 oBrwBuscaCop:nHeaderHeight := 22 oBrwBuscaCop:bClrHeader := {|| {oPub:CorPreto,RGB(205,220,255) }} // cor do reader oBrwBuscaCop:aCols[1]:cHeader :="Cooperado" oBrwBuscaCop:aCols[1]:nHeadStrAlign:=AL_CENTER oBrwBuscaCop:aCols[1]:nDataStrAlign:=AL_LEFT oBrwBuscaCop:aCols[1]:bStrData :={|| COP->a_nomcop } oBrwBuscaCop:aCols[1]:oDataFont :=oPub:fBCour13 oBrwBuscaCop:aCols[1]:nWidth :=380 oBrwBuscaCop:aCols[2]:cHeader :="Sta" oBrwBuscaCop:aCols[2]:nHeadStrAlign:=AL_CENTER oBrwBuscaCop:aCols[2]:nDataStrAlign:=AL_CENTER oBrwBuscaCop:aCols[2]:bStrData :={|| IF(COP->a_fl1cop=="L","",COP->a_fl1cop) } oBrwBuscaCop:aCols[2]:oDataFont :=oPub:fBCour13 oBrwBuscaCop:aCols[2]:nWidth :=20 PCS_ATIVADIALOG('oDlgBuscaCop') Ocodcop:SetFocus() RETURN(.T.) **---------------------------------------------** Static Function Conteudo(oGetP,xKey,oDlgg) **---------------------------------------------** Local RetornoChave:="" MontaChaveBuscaArquivo(oGetP,xKey,oDlgg,@RetornoChave) IF(Len(AllTrim(retornochave))==0) _busca:="A" ELSE _busca:=AllTrim(RetornoChave) ENDIF COP->(DBSeek(_busca)) oBrwBuscaCop:Refresh() Return(.t.) **----------------------------------------------------** STATIC FUNCTION MontaChaveBuscaArquivo(oGetP,xKey,oDlgg,RetornoChave) **----------------------------------------------------** Local cChave:=(oGetP:oGet:Buffer)//,nPosAnt:=Recno() RetornoChave:=AllTrim(cChave) Return(RetornoChave)

Não se se esta funcionando mas tente em dicas - Busca/Pesquisa incremental

Pena não retornar de .XML

No inicio das conversas, falava-se em dia 16 ou 23, e a besta aqui ficou com 23 na cabeça. No dia 16/11 será o noivado da minha filha, então sem chance para mim. Grato e boas brejas.

Falei TGet.

Ow pescador de lobó; mGet ? Não conheço, se puder manda ai, quero ver se tem jeito.

Você pode alterar a TGet, no metod Paint() if IsWindowEnabled( ::hWnd ) .and. ! ::lReadOnly CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 ) else if ::lDisColors SetTextColor( ::hDC, GetSysColor( COLOR_GRAYTEXT ) ) SetBkColor( ::hDC, GetSysColor( COLOR_WINDOW ) ) // sergio - alterado para manter a cor do get mesmo em When(.f.) //nClrBtnPane := GetSysColor( COLOR_WINDOW ) else

Yury. "DELETE FROM dbBAS2.tbClientes" melhor seria "TRUNCATE TABLE dbBAS2.tbClientes"

Estou tendo a necessidade de saber em tempo real, se a xBrowse esta e focu ou não. Tipo assim. Uma dialog com 1 xBrowse, 6 Gets, e Dois Buttons. Entra com o focu no Browse, e com change mostrando dados nos gets, (neste ponto os botões devem estar inativos) Se der enter/click do mouse passa para o 1º get, e habilita o botão, até ai perfeito. Mas o cara pode simplesmente clicar em um dos gets, e ai também teria que ativar o botão. Então pensei em controlar o botão, pelo focu da xBrowse.

Sem êxitos, fazendo a triggers, ou o resultado não agradou ? Detalhe, se for gravar em bd local/remoto, deve-se estudar muito o caso, pois em mysql creio ve vai deixar a desejar.

FL_CRIAR_ICONE_ATALHO() *----------------------------------------------------------** FUNCTION FL_CRIAR_ICONE_ATALHO() **----------------------------------------------------------** Local aShortCut, oWSHShell IF FILE(GETENV('HOMEDRIVE')+GETENV('HOMEPATH')+'\Desktop\'+DV_Sistema+'.lnk') RETURN ENDIF IF !MsgYesNo('Não foi localizado o Icone na area de Trabalho,'+CRLF+'Deseja Criar Agora ?','Aviso do Sistema') RETURN ENDIF TRY oWSHShell:= CreateObject("WScript.Shell") CATCH error MsgStop("Não foi possivel criar o icone na area de trabalho, Favor revisar","Atenção") RETURN .F. END IF IsDirectory(GETENV("HOMEDRIVE")+GETENV("HOMEPATH")+"\Desktop" ) = .F. Release oWSHShell RETURN .F. ENDIF aShortCut:=oWSHShell:CreateShortcut(GETENV('HOMEDRIVE')+GETENV('HOMEPATH')+'\Desktop\'+DV_Sistema+'.lnk') aShortCut:TargetPath:=CAMINHO_EXE()+'\'+ NomeExecutavel() //GETENV("HOMEDRIVE")+GETENV("HOMEPATH")+"\Desktop" aShortCut:WorkingDirectory := CAMINHO_EXE()+'\' //aShortCut:IconLocation := "DC:\sistem\icone.ico" //icone do sistema aShortCut:Save() Release oWSHShell IF !FILE(GETENV('HOMEDRIVE')+GETENV('HOMEPATH')+'\Desktop\'+DV_Sistema+'.lnk') Return .F. ENDIF Return .T. *NomeExecutavel() // verefica o nome *NomeExecutavel(.t.) // verefica o caminho ******************************************************************************** FUNCTION NOMEEXECUTAVEL(lPath) LOCAL nPos, cRet If Empty(lpath) nPos:= RAT("\", hb_argv(0)) cRet:= substr(hb_argv(0), nPos+1) else cRet:= hb_argv(0) endif Return cRet ******************** *Retorna o caminho do EXE FUNCTION CAMINHO_EXE Return(Substr(NomeExecutavel(.t.),1,(len(NomeExecutavel(.t.))- len(NomeExecutavel()))-1 ))

Como disse não tenho nenhuma referencia.

Testei, acho que até usei, mas não acho nenhuma referencia. **-----------------------------------------------------------------------------** ** Finalidade : voltar o menu de onde foi chamado **-----------------------------------------------------------------------------** FUNCTION PCS_VoltaMenu( oM, nNiv ) #include "fivewin.ch" #define KEYEVENTF_KEYUP 2 **-----------------------------------------------------------------------------** LOCAL nItem, oLItM, cMov :="", cMv, nChr DEFAULT oM:=WndMain():oMenu DEFAULT nNiv :=0 oLItM :=oM:LastItem() FOR nItem :=1 TO Len( oM:aItems ) IF ValType( oM:aItems[nItem]:bAction ) ='O' cMv :=VoltaMenu( oM:aItems[nItem]:bAction, nNiv+1 ) IF Right( cMv,1 ) =="x" cMov += Chr( IF( nNiv =0, VK_DOWN, VK_RIGHT ) )+cMv IF nNiv ==0 cMov :=Left( cMov,Len(cMov)-1 ) keybd_event( VK_MENU,0,0,0) keybd_event( VK_MENU,0,KEYEVENTF_KEYUP,0) FOR nChr :=1 TO Len( cMov ) keybd_event( Asc(SubStr(cMov,nChr,1)),0,0,0 ) keybd_event( Asc(SubStr(cMov,nChr,1)),0,KEYEVENTF_KEYUP,0 ) NEXT RETURN .T. endif RETURN cMov ENDIF ELSE IF oM:aItems[nItem]:nId == oLItM:nId RETURN cMov+"x" ENDIF ENDIF IF !Empt( oM:aItems[nItem]:cPrompt ) // se não for um separador cMov +=Chr( IF( nNiv =0, VK_RIGHT, VK_DOWN ) ) ENDIF NEXT RETURN IF(nNiv ==0, .F., "") *** ************************************************************ DLL32 FUNCTION keybd_event(bVk as _INT,bScan as _INT,dwFlags ; as LONG,dwExtraInfo as LONG) AS LONG PASCAL LIB "user32.dll"

oBrw:aCols[1]:bPaintText :={|oCol,hDC,cText,aCoord| PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oPub:fNorm12, oPub:CorGet,oPub:CorGetW ) } **-------------------------------------------------------------------------** FUNCTION PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oFonte,oCor1,oCor2 ) **-------------------------------------------------------------------------** LOCAL nTop:=aCoord[ 1 ], nLeft := aCoord[ 2 ] LOCAL nBottom:=aCoord[ 3 ], nRight := aCoord[ 4 ] LOCAL nRow:= nTop LOCAL cLine,nFontHt, nAt LOCAL hBrush:=CreateSolidBrush( oPub:CorBege ) nAt:=AT(CRLF,cText ) IF(nAt>0) cLine:=Left( cText, nAt - 1 ) SetTextColor( hDC, oCor1 ) nFontHt:=GetTextHeight( oCol:oBrw:hWnd, hDC ) DrawTextEx( hDC, cLine, { nRow, nLeft, nRow + nFontHt + 4, nRight }, oCol:nDataStyle ) nRow +=nFontHt + 4 //default 4 cLine:=SubStr( cText, nAt + 2 ) ELSE cLine:=cText ENDIF DeleteObject( hBrush ) oFonte:Activate( hDC ) SetTextColor( hDC, oCor2 ) DrawTextEx( hDC, cLine, { nRow, nLeft, nBottom, nRight }, oCol:nDataStyle ) oFonte:DeActivate( hDC ) RETURN(NIL)

http://vailton.com.br/index.php/downloads/viewcategory/3-sql-lib-rdd Atualizada em 03/09/2013.

oBrw:aCols[9]:bstrData:= {|| aArray[oBrw:nArrayAt][17]+CRLF+aArray[oBrw:nArrayAt][18] }

Daniel, usas qual ferramenta para conexão com Banco ?

Valdir. Como dito anteriormente "Venda ao Consumidor". No caso dos cupons ECF, sempre será venda. No caso da NFe, meu sistema não deixa ocorrer o caso que o Jose Carlos salientou. No meu cadastro de CFOP, tem um flag, se vai fazer parte da lei da transparência, isto facilita na NFe.

Valdir. Não tem nenhuma relação com a sua tributação de saída. Veja o que o Jose Carlos passou, que praticamente é uma unanimidade hoje, até por grandes lojas O procedimento. 1 - Vincular ao NCMSH 2 - Utilizar a tabela do IBPT. 3 - Calcular/apurar a cada item 4 - Apurar o total nota com total apurado dos produtos. 5 - Informar "Valor aproximado dos tributos R$ xxx,xx (xxx.xx%) Fonte IBPT. Isto vale tanto para ECF como para NFE. Detalhe, informação para consumidor final.

Amigo faça da forma mais simples que existe. Travar o registro. While(!Seu_Alias->(rLock())) ; EndDo Grave tudo o que precisar. Seu_Alias(dbCommit()) Destrave o registro. Seu_Alias(dbUnlock()) Teste e veja o resultado.