Search found 11 matches: ramo

Return to advanced search

Re: Parpadeo de un SAY

... Function Materiales() local ...... DEFINE DIALOG oDlgMa RESOURCE "Material" DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) REDEFINE GET oCodigo VAR nCodigo PICTURE "9999" ID Ma_Codigo OF oDlgMa when .f. //valid nCodigo > 0 .and. ValCodigo(nCodigo,agrega,'Código ...
by José Camilo
Sat Mar 02, 2024 10:30 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Parpadeo de un SAY
Replies: 18
Views: 425

Re: Parpadeo de un SAY

Joao y José: Gracias por molestarse!!! Algo debo esta haciendo mal ( muy Mal ) No logro hacerlo funcionar. mi fuente es asi: ..... REDEFINE GET oRamo VAR nRamo PICTURE "99" ID Ma_Ramo OF oDlgMa valid veoramo(@nRamo,@cVeoRamo) .and. (oRamo:Refresh(),oVeoRamo:Refresh(),.t.) REDEFINE SAY oVeo...
by José Camilo
Sat Mar 02, 2024 6:54 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Parpadeo de un SAY
Replies: 18
Views: 425

Re: O.T. Consulta SQL - Resultado inesperado

... si en GROUP BY A.FFEVTA01,A.FDOCINT1,A.FCABFA04,A.FCABFA12,A.FCABFA14,A.FCABFA15,A.FCABFA18,A.FCABFA24,A.FCABFA31," + ; "B.FIDCLI01,B.FRAMO01,C.FRAMO01,C.FRAMO02 tienes algo que se repita, por ejemplo el RAMO o algo así. EL JOIN esta generando la duplicacion, por lo que yo pond´ria ...
by Carlos Mora
Fri Dec 25, 2015 6:27 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: O.T. Consulta SQL - Resultado inesperado
Replies: 6
Views: 852

Re: Close the sistem

... Por Município") INDEX ON mun TAG mun EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx oTxt2:SetText("Indexando o Arquivo Por Ramo de Atividade") INDEX ON atv TAG atv EVAL ( oMetCdx:Set(RECNO()), SysRefresh() ) EVERY nRegCdx oTxt2:SetText("Indexando o Arquivo Por ...
by aferra
Fri Aug 15, 2014 12:43 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Close the sistem
Replies: 15
Views: 3521

Tengo un problemita con xbrowse RESUELTO

... oGetPol:Refresh(),getInc:=AUTOS->poliza,oGetInc:Refresh(),ramo:="AUTOS",oRamos:Refresh(),rFicha:=AUTOS->ficha,oFicha:Refresh(),cFichero:=AUTOS->PDF) oBrwX:cTooltip :={ "POLIZAS DE AUTOS ...
by AIDA
Fri Feb 26, 2010 7:12 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Tengo un problemita con xbrowse RESUELTO
Replies: 2
Views: 952

... SPACE(25) LOCAL cRefe := SPACE(7) LOCAL nRefe := 0 LOCAL cNumPoliza := SPACE(15) LOCAL cNumSini := SPACE(18) LOCAL cClaveCia := SPACE(12) LOCAL cRamo := SPACE(20) LOCAL cCondi := SPACE(15) LOCAL cSuperficie := SPACE(10) LOCAL cAntig := SPACE(4) LOCAL cNombre := SPACE(40) LOCAL cDomicilio := SPACE(30) ...
by fergonm
Thu Oct 23, 2008 5:46 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Problema con DELETE
Replies: 13
Views: 2872

... decidimos no eliminar sino marcar como eliminado) IF MSGNOYES("Está Seguro de Eliminar Este "+cMsg,"Atención...") DO CASE CASE nTipo=1 // RAMO bSeek:={||' UPDATE '+cDTBase+'.DtsRamo '+; ' SET TinStatus = 0'+; ' WHERE '+cDTBase+'.DtsRamo.IntIdDtsRamo = '+STR(nIdRamo)} CASE nTipo=2 // COBERTURA ...
by ADBLANCO
Fri Sep 05, 2008 2:21 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda con Informix - Disculpen que insista
Replies: 46
Views: 14907

Un Ejemplo para actualizar (REPLACE y APPEND) IF lContinuar IF lNew DO CASE CASE nTipo=1 // RAMO bSeek:={||'INSERT INTO '+cDTBase+'.DtsRamo(VchDescripcion,TinStatus) '+; ' VALUES( '+bTrans(cDescrip)+',1)'} CASE nTipo=2 // COBERTURA bSeek:={||'INSERT INTO '+cDTBase+'.DtsCobertura(IntIdDtsRamo,VchDescripcion,TinStatus) ...
by ADBLANCO
Fri Sep 05, 2008 2:18 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda con Informix - Disculpen que insista
Replies: 46
Views: 14907

... , cSeek , @oQuery,EVAL(bSeek,cSeek)),; eval(bRowCount)) REDEFINE LISTBOX oLbx ; FIELDS oQuery:FieldGet( 2 ); FIELDSIZES 190; MESSAGE "Seleccione Ramo, ([Enter] o Doble Click => Modifica)"; HEADERS "Descripción" ID 401 OF oDlg oQuery:GoTop():Read() // No se olvide nunca de esta linea MySetBrowse(oLbx,oQuery) ...
by ADBLANCO
Fri Sep 05, 2008 2:11 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda con Informix - Disculpen que insista
Replies: 46
Views: 14907

... GET fFeVisita PICTURE "@D" ID 15 OF oDlg REDEFINE GET cNumPoliza ID 16 OF oDlG SELE 2 SET INDEX TO I1Poliza SEEK cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio cPoblacion:=Polizas->Poblacion cTelefono:=Polizas->Telefono ...
by FiveWiDi
Tue Feb 05, 2008 4:52 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Funcionamiento de DIALOG
Replies: 5
Views: 1739

... GET fFeVisita PICTURE "@D" ID 15 OF oDlg REDEFINE GET cNumPoliza ID 16 OF oDlG SELE 2 SET INDEX TO I1Poliza SEEK cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio cPoblacion:=Polizas->Poblacion cTelefono:=Polizas->Telefono ...
by fergonm
Tue Feb 05, 2008 4:23 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Funcionamiento de DIALOG
Replies: 5
Views: 1739

Return to advanced search