... := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration = oCfg :From = cUser //cFrom :Sender = cUser :To = cDest :Subject = cSubject :TextBody = cMsg For x := 1 To Len( aFiles ) :AddAttachment(AlLTrim(aFiles[x])) Next :MDNRequested ...

Ainda tem um probleminha. Do action já resolvi, Eval( bAction ) Mas falhou no campo chave. telaerro.png Mesma rotina em todos. O primeiro, campo chave, falhou. Talvez algum evento atrapalhando. Problema de últmo elemento igual HWGUI não é. TODOS são criados assim: FUNCTION gui_TextCreate( ...

... cPicture ELSEIF ValType( xValue ) == "D" DATE .T. DATEFORMAT cPicture ELSEIF ValType( xValue ) == "L" // workaround to do not get error xValue := " " ELSEIF ValType( xValue ) == "C" MAXLENGTH nMaxLength ENDIF VALUE xValue IF ! Empty( bAction ...

... ) MsgMiniGuiError ( "Control: " + ControlName + " Of " + ParentForm + " Already defined." ) ENDIF DEFAULT w TO 100 DEFAULT h TO 28 DEFAULT lostfocus TO "" DEFAULT gotfocus TO "" DEFAULT invisible TO FALSE IF ( FontHandle := GetFontHandle( ...

FOR nCont = 1 TO 250
   SELECT      (nCont)
    SET RELATION TO
NEXT
CLOSE DATABASES

Atenção que é COMANDO SELECT, e não função Select()

... "B*" ) //:itemMarked := {| m1, m2, o | m1 := m1, m2 := m2, BrwShowColumn( oBrw, o:getCurItem() ) } FOR nCont = 1 TO 9 :addItem( Replicate( Chr(64+nCont), 10 ) ) NEXT :setData( 1 ) :tooltipText := "Click on a field name to make it active!" ...

... Server};dsn=;User=DESKTOP-MP8Q5KH\Itamar;database=SCN_101926;" } ) IF nConnection == 0 ? "Unable connect to server", rddInfo( RDDI_ERRORNO ), rddInfo( RDDI_ERROR ) RETURN ENDIF ? nConnection ? dbUseArea( .T., , "SELECT * FROM TABCLI", ...

Aleluia MUITO Obrigado um passo de cada vez estou conseguindo abrir os arquivos... estrutura física: \dbdc ugempr.dbf \dbdc\paiva sdata.dbf \dbdc\usr\sfa crloja.dbf abriu arquivo: //192.168.0.85:2812\ugempr abriu arquivo: //192.168.0.85:2812\paiva\sdata ...

... Consegui encontrar uma solução na Internet. Encontrei este artigo e segui-o passo a passo. https://hetmanrecovery.com/pt/blog/programs-to-restore-the-file-system-raw-without-losing-data.htm Software para recuperar dados de um sistema de ficheiros RAW Custou-me 77,95 euros, mas isso ...

... de cada NextNode() Quando NÃO é "O" significa que acabou, não adianta testar se é NIL. o teste do print-screen é este: FOR nCont = 1 TO 5 oResult := oNodes:NextNode() ? nCont, ValType( oResult ) NEXT Testado aqui com GTWVG. Testado pelo Marcelo/RJ com FIVEWIN.

Não perguntem detalhes, é apenas meu ponto de vista, e não sou conhecedor de nenhuma, continuo achando um pé no saco ficar pesquisando sobre as LIBs, mas pelo menos isso ajuda muito. O principal problema das LIBs é criar linguagem própria, então ...

... mas não corta o papel: CHR(27)+CHR(105), CHR(27)+CHR(109), CHR(27)+CHR(119), procedure TesteDeImpressao() guilhotina = SPACE(40) set device to screen @ 09,25 clear to 11,75 @ 09,25 to 11,75 @ 10,26 say "Guilhotina" get guilhotina PICT "@!" read IF LASTKEY() = 27 RETURN ...

... problemas. Aí cita sobre definir compatibilidade criando um #define, não sei qual dois dois. Mas se cita criar um #define, a mudança não vai ser automática, só colocando de propósito. Não sei detalhes, apenas vi isso no histórico, e imagino que tenha a ver. * Updated: HMG Oficial changes to the ...

consigo assinar, e transmitir para o esocial e tras o protocolo mas ao consultar o protocolo trás como inexistente ainda tem um erro na assinatura que não consegui descobrir, mas consegui evoluir até aqui quem sabe alguém consiga saber onde está o erro ...

... parece que tem /* HB_CRC16(string) -> Crc16 Calculates CCITT Crc16 (16-bit Cyclic redundancy checksum) Parameters: string - string variable to calculate CRC16 Returns: Crc16 as a 2-byte string variable (high byte first) HB_NCRC16(string,intermed16) -> nCrc16 Calculates CCITT Crc16 ...