Quem nunca passou por esse aperto, ao precisar alterar o tamanho de casas decimais nas tabelas da Totvs, sempre se fica a impressão e isso é certo que mais dias menos dias vai surgir uma inconsitência em alguma tabela que foi esquecida, dempois de muitas pesquisas encontrei essas duas postagens da Totvs que me ajudou muito
FAT0068_Aumento_de_Casas_Decimais_no_ambiente_Faturamento_SIGAFAT
Facilitador criado pela Totvs
Download da ferramenta
Espero te auxliado em um sofrimento a menos.
Neste blog teremos dicas do universo Totvs relacionado mais especificamente ao Protheus e sua linguagem proprietária o ADVPL. Também abordarei ferramentas de apoio para o desenvolvedor para facilitar o seu dia a dia. Esse blog será voltado a apoiar quem esteja ingressando nesta carreira de desenvolvimento em ADVPL.
sexta-feira, 23 de junho de 2017
quarta-feira, 7 de junho de 2017
Alinhamento em janelas com a propriedade do ALIGN
Quem nunca sofreu com alinhamentos em janelas do Protheus, porém um simples comando vai fazer você mudar o seu conceito em relação a esse assunto, esse é a propriedade ALIGNque vai nos esquecer as complexos malabarismos de coordenadas do MsAdvSize ou FWGetDialogSize.
Então vamos lá com as opções:
Vale ressaltar que o exemplo foi reduzido apenas, para que fosse demostrado o uso dos ALIGN, e o uso deverá ser adaptado de acordo coma sua necessidade.
Um detalhe importante que nesse exemplo até utilizei coordenadas, porém se tivesse deixado o MSNewGetDados com os campos zerados o resultado seria o mesmo.
oMSNewGet := MsNewGetDados():New( 0,0,0,0, nOpc, "U_VLDLINHA()" , "AllwaysTrue", "",;
aAltFields,, nCont , "AllwaysTrue", "", "AllwaysTrue", oWin02, aHeaderEx, aColsEx)
oMSNewGet:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
Boa sorte na nova forma de alinhamentos sem uso de coordenadas.
Então vamos lá com as opções:
Alinhar preenchendo em todo o conteúdo da Janela ou Painel onde estiver
CONTROL_ALIGN_ALLCLIENT
Alinhar ao Topo
CONTROL_ALIGN_TOP
Alinhar ao Rodapé
CONTROL_ALIGN_BOTTOM
Alinhar à Esquerda
CONTROL_ALIGN_LEFT
Alinha à Direita
CONTROL_ALIGN_RIGHT
Não utiliza alinhamento
CONTROL_ALIGN_NONE
Vale ressaltar que o exemplo foi reduzido apenas, para que fosse demostrado o uso dos ALIGN, e o uso deverá ser adaptado de acordo coma sua necessidade.
Um detalhe importante que nesse exemplo até utilizei coordenadas, porém se tivesse deixado o MSNewGetDados com os campos zerados o resultado seria o mesmo.
oMSNewGet := MsNewGetDados():New( 0,0,0,0, nOpc, "U_VLDLINHA()" , "AllwaysTrue", "",;
aAltFields,, nCont , "AllwaysTrue", "", "AllwaysTrue", oWin02, aHeaderEx, aColsEx)
oMSNewGet:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT
Boa sorte na nova forma de alinhamentos sem uso de coordenadas.
Assinar:
Postagens (Atom)