aca el codigo :-) SALD->TT_NOTAS := ValToPrgExp(aInfo[CP_DETALLE]) //aca se guarda cDetalle:=SALD->TT_NOTAS IF !Empty(cDetalle) aDetalle := &cDetalle IF ISARRAY(aDetalle) PROCEDURE ReporteDeSaldo_Proceso(lDetalle) LOCAL cId LOCAL anInfo LOCAL nCuotas PRIVATE nContador /*desabilita ...
... és definido asi: REDEFINE LISTBOX lista0 FIELDS ARQBANCO->CODIGO,ARQBANCO->NUMERO,; StrZero(ARQBANCO->AGENCIA,4,0),StrZero(ARQBANCO->CONTA,8,0),ARQBANCO->DESCRI; ALIAS "ARQBANCO" HEADERS "COD ","NÚMERO ","AGÊNCIA ","CONTA ","DESCRIÇÃO" ID 4004 of oDlg color Frente,Fundo; ON Change ...
... Pessoal preciso identificar o número do objeto para usar no action, como fazer isso no caso abaixo: for i := 1 to numero for j := 1 to Tnucol conta++ if conta<=numero if file(aprodsubs[i][j][3]) @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] file aprodsubs[i][j][3] SIZE 95,80 ...
Pessoal preciso identificar o número do objeto para usar no action, como fazer isso no caso abaixo: for i := 1 to numero for j := 1 to Tnucol conta++ if conta<=numero if file(aprodsubs[i][j][3]) @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] file aprodsubs[i][j][3] SIZE 95,80 ...
... if Txbtc[i]#nil Txbtc[i]:end() endif endif next endif ToBtc :=array(numero) TxBtc :=array(numero) for i := 1 to numero for j := 1 to Tnucol conta++ if conta<=numero if file(aprodsubs[i][j][3]) @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta]; file aprodsubs[i][j][3] SIZE 95,80 ...
... ningún problema. Las imágenes las almaceno en su correspondiente archivo externo, y dentro del rc las llamo: NOMBRERECURSO TIPO "BMP\LOGO.BMP" EJ: CONTA BITMAP "BMP\CONTA.BMP" ICO01 ICON "ICO\IC01.ICO" A mi me funciona genial.
... O ? aArrayObtido[2] // Mostra Rochinha ? aArrayObtido[3] // Mostra Es ? aArrayObtido[4] // Mostra Tu ? aArrayObtido[5] // Mostra Amigo Fica por tu conta ahora.
Amiguinhos Agora ta bom. Com este exemplo da pra colocar o scroll belezinha em nossas pages, não testei com folder mas isto fico por conta de voces. Os codigos falarão por si mesmo. Desculpe-me pelo calculo maluco colocado na classe TPages. Codigo do TestPage.prg: // Testing the new FiveWin ...
... estar em somente uma linha. mapisend mapisend -u "<profile>" -p <anything> -r <recipient> -s "<subject>" -t <text file containing the message> e.g. mapisend -u "john savill" -p anything -r john@savilltech.com -s "Test message" -t c:\message\mail4.txt -u Nome de quem ...