Palmitec - colocado 12 itens materiais

Palmitec - colocado 12 itens materiais

Essa rotina ira fazer com que nao quebre palavras

Essa rotina ira fazer com que nao quebre palavras

!Loc:Transfere_Obs
    !Essa rotina ira fazer com que nao quebre palavras
    !loc:Texto string 2000
    !loc:contador long
    !loc:inicial long
    !loc:final long
    !loc:transfere_obs => Grupo => com ! wobs dim[6] Tamanno 80
    loc:Texto=Loc:Transfere_Obs
    Loc:Transfere_Obs=''  
    loc:contador=0
    LOOP
        IF loc:Texto<>''
            Loc:Inicio=1;loc:Final=80;loc:contador+=1
            IF loc:contador>6
                BREAK
            ELSE          
                LOOP
                    if (SUB(loc:Texto,loc:Final,1)<>'' AND SUB(loc:Texto,loc:Final+1,1)='') OR (SUB(loc:Texto,loc:Final,1)='')
                        WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final)))
                        loc:Texto=sub(loc:Texto,loc:Final+1,20000)
                        BREAK
                    ELSE
                        LOC:FINAL-=1
                        IF LOC:FINAL<1 p="">                            LOC:INICIO=LOC:INICIO+loc:Final
                            WObs[loc:contador]=CLIP(LEFT(sub(loc:Texto,Loc:Inicio,loc:Final)))
                            LOC:FINAL=80
                            BREAK
                        END        
                    END
                END
            END      
        ELSE
            BREAK
        END  
    END
!Loc:Transfere_Obs

Icones Livres

Icones Livres
http://www.aha-soft.com/free-icons/

Base de conhecimento Clarion

http://clarionlive.wikispaces.com/Knowledgebase

Clarion / C#

Clarion / C#

http://clarionlive.wikispaces.com/Creating+a+COM+control+in+VS2012+for+use+in+CLarion+-+Mark+Sarson

http://screencast.com/t/Dr78q2RGuqdX

http://clarionlive.wikispaces.com/Knowledgebase

Queue - ListBox

Queue - ListBox

No clarion8,nao achei o listbox queue entao copio colo e altero o que desejo

              LIST,AT(11,54,561,207),USE(DeletaitensQueue),VSCROLL,FORMAT('12L(2)|M~Ite' & |
                'n~L(1)@n_03@'),FROM(DupQueue),#FIELDS(Dupq:Sequencia,Dupq:Cod,Dupq:EmitDest, |
                Dupq:Titulo,Dupq:Data_Emissao_DATE,Dupq:Data_Vencimento_DATE,Dupq:Data_Pagamento_DATE, |
                Dupq:Valor_Titulo_Receber,Dupq:Valor_Titulo_Pagar,Dupq:DiferencaValor),#ORIG(?List1), |
                #ORDINAL(358)

Browse - Filtrar Registros

Browse - Filtrar Registros

BRW1.SetFilter('(mat:FichaTecnica_mat=1)')
thiswindow.reset(true)