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.