FiveTech Software tech support forums

Dear, Mr Nages Mode Readonly, not update data: cBaseDB and cBaseTable // open normal oRs := oCn:Query('select * from admd0015 where codpro = ?',{'12345''}) ? oRs:cBaseDB ----> "winadm001" (name database) ? oRs:cBaseTable ---> "admd0015" (name table) // open readonly ...

... DIST "+; "FROM DIRECCION D "+; " LEFT JOIN DEPARTAMENTO DP ON D.CODDEP=DP.CODDEP "+; " LEFT JOIN PROVINCIA PR ON D.CODPRO=PR.CODPRO AND D.CODDEP=PR.CODDEP "+; " LEFT JOIN DISTRITO DI ON D.CODDIS=DI.CODDIS AND D.CODPRO=DI.CODPRO AND D.CODDEP=DI.CODDEP "+; ...

Lo puedes solucionar facil sin hacer filtro , en una de las columnas haces el seek a la otra relacionada y creas inices condicionado donde imorte sea diferente cero y punto

PROD->( DBSEEK( IMEX->CODPRO ) , NOMPRO )

Slds

Daniel e amigos, FWH 11.06 Utilizando AUTOSORT: @ 30, 10 XBROWSE oBrw OBJECT oQry ; fields trans(oServerQry:codpro,'999999'),; oServerQry:descpro01; headers 'Código', 'Descrição'; colsizes 50,300 lines AUTOCOLS AUTOSORT PIXEL SIZE 260, 200 Em coluna numerica não esta posicionando ...

ESTES ES EL CODIGO MANEJADOR DE LA DBF... #include "FiveWin.ch" #include "Folder.ch" // PARA USO DEL folder FUNCTION fldconfig() // MAESTRO CONFIGURACIONES (constantes) LOCAL oGetF1 := Array (15),; // GET FOLDER 2 oBtnCONFIG := Array (2) // BARRA DE BOTONES PUBLIC oConfig := TGen...

... STRETCHCOL_LAST oBrw:bClrHeader := {|| { nrgb(000,069,102), } } // COR DO TEXTO DA HEADER oCol := oBrw:AddCol() oCol:bStrData := { || ARQPROD->CODPRO } oCol:cHeader := "CÓDIGO" oCol := oBrw:AddCol() oCol:bStrData := { || ARQPROD->NOME } oCol:cHeader := "PRODUTO" oBrw:bClrStd ...

...    Publicas:cAlbaran  := (aAlias[24])->Albaran    Publicas:cFe       := (aAlias[24])->Fecha    cCodPro        := (aAlias[24])->Codpro    cCodProu       := (aAlias[24])->Codprou    Publicas:cPro      := (aAlias[24])->pro    Publicas:cDomipro  := (aAlias[24])->domipro ...

... Function MAin() Local aVArs USE "CLI01.dbf" aVars := LoadDbf() aVars:CODPRO := "ABCD" SaveDbf(aVars) use Return nil Function LoadDbf() // Scatter() Local aVars := {=>} ...

Srs. tengo un xbrowse tipo facturacion, cada vez que llego ultima columna me hace un DBAPPEND, eso esta bien, pero me gustaria que si estando en la primera columna uso VK_UP se borre el registo el blanco y que cuando este moviendome y este en la ultmima fila con datos si doy VK_DOWN, me haga un nuev...

... DT_CENTER PICTURE "999"; COLORS CLR_BLACK, bColor MOVE DT_MOVE_NEXT; valid {|uVar| TSvalidaVend803(uVar,oBrw)}; WHEN IF(!EMPTY(saipro->codpro),.T.,.F.) TOOLTIP "Informe o código do vendedor" ******************************************* static function TSvalidaVend803(uBuffer,obrw) ******************************************* ...

... "999"; COLORS CLR_BLACK, bColor MOVE DT_MOVE_NEXT; valid {|uvar| TSvalidaVend803(@uVar,obrw)}; <-- @ NO FUNCIONA?! WHEN IF(!EMPTY(saipro->codpro),.T.,.F.) uVar teve seu valor alterado pela função TSVALIDAVEND803, como fazer uVar receber o novo valor? Grato

... CLR_BLACK,; nRGB(211, 227, 247),; CLR_WHITE,; CLR_BLACK,; CLR_WHITE,; CLR_HBBLUE } ) ADD COLUMN TO oBrw TITLE "Código" DATA FieldWBlock("codpro",select()) SIZE 90 EDITABLE 3DLOOK FALSE, TRUE, TRUE ALIGN DT_CENTER, DT_CENTER, DT_CENTER; COLORS CLR_BLACK, bColor MOVE DT_MOVE_NEXT ; VALID ...

... PICTURE "!"; COLORS CLR_BLACK, bColor MOVE DT_MOVE_NEXT; VALID {|uVar| TSvalidaSub803(uVar,obrw,cTrabProdSub)}; WHEN IF(!EMPTY(saipro->codpro),.T.,.F.) *************************************************** static function TSvalidaSub803(ubuffer,obrw,cTrabProdSub) *************************************************** ...

... , DT_RIGHT , DT_RIGHT; COLORS CLR_BLACK, bColor MOVE DT_MOVE_NEXT; VALID {|uVar| tsvalidaqtde803(uVar,cModo,oBrw)}; WHEN IF(!EMPTY(saipro->codpro),.T.,.F.) ; FOOTER TRANSFORM(nTotQtd,"@E 9999999.999") mais se eu fizer assim, funciona: ADD COLUMN TO oBrw TITLE "Quantidade" DATA FieldWBlock("qtde",select()) ...

... Proveedo->Rut TAG RutProveedo INDEX ON Proveedo->Razon TAG RazonProveedo INDEX ON Proveedo->Saldo TAG SaldoProveedo INDEX ON Proveedo->codpro TAG CodProveedo INDEX ON Proveedo->codrut TAG CrutProveedo // y luego cuando quiero usar la Dbf: asi mira:: //----------------------------Apertura ...