FiveTech Software tech support forums

... "Calle": "AVENIDA PLAZA DEL SOL", "No_Ext": "25", "No_Int": "41", "Colonia": "RINCONADA DEL SOL", "Delegacion_Municipio": "ZAPOPAN", "Estado": "JALISCO", "CP": ...

... "Calle": "AVENIDA PLAZA DEL SOL", "No_Ext": "25", "No_Int": "41", "Colonia": "RINCONADA DEL SOL", "Delegacion_Municipio": "ZAPOPAN", "Estado": "JALISCO", "CP": ...

... Lellena ( sister of my father) No los conozco, que negocio tienen ? en que trabajan ? Yo conozco algunas personas que son clientes y amigos de la colonia italiana que viven aqui.

... reference: 'MENSAJE' inicial.prg(102) Warning W0001 Ambiguous reference: 'MENSAJE' inicial.prg(103) Warning W0001 Ambiguous reference: 'MENSAJE' Colonia.prg(8) Error E0004 LOCAL declaration follows executable statement Colonia.prg(10) Warning W0001 Ambiguous reference: 'PASO' No code generated ...

... +" Col. " + ALLTRIM(AUTOS->COLONIA) +" Cp. " +; ALLTRIM(AUTOS->cod_postal), oGetDirec:Refresh(),cEmail:=AUTOS->email,aEmail:Refresh(),cPagina:=AUTOS->pagina,aPagina:Refresh(),getCiu:=AUTOS->poblacion,oGetCiu:Refresh(),MEMITO:=AUTOS->comentario,mComments:Refresh(),getPol:=AUTOS->R_Poliza,; ...

... OF oPanel SIZE 120, 18 @9.8, 3.8 SAY "Calle:" OF oPanel SIZE 40, 15 @ 11, 8 GET cCalle OF oPanel SIZE 100, 18 @ 11.5,2.1 SAY "Colonia:" OF oPanel SIZE 50, 15 @ 14.0,7.5 GET cColonia OF oPanel SIZE 120, 18 ACTIVATE WINDOW oWnd Pero dicho código tiene un defecto muy feo... ...

... ") TxtGet:=StrTran(TxtGet,"{comentarios}",AllTrim(dgppea01->comentario)) TxtGet:=StrTran(TxtGet,"{colonia}",AllTrim(colonias->nombre)) TxtGet:=StrTran(TxtGet,"{tiempo}",AllTrim(dgppea01->horario)) TxtGet:=StrTran(TxtGet,"{del}",dia2dig(dgppea01->fecha_del)) ...

... 8 ) aValores[1] := (cAlias)->nombre aValores[2] := (cAlias)->contacto aValores[3] := (cAlias)->direccion aValores[4] := (cAlias)->colonia aValores[5] := (cAlias)->localidad aValores[6] := (cAlias)->telefono endif (cAlias)->( dbcloseArea() ) return ( aValores ) static function ...

... oDlg @ 10.5, 1.5 SAY "Clave" OF oDlg @ 10.5, 5.5 SAY "Nombre" OF oDlg @ 10.5, 33.5 SAY "RFC" OF oDlg @ 12, 1.5 SAY "Calle" OF oDlg @ 12, 22.5 SAY "Colonia" OF oDlg @ 13.2, 1.5 SAY "Ciudad/Estado" OF oDlg @ 13.2, 30 SAY "Código Postal" OF oDlg @ 14.6, 1 SAY "Telefono" OF oDlg @ 14.6, 15 SAY "Saldo" ...

... oDlg @ 10.5, 1.5 SAY "Clave" OF oDlg @ 10.5, 5.5 SAY "Nombre" OF oDlg @ 10.5, 33.5 SAY "RFC" OF oDlg @ 12, 1.5 SAY "Calle" OF oDlg @ 12, 22.5 SAY "Colonia" OF oDlg @ 13.2, 1.5 SAY "Ciudad/Estado" OF oDlg @ 13.2, 30 SAY "Código Postal" OF oDlg @ 14.6, 1 SAY "Telefono" OF oDlg @ 14.6, 15 SAY "Saldo" ...

... 50, 300, 100; ON CHANGE ( aXDts[1] := cat_cli->clave, aXDts[2] := cat_cli->Nombre, aXDts[3] := cat_cli->calle,; aXDts[4] := cat_cli->colonia, aXDts[5] := cat_cli->codigo, aXDts[6] := cat_cli->ciudad,; aXDts[7] := cat_cli->rfc, aXDts[8] := cat_cli->saldo, aXDts[9] := cat_cli->tipo,; ...

... 50, 300, 100; ON CHANGE ( aXDts[1] := cat_cli->clave, aXDts[2] := cat_cli->Nombre, aXDts[3] := cat_cli->calle,; aXDts[4] := cat_cli->colonia, aXDts[5] := cat_cli->codigo, aXDts[6] := cat_cli->ciudad,; aXDts[7] := cat_cli->rfc, aXDts[8] := cat_cli->saldo, aXDts[9] := cat_cli->tipo,; ...

... cNombre AUTOS->APELLIDO_P := cPaterno AUTOS->APELLIDO_M := cMaterno AUTOS->DIRECCION := cDireccion AUTOS->COD_POSTAL := cCp AUTOS->COLONIA := cCOLONIA AUTOS->POBLACION := cCiudad AUTOS->ESTADO := cEstado AUTOS->TEL1 := cTelefona AUTOS->TEL2 := cTelefonb AUTOS->EMPRESA ...

... oRs:Open() CAPTURA->( dbgotop() ) while CAPTURA->( !EOF() ) oRs:AddNew() oRs:Fields("NOMBRE DEL SOLICITANTE"):Value := "NOMBRE" oRs:Fields("COLONIA"):Value := CAPTURA->COLONIA oRs:Update() CAPTURA->( dbskip() ) enddo oRs:Close() ?"Terminado" return .T.