Jump to content
Sign in to follow this  
paula_91

PHC BROWLIST

Recommended Posts

paula_91

Boa tarde,

Preciso de criar uma regra no phc. A regra não deixa gravar quando um determinada campo não está preenchido.

Mas neste caso são cerca de 15 campos. Queria fazer isto num cursor que depois iria ser mostrado numa browlist.

Neste momento o código que tenho (e funciona) é o seguinte:

If inlist (bo.ndos,101)

local mensagem

mensagem =''

If empty (bo.maquina)

mensagem= mensagem + 'Nº de Booking' + chr(13)

endif

If empty (bo.nome)

mensagem= mensagem + 'Shipper' + chr(13)

endif

If empty (bo2.u_dstnome)

mensagem= mensagem + 'Consignee' + chr(13)

endif

If empty (bo.trab5)

mensagem= mensagem + 'Porto de Emabarque'+ chr (13)

endif

If empty (bo.serie)

mensagem= mensagem + 'Navio de Transbordo'+ chr (13)

endif

If empty (bo.nomquina)

mensagem= mensagem + 'Nº de Viagem do Navio de Transbordo'+ chr (13)

endif

If empty (bo.dataopen)

mensagem= mensagem + 'Data'+ chr (13)

endif

If empty (bo.trab3)

mensagem= mensagem + 'Porto de Descarga' + chr(13)

endif

If empty (bo.u_pagocobr)

mensagem=mensagem + 'Prepaid ou Collect'+ chr(13)

endif

If empty (bo.u_bl)

mensagem=mensagem + 'Nº de BL'+ chr(13)

endif

If empty (bo.vendedor)

mensagem=mensagem +  'Nº de Originais' + chr (13)

endif

If empty (bo.u_fclcl)

mensagem= mensagem + 'FCL ou LCL' + chr(13)

endif

If empty (bo.fref)

mensagem= mensagem + 'Nº de Processo' + chr(13)

endif

select cu_marcnum

duplicursor("cu_marcnum", "cu_marc")

If empty (cu_marc.cont)

mensagem=mensagem + 'Medida dos Contentores' + chr(13)

endif

If empty (cu_marc.qnt)

mensagem=mensagem + 'Quantidade de Contentores' + chr(13)

endif

If empty (cu_marc.tipo)

mensagem= mensagem + 'Tipo de Contentores' + chr (13)

endif

If empty (cu_marc.volumes)

mensagem= mensagem + 'Nº de volumes' + chr (13)

endif

If empty (cu_marc.design)

mensagem= mensagem + 'Designação' + chr (13)

endif

If empty (cu_marc.pesobruto)

mensagem= mensagem + 'Peso Bruto' + chr (13)

endif

If empty (mensagem)

return .T.

else

messagebox(alltrim(mensagem),0+48,'Campos de preenchimento obrigatório:'+chr(13))

endif

endif

return .f.

Só que torna-se um pouco confuso o ideal seria apresentar o cursor numa browlist.

Se alguém puder tiver uma dica agradeço

Share this post


Link to post
Share on other sites
rui.campos

Boa noite

Já conseguiu resolver o seu problema?

Se ainda puder ajudar diga-me

RC

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.