Theotokos

Function RtGravaPDV(lAppend,nOpcPDV,oDlgNota) ... MsgRun("Gerando Relarório","Relatório",{|| RelPDV2(lAppend,nOpcPDV) }) oCodCli:SETFOCUS() OBTN2:OJUMP:=oCodCli Return .t. FUNCTION RelPDV2(lAppend,nOpcPDV) Private oPrn Private nFlag,nLinha,nPagina * PRINTERSETUP() Printer oPrn DOC "Pedido de Venda" PREVIEW // modo grafico com preview oPrn:SetLandScape() // Impreesão tio Paisagem .... oPrn:EndPAGE() EndPrint Return .T.

nãos ei se perguntou a mim ou ao Ladinilson , mas no meu caso a restauração do bkp é externo ao sistema... sem acesso ao usuário sem a minha senha...

Vishi!!! estou com um problema em um cliente, e estou tentando descobrir, agora vc falando isso fiquei desconfiado... já que o cliente vez o balanço do estoque, e alterou os produtos que estavam errado... porem agora alegam que estoque esta errado de novo, que os produtos que conferiram esta com a qtde de antes do lançamento do balanço... olha só a encrenca... Estou verificando no sistema fonte e nos arquivos para descobrir se houve algum erro de programação ou de usuário, mas não encontro nada....

Feliz Natal a todos!!! Prospero 2020 e sucesso sempre!!! A todos um natal cheio das bençãos de Deus, que ele possa nascer em nossos corações! Que a Virgem Maria nos ensine a ser uma eterna manjedoura...

já tentou colocar oDlg:lTransparent := .t.

praticamente do mesmo jeito.... basta colocar comando ACTION (sua função) BITMAP "sua Bitmap para botao"

REDEFINE GET oPROCURA_PESQUISA var PROCURA_PESQUISA ID 4038 OF oDLG_INVENTARIO PICTURE "@!K" ACTION ( PROCURA_PRODUTOS_SQL_INVENTARIO( '',PROCURA_PESQUISA, IF(cOrder='A','D','A') ) ) BITMAP "#8393" FONT O_F_GET CUEBANNER 'Digite Sua Pesquisa (F5=Buscar)'

ve se este te ajuda https://drive.google.com/open?id=1BrFlUTMNQEZ_DtCq-EbYWocdCmm0FsPY

Vixi.... Desculpa ai!!! rsrsrsrs.... nem vi que escrevi errado...

tenho interesse tmb meu caro...qdo estiver pornos avise...tenho clientes precisando deste serviços em minha região... obgdo!!!

vLW @kapiaba!!! porem queria que mesmo com a impressora selecionada errada, mostrar na tela o relatório no formato A4 como escolhido no comando oPrn:SetPage( 9 ) // Configura o Tamanho do Papel = A4

NÃO SERIA O ::bChange ?

PRINT oPrn TITLE "Impressão Relatorio Atrasados" PREVIEW DEFINE FONT oFont NAME "TAHOMA" SIZE 0, -11 OF oPrn DEFINE FONT oFntNormal NAME "TAHOMA" SIZE 0, -12 OF oPrn DEFINE FONT oFntBold NAME "TAHOMA" SIZE 0, -12 BOLD OF oPrn oPrn:SetPage( 9 ) // Configura o Tamanho do Papel = A4 oPrn:SetLandscape() Bom Dia Pessoal!!! Qdo configuro a pagina em oPrn:SetPage(9) estou configurando uma pagina para impressão em folha A4, até ai tudo bem, porem se no computador do cliente esta como padrão um impressora ARGOX Os-214 por exemplo (mpressora não fiscal); no preview deste relatório fica como se a pagina fosse de fita (40 colunas) e não como A4... COMO CORRIGIR ISSO? O QUE ESTA FALTANDO NA CONFIGURAÇÃO NO CODIGO FONTE?

Vlw @rochinha!!! Vou verificar isto.

Alguem converteu esta rotina para xBrowse e que possa compartilhar, estou tendo problema com a rotina do xbrowse para enviar para excel, os campos numericos até vao direitinho, só que o usuario não consegue fazer calculos com este campo no Excel...

https://www.gs1br.org/servicos-e-solucoes/cnp-cadastro-nacional-de-produtos https://www.embalagemmarca.com.br/2014/09/gs1-brasil-lanca-aplicativo-que-fornece-informacoes-de-produtos-aos-consumidores/ vê se isso te ajuda

não sei se daria certo, mas um ideia, pois não testei... vc colocar no ON PAINT da dialog em questão um temporizador e então ao final fechar oDialog:bPaint := {|| Sleep(20000), oDialog:End() } mais ou menos isso...

desta forma esta abrindo a pagina do whatsapp com contato, mas não escreve a mensagem e envia... alguem mas testou assim...

Bom Dia pessoal, Não achei nada no forum neste sentido, gostaria de saber se é possivel ou qual seria a alternativa para que o relatório em TDosPrn importe para o excel... igual tem la na previews para PDF e Word queria ter a opção de enviar para planilhas de excel...

Meus Sentimentos, que Deus dê o conforto necessário a sua família...

desistala e tenta instalar em uma pasta diferente.... e execute sempre como admnistrador

Olá, eu utilizo estes comandos... FrPrn:PreviewOptions:SetAllowEdit(.f.) FrPrn:PreviewOptions:SetOutlineVisible(.t.) FrPrn:PreviewOptions:SetOutlineExpand(.f.) FrPrn:PreviewOptions:SetMaximized(.t.) * FrPrn:LoadFromFile("Formulario\Pedido.fr3") * FrPrn:PreviewOptions:SetButtons(1337) FrPrn:ReportOptions:SetName("Imprimindo... "+strzero(nnumero,8)) * FrPrn:PrintOptions:SetShowDialog(.f.) FrPrn:PrepareReport() FrPrn:Print() FrPrn:SetProperty("Report", "ShowProgress", .T.) e no formulario .Fr3 em propriedades da página em outras opções coloco como Altura da Pagina Infinita...

me parece que vai precisar redesenhar, porque não é apenas a questão de 2 colunas, e sim por causa das medidas estarem invertidas...

vlw @fladimir, estou fora do escritorio hoje e amanhã, ai não tem como postar... mas na quarta eu posto o txtpra vc ver a configuração e se der tmb te chamo no privado...