SAOliveira

IF (_dbf)->(dbrlock((_dbf)->(RECNO()))) ????????????????

Alguém conseguiu testar esta rotina com sucesso.

Se entendi direto você quer anexar o .FR3 num .RES do Pelles, para não mandar com arquivo.

Se for isto, basta importar e setar com RCDATA.

De o mesmo nome do .FR3 e chame no seu sistema na hora se imprimir.

oFrPrn:LoadFromResource(nome do seu resource)

Waldir, apenas por curiosidade.

O servidor, poderia descrever equipamento, processador, hd, memoria.

Quantos terminais pendurados neste servidor (total, inclusive remotos)

Acho que viajei.

REDEFINE GET OWCodCfop VAR Wcodcfop Picture "@R 9.999" ID 101 OF oDlg FONT oPub:fBCour13 COLOR oPub:CorGet,oPub:CorFundoGet UPDATE BITMAP "16_LUPA" ACTION(Ctb_Cfop_Cadastro_Consulta('oDlg','Wcodcfop')) Valid(VWCodCfop())

no caso Ctb_Cfop_Cadastro_Consulta('oDlg','Wcodcfop'), é a função da busca sensitiva.

Desculpa, foi a pressa.

FUNC Generar_QR(cStr,cFile)
LOCAL nResp
LOCAL qrDLL
qrDLL:=LoadLibrary("QRCodelib.Dll" )
nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cStr,cFile)
FreeLibrary(qrDLL)
RETURN (NIL)

cStr:="conteúdo do_qrcode"
cFile:="c:\arq.bmp"

QRcode(cStr,cFile)

**----------------------------------------------------------**
FUNCTION QRcode(cStr,cFile)
**----------------------------------------------------------**

#Define DC_CALL_STD 0x0020

LOCAL qrDLL

Generar_QR(cStr,cFile)
RETURN(NIL)

A dll do link, devera ficar na pasta do sistema.

www.oho.com.br/fw/qr.zip

FNL, em algum momento usei o termo "PITACO", com de forma pejorativa.

Apenas solicitei ao CLALIVEIRA, algum detalhes a mais para que pudéssemos de forma certa dar um "PITACO"

Sinônimos: palpite, conselho, opinião, intromissão.

Acho que ficaria muita mais fácil começar a dar pitacos certos se:

1 - Como esta setando o RDD.

2 - Como esta abrindo os arquivos.

3 - Como esta fazendo o travamento do registro.

Com isto já dá pra começar.

Resolver é outros quinhentos.

Veja se é isto.

oBrw:aCols[9]:AddResource("VAZIO")
oBrw:aCols[9]:AddResource("CHEIO")
oBrw:aCols[9]:nFootBmpNo :=IF(pCodUso>1,2,1)

\SAMPLES\XBALPHA.PRG

Se estiver usando o designer:

Edite o campo, vá em destaque e faça sua condição.

Também não vou participar mas...

1 - O que tem realmente definido - ???

2 - Quais temas - ???

3 - Qual data real - ???

??? realmente deixa os interessados, somente no aguardo.

JFAguiar, a regra é simples, como diria o Arnaldo.

O que deve ser impresso é

"Valor aproximado dos tributos R$ xxx,xx (xxx.xx%) Fonte XXXXXXX"

Portanto R$ xxx é igual ao total dos tributos calculados individualmente pela alíquota do produto da sua tabela.

e xxx.xx% é a media do percentual aplicado.

No caso da Fonte XXXXXXX. pode ser a do IBPT (optei), ou seu sistema ter uma própria.

O importante é ser informado a FONTE da informação.

Tu vai usar onde e como.

poste.

Arthur.

Preste bastante atenção com a FASTREPORT, ela é CASE SENSITIVE

Faltou o UPDATE na sua linha do SAY

@ 2, 8 SAY ocontaa VAR mcontaa OF oDlg5 UPDATE

    oBrw:=TXBROWSE():NEW(oDlg)
        oBrw:CreateFromResource(201)
        oBrw:cAlias('NFEITEM')
        oBrw:SetRDD(.f.)
        oBrw:SetColor( oPub:CorAzul,oPub:CorDlg )
        oBrw:l2007               := .T.
        oBrw:lAllowRowSizing     := .T.
        oBrw:lHScroll            := .T.
        oBrw:lVScroll            := .T.
        oBrw:lRecordSelector     := .T.
        oBrw:nRecSelColor        := RGB(205,220,255)
        oBrw:lAllowColSwapping   := .f.
        oBrw:nDataLines          := 1
        oBrw:lColDividerComplete := .T.
        oBrw:bClrStd             :={||{oPub:CorAzul,IF(NFEITEM->(OrdKeyNo())%2=0,FundoGet,oPub:CorDlg)}}
        oBrw:bClrSel             :={||{oPub:CorAzul,IF(NFEITEM->(OrdKeyNo())%2=0,FundoGet,oPub:CorDlg)}}
        oBrw:bClrSelFocus        :={||{oPub:CorPreto,oPub:CorBrwC}}
        oBrw:bClrRowFocus        :={||{oPub:CorPreto,oPub:CorBrwL}}
        oBrw:nColDividerStyle    := 4
        oBrw:nRowDividerStyle    := 4
        oBrw:nMarqueeStyle       := 5
        oBrw:nRowHeight          := 24
        oBrw:nFreeze             :=4

        oBrw:lFooter             := .t. //  se vai mostrar rodape)
        oBrw:nFooterLines        :=  1
        oBrw:nFooterHeight       := 23

        oBrw:lHeader             := .t. //  se vai mostrar header cabeçalho)
        oBrw:nHeaderLines        := 1
        oBrw:nHeader             := 1
        oBrw:aHeaderTop          := {"DADOS PARA ENTRADA","INFORMAÇÕES DO ITEM NA NOTA DE ENTRADA"}
        oBrw:nHeaderHeight       := 60

        oCol_Cod:=oBrw:AddCol()
        oCol_Cod:nHeaderType  := 2
        oCol_Cod:cHeader      :="Código"
        oCol_Cod:nHeadStrAlign:=AL_CENTER
        oCol_Cod:nDataStrAlign:=AL_RIGHT
        oCol_Cod:bStrData     :={|| NFEITEM->codent }
        oCol_Cod:oDataFont    :=oPub:fBCour13
        oCol_Cod:nWidth       :=50
        oCol_cod:bFooter      :={|| NFEITEM->(LastRec()) }
        oCol_cod:oFooterFont  :=oPub:fBCour13
        oCol_cod:nFootStrAlign:=AL_RIGHT
        oCol_cod:nEditType    :=EDIT_GET
        oCol_cod:cEditPicture :="999999"
        oCol_cod:oEditFont    :=oPub:fBCour13
        oCol_cod:bOnPostEdit  :={|oCol_vis,uValue,nKey|IF(nKey= 13,Valida_Codigo(uValue),NIL)}
        oCol_cod:bEditValue   :={||NFEITEM->codent}

        oCol_Loj:=oBrw:AddCol()
        oCol_Loj:nHeaderType  := 1
        oCol_Loj:cHeader      :="Qtd Loja"
        oCol_Loj:nHeadStrAlign:=AL_CENTER
        oCol_Loj:nDataStrAlign:=AL_RIGHT
        oCol_Loj:bStrData     :={|| NFEITEM->qtdloj }
        oCol_Loj:oDataFont    :=oPub:fBCour13
        oCol_Loj:nWidth       :=80
        oCol_loj:nEditType    :=EDIT_GET
        oCol_loj:cEditPicture :="@E 99,999.999"
        oCol_loj:oEditFont    :=oPub:fBCour13
        oCol_loj:bOnPostEdit  :={|oCol_loj,uValue,nKey|IF(nKey= 13,Valida_QtdeLoj(uValue),NIL)}
        oCol_loj:bEditValue   :={||NFEITEM->qtdloj}

        oCol_Dep:=oBrw:AddCol()
        oCol_Dep:nHeaderType  := 1
        oCol_Dep:cHeader      :="Qtd Dep"
        oCol_Dep:nHeadStrAlign:=AL_CENTER
        oCol_Dep:nDataStrAlign:=AL_RIGHT
        oCol_Dep:bStrData     :={|| NFEITEM->qtddep }
        oCol_Dep:oDataFont    :=oPub:fBCour13
        oCol_Dep:nWidth       :=80
        oCol_Dep:nEditType    :=EDIT_GET
        oCol_Dep:cEditPicture :="@E 99,999.999"
        oCol_Dep:oEditFont    :=oPub:fBCour13
        oCol_Dep:bOnPostEdit  :={|oCol_Dep,uValue,nKey|IF(nKey= 13,Valida_QtdeDep(uValue),NIL)}
        oCol_Dep:bEditValue   :={||NFEITEM->qtddep}

        oCol_Custo:=oBrw:AddCol()
        oCol_Custo:nHeaderType  := 1
        oCol_Custo:cHeader      :="Custo Real"
        oCol_Custo:nHeadStrAlign:=AL_CENTER
        oCol_Custo:nDataStrAlign:=AL_RIGHT
        oCol_Custo:bStrData     :={|| Transf(NFEITEM->cusent,"@EZ 99,999.99") }
        oCol_Custo:oDataFont    :=oPub:fBCour13
        oCol_Custo:nWidth       :=80
        oCol_Custo:nEditType    :=EDIT_GET
        oCol_Custo:cEditPicture :="@E 99,999.99"
        oCol_Custo:oEditFont    :=oPub:fBCour13
        oCol_Custo:bOnPostEdit  :={|oCol_vis,uValue,nKey|IF(nKey= 13,Valida_CustoReal(uValue),NIL)}
        oCol_Custo:bEditValue   :={||NFEITEM->cusent}

        oCol_Pra:=oBrw:AddCol()
        oCol_Pra:nHeaderType  := 1
        oCol_Pra:cHeader      :="Venda a Prazo"
        oCol_Pra:nHeadStrAlign:=AL_CENTER
        oCol_Pra:nDataStrAlign:=AL_RIGHT
        oCol_Pra:bStrData     :={|| Transf(NFEITEM->vdapra,"@EZ 99,999.99") }
        oCol_Pra:oDataFont    :=oPub:fBCour13
        oCol_Pra:nWidth       :=80
        oCol_pra:nEditType    :=EDIT_GET
        oCol_pra:cEditPicture :="@E 99,999.99"
        oCol_pra:oEditFont    :=oPub:fBCour13
        oCol_pra:bOnPostEdit  :={|oCol_vis,uValue,nKey|IF(nKey= 13,Valida_VdaPra(uValue),NIL)}
        oCol_pra:bEditValue   :={||NFEITEM->vdapra}

        oCol_des:=oBrw:AddCol()
        oCol_des:nHeaderType  := 4
        oCol_des:cHeader      :="Descrição"
        oCol_des:nHeadStrAlign:=AL_CENTER
        oCol_des:nDataStrAlign:=AL_LEFT
        oCol_des:bStrData     :={|| NFEITEM->despro }
        oCol_des:oDataFont    :=oPub:fBCour13
        oCol_des:nWidth       :=380
        oCol_des:bPaintText   :={|oCol,hDC,cText,aCoord|PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oPub:fBCour13, IF(NFEITEM->codent==0,oPub:CorVermelho,oPub:CorGet),IF(NFEITEM->codent==0,oPub:CorVermelho,oPub:CorGet)) }

        oCol_Uni:=oBrw:AddCol()
        oCol_Uni:nHeaderType  := 1
        oCol_Uni:cHeader      :="UN"
        oCol_Uni:nHeadStrAlign:=AL_CENTER
        oCol_Uni:nDataStrAlign:=AL_CENTER
        oCol_Uni:bStrData     :={|| NFEITEM->unipro }
        oCol_Uni:oDataFont    :=oPub:fBCour13
        oCol_Uni:nWidth       :=30

        oCol_Qtd:=oBrw:AddCol()
        oCol_Qtd:nHeaderType  := 1
        oCol_Qtd:cHeader      :="Qtd Nota"
        oCol_Qtd:nHeadStrAlign:=AL_CENTER
        oCol_Qtd:nDataStrAlign:=AL_RIGHT
        oCol_Qtd:bStrData     :={|| NFEITEM->qtdpro }
        oCol_Qtd:oDataFont    :=oPub:fBCour13
        oCol_Qtd:nWidth       :=80

        oCol_Cus:=oBrw:AddCol()
        oCol_Cus:nHeaderType  := 1
        oCol_Cus:cHeader      :="Valor Unit"
        oCol_Cus:nHeadStrAlign:=AL_CENTER
        oCol_Cus:nDataStrAlign:=AL_RIGHT
        oCol_Cus:bStrData     :={|| Transf(NFEITEM->vlrpro,"@E 99,999.99") }
        oCol_Cus:oDataFont    :=oPub:fBCour13
        oCol_Cus:nWidth       :=80

        oCol_tot:=oBrw:AddCol()
        oCol_tot:nHeaderType  := 1
        oCol_tot:cHeader      :="Valor Total"
        oCol_tot:nHeadStrAlign:=AL_CENTER
        oCol_tot:nDataStrAlign:=AL_RIGHT
        oCol_tot:bStrData     :={|| Transf(NFEITEM->totpro,"@E 999,999.99") }
        oCol_tot:oDataFont    :=oPub:fBCour13
        oCol_tot:nWidth       :=90

        oCol_Ean:=oBrw:AddCol()
        oCol_Ean:nHeaderType  := 1
        oCol_Ean:cHeader      :="Ean"
        oCol_Ean:nHeadStrAlign:=AL_CENTER
        oCol_Ean:nDataStrAlign:=AL_LEFT
        oCol_Ean:bStrData     :={|| Transf(NFEITEM->eanpro,"@R 999.99999.9999-9") }
        oCol_Ean:oDataFont    :=oPub:fBCour13
        oCol_Ean:nWidth       :=140

        oCol_ncm:=oBrw:AddCol()
        oCol_ncm:nHeaderType  := 1
        oCol_ncm:cHeader      :="Ncm-Sh"
        oCol_ncm:nHeadStrAlign:=AL_CENTER
        oCol_ncm:nDataStrAlign:=AL_LEFT
        oCol_ncm:bStrData     :={|| Transf(NFEITEM->ncmpro,"@R 9999.99.99") }
        oCol_ncm:oDataFont    :=oPub:fBCour13
        oCol_ncm:nWidth       :=95

        oCol_04:=oBrw:AddCol()
        oCol_04:nHeaderType  := 1
        oCol_04:cHeader      :="CST"
        oCol_04:nHeadStrAlign:=AL_CENTER
        oCol_04:nDataStrAlign:=AL_CENTER
        oCol_04:bStrData     :={|| Transf(NFEITEM->cstpro,"@R 9 999") }
        oCol_04:oDataFont    :=oPub:fBCour13
        oCol_04:nWidth       :=50

        oCol_05:=oBrw:AddCol()
        oCol_05:nHeaderType  := 1
        oCol_05:cHeader      :="CFOP"
        oCol_05:nHeadStrAlign:=AL_CENTER
        oCol_05:nDataStrAlign:=AL_LEFT
        oCol_05:bStrData     :={|| Transf(NFEITEM->cfopro,"@R 9.999") }
        oCol_05:oDataFont    :=oPub:fBCour13
        oCol_05:nWidth       :=45

Alguem já consegui usar array de dados na fast.

É por aí.

Se o default, ou seja o que esta presente em todos os browses da vida é .t., porque temos que vascular para resolver.

Este assunto já foi debatido em diversos tópicos.

Comigo acontecia com o Radio e CheckBox dentro de folder.

Ah, o meu manifest é criado no pelles.

Parou o problema depois que passei a usar W64.

Ou foi mais um destes mistérios sem explicação.

Teste:

www.oho.com.br/fw/__Base.rar

Amigo não leva a mal não, mas se eu tivesse um cliente do porte do seu "5.000 por dia",

não ficaria esperando uma dica por "9 dias",.

FolderEx

Seguinte:

cVar:="Cliente: <b>Nome do Cliente</b>"

No memo: [GetHbVar("cVar")], e marco para aceritar TAGS HTML

Resultado :     Cliente: Nome do Cliente

Até aí beleza.

No entanto se determinar o tamanho da fonte( <font size=xx> não funciona

Alguma sujestão.