Pablo.Softgraf

Bom dia a todos da comunidade .. Tenho um problema com componente TFolder quando coloco via código consigo abri-lo normalmente .. mas pelo Workshop não consigo gera um erro "array access error" FUNCTION CentroDeCusto() LOCAL oDlg,oWndChild,oFld,oLbx LOCAL oFont,oDtb,oCta,vCta,VDesc,oDesc SET RESOURCES TO "cadastro.dll" USE CR_MP NEW DATABASE oDtb DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8 //DEFINE DIALOG oWndChild TITLE "Pruebas" SIZE 400,300 OF oWPpal DEFINE DIALOG oWndChild; RESOURCE "DIALOG_1"; TITLE "Centro de Custo"; OF oWPpal REDEFINE FOLDER oFld ID 12 OF oWndChild PROMPT "Cadastro","Consulta" #define PAI oFld:aDialogs[1] REDEFINE LISTBOX oLbx; FIELDS cr_mp->codmp,; cr_mp->descricao; HEADERS "Código","Descricao"; FONT oFont OF PAI ACTIVATE WINDOW oWndChild RETURN NIL id=red>

Bom dia a todos da comunidade .. Tenho um problema com componente TFolder quando coloco via código consigo abri-lo normalmente .. mas pelo Workshop não consigo gera um erro "array access error" FUNCTION CentroDeCusto() LOCAL oDlg,oWndChild,oFld,oLbx LOCAL oFont,oDtb,oCta,vCta,VDesc,oDesc SET RESOURCES TO "cadastro.dll" USE CR_MP NEW DATABASE oDtb DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8 //DEFINE DIALOG oWndChild TITLE "Pruebas" SIZE 400,300 OF oWPpal DEFINE DIALOG oWndChild; RESOURCE "DIALOG_1"; TITLE "Centro de Custo"; OF oWPpal REDEFINE FOLDER oFld ID 12 OF oWndChild PROMPT "Cadastro","Consulta" #define PAI oFld:aDialogs[1] REDEFINE LISTBOX oLbx; FIELDS cr_mp->codmp,; cr_mp->descricao; HEADERS "Código","Descricao"; FONT oFont OF PAI ACTIVATE WINDOW oWndChild RETURN NIL id=red>

Obrigado , amigo !!! consegui resolver com este comando setando a impressora específica ..

Senhores , bom dia a todos !!! Sou um novo usuário e venho do Clipper5.XX e linguagens visuais como Java e Delphi .. Estou migrando um sistema de CLIPPER para FIVEWIN .. logo de cara já achei os recursos da linguagem maravilhosos ,.. Tenho uma dúvida sobre a classe TReport. Gostaria de saber como faço para setar uma impressora de destino sem usar o PRINTER oPrinter FROM USER no caso acima tenho que escolher a impressora , mas não quero isso , quero mandar direto para a impressora escolhida

Senhores , bom dia a todos !!! Sou um novo usuário e venho do Clipper5.XX e linguagens visuais como Java e Delphi .. Estou migrando um sistema de CLIPPER para FIVEWIN .. logo de cara já achei os recursos da linguagem maravilhosos ,.. Tenho uma dúvida sobre a classe TReport. Gostaria de saber como faço para setar uma impressora de destino sem usar o PRINTER oPrinter FROM USER no caso acima tenho que escolher a impressora , mas não quero isso , quero mandar direto para a impressora escolhida

Senhores , bom dia a todos !!! Sou um novo usuário e venho do Clipper5.XX e linguagens visuais como Java e Delphi .. Estou migrando um sistema de CLIPPER para FIVEWIN .. logo de cara já achei os recursos da linguagem maravilhosos ,.. Tenho uma dúvida sobre a classe TReport. Gostaria de saber como faço para setar uma impressora de destino sem usar o PRINTER oPrinter FROM USER no caso acima tenho que escolher a impressora , mas não quero isso , quero mandar direto para a impressora escolhida

Senhores , bom dia a todos !!! Sou um novo usuário e venho do Clipper5.XX e linguagens visuais como Java e Delphi .. Estou migrando um sistema de CLIPPER para FIVEWIN .. logo de cara já achei os recursos da linguagem maravilhosos ,.. Tenho uma dúvida sobre a classe TReport. Gostaria de saber como faço para setar uma impressora de destino sem usar o PRINTER oPrinter FROM USER no caso acima tenho que escolher a impressora , mas não quero isso , quero mandar direto para a impressora escolhida